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