| ordered≤(x0 + a '), ∀ a, b. ordered≤(x0 + a ') → (ordered≤(x0 + a ' + b ') ↔ ¬ b < a) ⊦ b < a, ordered≤((a0 ' + x0) + a ' + b '), (x0 + a ').first < a0 |
x0 + a ' = a1 + y ∧ x0 + a ' ≠ [], ordered≤(x0 + a '), ∀ a, b. ordered≤(x0 + a ') → (ordered≤(x0 + a ' + b ') ↔ ¬ b < a) ⊦ b < a, ordered≤((a0 ' + x0) + a ' + b '), a1 < a0
Used simplifier rules: app-02-ant: ⊦ ¬ x + y ≠ [] ↔ x = [] ∧ y = []; from specification list%e: ⊦ a ' ≠ []; from specification list%a: ⊦ (x + y) + z = x + y + z; from specification list%x ≠ [] ⊦ a = x.first ∧ y = x.rest ↔ x = a + y; (elim) Used terms: x0 + a ', a1, y