| ¬ r -- _type ∈ st, st[r -- _length] = intval(st[r -- _length] .intval), r ∈ st, okarray(refval(r), ty, st[r -- _length] .intval, st), r -- _length ∈ 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 ∧ (r -- _type ∈ st0 ∨ r -- _type ∈ st) ∧ is_typevalue((st0 ∪ st)[r -- _type]) ∧ (st0 ∪ st)[r -- _type] .type ≤ mkarraytype(ty) |
st[r -- _length] = intval(st[r -- _length] .intval), r ∈ st, okarray(refval(r), ty, st[r -- _length] .intval, st), r -- _length ∈ st ⊦ r = jvmref, r -- _type ∈ st, (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 ∧ r -- _type ∈ st0 ∧ is_typevalue(st0[r -- _type]) ∧ st0[r -- _type] .type ≤ mkarraytype(ty)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ ¬ rk ∈ st0 → (st ∪ st0)[rk] = st[rk]])]]