| ∀ a. rmdup(x0) -1l a = rmdup(x0 -l a) ⊦ a = a0, a0 ' + (rmdup(x0) -1l a) = (a0 ∈ x0 -l a ⊃ rmdup(x0 -l a);a0 ' + rmdup(x0 -l a)), a0 ∈ x0 |
∀ a. rmdup(x0) -1l a = rmdup(x0 -l a) ⊦ a = a0, rmdup(x0) -1l a = rmdup(x0 -l a), a0 ∈ x0
Used simplifier rules: in-del-new: ⊦ a ∈ x -l b ↔ a ∈ x ∧ a ≠ b;%a: ⊦ (x + y) + z = x + y + z; from specification list%app-08: ⊦ a ' + x = a ' + y ↔ x = y; from specification list