--- a/src/HOL/Real/Hyperreal/HyperNat.ML Thu Oct 12 12:19:15 2000 +0200
+++ b/src/HOL/Real/Hyperreal/HyperNat.ML Thu Oct 12 12:26:30 2000 +0200
@@ -134,7 +134,7 @@
-----------------------------------------------------------*)
Goalw [congruent2_def]
"congruent2 hypnatrel (%X Y. hypnatrel^^{%n. X n + Y n})";
-by (safe_tac (claset()));
+by Safe_tac;
by (ALLGOALS(Fuf_tac));
qed "hypnat_add_congruent2";
@@ -188,7 +188,7 @@
-----------------------------------------------------------*)
Goalw [congruent2_def]
"congruent2 hypnatrel (%X Y. hypnatrel^^{%n. X n - Y n})";
-by (safe_tac (claset()));
+by Safe_tac;
by (ALLGOALS(Fuf_tac));
qed "hypnat_minus_congruent2";
@@ -279,7 +279,7 @@
-----------------------------------------------------------*)
Goalw [congruent2_def]
"congruent2 hypnatrel (%X Y. hypnatrel^^{%n. X n * Y n})";
-by (safe_tac (claset()));
+by Safe_tac;
by (ALLGOALS(Fuf_tac));
qed "hypnat_mult_congruent2";