| x + x0 = x1 + x2, # x < # x1 ⊦ x1 = [], ∃ y. x1 = x + y ∧ x0 = y + x2 |
∀ x0, x1, x2. x3 + x0 = x1 + x2 ∧ # x3 < # x1 → x1 = [] ∨ (∃ y. x1 = x3 + y ∧ x0 = y + x2), (a + x3) + x0 = x1 + x2, #(a + x3) < # x1 ⊦ x1 = [], ∃ y. x1 = (a + x3) + y ∧ x0 = y + x2
Used simplifier rules: Nil: ⊦ [] + x = x;%a: ⊦ (x + y) + z = x + y + z;%list freely generated by [], +;;%size-01: ⊦ # [] = 0; from specification list-data%zero: ⊦ 0 < m ↔ m ≠ 0; from specification nat-basic1%l: ⊦ # x = 0 ↔ x = []; from specification list-data