--- a/src/Cube/ex/ex.ML Fri Oct 10 15:52:12 1997 +0200
+++ b/src/Cube/ex/ex.ML Fri Oct 10 16:29:41 1997 +0200
@@ -19,37 +19,37 @@
by (DEPTH_SOLVE (ares_tac simple 1));
uresult();
-goal thy "A:* |- Lam a:A.a : ?T";
+goal thy "A:* |- Lam a:A. a : ?T";
by (DEPTH_SOLVE (ares_tac simple 1));
uresult();
-goal thy "A:* B:* b:B |- Lam x:A.b : ?T";
+goal thy "A:* B:* b:B |- Lam x:A. b : ?T";
by (DEPTH_SOLVE (ares_tac simple 1));
uresult();
-goal thy "A:* b:A |- (Lam a:A.a)^b: ?T";
+goal thy "A:* b:A |- (Lam a:A. a)^b: ?T";
by (DEPTH_SOLVE (ares_tac simple 1));
uresult();
-goal thy "A:* B:* c:A b:B |- (Lam x:A.b)^ c: ?T";
+goal thy "A:* B:* c:A b:B |- (Lam x:A. b)^ c: ?T";
by (DEPTH_SOLVE (ares_tac simple 1));
uresult();
-goal thy "A:* B:* |- Lam a:A.Lam b:B.a : ?T";
+goal thy "A:* B:* |- Lam a:A. Lam b:B. a : ?T";
by (DEPTH_SOLVE (ares_tac simple 1));
uresult();
(* SECOND-ORDER TYPES *)
-goal L2_thy "|- Lam A:*. Lam a:A.a : ?T";
+goal L2_thy "|- Lam A:*. Lam a:A. a : ?T";
by (DEPTH_SOLVE (ares_tac L2 1));
uresult();
-goal L2_thy "A:* |- (Lam B:*.Lam b:B.b)^A : ?T";
+goal L2_thy "A:* |- (Lam B:*.Lam b:B. b)^A : ?T";
by (DEPTH_SOLVE (ares_tac L2 1));
uresult();
-goal L2_thy "A:* b:A |- (Lam B:*.Lam b:B.b) ^ A ^ b: ?T";
+goal L2_thy "A:* b:A |- (Lam B:*.Lam b:B. b) ^ A ^ b: ?T";
by (DEPTH_SOLVE (ares_tac L2 1));
uresult();
@@ -67,7 +67,7 @@
by (DEPTH_SOLVE (ares_tac Lomega 1));
uresult();
-goal Lomega_thy "B:* b:B |- (Lam y:B.b): ?T";
+goal Lomega_thy "B:* b:B |- (Lam y:B. b): ?T";
by (DEPTH_SOLVE (ares_tac Lomega 1));
uresult();
@@ -89,28 +89,28 @@
by (DEPTH_SOLVE (ares_tac LP 1));
uresult();
-goal LP_thy "A:* P:A->A->* a:A |- Pi a:A.P^a^a: ?T";
+goal LP_thy "A:* P:A->A->* a:A |- Pi a:A. P^a^a: ?T";
by (DEPTH_SOLVE (ares_tac LP 1));
uresult();
-goal LP_thy "A:* P:A->* Q:A->* |- Pi a:A.P^a -> Q^a: ?T";
+goal LP_thy "A:* P:A->* Q:A->* |- Pi a:A. P^a -> Q^a: ?T";
by (DEPTH_SOLVE (ares_tac LP 1));
uresult();
-goal LP_thy "A:* P:A->* |- Pi a:A.P^a -> P^a: ?T";
+goal LP_thy "A:* P:A->* |- Pi a:A. P^a -> P^a: ?T";
by (DEPTH_SOLVE (ares_tac LP 1));
uresult();
-goal LP_thy "A:* P:A->* |- Lam a:A.Lam x:P^a.x: ?T";
+goal LP_thy "A:* P:A->* |- Lam a:A. Lam x:P^a. x: ?T";
by (DEPTH_SOLVE (ares_tac LP 1));
uresult();
-goal LP_thy "A:* P:A->* Q:* |- (Pi a:A.P^a->Q) -> (Pi a:A.P^a) -> Q : ?T";
+goal LP_thy "A:* P:A->* Q:* |- (Pi a:A. P^a->Q) -> (Pi a:A. P^a) -> Q : ?T";
by (DEPTH_SOLVE (ares_tac LP 1));
uresult();
goal LP_thy "A:* P:A->* Q:* a0:A |- \
-\ Lam x:Pi a:A.P^a->Q. Lam y:Pi a:A.P^a. x^a0^(y^a0): ?T";
+\ Lam x:Pi a:A. P^a->Q. Lam y:Pi a:A. P^a. x^a0^(y^a0): ?T";
by (DEPTH_SOLVE (ares_tac LP 1));
uresult();
@@ -124,7 +124,7 @@
by (DEPTH_SOLVE (ares_tac LOmega 1));
uresult();
-goal LOmega_thy "|- Lam A:*.Lam B:*.Lam x:A.Lam y:B.x : ?T";
+goal LOmega_thy "|- Lam A:*.Lam B:*.Lam x:A. Lam y:B. x : ?T";
by (DEPTH_SOLVE (ares_tac LOmega 1));
uresult();
@@ -148,18 +148,18 @@
(* Second-order Predicate Logic *)
-goal LP2_thy "A:* P:A->* |- Lam a:A.P^a->(Pi A:*.A) : ?T";
+goal LP2_thy "A:* P:A->* |- Lam a:A. P^a->(Pi A:*.A) : ?T";
by (DEPTH_SOLVE (ares_tac LP2 1));
uresult();
goal LP2_thy "A:* P:A->A->* |- \
-\ (Pi a:A.Pi b:A.P^a^b->P^b^a->Pi P:*.P) -> Pi a:A.P^a^a->Pi P:*.P : ?T";
+\ (Pi a:A. Pi b:A. P^a^b->P^b^a->Pi P:*.P) -> Pi a:A. P^a^a->Pi P:*.P : ?T";
by (DEPTH_SOLVE (ares_tac LP2 1));
uresult();
(* Antisymmetry implies irreflexivity: *)
goal LP2_thy "A:* P:A->A->* |- \
-\ ?p: (Pi a:A.Pi b:A.P^a^b->P^b^a->Pi P:*.P) -> Pi a:A.P^a^a->Pi P:*.P";
+\ ?p: (Pi a:A. Pi b:A. P^a^b->P^b^a->Pi P:*.P) -> Pi a:A. P^a^a->Pi P:*.P";
by (strip_asms_tac LP2 1);
by (rtac lam_ss 1);
by (DEPTH_SOLVE_1(ares_tac LP2 1));
@@ -175,25 +175,25 @@
(* LPomega *)
-goal LPomega_thy "A:* |- Lam P:A->A->*.Lam a:A.P^a^a : ?T";
+goal LPomega_thy "A:* |- Lam P:A->A->*.Lam a:A. P^a^a : ?T";
by (DEPTH_SOLVE (ares_tac LPomega 1));
uresult();
-goal LPomega_thy "|- Lam A:*.Lam P:A->A->*.Lam a:A.P^a^a : ?T";
+goal LPomega_thy "|- Lam A:*.Lam P:A->A->*.Lam a:A. P^a^a : ?T";
by (DEPTH_SOLVE (ares_tac LPomega 1));
uresult();
(* CONSTRUCTIONS *)
-goal CC_thy "|- Lam A:*.Lam P:A->*.Lam a:A.P^a->Pi P:*.P: ?T";
+goal CC_thy "|- Lam A:*.Lam P:A->*.Lam a:A. P^a->Pi P:*.P: ?T";
by (DEPTH_SOLVE (ares_tac CC 1));
uresult();
-goal CC_thy "|- Lam A:*.Lam P:A->*.Pi a:A.P^a: ?T";
+goal CC_thy "|- Lam A:*.Lam P:A->*.Pi a:A. P^a: ?T";
by (DEPTH_SOLVE (ares_tac CC 1));
uresult();
-goal CC_thy "A:* P:A->* a:A |- ?p : (Pi a:A.P^a)->P^a";
+goal CC_thy "A:* P:A->* a:A |- ?p : (Pi a:A. P^a)->P^a";
by (strip_asms_tac CC 1);
by (rtac lam_ss 1);
by (DEPTH_SOLVE_1(ares_tac CC 1));
@@ -208,7 +208,7 @@
by (DEPTH_SOLVE(ares_tac LP2 1));
uresult();
-goal CC_thy "Lam A:*.Lam c:A.Lam f:A->A. \
+goal CC_thy "Lam A:*.Lam c:A. Lam f:A->A. \
\ Lam a:A. Pi P:A->*.P^c -> (Pi x:A. P^x->P^(f^x)) -> P^a : ?T";
by (DEPTH_SOLVE(ares_tac CC 1));
uresult();
@@ -219,7 +219,7 @@
by (rtac lam_ss 1);
by (DEPTH_SOLVE_1(ares_tac LP2 1));
by (DEPTH_SOLVE_1(ares_tac LP2 2));
-by (eres_inst_tac [("a","Lam x:A.Pi Q:A->*.Q^x->Q^a")] pi_elim 1);
+by (eres_inst_tac [("a","Lam x:A. Pi Q:A->*.Q^x->Q^a")] pi_elim 1);
by (DEPTH_SOLVE_1(ares_tac LP2 1));
by (rewtac beta);
by (etac imp_elim 1);