TFL/usyntax.ML
changeset 12340 24d31d47af1a
parent 10769 70b9b0cfe05f
child 13182 21851696dbf0
--- a/TFL/usyntax.ML	Sat Dec 01 18:55:41 2001 +0100
+++ b/TFL/usyntax.ML	Mon Dec 03 11:46:13 2001 +0100
@@ -106,7 +106,7 @@
  *
  *---------------------------------------------------------------------------*)
 val mk_prim_vartype = TVar;
-fun mk_vartype s = mk_prim_vartype ((s, 0), HOLogic.termS);
+fun mk_vartype s = mk_prim_vartype ((s, 0), HOLogic.typeS);
 
 (* But internally, it's useful *)
 fun dest_vtype (TVar x) = x