| ⊦ newref(r, st) → ¬ okarray(refval(r), ty, i, st[rk, val]) |
⊦ okarray(refval(r), ty, i, st) → st[r -- _length] .intval = i
okarray(refval(r), ty, ((r -- _length = rk ⊃ val; st[r -- _length])) .intval, st[rk, val]), newref(r, st) ⊦ r = jvmref
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ (st[rk0, val][rk]) = ((rk = rk0 ⊃ val; st[rk]))], [CSIMPFORWARD : ⊦ newref(r, st) → r ≠ jvmref])]]