src/HOL/Bali/Example.thy
changeset 62390 842917225d56
parent 62145 5b946c81dfbf
child 67613 ce654b0e6d69
--- a/src/HOL/Bali/Example.thy	Tue Feb 23 15:37:18 2016 +0100
+++ b/src/HOL/Bali/Example.thy	Tue Feb 23 16:25:08 2016 +0100
@@ -1347,7 +1347,7 @@
 apply         (rule eval_Is (* Acc *))
 apply         (rule eval_Is (* LVar *))
 apply        (simp)
-apply       (simp split del: split_if)
+apply       (simp split del: if_split)
 apply      (simp add: check_field_access_def Let_def)
 apply     (rule eval_Is (* XcptE *))
 apply    (simp)
@@ -1362,7 +1362,7 @@
 apply   (erule alloc_one [THEN conjunct1])
 apply   (simp (no_asm_simp))
 apply  (simp (no_asm_simp))
-apply (simp add: gupd_def lupd_def obj_ty_def split del: split_if)
+apply (simp add: gupd_def lupd_def obj_ty_def split del: if_split)
 apply (drule alloc_one [THEN conjunct1])
 apply  (simp (no_asm_simp))
 apply (erule_tac V = "atleast_free _ two" in thin_rl)