| st[r -- _type] = typeval(mkarraytype(ty)), st[r -- _length] = intval(i0), 0 ≤ i0, r -- _length ∈ st, is_arrayref(r, i0, st), r -- _type ∈ st, st ⊆ st0, r ∈ st, 0 ≤ i, i + j ≤ i0, ∀ j0. ¬ j0 < 0 ∧ ¬ i0 ≤ j0 → okval(st[r -- j0 '], ty) ⊦ getarray(r, i, j, st) = getarray(r, i, j, st0), r = jvmref, is_arrayref(r, i + j, st) |
⊦ is_arrayref(r, i, st) ↔ (∀ j. 0 ≤ j ∧ j < i → r -- j ' ∈ st)
st[r -- _type] = typeval(mkarraytype(ty)), st[r -- _length] = intval(i0), 0 ≤ i0, r -- _length ∈ st, is_arrayref(r, i0, st), r -- _type ∈ st, st ⊆ st0, r ∈ st, 0 ≤ i, i + j ≤ i0, ∀ j0. ¬ j0 < 0 ∧ ¬ i0 ≤ j0 → okval(st[r -- j0 '], ty) ⊦ getarray(r, i, j, st) = getarray(r, i, j, st0), r = jvmref, ∀ j0. 0 ≤ j0 ∧ j0 < i + j → r -- j0 ' ∈ st
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st, i + j, r)]]