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