| addarray(r, vals + val ', i + 1, st) = (addarray(r, vals, i + 1, st)[r -- (n→i(# vals) + i + 1) ', val]) ⊦ (addarray(r, vals + val ', i + 1, st)[r -- i ', val0]) = (addarray(r, vals, i + 1, st)[r -- i ', val0][r -- ((1 + n→i(# vals)) + i) ', val]) |
addarray(r, vals + val ', i + 1, st) = (addarray(r, vals, i + 1, st)[r -- (n→i(# vals) + i + 1) ', val]) ⊦ (addarray(r, vals, i + 1, st)[r -- (n→i(# vals) + i + 1) ', val][r -- i ', val0]) = (addarray(r, vals, i + 1, st)[r -- i ', val0][r -- ((1 + n→i(# vals)) + i) ', val])
[[CONCRETESIMPRULES : ()]]