diff -r 47fdd4f40d00 -r 8a6cac7c7247 src/HOL/MicroJava/J/Conform.thy --- a/src/HOL/MicroJava/J/Conform.thy Sun Nov 02 17:39:52 2014 +0100 +++ b/src/HOL/MicroJava/J/Conform.thy Sun Nov 02 17:58:35 2014 +0100 @@ -3,7 +3,7 @@ Copyright 1999 Technische Universitaet Muenchen *) -header {* \isaheader{Conformity Relations for Type Soundness Proof} *} +section {* Conformity Relations for Type Soundness Proof *} theory Conform imports State WellType Exceptions begin @@ -44,7 +44,7 @@ conforms ("_ ::\ _" [51,51] 50) -section "hext" +subsection "hext" lemma hextI: " \a C fs . h a = Some (C,fs) --> @@ -79,7 +79,7 @@ done -section "conf" +subsection "conf" lemma conf_Null [simp]: "G,h\Null::\T = G\RefT NullT\T" apply (unfold conf_def) @@ -182,7 +182,7 @@ done -section "lconf" +subsection "lconf" lemma lconfD: "[| G,h\vs[::\]Ts; Ts n = Some T |] ==> G,h\(the (vs n))::\T" apply (unfold lconf_def) @@ -242,7 +242,7 @@ apply auto done -section "oconf" +subsection "oconf" lemma oconf_hext: "G,h\obj\ ==> h\|h' ==> G,h'\obj\" apply (unfold oconf_def) @@ -258,7 +258,7 @@ lemmas oconf_objD = oconf_obj [THEN iffD1, THEN spec, THEN spec, THEN mp] -section "hconf" +subsection "hconf" lemma hconfD: "[|G\h h\; h a = Some obj|] ==> G,h\obj\" apply (unfold hconf_def) @@ -271,14 +271,14 @@ done -section "xconf" +subsection "xconf" lemma xconf_raise_if: "xconf h x \ xconf h (raise_if b xcn x)" by (simp add: xconf_def raise_if_def) -section "conforms" +subsection "conforms" lemma conforms_heapD: "(x, (h, l))::\(G, lT) ==> G\h h\" apply (unfold conforms_def)