| 0 ≤ i0 + j, 0 ≤ i0, 0 ≤ j ⊦ val = (addarray(r, ty, ((j = 0 ⊃ []; mklist(initial_value(ty), i→n(j)))) + val ' + mklist(initial_value(ty), i→n(i0)), st)[r -- j ']) |
⊦ (addarray(r, ty, val ' + vals, st)[r -- 0 ']) = val
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 '])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ [] + vals = vals], [CSIMPSEQ : ⊦ (vals + vals0) + vals1 = vals + vals0 + vals1])]]