| 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),