tuned signature;
authorwenzelm
Wed, 07 Nov 2007 16:42:56 +0100
changeset 25324 ed4ac5966c68
parent 25323 50d4c8257d06
child 25325 0659c05cc107
tuned signature;
src/Pure/type.ML
--- a/src/Pure/type.ML	Wed Nov 07 16:42:55 2007 +0100
+++ b/src/Pure/type.ML	Wed Nov 07 16:42:56 2007 +0100
@@ -55,7 +55,7 @@
 
   (*matching and unification*)
   exception TYPE_MATCH
-  type tyenv
+  type tyenv = (sort * typ) Vartab.table
   val lookup: tyenv * (indexname * sort) -> typ option
   val typ_match: tsig -> typ * typ -> tyenv -> tyenv
   val typ_instance: tsig -> typ * typ -> bool