| a0 ∈ s0, a ∈ s0, a ∈ s ∪ s0 ⊦ #(s ∪ s0) = #((s ∪ s0) -- a) + 1, a ∈ s |
a0 ∈ s0, a ∈ s0 ⊦ #(s ∪ s0) = (#(s ∪ s0) - 1) + 1, a ∈ s
Used simplifier rules: del-size: ⊦ a ∈ s → #(s -- a) = # s - 1;%Union: ⊦ a ∈ s1 ∪ s2 ↔ a ∈ s1 ∨ a ∈ s2;%una: ⊦ (s ∪ s0) ∪ s1 = s ∪ s0 ∪ s1;%unc: ⊦ s ∪ s0 = s0 ∪ s;