| st[r -- _length] = intval(i0), st[r -- _type] = typeval(mkarraytype(ty1)), ty1 ≤ ty, is_arrayref(r, i0, putByteArray(bytes, r1, i, st)), r -- _type ∈ st, r -- _length ∈ st, r ∈ st, 0 ≤ i0, ∀ j. ¬ j < 0 ∧ ¬ i0 ≤ j → okval(st[r -- j '], ty) ⊦ is_arrayref(r, i0, st), r = jvmref, r = r1 |
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r ≠ r1 → ( is_arrayref (r, i0, putByteArray (bytes, r1, i, st)) ↔ is_arrayref(r, i0, st))])]]