# HG changeset patch
# User blanchet
# Date 1381737963 -7200
# Node ID 89a4c9b3ed62633ebd5a3317a30125ff6860dfd5
# Parent  82ada0a92ddea10b59e532e6ec0b9a8430dc63cb
stengthened tactic to cope with abort cases

diff -r 82ada0a92dde -r 89a4c9b3ed62 src/HOL/BNF/Tools/bnf_fp_rec_sugar_tactics.ML
--- 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'