diff -r 08b2d5c94b8a -r 1d2c099e98f7 src/Provers/clasimp.ML
--- a/src/Provers/clasimp.ML	Tue Sep 21 17:26:42 1999 +0200
+++ b/src/Provers/clasimp.ML	Tue Sep 21 17:26:50 1999 +0200
@@ -153,16 +153,15 @@
   (Classical.get_local_claset ctxt, Simplifier.get_local_simpset ctxt);
 
 val clasimp_modifiers = Classical.cla_modifiers @ Simplifier.simp_modifiers;
-val clasimp_args = Method.only_sectioned_args clasimp_modifiers;
 
-fun clasimp_meth tac ctxt = Method.METHOD (fn facts =>
-  ALLGOALS (Method.insert_tac facts) THEN tac (get_local_clasimpset ctxt));
+fun clasimp_meth tac prems ctxt = Method.METHOD (fn facts =>
+  ALLGOALS (Method.insert_tac (prems @ facts)) THEN tac (get_local_clasimpset ctxt));
 
-fun clasimp_meth' tac ctxt = Method.METHOD (fn facts =>
-  FIRSTGOAL (Method.insert_tac facts THEN' tac (get_local_clasimpset ctxt)));
+fun clasimp_meth' tac prems ctxt = Method.METHOD (fn facts =>
+  FIRSTGOAL (Method.insert_tac (prems @ facts) THEN' tac (get_local_clasimpset ctxt)));
 
-val clasimp_method = clasimp_args o clasimp_meth;
-val clasimp_method' = clasimp_args o clasimp_meth';
+val clasimp_method = Method.bang_sectioned_args clasimp_modifiers o clasimp_meth;
+val clasimp_method' = Method.bang_sectioned_args clasimp_modifiers o clasimp_meth';
 
 
 val setup =