--- a/src/Provers/clasimp.ML Fri Jul 30 13:42:57 1999 +0200
+++ b/src/Provers/clasimp.ML Fri Jul 30 13:43:26 1999 +0200
@@ -154,8 +154,11 @@
val clasimp_modifiers = Classical.cla_modifiers @ Simplifier.simp_modifiers;
val clasimp_args = Method.only_sectioned_args clasimp_modifiers;
-fun clasimp_meth tac ctxt = Method.METHOD0 (tac (get_local_clasimpset ctxt));
-fun clasimp_meth' tac ctxt = Method.METHOD0 (FIRSTGOAL (tac (get_local_clasimpset ctxt)));
+fun clasimp_meth tac ctxt = Method.METHOD (fn facts =>
+ ALLGOALS (Method.same_tac facts) THEN tac (get_local_clasimpset ctxt));
+
+fun clasimp_meth' tac ctxt = Method.METHOD (fn facts =>
+ FIRSTGOAL (Method.same_tac facts THEN' tac (get_local_clasimpset ctxt)));
val clasimp_method = clasimp_args o clasimp_meth;
val clasimp_method' = clasimp_args o clasimp_meth';