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.
stengthened tactic to cope with abort cases
authorblanchet
Mon, 14 Oct 2013 10:06:03 +0200
changeset 54103 89a4c9b3ed62
parent 54102 82ada0a92dde
child 54104 81c2062b91de
stengthened tactic to cope with abort cases
src/HOL/BNF/Tools/bnf_fp_rec_sugar_tactics.ML file | annotate | diff | comparison | revisions 
--- a/src/HOL/BNF/Tools/bnf_fp_rec_sugar_tactics.ML	Mon Oct 14 09:31:42 2013 +0200
+++ b/src/HOL/BNF/Tools/bnf_fp_rec_sugar_tactics.ML	Mon Oct 14 10:06:03 2013 +0200
@@ -95,7 +95,7 @@
   HEADGOAL ((REPEAT_DETERM_N m o mk_primcorec_assumption_tac ctxt discIs) THEN'
     SELECT_GOAL (SOLVE (HEADGOAL (REPEAT_DETERM o
     (rtac refl ORELSE' atac ORELSE'
-     resolve_tac split_connectI ORELSE'
+     resolve_tac (@{thm Code.abort_def} :: split_connectI) ORELSE'
      Splitter.split_asm_tac (split_if_asm :: split_asms) ORELSE'
      Splitter.split_tac (split_if :: splits) ORELSE'
      mk_primcorec_assumption_tac ctxt discIs ORELSE'
isabelle