| # vals = m + 1 ∧ # vals ≠ 0, ∀ st, vals0, ty0, ty, r0, r, vals1. # vals1 < # vals → (true → r = r0 ∨ addarray(r, ty, vals1, addarray(r0, ty0, vals0, st)) = addarray(r0, ty0, vals0, addarray(r, ty, vals1, st))) ⊦ r = r0, vals = [], (addarray(r, ty, vals .butlast, addarray(r0, ty0, vals0, st))[r -- n→i(m) ', vals .last][r -- _length, intval(n→i(# vals))]) = addarray(r0, ty0, vals0, addarray(r, ty, vals, st)) |
# vals = m + 1, ∀ st, vals0, ty0, ty, r0, r, vals1. # vals1 < m + 1 → (true → r = r0 ∨ addarray(r, ty, vals1, addarray(r0, ty0, vals0, st)) = addarray(r0, ty0, vals0, addarray(r, ty, vals1, st))) ⊦ vals = [], r = r0, (addarray(r, ty, vals .butlast, addarray(r0, ty0, vals0, st))[r -- n→i(m) ', vals .last][r -- _length, intval(n→i(m) + 1)]) = addarray(r0, ty0, vals0, addarray(r, ty, vals, st))
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ m + n = n + m], [CSIMPSEQ : ⊦ (m + n0) + n1 = m + n0 + n1], [CSIMPSEQ : ⊦ n→i(m + n) = n→i(m) + n→i(n)], [CSIMPSEQ : ⊦ # vals = 0 ↔ vals = []])]]