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