| ∀ n0, a1. n0 + 1 < # x0 → less#(a1, x0[n0, x0[n0 + 1]][n0 + 1, x0[n0]]) = less#(a1, x0) ⊦ less#(a, (x0.head ' + x0)[1, a0]) = (a0 < a ⊃ 1;0) + less#(a, x0), x0 = [] |
x0 = a2 + y, ∀ n0, a1. n0 + 1 < # x0 → less#(a1, x0[n0, x0[n0 + 1]][n0 + 1, x0[n0]]) = less#(a1, x0) ⊦ less#(a, (a2 ' + x0)[1, a0]) = (a0 < a ⊃ 1;0) + less#(a, x0), x0 = []
Used simplifier rules: x ≠ [] ⊦ a = x.head ∧ y = x.tail ↔ x = a + y; (elim) Used terms: x0, a2, y