| n + 1 < # x ⊦ less#(a, x[n, x[n + 1]][n + 1, x[n]]) = less#(a, x), x = [] |
n + 1 < #(a0 + x0), ∀ n, a. n + 1 < # x0 → less#(a, x0[n, x0[n + 1]][n + 1, x0[n]]) = less#(a, x0) ∨ x0 = [] ⊦ a0 + x0 = [], less#(a, (a0 + x0)[n, (a0 + x0)[n + 1]][n + 1, (a0 + x0)[n]]) = less#(a, a0 + x0)
Used simplifier rules: list freely generated by [], +;;