| ⊦ addarray(r, mklist(val, n), 0, st) = addarray(r, val, n→i(n), st) |
⊦ addarray(r, [], i, st) = st
⊦ addarray(r, val, 0, st) = st
∀ r, val, st. addarray(r, mklist(val, m), 0, st) = addarray(r, val, n→i(m), st) ⊦ addarray(r, mklist(val, m +1), 0, st) = addarray(r, val, n→i(m +1), st)
[[CONCRETESIMPRULES : ([CSIMPGEN : nat generated by 0, +1;], [CSIMPSEQ : ⊦ mklist(val, 0) = []])]]