author | wenzelm |
Wed, 07 Nov 2007 16:42:56 +0100 | |
changeset 25324 | ed4ac5966c68 |
parent 25323 | 50d4c8257d06 |
child 25325 | 0659c05cc107 |
src/Pure/type.ML | file | annotate | diff | comparison | revisions |
--- 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