| j = 0, i ≤ n→i(# []) + i0, 0 ≤ i0 + j, 0 ≤ i0, 0 ≤ j, r -- i ' ∈ addarray(r, ty, ((j = 0 ⊃ []; mklist(initial_value(ty), i→n(j)))) + val ' + mklist(initial_value(ty), i→n(i0)), st), 0 ≤ n→i(# ((j = 0 ⊃ []; mklist(initial_value(ty), i→n(j))))) + i0, 0 ≤ i ⊦ i = j, r -- i ' ∈ addarray(r, ty, i0 + j + 1, st) |
⊦ r ∈ addarray(r, ty0, vals, st)
0 < i0, 0 < i, r -- i ' ∈ addarray(r, ty, val ' + mklist(initial_value(ty), i→n(i0)), st), 0 ≤ i0, i ≤ i0 ⊦ i = 0, r -- i ' ∈ addarray(r, ty, 1 + i0, st)
[[CONCRETESIMPRULES : ([CSIMPFORWARD : ⊦ r -- sk ∈ st → r ∈ st], [CSIMPFORWARD : ⊦ i < j ∧ 0 ≤ i → 0 < j], [CSIMPFORWARD : ⊦ i < j ∧ j ≤ j0 → i < j0], [CSIMPSEQ : ⊦ i ≠ j → (i ≤ j ↔ i < j)], [CSIMPSEQ : ⊦ (vals + vals0) + vals1 = vals + vals0 + vals1], [CSIMPSEQ : ⊦ [] + vals = vals], [CSIMPSEQ : ⊦ i ≤ 0 ∧ 0 ≤ j → i ≤ j], [CSIMPSEQ : ⊦ i + j = j + i], [CSIMPSEQ : ⊦ i + j + i0 = (i + j) + i0], [CSIMPSEQ : ⊦ i + 0 = i], [CSIMPSEQ : ⊦ # [] = 0])]]