| 0 ≤ i, 0 ≤ i0 + n→i(# vals), 0 ≤ i0 + i + n→i(# vals), 0 < i0 ⊦ rk = r -- _length, ( rk ∈ putArray(vals, r, i, addarray(r, ty, i0 + i + n→i(# vals), st)) ↔ rk = r -- _length ∨ rk ∈ addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals + mklist(initial_value(ty), i→n(i0)), st)) ∧ (putArray(vals, r, i, addarray(r, ty, i0 + i + n→i(# vals), st))[rk]) = (addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals + mklist(initial_value(ty), i→n(i0)), st)[r -- _length, intval(i0 + i + n→i(# vals))] [rk ] ) |
0 ≤ i, 0 ≤ i0 + n→i(# vals), 0 ≤ i0 + i + n→i(# vals), 0 < i0 ⊦ rk = r -- _length, ( rk ∈ putArray(vals, r, i, addarray(r, ty, i0 + i + n→i(# vals), st)) ↔ rk ∈ addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals + mklist(initial_value(ty), i→n(i0)), st)) ∧ (putArray(vals, r, i, addarray(r, ty, i0 + i + n→i(# vals), st))[rk]) = (addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals + mklist(initial_value(ty), i→n(i0)), st)[rk])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ rk ≠ rk0 → (st[rk0, val][rk]) = st[rk]], [CSIMPSEQ : ⊦ i + j = j + i])]]