| st[rk] = ((rk = r -- sk ⊃ val; st0[rk])), 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] |
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]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ rk ∈ st[rk0, val] ↔ rk = rk0 ∨ rk ∈ st])]]