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