Proof of Theorem cleqh
Step | Hyp | Ref
| Expression |
1 | | dfcleq 2347 |
. 2
⊢ (A = B ↔
∀y(y ∈ A ↔
y ∈
B)) |
2 | | ax-17 1616 |
. . . 4
⊢ ((x ∈ A ↔ x ∈ B) →
∀y(x ∈ A ↔
x ∈
B)) |
3 | | dfbi2 609 |
. . . . 5
⊢ ((y ∈ A ↔ y ∈ B) ↔
((y ∈
A → y ∈ B) ∧ (y ∈ B → y ∈ A))) |
4 | | cleqh.1 |
. . . . . . 7
⊢ (y ∈ A → ∀x y ∈ A) |
5 | | cleqh.2 |
. . . . . . 7
⊢ (y ∈ B → ∀x y ∈ B) |
6 | 4, 5 | hbim 1817 |
. . . . . 6
⊢ ((y ∈ A → y ∈ B) →
∀x(y ∈ A →
y ∈
B)) |
7 | 5, 4 | hbim 1817 |
. . . . . 6
⊢ ((y ∈ B → y ∈ A) →
∀x(y ∈ B →
y ∈
A)) |
8 | 6, 7 | hban 1828 |
. . . . 5
⊢ (((y ∈ A → y ∈ B) ∧ (y ∈ B →
y ∈
A)) → ∀x((y ∈ A → y ∈ B) ∧ (y ∈ B →
y ∈
A))) |
9 | 3, 8 | hbxfrbi 1568 |
. . . 4
⊢ ((y ∈ A ↔ y ∈ B) →
∀x(y ∈ A ↔
y ∈
B)) |
10 | | eleq1 2413 |
. . . . . 6
⊢ (x = y →
(x ∈
A ↔ y ∈ A)) |
11 | | eleq1 2413 |
. . . . . 6
⊢ (x = y →
(x ∈
B ↔ y ∈ B)) |
12 | 10, 11 | bibi12d 312 |
. . . . 5
⊢ (x = y →
((x ∈
A ↔ x ∈ B) ↔ (y
∈ A
↔ y ∈ B))) |
13 | 12 | biimpd 198 |
. . . 4
⊢ (x = y →
((x ∈
A ↔ x ∈ B) → (y
∈ A
↔ y ∈ B))) |
14 | 2, 9, 13 | cbv3h 1983 |
. . 3
⊢ (∀x(x ∈ A ↔ x ∈ B) →
∀y(y ∈ A ↔
y ∈
B)) |
15 | 12 | equcoms 1681 |
. . . . 5
⊢ (y = x →
((x ∈
A ↔ x ∈ B) ↔ (y
∈ A
↔ y ∈ B))) |
16 | 15 | biimprd 214 |
. . . 4
⊢ (y = x →
((y ∈
A ↔ y ∈ B) → (x
∈ A
↔ x ∈ B))) |
17 | 9, 2, 16 | cbv3h 1983 |
. . 3
⊢ (∀y(y ∈ A ↔ y ∈ B) →
∀x(x ∈ A ↔
x ∈
B)) |
18 | 14, 17 | impbii 180 |
. 2
⊢ (∀x(x ∈ A ↔ x ∈ B) ↔
∀y(y ∈ A ↔
y ∈
B)) |
19 | 1, 18 | bitr4i 243 |
1
⊢ (A = B ↔
∀x(x ∈ A ↔
x ∈
B)) |