| ⊦ r = r0, getarray(r, i, j, addarray(r0, ty, vals, st)) = getarray(r, i, j, st) |
⊦ getarray(r, i, j, st) = getarray(r0, i0, j, st0) ↔ (∀ j0. 0 ≤ j0 ∧ j0 < j → st[r -- (i + j0) '] = st0[r0 -- (i0 + j0) '])
⊦ r ≠ r0 → (addarray(r, ty, vals, st)[r0 -- sk]) = st[r0 -- sk]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + j = j + i])], [EXTRATERMS : (st, i, r, addarray(r0, ty, vals, st), j, i, r)]]