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