equal
deleted
inserted
replaced
1164 apply (erule eval_induct) |
1164 apply (erule eval_induct) |
1165 apply (tactic \<open>ALLGOALS (EVERY' |
1165 apply (tactic \<open>ALLGOALS (EVERY' |
1166 [strip_tac @{context}, rotate_tac ~1, eresolve_tac @{context} @{thms eval_elim_cases}])\<close>) |
1166 [strip_tac @{context}, rotate_tac ~1, eresolve_tac @{context} @{thms eval_elim_cases}])\<close>) |
1167 (* 31 subgoals *) |
1167 (* 31 subgoals *) |
1168 prefer 28 (* Try *) |
1168 prefer 28 (* Try *) |
1169 apply (simp (no_asm_use) only: split add: if_split_asm) |
1169 apply (simp (no_asm_use) only: split: if_split_asm) |
1170 (* 34 subgoals *) |
1170 (* 34 subgoals *) |
1171 prefer 30 (* Init *) |
1171 prefer 30 (* Init *) |
1172 apply (case_tac "inited C (globs s0)", (simp only: if_True if_False simp_thms)+) |
1172 apply (case_tac "inited C (globs s0)", (simp only: if_True if_False simp_thms)+) |
1173 prefer 26 (* While *) |
1173 prefer 26 (* While *) |
1174 apply (simp (no_asm_use) only: split add: if_split_asm, blast) |
1174 apply (simp (no_asm_use) only: split: if_split_asm, blast) |
1175 (* 36 subgoals *) |
1175 (* 36 subgoals *) |
1176 apply (blast dest: unique_sxalloc unique_halloc split_pairD)+ |
1176 apply (blast dest: unique_sxalloc unique_halloc split_pairD)+ |
1177 done |
1177 done |
1178 |
1178 |
1179 (* unused *) |
1179 (* unused *) |