| addarray(r, vals0 + val ', i + 1, st) = (addarray(r, vals0, i + 1, st)[r -- ((i + 1) + n→i(# vals0)) ', val]) ⊦ (addarray(r, vals0, i + 1, st)[r -- ((i + 1) + n→i(# vals0)) ', val][r -- i ', val0]) = (addarray(r, vals0, i + 1, st)[r -- i ', val0][r -- ((1 + n→i(# vals0)) + i) ', val]) |
⊦ rk ≠ rk0 → (st[rk0, val][rk, val0]) = (st[rk, val0][rk0, val])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ r -- sk = r0 -- sk0 ↔ r = r0 ∧ sk = sk0], [CSIMPSEQ : ⊦ i ' = i0 ' ↔ i = i0], [CSIMPSEQ : ⊦ i = i + j ↔ j = 0], [CSIMPSEQ : ⊦ 0 ≠ n→i(m) + 1], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + j = j + i])], [EXTRATERMS : (val, r -- ((1 + n→i(# vals0)) + i) ', val0, r -- i ', addarray(r, vals0, i + 1, st))]]