| ⊦ 0 ≤ i ∧ 0 ≤ j ∧ j < 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) |
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)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j], [CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j], [CSIMPSEQ : ⊦ val + vals = val ' + vals])]]