--- a/src/FOLP/ex/Nat.thy Tue May 03 15:00:00 1994 +0200
+++ b/src/FOLP/ex/Nat.thy Tue May 03 15:14:54 1994 +0200
@@ -9,7 +9,7 @@
*)
Nat = IFOLP +
-types nat 0
+types nat
arities nat :: term
consts "0" :: "nat" ("0")
Suc :: "nat=>nat"
--- a/src/FOLP/ex/Prolog.thy Tue May 03 15:00:00 1994 +0200
+++ b/src/FOLP/ex/Prolog.thy Tue May 03 15:14:54 1994 +0200
@@ -9,7 +9,7 @@
*)
Prolog = FOL +
-types list 1
+types 'a list
arities list :: (term)term
consts Nil :: "'a list"
":" :: "['a, 'a list]=> 'a list" (infixr 60)