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