| st[r -- _type] = typeval(mkclasstype(class)), r ∈ st, r -- sk ∈ st, r -- _type ∈ st ⊦ r = jvmref, _type = sk, instore(r, class, (sk × refval(r1)) ', st[r -- sk, refval(r1)]) |
⊦ instore(r, class, (sk × val) ', st) ↔ r ≠ jvmref ∧ r -- _type ∈ st ∧ st[r -- _type] = typeval(mkclasstype(class)) ∧ (r -- sk) × val ∈ st
[[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]], [CSIMPSEQ : ⊦ rk × val ∈ st ↔ ¬ ¬ (rk ∈ st ∧ st[rk] = val)], [CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st], [CSIMPSEQ : ⊦ (st[rk, val][rk]) = val], [CSIMPSEQ : ⊦ refval(r) = refval(r0) ↔ r = r0])], [EXTRATERMS : (st[r -- sk, refval(r1)], refval(r1), sk, class, r)]]