Used simplifier rules: union: ⊦ x ∪ y = rmdup(x + y);%assoc: ⊦ (x ∪ y) ∪ z = x ∪ y ∪ z;%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ a ∈ b ' ↔ a = b; (s)% ⊦ a ∈ rmdup(x + y) ↔ a ∈ x ∨ a ∈ y; (ws)