| changeset 62390 | 842917225d56 |
| parent 62042 | 6c6ccf573479 |
| child 67443 | 3abf6a722518 |
--- a/src/HOL/MicroJava/Comp/CorrCompTp.thy Tue Feb 23 15:37:18 2016 +0100 +++ b/src/HOL/MicroJava/Comp/CorrCompTp.thy Tue Feb 23 16:25:08 2016 +0100 @@ -115,7 +115,7 @@ apply (drule_tac x=kr in spec) apply (simp only: rev.simps) apply (subgoal_tac "(empty(rev kr @ [k'][\<mapsto>]rev xs @ [a])) = empty (rev kr[\<mapsto>]rev xs)([k'][\<mapsto>][a])") - apply (simp split:split_if_asm) + apply (simp split:if_split_asm) apply (simp add: map_upds_append [symmetric]) apply (case_tac ks) apply auto