| j = 0, 0 ≤ j, 0 ≤ i0, 0 ≤ i0 + j ⊦ (addarray(r, ty, i0 + j + 1, st)[r -- sk]) = (addarray(r, ty, [] + val ' + mklist(initial_value(ty), i→n(i0)), st)[r -- sk]), sk = j ' |
0 ≤ i0 ⊦ sk = 0 ', (addarray(r, ty, 1 + i0, st)[r -- sk]) = (addarray(r, ty, val ' + mklist(initial_value(ty), i→n(i0)), st)[r -- sk])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ i ≤ 0 ∧ 0 ≤ j → i ≤ j], [CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + 0 = i], [CSIMPSEQ : ⊦ (vals + vals0) + vals1 = vals + vals0 + vals1], [CSIMPSEQ : ⊦ [] + vals = vals])]]