diff -r 3aadb133632d -r a9fdcb71d252 src/HOL/MicroJava/J/Conform.thy --- a/src/HOL/MicroJava/J/Conform.thy Tue Feb 26 13:47:19 2002 +0100 +++ b/src/HOL/MicroJava/J/Conform.thy Tue Feb 26 15:45:32 2002 +0100 @@ -165,14 +165,13 @@ apply auto done -lemma non_np_objD: "!!G. [|a' \ Null; G,h\a'::\ Class C; C \ Object|] ==> +lemma non_np_objD: "!!G. [|a' \ Null; G,h\a'::\ Class C|] ==> (\a C' fs. a' = Addr a \ h a = Some (C',fs) \ G\C'\C C)" apply (fast dest: non_npD) done lemma non_np_objD' [rule_format (no_asm)]: "a' \ Null ==> wf_prog wf_mb G ==> G,h\a'::\RefT t --> - (\C. t = ClassT C --> C \ Object) --> (\a C fs. a' = Addr a \ h a = Some (C,fs) \ G\Class C\RefT t)" apply(rule_tac "y" = "t" in ref_ty.exhaust) apply (fast dest: conf_NullTD)