# HG changeset patch
# User wenzelm
# Date 1008638402 -3600
# Node ID c32d201d7c0813f994e04187b9eb2654393dd26b
# Parent  d99716a53f59c5767a969b3e06d643ff82e91c15
tuned Type.unify;
do *not* declare TVar names as used;

diff -r d99716a53f59 -r c32d201d7c08 src/Pure/Isar/proof_context.ML
--- a/src/Pure/Isar/proof_context.ML	Tue Dec 18 02:19:31 2001 +0100
+++ b/src/Pure/Isar/proof_context.ML	Tue Dec 18 02:20:02 2001 +0100
@@ -499,7 +499,7 @@
 
 fun unifyT ctxt (T, U) =
   let val maxidx = Int.max (Term.maxidx_of_typ T, Term.maxidx_of_typ U)
-  in #1 (Type.unify (Sign.tsig_of (sign_of ctxt)) maxidx Vartab.empty (T, U)) end;
+  in #1 (Type.unify (Sign.tsig_of (sign_of ctxt)) (Vartab.empty, maxidx) (T, U)) end;
 
 fun norm_term (ctxt as Context {binds, ...}) schematic =
   let
@@ -602,7 +602,6 @@
 
 val ins_used = foldl_term_types (fn t => foldl_atyps
   (fn (used, TFree (x, _)) => x ins_string used
-    | (used, TVar ((x, _), _)) => x ins_string used
     | (used, _) => used));
 
 val ins_occs = foldl_term_types (fn t => foldl_atyps