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