| x1 + x0 ≠ [], sort(x1 + a ' + x0) = sort(x1 + x0) + a ' ⊦ a0 = a, ins≤(a0, sort(x1 + x0) + a ') = ins≤(a0, sort(x1 + x0)) + a ', a < (max(x1 + x0) < a0 ⊃ a0;max(x1 + x0)), a < max(x1 + x0) |
sort(x1 + a ' + x0) = sort(x1 + x0) + a ', a0 < a ⊦ x1 + x0 = [], ins≤(a0, sort(x1 + x0) + a ') = ins≤(a0, sort(x1 + x0)) + a ', a0 = a, a < max(x1 + x0)
Used simplifier rules: sls: ⊦ a ≠ b → (¬ a < b ↔ b < a); from specification oelem%app-01: ⊦ x + y = x + z ↔ y = z; from specification list%a: ⊦ (x + y) + z = x + y + z; from specification list%ins-less-last: ⊦ ¬ a0 < a → ins≤(a, x + a0 ') = ins≤(a, x) + a0 '; from specification olist%nnn: ⊦ ¬ c < b ∧ ¬ a < c → ¬ a < b; (forward) from specification oelem