src/HOLCF/ex/Loop.ML
changeset 2445 51993fea433f
parent 2033 639de962ded4
child 2642 3c3a84cc85a9
--- a/src/HOLCF/ex/Loop.ML	Wed Dec 18 15:13:50 1996 +0100
+++ b/src/HOLCF/ex/Loop.ML	Wed Dec 18 15:16:13 1996 +0100
@@ -234,7 +234,7 @@
         (rtac loop_lemma8 1),
         (resolve_tac prems 1),
         (resolve_tac prems 1),
-        (rtac classical3 1),
+        (rtac classical2 1),
         (resolve_tac prems 1),
         (etac box_equals 1),
         (rtac (loop_lemma4 RS spec RS mp RS sym) 1),