# HG changeset patch
# User wenzelm
# Date 1007376373 -3600
# Node ID 24d31d47af1aba893573d851681557cf31254890
# Parent  f0b62ad4e1a6cace50a1c6bcba7b8403a1b983a9
HOLogic.typeS;

diff -r f0b62ad4e1a6 -r 24d31d47af1a TFL/thry.ML
--- 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 =
diff -r f0b62ad4e1a6 -r 24d31d47af1a TFL/usyntax.ML
--- 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