| i→n(i) = m + 1 ∧ i→n(i) ≠ 0, 0 ≤ i0, i ≤ i0, 0 < i, 0 < i0 ⊦ i = 0, (addarray(r, ty, 1 + i0, st)[r -- i ']) = (mklist(initial_value(ty), i→n(i0))[m]) |
i→n(i) = m + 1, 0 ≤ i0, i ≤ i0, 0 < i, 0 < i0 ⊦ i = 0, (addarray(r, ty, 1 + i0, st)[r -- i ']) = (mklist(initial_value(ty), i→n(i0))[m])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i→n(i) = 0 ↔ i = 0])]]