| rk = r -- sk, st[rk] = val, rk ∈ st, rk ∈ st0[r -- sk, val], ∀ rk. rk ∈ st → st[rk] = ((rk = r -- sk ⊃ val; st0[rk])) ∧ rk ∈ st0[r -- sk, val], ∀ rk. rk ∈ st → rk .ref ≠ r ⊦ r = jvmref, rk ∈ st0 ∧ st[rk] = st0[rk] |
⊦ r -- sk ∈ st → r ∈ st
r -- sk ∈ st, r ∈ st, ∀ rk. rk ∈ st → st[rk] = ((rk = r -- sk ⊃ st[r -- sk]; st0[rk])) ∧ rk ∈ st0[r -- sk, st[r -- sk]], ∀ rk. rk ∈ st → rk .ref ≠ r ⊦ r = jvmref, r -- sk ∈ st0 ∧ st[r -- sk] = st0[r -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ rk ∈ st[rk, val]])]]