# HG changeset patch
# User wenzelm
# Date 1122556797 -7200
# Node ID d14ec6f2d29ba1d6641e2109d486aadb4faedb08
# Parent  87fc64d2409f5859a48545945d2a827ef64f58c5
adapted Type.typ_match;
tuned;

diff -r 87fc64d2409f -r d14ec6f2d29b src/Pure/proofterm.ML
--- a/src/Pure/proofterm.ML	Thu Jul 28 15:19:56 2005 +0200
+++ b/src/Pure/proofterm.ML	Thu Jul 28 15:19:57 2005 +0200
@@ -536,7 +536,7 @@
     val ixns = add_term_tvar_ixns (t, []);
     val fmap = fs ~~ variantlist (map fst fs, map #1 ixns)
     fun thaw (f as (a, S)) =
-      (case assoc (fmap, f) of
+      (case gen_assoc (op =) (fmap, f) of
         NONE => TFree f
       | SOME b => TVar ((b, 0), S));
   in map_proof_terms (map_term_types (map_type_tfree thaw)) (map_type_tfree thaw) prf
@@ -1085,15 +1085,14 @@
 
   in getOpt (rew1 [] skel0 prf, prf) end;
 
-fun rewrite_proof tsig = rewrite_prf (fn (tab, f) =>
-  Type.typ_match tsig (tab, f ()) handle Type.TYPE_MATCH => raise PMatch);
+fun rewrite_proof tsig = rewrite_prf (fn (tyenv, f) =>
+  Type.typ_match tsig (f ()) tyenv handle Type.TYPE_MATCH => raise PMatch);
 
 fun rewrite_proof_notypes rews = rewrite_prf fst rews;
 
+
 (**** theory data ****)
 
-(* data kind 'Pure/proof' *)
-
 structure ProofData = TheoryDataFun
 (struct
   val name = "Pure/proof";