src/HOL/MicroJava/BV/Typing_Framework_JVM.thy
changeset 41464 cb2e3e651893
parent 39758 b8a53e3a0ee2
child 42150 b0c0638c4aad
--- 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