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