| ins≤(a, x0) = a1 ' + y, a0 < a, a1 ∈ ins≤(a, x0), ∀ a. ordered≤(ins≤(a, x0)) ↔ ordered≤(x0) ⊦ ¬ a1 < a0 ∧ ordered≤(ins≤(a, x0)) ↔ ¬ x0.first < a0 ∧ ordered≤(x0), x0 = [] |
x0 = a2 + y0, ins≤(a, x0) = a1 ' + y, a0 < a, a1 ∈ ins≤(a, x0), ∀ a. ordered≤(ins≤(a, x0)) ↔ ordered≤(x0) ⊦ ¬ a1 < a0 ∧ ordered≤(ins≤(a, x0)) ↔ ¬ a2 < a0 ∧ ordered≤(x0), x0 = []
Used simplifier rules: x ≠ [] ⊦ a = x.first ∧ y = x.rest ↔ x = a + y; (elim) Used terms: x0, a2, y0