| j < i, 0 ≤ i, 0 ≤ j, 0 < i ⊦ (addarray(r, ty, i, st)[r -- j ', val]) = addarray(r, ty, ((j = 0 ⊃ []; mklist(initial_value(ty), i→n(j)))) + val ' + mklist(initial_value(ty), i→n(i - j + 1)), st) |
i = i0 + j + 1, j < i, 0 ≤ i, 0 ≤ j, 0 < i ⊦ (addarray(r, ty, i, st)[r -- j ', val]) = addarray(r, ty, ((j = 0 ⊃ []; mklist(initial_value(ty), i→n(j)))) + val ' + mklist(initial_value(ty), i→n(i0)), st)
[[CONCRETESIMPRULES : ([CSIMPELIM : ⊦ i0 = i - j ↔ i = i0 + j])], [EXTRATERMS : (i, j + 1, i0)]]