| st[r -- _length] = intval(st[r -- _length] .intval), st[r -- _type] = typeval(mkarraytype(ty0)), onlyModified(r0, st, st0), r -- _type ∈ st, ty0 ≤ ty, r -- _length ∈ st, is_arrayref(r, st[r -- _length] .intval, st), is_arrayref(r, st[r -- _length] .intval, st0), r ∈ st, 0 ≤ st[r -- _length] .intval, ∀ j0. ¬ j0 < 0 ∧ ¬ st[r -- _length] .intval ≤ j0 → okval(st[r -- j0 '], ty) ⊦ st0[r -- _length] = st[r -- _length], r = r0, r = jvmref |
⊦ onlyModified(r, st1, st2) ↔ (∀ rk. rk ∈ st1 ↔ rk ∈ st2) ∧ (∀ r0, sk. r0 ≠ r → st1[r0 -- sk] = st2[r0 -- sk]) ∧ (r -- _type ∈ st1 → st1[r -- _type] = st2[r -- _type]) ∧ (r -- _length ∈ st1 → st1[r -- _length] = st2[r -- _length])
st[r -- _length] = intval(st[r -- _length] .intval), st[r -- _type] = typeval(mkarraytype(ty0)), (∀ rk. rk ∈ st ↔ rk ∈ st0) ∧ (∀ r1, sk. r1 ≠ r0 → st[r1 -- sk] = st0[r1 -- sk]) ∧ (r0 -- _type ∈ st → st[r0 -- _type] = st0[r0 -- _type]) ∧ (r0 -- _length ∈ st → st[r0 -- _length] = st0[r0 -- _length]), r -- _type ∈ st, ty0 ≤ ty, r -- _length ∈ st, is_arrayref(r, st[r -- _length] .intval, st), is_arrayref(r, st[r -- _length] .intval, st0), r ∈ st, 0 ≤ st[r -- _length] .intval, ∀ j0. ¬ j0 < 0 ∧ ¬ st[r -- _length] .intval ≤ j0 → okval(st[r -- j0 '], ty) ⊦ st0[r -- _length] = st[r -- _length], r = r0, r = jvmref
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (st0, st, r0)]]