| disj(x, y0), ∀ x, a. disj(x, y0) → (disj(y0, a ' + x) ↔ ¬ a ∈ y0) ⊦ disj(a0 ' + y0, a ') ∧ disj(a0 ' + y0, x) ↔ a ≠ a0 ∧ ¬ a ∈ y0, a0 ∈ x |
disj(x, y0), ∀ x, a. disj(x, y0) → (disj(y0, a ' + x) ↔ ¬ a ∈ y0) ⊦ a = a0, disj(y0, x), a0 ∈ x, a ∈ y0
Used simplifier rules: one-01: ⊦ disj(x, a ') ↔ ¬ a ∈ x;%first-01: ⊦ ¬ a ∈ x → (disj(a ' + y, x) ↔ disj(y, x));% ⊦ a ≠ b → (a ∈ b ' + x ↔ a ∈ x); (s)%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ a ∈ b ' ↔ a = b; (s)% ⊦ a ∈ x + y ↔ a ∈ x ∨ a ∈ y; (s)