Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Method.insert_tac;
authorwenzelm
Wed, 01 Sep 1999 21:22:56 +0200
changeset 7424 ce03b804c5e7
parent 7423 28b48fcb0d55
child 7425 2089c70f2c6d
Method.insert_tac;
src/Provers/clasimp.ML file | annotate | diff | comparison | revisions 
--- a/src/Provers/clasimp.ML	Wed Sep 01 21:22:38 1999 +0200
+++ b/src/Provers/clasimp.ML	Wed Sep 01 21:22:56 1999 +0200
@@ -156,10 +156,10 @@
 val clasimp_args = Method.only_sectioned_args clasimp_modifiers;
 
 fun clasimp_meth tac ctxt = Method.METHOD (fn facts =>
-  ALLGOALS (Method.same_tac facts) THEN tac (get_local_clasimpset ctxt));
+  ALLGOALS (Method.insert_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)));
+  FIRSTGOAL (Method.insert_tac facts THEN' tac (get_local_clasimpset ctxt)));
 
 val clasimp_method = clasimp_args o clasimp_meth;
 val clasimp_method' = clasimp_args o clasimp_meth';
isabelle