Used simplifier rules: del-in-01: ⊦ a ≠ b → (¬ a ∈ s -- b ↔ ¬ a ∈ s);%eq-03: ⊦ s ++ a = s ↔ a ∈ s; from specification set-basic