| st[r -- _type] = typeval(mkclasstype(class)), r -- _type ∈ st, r -- sk ∈ st, r ∈ st ⊦ r = jvmref, _type = sk, instore(r, class, [], st[r -- sk, refval(r1)]) |
⊦ instore(r, class, [], st) ↔ r ≠ jvmref ∧ r -- _type ∈ st ∧ st[r -- _type] = typeval(mkclasstype(class))
[[CONCRETESIMPRULES : ([CSIMPSEQ : sk ≠ sk0 ⊦ r -- sk ∈ st[r -- sk0, val] ↔ r -- sk ∈ st], [CSIMPSEQ : ⊦ sk ≠ sk0 → (st[r -- sk, val][r0 -- sk0]) = st[r0 -- sk0]])], [EXTRATERMS : (st[r -- sk, refval(r1)], class, r)]]