Mercurial Mercurial > repos > isabelle / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/HOL/Tools/inductive.ML
changeset 46708 b138dee7bed3
parent 46219 426ed18eba43
child 46893 d5bb4c212df1 
--- a/src/HOL/Tools/inductive.ML	Mon Feb 27 15:42:07 2012 +0100
+++ b/src/HOL/Tools/inductive.ML	Mon Feb 27 15:48:02 2012 +0100
@@ -432,7 +432,7 @@
       in
         (Skip_Proof.prove ctxt'' [] prems P
           (fn {prems, ...} => EVERY
-            [cut_facts_tac [hd prems] 1,
+            [cut_tac (hd prems) 1,
              rewrite_goals_tac rec_preds_defs,
              dtac (unfold RS iffD1) 1,
              REPEAT (FIRSTGOAL (eresolve_tac rules1)),
isabelle