# HG changeset patch
# User berghofe
# Date 1089383350 -7200
# Node ID 1be2cce953180cc6ff9588becf4007b4f77f56f1
# Parent  a4d0ed993050e4df0129c9957bc485fea3a1b590
- Expressed infer_derivs' in terms of infer_deriv
- Eta-expanded function instantiate to delay evaluation (avoids inefficiencies
  when proof terms are switched off)

diff -r a4d0ed993050 -r 1be2cce95318 src/Pure/proofterm.ML
--- a/src/Pure/proofterm.ML	Fri Jul 09 16:23:57 2004 +0200
+++ b/src/Pure/proofterm.ML	Fri Jul 09 16:29:10 2004 +0200
@@ -195,13 +195,7 @@
    | 0 => MinProof (if_ora ora2 (if_ora ora1 [] prf1) prf2)
    | i => err_illegal_level i);
 
-fun infer_derivs' f (ora, prf) =
-  (ora,
-   case !proofs of
-     2 => f prf
-   | 1 => MinProof (mk_min_proof ([], prf))
-   | 0 => MinProof (if_ora ora [] prf)
-   | i => err_illegal_level i);
+fun infer_derivs' f = infer_derivs (K f) (false, MinProof []);
 
 fun (prf %> t) = prf % Some t;
 
@@ -602,9 +596,9 @@
 
 (***** instantiation *****)
 
-fun instantiate vTs tpairs =
+fun instantiate vTs tpairs prf =
   map_proof_terms (subst_atomic (map (apsnd remove_types) tpairs) o
-    subst_TVars vTs) (typ_subst_TVars vTs);
+    subst_TVars vTs) (typ_subst_TVars vTs) prf;
 
 
 (***** lifting *****)