--- a/src/HOL/MicroJava/BV/Typing_Framework_JVM.thy Fri Jan 07 18:10:35 2011 +0100
+++ b/src/HOL/MicroJava/BV/Typing_Framework_JVM.thy Fri Jan 07 18:10:42 2011 +0100
@@ -89,14 +89,14 @@
apply clarsimp
apply (erule disjE)
apply (fastsimp dest: field_fields fields_is_type)
- apply (simp add: match_some_entry split: split_if_asm)
+ apply (simp add: match_some_entry image_iff)
apply (rule_tac x=1 in exI)
apply fastsimp
apply clarsimp
apply (erule disjE)
apply fastsimp
- apply (simp add: match_some_entry split: split_if_asm)
+ apply (simp add: match_some_entry image_iff)
apply (rule_tac x=1 in exI)
apply fastsimp