| okstore(st), jvmref ∈ st ⊦ is_javastore(st[jvmref -- sk, val]) ∧ (∀ r. r ≠ jvmref ∧ r ∈ st[jvmref -- sk, val] → r -- _type ∈ st[jvmref -- sk, val] ∧ is_typevalue(st[jvmref -- sk, val][r -- _type])) |
⊦ r ∈ st ∧ okstore(st) ∧ r ≠ jvmref → r -- _type ∈ st
okstore(st), jvmref ∈ st ⊦ is_javastore(st[jvmref -- sk, val]) ∧ (r ≠ jvmref ∧ r ∈ st → is_typevalue(st[r -- _type]))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ r0 → (st[r0 -- sk0, val][r -- sk]) = st[r -- sk]], [CSIMPSEQ : ⊦ r ≠ r0 → ( r -- sk ∈ st[r0 -- sk0, val] ↔ r -- sk ∈ st)], [CSIMPSEQ : ⊦ r ∈ st[r0 -- sk, val] ↔ r = r0 ∨ r ∈ st])]]