--- a/src/ZF/AC.ML Mon Jun 22 15:53:24 1998 +0200
+++ b/src/ZF/AC.ML Mon Jun 22 17:12:27 1998 +0200
@@ -18,13 +18,13 @@
qed "AC_Pi";
(*Using dtac, this has the advantage of DELETING the universal quantifier*)
-goal AC.thy "!!A B. ALL x:A. EX y. y:B(x) ==> EX y. y : Pi(A,B)";
+Goal "!!A B. ALL x:A. EX y. y:B(x) ==> EX y. y : Pi(A,B)";
by (rtac AC_Pi 1);
by (etac bspec 1);
by (assume_tac 1);
qed "AC_ball_Pi";
-goal AC.thy "EX f. f: (PROD X: Pow(C)-{0}. X)";
+Goal "EX f. f: (PROD X: Pow(C)-{0}. X)";
by (res_inst_tac [("B1", "%x. x")] (AC_Pi RS exE) 1);
by (etac exI 2);
by (Blast_tac 1);
@@ -43,12 +43,12 @@
by (ALLGOALS Blast_tac);
qed "non_empty_family";
-goal AC.thy "!!A. 0 ~: A ==> EX f: A->Union(A). ALL x:A. f`x : x";
+Goal "!!A. 0 ~: A ==> EX f: A->Union(A). ALL x:A. f`x : x";
by (rtac AC_func 1);
by (REPEAT (ares_tac [non_empty_family] 1));
qed "AC_func0";
-goal AC.thy "EX f: (Pow(C)-{0}) -> C. ALL x:(Pow(C)-{0}). f`x : x";
+Goal "EX f: (Pow(C)-{0}) -> C. ALL x:(Pow(C)-{0}). f`x : x";
by (resolve_tac [AC_func0 RS bexE] 1);
by (rtac bexI 2);
by (assume_tac 2);
@@ -56,7 +56,7 @@
by (ALLGOALS Blast_tac);
qed "AC_func_Pow";
-goal AC.thy "!!A. 0 ~: A ==> EX f. f: (PROD x:A. x)";
+Goal "!!A. 0 ~: A ==> EX f. f: (PROD x:A. x)";
by (rtac AC_Pi 1);
by (REPEAT (ares_tac [non_empty_family] 1));
qed "AC_Pi0";