| st[r0 -- _length] = intval(j), st[r0 -- _type] .type = mkarraytype(ty0), r0 ∈ st, 0 ≤ j, r0 -- _length ∈ st, ty0 ≤ ty, is_typevalue(st[r0 -- _type]), r0 -- _type ∈ st, okval(val0, ty), is_arrayref(r0, j, st), ∀ j0. ¬ j0 < 0 ∧ ¬ j ≤ j0 → okval(st[r0 -- j0 '], ty) ⊦ r0 = jvmref, okarray(refval(r0), ty, j, st[r -- i ', val0]) |
st[r0 -- _type] = typeval(ty1), st[r0 -- _length] = intval(j), ty1 = mkarraytype(ty0), r0 ∈ st, 0 ≤ j, r0 -- _length ∈ st, ty0 ≤ ty, is_typevalue(st[r0 -- _type]), r0 -- _type ∈ st, okval(val0, ty), is_arrayref(r0, j, st), ∀ j0. ¬ j0 < 0 ∧ ¬ j ≤ j0 → okval(st[r0 -- j0 '], ty) ⊦ r0 = jvmref, okarray(refval(r0), ty, j, st[r -- i ', val0])
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ is_typevalue(val) → ( ty = val .type ↔ val = typeval(ty))])], [EXTRATERMS : (st[r0 -- _type], ty1)]]