| 0 ≤ n→i(# vals) + i, 0 ≤ j, 0 ≤ i, i ≤ j, j ≤ n→i(# vals) + i ⊦ putArray(vals, r, i, addarray(r, ty, j, st)) = (addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st)[r -- _length, intval(j)]) |
⊦ st1 = st2 ↔ (∀ rk. (rk ∈ st1 ↔ rk ∈ st2) ∧ st1[rk] = st2[rk])
0 ≤ n→i(# vals) + i, 0 ≤ j, 0 ≤ i, i ≤ j, j ≤ n→i(# vals) + i ⊦ ∀ rk. (rk ∈ putArray(vals, r, i, addarray(r, ty, j, st)) ↔ rk ∈ (addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st)[r -- _length, intval(j)])) ∧ (putArray(vals, r, i, addarray(r, ty, j, st))[rk]) = (addarray(r, ty, mklist(initial_value(ty), i→n(i)) + vals, st)[r -- _length, intval(j)][rk])
[[CONCRETESIMPRULES : ()], [EXTRATERMS : (addarray (r, ty, mklist(initial_value(ty), i→n(i)) + vals, st) [r -- _length, intval(j) ], putArray(vals, r, i, addarray(r, ty, j, st)))]]