diff -r c39994cb152a -r c1c163ec6c44 src/HOL/MicroJava/BV/BVExample.thy --- a/src/HOL/MicroJava/BV/BVExample.thy Mon May 18 09:48:06 2009 +0200 +++ b/src/HOL/MicroJava/BV/BVExample.thy Mon May 18 23:15:38 2009 +0200 @@ -69,9 +69,9 @@ lemma subcls1: "subcls1 E = (\C D. (C, D) \ {(list_name,Object), (test_name,Object), (Xcpt NullPointer, Object), (Xcpt ClassCast, Object), (Xcpt OutOfMemory, Object)})" -apply (simp add: subcls1_def2 del:singleton_conj_conv2) +apply (simp add: subcls1_def2) apply (simp add: name_defs class_defs system_defs E_def class_def) -apply (auto simp: expand_fun_eq split: split_if_asm) +apply (auto simp: expand_fun_eq) done text {* The subclass relation is acyclic; hence its converse is well founded: *}