| ⊦ vals = [], addarray(r, ty, vals, st) = (addarray(r, ty, vals .butlast, st)[r -- n→i(# vals - 1) ', vals .last][r -- _length, intval(n→i(# vals))]) |
# vals = m + 1 ∧ # vals ≠ 0 ⊦ vals = [], addarray(r, ty, vals, st) = (addarray(r, ty, vals .butlast, st)[r -- n→i(m) ', vals .last][r -- _length, intval(n→i(# vals))])
[[CONCRETESIMPRULES : ([CSIMPSEQ : ⊦ # vals = 0 ↔ vals = []], [CSIMPELIM : n ≠ 0 ⊦ m = n - 1 ↔ n = m + 1])], [EXTRATERMS : (# vals, m)]]