src/HOL/Bali/Eval.thy
changeset 63648 f9f3006a5579
parent 62390 842917225d56
child 66110 d59f9f696110
equal deleted inserted replaced
63647:437bd400d808 63648:f9f3006a5579
  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 *)