| ⊦ addarray(r, mklist(val, 0), n→i(m), addarray(r, mklist(val, m), 0, st)) = addarray(r, val, n→i(0) + n→i(m), st) |
⊦ addarray(r, [], i, st) = st
⊦ addarray(r, mklist(val, m), 0, st) = addarray(r, val, n→i(m), st)
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + 0 = i], [CSIMPSEQ : ⊦ mklist(val, 0) = []])]]