# HG changeset patch
# User nipkow
# Date 756488401 -3600
# Node ID 4a213aaca3d9faad8e48dda16f8fd1737b696e92
# Parent  4e68398cdc060457573b2ff7aead4c5cdbefbbf0
added empty type-abbr field to extend_theory

diff -r 4e68398cdc06 -r 4a213aaca3d9 src/Cube/Cube.ML
--- a/src/Cube/Cube.ML	Tue Dec 21 16:38:45 1993 +0100
+++ b/src/Cube/Cube.ML	Tue Dec 21 16:40:01 1993 +0100
@@ -10,7 +10,7 @@
 
 val simple = [s_b,strip_s,strip_b,app,lam_ss,pi_ss];
 
-val L2_thy = extend_theory Cube.thy "L2" ([],[],[],[],[],None)
+val L2_thy = extend_theory Cube.thy "L2" ([],[],[],[],[],[],None)
 [
   ("pi_bs",  "[| A:[]; !!x. x:A ==> B(x):* |] ==> Prod(A,B):*"),
 
@@ -23,7 +23,7 @@
 
 val L2 = simple @ [lam_bs,pi_bs];
 
-val Lomega_thy = extend_theory Cube.thy "Lomega" ([],[],[],[],[],None)
+val Lomega_thy = extend_theory Cube.thy "Lomega" ([],[],[],[],[],[],None)
 [
   ("pi_bb",  "[| A:[]; !!x. x:A ==> B(x):[] |] ==> Prod(A,B):[]"),
 
@@ -38,7 +38,7 @@
 val LOmega_thy = merge_theories(L2_thy,Lomega_thy);
 val LOmega = simple @ [lam_bs,pi_bs,lam_bb,pi_bb];
 
-val LP_thy = extend_theory Cube.thy "LP" ([],[],[],[],[],None)
+val LP_thy = extend_theory Cube.thy "LP" ([],[],[],[],[],[],None)
 [
   ("pi_sb",  "[| A:*; !!x. x:A ==> B(x):[] |] ==> Prod(A,B):[]"),
 
diff -r 4e68398cdc06 -r 4a213aaca3d9 src/Cube/cube.ML
--- a/src/Cube/cube.ML	Tue Dec 21 16:38:45 1993 +0100
+++ b/src/Cube/cube.ML	Tue Dec 21 16:40:01 1993 +0100
@@ -10,7 +10,7 @@
 
 val simple = [s_b,strip_s,strip_b,app,lam_ss,pi_ss];
 
-val L2_thy = extend_theory Cube.thy "L2" ([],[],[],[],[],None)
+val L2_thy = extend_theory Cube.thy "L2" ([],[],[],[],[],[],None)
 [
   ("pi_bs",  "[| A:[]; !!x. x:A ==> B(x):* |] ==> Prod(A,B):*"),
 
@@ -23,7 +23,7 @@
 
 val L2 = simple @ [lam_bs,pi_bs];
 
-val Lomega_thy = extend_theory Cube.thy "Lomega" ([],[],[],[],[],None)
+val Lomega_thy = extend_theory Cube.thy "Lomega" ([],[],[],[],[],[],None)
 [
   ("pi_bb",  "[| A:[]; !!x. x:A ==> B(x):[] |] ==> Prod(A,B):[]"),
 
@@ -38,7 +38,7 @@
 val LOmega_thy = merge_theories(L2_thy,Lomega_thy);
 val LOmega = simple @ [lam_bs,pi_bs,lam_bb,pi_bb];
 
-val LP_thy = extend_theory Cube.thy "LP" ([],[],[],[],[],None)
+val LP_thy = extend_theory Cube.thy "LP" ([],[],[],[],[],[],None)
 [
   ("pi_sb",  "[| A:*; !!x. x:A ==> B(x):[] |] ==> Prod(A,B):[]"),
 
diff -r 4e68398cdc06 -r 4a213aaca3d9 src/LCF/ex.ML
--- a/src/LCF/ex.ML	Tue Dec 21 16:38:45 1993 +0100
+++ b/src/LCF/ex.ML	Tue Dec 21 16:40:01 1993 +0100
@@ -14,7 +14,7 @@
 (***  Section 10.4  ***)
 
 val ex_thy = extend_theory thy "Ex 10.4"
-([], [], [], [],
+([], [], [], [], [],
  [(["P"], "'a => tr"),
   (["G","H"], "'a => 'a"),
   (["K"], "('a => 'a) => ('a => 'a)")
@@ -56,7 +56,7 @@
 (***  Example 3.8  ***)
 
 val ex_thy = extend_theory thy "Ex 3.8"
-([], [], [], [],
+([], [], [], [], [],
  [(["P"], "'a => tr"),
   (["F","G"], "'a => 'a"),
   (["H"], "'a => 'b => 'b"),
@@ -86,7 +86,7 @@
 (*** Addition with fixpoint of successor ***)
 
 val ex_thy = extend_theory thy "fix ex"
-([], [], [], [],
+([], [], [], [], [],
  [(["s"], "'a => 'a"),
   (["p"], "'a => 'a => 'a")
  ],