| ∀ a, x0. ¬ a < max(x1 + x0) → sort(x1 + a ' + x0) = sort(x1 + x0) + a ' ⊦ ¬ a < max((a0 + x1) + x0) → sort((a0 + x1) + a ' + x0) = sort((a0 + x1) + x0) + a ' |
∀ a, x0. ¬ a < max(x1 + x0) → sort(x1 + a ' + x0) = sort(x1 + x0) + a ' ⊦ ins≤(a0, sort(x1 + a ' + x0)) = ins≤(a0, sort(x1 + x0)) + a ', a < max((a0 ' + x1) + x0)
Used simplifier rules: rec: ⊦ sort(a ' + x) = ins≤(a, sort(x)); from specification olist-sort%a: ⊦ (x + y) + z = x + y + z; from specification list%c: ⊦ a + x = a ' + x; from specification list