| ⊦ addarray(r, [] + val ', i, st) = (addarray(r, [], i, st)[r -- (i + n→i(# [])) ', val]) |
⊦ addarray(r, [], i, st) = st
⊦ addarray(r, val ', i, st) = st[r -- i ', val]
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + 0 = i], [CSIMPSEQ : ⊦ # [] = 0], [CSIMPSEQ : ⊦ (vals + vals0) + vals1 = vals + vals0 + vals1], [CSIMPSEQ : ⊦ [] + vals = vals])]]