| a ' + a0 ' + x0 = ins≤(a, y), ∀ a, y. ins≤(a, x0) = ins≤(a, y) → x0 = y ⊦ a0 ' + x0 = y, a0 < a, y ≠ [] ∧ y.head < a |
a ' + a0 ' + x0 = ins≤(a, y), ∀ a, y. ins≤(a, x0) = ins≤(a, y) → x0 = y ⊦ a0 ' + x0 = y, y = [], a0 < a, y.head < a
Used simplifier rules: ins-e: ⊦ ins≤(a, []) = a ';%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ a ' = b ' + x ↔ a = b ∧ x = []; (ws)