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