--- 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)