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