| #(s -- a -- b) = 0, 2 < # s, b ∈ s -- a, ∀ a0. a0 = b ∨ a0 = a ∨ ¬ a0 ∈ s ⊦ |
#(s -- a) - 1 = 0, 2 < # s, b ∈ s, a0 ∈ s, ∀ a0. a0 = b ∨ a0 = a ∨ ¬ a0 ∈ s ⊦ b = a
Used simplifier rules: del-size: ⊦ a ∈ s → #(s -- a) = # s - 1;%Delete: ⊦ a ∈ s -- b ↔ a ≠ b ∧ a ∈ s;% ⊦ ¬ a ∈ ∅; (s)% ⊦ s1 = s2 ↔ (∀ a. a ∈ s1 ↔ a ∈ s2); (s)%ne-01: ⊦ a ∈ s → s ≠ ∅; (forward) from specification set-basic