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.
more robust decomposition of simultaneous goals
authorkrauss
Wed, 29 Dec 2010 21:52:44 +0100
changeset 41418 b6dc60638be0
parent 41417 211dbd42f95d
child 41419 e228a2e5a026
more robust decomposition of simultaneous goals
src/HOL/Tools/Function/induction_schema.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/Tools/Function/induction_schema.ML	Wed Dec 29 21:52:41 2010 +0100
+++ b/src/HOL/Tools/Function/induction_schema.ML	Wed Dec 29 21:52:44 2010 +0100
@@ -71,7 +71,7 @@
       end
 
     val (branches, cases') = (* correction *)
-      case Logic.dest_conjunction_list concl of
+      case Logic.dest_conjunctions concl of
         [conc] =>
         let
           val _ $ Pxs = Logic.strip_assums_concl conc
isabelle