| 0 ≤ i, 0 ≤ i0 + n→i(# vals), 0 ≤ i0 + i + n→i(# vals), 0 < i0 ⊦ putArray(vals, r, i, addarray(r, ty, i0 + i + n→i(# vals), st)) = (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))]) |
⊦ st1 = st2 ↔ (∀ rk. (rk ∈ st1 ↔ rk ∈ st2) ∧ st1[rk] = st2[rk])
0 ≤ i, 0 ≤ i0 + n→i(# vals), 0 ≤ i0 + i + n→i(# vals), 0 < i0 ⊦ ∀ rk. ( 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) [r -- _length, intval(i0 + i + n→i(# vals)) ] )) ∧ (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 ] )
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (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)) ], putArray (vals, r, i, addarray(r, ty, i0 + i + n→i(# vals), st)))]]