Proof of Theorem opeqsn
| Step | Hyp | Ref
| Expression |
| 1 | | df-op 2420 |
. . 3
⊢ 〈A, B〉 = {{A}, {A, B}} |
| 2 | 1 | eqeq1i 1485 |
. 2
⊢ (〈A, B〉 = {C} ↔ {{A},
{A, B}}
= {C}) |
| 3 | | snex 2756 |
. . 3
⊢ {A} ∈
V |
| 4 | | prex 2787 |
. . 3
⊢ {A, B} ∈ V |
| 5 | | opeqsn.3 |
. . 3
⊢ C ∈
V |
| 6 | 3, 4, 5 | preqsn 2490 |
. 2
⊢ ({{A}, {A, B}} = {C} ↔
({A} = {A, B} ⋀ {A, B} = C)) |
| 7 | | eqcom 1480 |
. . . . 5
⊢ ({A} = {A,
B} ↔ {A, B} =
{A}) |
| 8 | | opeqsn.1 |
. . . . . 6
⊢ A ∈
V |
| 9 | | opeqsn.2 |
. . . . . 6
⊢ B ∈
V |
| 10 | 8, 9, 8 | preqsn 2490 |
. . . . 5
⊢ ({A, B} =
{A} ↔ (A = B ⋀ B = A)) |
| 11 | | eqcom 1480 |
. . . . . . 7
⊢ (B = A ↔
A = B) |
| 12 | 11 | anbi2i 482 |
. . . . . 6
⊢ ((A = B ⋀ B = A) ↔ (A =
B ⋀
A = B)) |
| 13 | | anidm 434 |
. . . . . 6
⊢ ((A = B ⋀ A = B) ↔ A =
B) |
| 14 | 12, 13 | bitr 173 |
. . . . 5
⊢ ((A = B ⋀ B = A) ↔ A =
B) |
| 15 | 7, 10, 14 | 3bitr 177 |
. . . 4
⊢ ({A} = {A,
B} ↔ A = B) |
| 16 | 15 | anbi1i 483 |
. . 3
⊢ (({A} = {A,
B} ⋀
{A, B}
= C) ↔ (A = B ⋀ {A, B} = C)) |
| 17 | | preq2 2453 |
. . . . . . 7
⊢ (A = B →
{A, A}
= {A, B}) |
| 18 | | dfsn2 2424 |
. . . . . . 7
⊢ {A} = {A,
A} |
| 19 | 17, 18 | syl5req 1523 |
. . . . . 6
⊢ (A = B →
{A, B}
= {A}) |
| 20 | 19 | eqeq1d 1486 |
. . . . 5
⊢ (A = B →
({A, B}
= C ↔ {A} = C)) |
| 21 | | eqcom 1480 |
. . . . 5
⊢ ({A} = C ↔
C = {A}) |
| 22 | 20, 21 | syl6bb 538 |
. . . 4
⊢ (A = B →
({A, B}
= C ↔ C = {A})) |
| 23 | 22 | pm5.32i 647 |
. . 3
⊢ ((A = B ⋀ {A, B} = C) ↔
(A = B
⋀ C =
{A})) |
| 24 | 16, 23 | bitr 173 |
. 2
⊢ (({A} = {A,
B} ⋀
{A, B}
= C) ↔ (A = B ⋀ C =
{A})) |
| 25 | 2, 6, 24 | 3bitr 177 |
1
⊢ (〈A, B〉 = {C} ↔ (A =
B ⋀
C = {A})) |