| ∀ a0. a0 ∈ a ' + x0 ↔ a0 ∈ y, ∀ y. (∀ a. a ∈ x0 ↔ a ∈ y) → # rmdup(x0) = # rmdup(y) ⊦ # rmdup(a ' + x0) = # rmdup(y), a ∈ x0 |
∀ y. (∀ a. a ∈ x0 ↔ a ∈ y) → # rmdup(x0) = # rmdup(y), ∀ a0. a0 ∈ a ' + x0 ↔ a0 ∈ y ⊦ 1 + # rmdup(x0) = # rmdup(y), a ∈ x0
Used simplifier rules: rmdup-n: ⊦ ¬ a ∈ x → rmdup(a ' + x) = a + rmdup(x);% ⊦ # a ' = 0 +1; (s)% ⊦ #(x + y) = # x + # y; (s)%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ a + x = a ' + x; (s)