| r0 -- j0 ' = r -- i ', st[r0 -- _length] = intval(j), st[r0 -- _type] = typeval(mkarraytype(ty0)), is_arrayref(r0, j, st), okval(val0, ty), r0 -- _type ∈ st, ty0 ≤ ty, r0 -- _length ∈ st, 0 ≤ j, r0 ∈ st, ∀ j0. ¬ j0 < 0 ∧ ¬ j ≤ j0 → okval(st[r0 -- j0 '], ty) ⊦ r0 = jvmref, okreftype(refval(r0), mkarraytype(ty), st[r -- i ', val0]) ∧ is_arrayref(r0, j, st[r -- i ', val0]) ∧ (0 ≤ j0 ∧ j0 < j → okval(st[r -- i ', val0][r0 -- j0 '], ty)) |
st[r -- _type] = typeval(mkarraytype(ty0)), st[r -- _length] = intval(j), 0 ≤ j, r -- _length ∈ st, ty0 ≤ ty, r -- _type ∈ st, okval(val0, ty), is_arrayref(r, j, st), r ∈ st, ∀ j0. ¬ j0 < 0 ∧ ¬ j ≤ j0 → okval(st[r -- j0 '], ty) ⊦ r = jvmref, okreftype(refval(r), mkarraytype(ty), st[r -- i ', val0])
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPSEQ : ⊦ (st[rk, val][rk]) = val], [CSIMPSEQ : ⊦ is_arrayref(r, i, st) → is_arrayref (r, i, st[r -- j ', val])], [CSIMPSEQ : ⊦ i ' = i0 ' ↔ i = i0], [CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0])]]