| ¬ r -- _length ∈ st, okarray(refval(r), ty, st[r -- _length] .intval, st) ⊦ r = jvmref, (0 ≤ j ∧ j < st[r -- _length] .intval → oktype((st0 ∪ st)[r -- j '], ty, st0 ∪ st)) ∧ is_arrayref(r, st[r -- _length] .intval, st0 ∪ st) ∧ ¬ st[r -- _length] .intval < 0 ∧ (st0 ∪ st)[r -- _length] = intval(st[r -- _length] .intval) ∧ (r -- _length ∈ st0 ∨ r -- _length ∈ st) ∧ okreftype(refval(r), mkarraytype(ty), st0 ∪ st) |
⊦ okarray(refval(r), ty, i, st) → st[r -- _length] .intval = i
okarray(refval(r), ty, noval .intval, st) ⊦ r = jvmref, r -- _length ∈ st, (0 ≤ j ∧ j < noval .intval → oktype((st0 ∪ st)[r -- j '], ty, st0 ∪ st)) ∧ is_arrayref(r, noval .intval, st0 ∪ st) ∧ ¬ noval .intval < 0 ∧ st0[r -- _length] = intval(noval .intval) ∧ r -- _length ∈ st0 ∧ okreftype(refval(r), mkarraytype(ty), st0 ∪ st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ rk ∈ st0 → (st ∪ st0)[rk] = st[rk]], [CSIMPSEQ : ⊦ ∅[rk] = noval], [CSIMPSEQ : ⊦ ¬ rk ∈ st → st[rk] = ∅[rk]])]]