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