Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
HOLogic.typeS;
authorwenzelm
Mon, 03 Dec 2001 11:46:13 +0100
changeset 12340 24d31d47af1a
parent 12339 f0b62ad4e1a6
child 12341 08afd1003151
HOLogic.typeS;
TFL/thry.ML file | annotate | diff | comparison | revisions
TFL/usyntax.ML file | annotate | diff | comparison | revisions 
--- a/TFL/thry.ML	Sat Dec 01 18:55:41 2001 +0100
+++ b/TFL/thry.ML	Mon Dec 03 11:46:13 2001 +0100
@@ -26,7 +26,7 @@
  *    Matching
  *---------------------------------------------------------------------------*)
 
-local fun tybind (x,y) = (TVar (x, HOLogic.termS) , y)
+local fun tybind (x,y) = (TVar (x, HOLogic.typeS) , y)
       fun tmbind (x,y) = (Var  (x, Term.type_of y), y)
 in
  fun match_term thry pat ob =
--- 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
isabelle