| val = refval(r) ∧ is_referencevalue(val), okarray(val, ty, i, st) ⊦ r = jvmref, (0 ≤ j ∧ j < i → oktype((st0 ∪ st)[r -- j '], ty, st0 ∪ st)) ∧ is_arrayref(r, i, st0 ∪ st) ∧ ¬ i < 0 ∧ (st0 ∪ st)[r -- _length] = intval(i) ∧ (r -- _length ∈ st0 ∨ r -- _length ∈ st) ∧ okreftype(val, mkarraytype(ty), st0 ∪ st) |
⊦ okarray(refval(r), ty, i, st) → st[r -- _length] .intval = i
⊦ okarray(refval(r), ty, i, st) → r ≠ jvmref
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)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ is_referencevalue(refval(r))])]]