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