| ¬ (i < 0 ∨ 1 + i0 ≤ i), 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]) |
i→n(i) = m + 1, 0 ≤ i0, i ≤ i0, 0 < i, 0 < i0 ⊦ (addarray(r, ty, 1 + i0, st)[r -- i ']) = (mklist(initial_value(ty), i→n(i0))[m])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ ¬ i < j ↔ j ≤ i], [CSIMPSEQ : ⊦ i + 1 ≤ j ↔ i < j], [CSIMPSEQ : ⊦ i < j → ¬ j < i], [CSIMPSEQ : ⊦ ¬ i < j → (i ≠ j ↔ j < i)])]]