Proof of Theorem carden
| Step | Hyp | Ref
| Expression |
| 1 | | breq2 2066 |
. . . . . 6
⊢ ((card ‘A) = (card ‘B) → (A
≈ (card ‘A) ↔ A ≈ (card ‘B))) |
| 2 | | cardid 3635 |
. . . . . . 7
⊢ (card ‘B) ≈ B |
| 3 | | entrt 3319 |
. . . . . . 7
⊢ ((A
≈ (card ‘B) ∧ (card
‘B) ≈ B) → A
≈ B) |
| 4 | 2, 3 | mpan2 519 |
. . . . . 6
⊢ (A
≈ (card ‘B) → A ≈ B) |
| 5 | 1, 4 | syl6bi 187 |
. . . . 5
⊢ ((card ‘A) = (card ‘B) → (A
≈ (card ‘A) → A ≈ B)) |
| 6 | | cardid 3635 |
. . . . . 6
⊢ (card ‘A) ≈ A |
| 7 | | ensymg 3316 |
. . . . . 6
⊢ (A
∈ C → ((card ‘A) ≈ A
→ A ≈ (card ‘A))) |
| 8 | 6, 7 | mpi 44 |
. . . . 5
⊢ (A
∈ C → A ≈ (card ‘A)) |
| 9 | 5, 8 | syl5 22 |
. . . 4
⊢ ((card ‘A) = (card ‘B) → (A
∈ C → A ≈ B)) |
| 10 | 9 | com12 13 |
. . 3
⊢ (A
∈ C → ((card ‘A) = (card ‘B) → A
≈ B)) |
| 11 | 10 | adantr 306 |
. 2
⊢ ((A
∈ C ∧ B ∈ D)
→ ((card ‘A) = (card
‘B) → A ≈ B)) |
| 12 | | ensymg 3316 |
. . . . . 6
⊢ (B
∈ D → (A ≈ B
→ B ≈ A)) |
| 13 | | entrt 3319 |
. . . . . . . 8
⊢ (((card ‘B) ≈ B
∧ B ≈ A) → (card ‘B) ≈ A) |
| 14 | 2, 13 | mpan 518 |
. . . . . . 7
⊢ (B
≈ A → (card ‘B) ≈ A) |
| 15 | | cardne 3637 |
. . . . . . . . 9
⊢ ((card ‘B) ∈ (card ‘A) → ¬ (card ‘B) ≈ A) |
| 16 | 15 | con2i 89 |
. . . . . . . 8
⊢ ((card ‘B) ≈ A
→ ¬ (card ‘B) ∈ (card
‘A)) |
| 17 | | cardon 3634 |
. . . . . . . . 9
⊢ (card ‘A) ∈ On |
| 18 | | cardon 3634 |
. . . . . . . . 9
⊢ (card ‘B) ∈ On |
| 19 | | ontri1 2232 |
. . . . . . . . 9
⊢ (((card ‘A) ∈ On ∧ (card ‘B) ∈ On) → ((card ‘A) ⊆ (card ‘B) ↔ ¬ (card ‘B) ∈ (card ‘A))) |
| 20 | 17, 18, 19 | mp2an 520 |
. . . . . . . 8
⊢ ((card ‘A) ⊆ (card ‘B) ↔ ¬ (card ‘B) ∈ (card ‘A)) |
| 21 | 16, 20 | sylibr 175 |
. . . . . . 7
⊢ ((card ‘B) ≈ A
→ (card ‘A) ⊆ (card
‘B)) |
| 22 | 14, 21 | syl 12 |
. . . . . 6
⊢ (B
≈ A → (card ‘A) ⊆ (card ‘B)) |
| 23 | 12, 22 | syl6 23 |
. . . . 5
⊢ (B
∈ D → (A ≈ B
→ (card ‘A) ⊆ (card
‘B))) |
| 24 | | entrt 3319 |
. . . . . . . 8
⊢ (((card ‘A) ≈ A
∧ A ≈ B) → (card ‘A) ≈ B) |
| 25 | 6, 24 | mpan 518 |
. . . . . . 7
⊢ (A
≈ B → (card ‘A) ≈ B) |
| 26 | | cardne 3637 |
. . . . . . . . 9
⊢ ((card ‘A) ∈ (card ‘B) → ¬ (card ‘A) ≈ B) |
| 27 | 26 | con2i 89 |
. . . . . . . 8
⊢ ((card ‘A) ≈ B
→ ¬ (card ‘A) ∈ (card
‘B)) |
| 28 | | ontri1 2232 |
. . . . . . . . 9
⊢ (((card ‘B) ∈ On ∧ (card ‘A) ∈ On) → ((card ‘B) ⊆ (card ‘A) ↔ ¬ (card ‘A) ∈ (card ‘B))) |
| 29 | 18, 17, 28 | mp2an 520 |
. . . . . . . 8
⊢ ((card ‘B) ⊆ (card ‘A) ↔ ¬ (card ‘A) ∈ (card ‘B)) |
| 30 | 27, 29 | sylibr 175 |
. . . . . . 7
⊢ ((card ‘A) ≈ B
→ (card ‘B) ⊆ (card
‘A)) |
| 31 | 25, 30 | syl 12 |
. . . . . 6
⊢ (A
≈ B → (card ‘B) ⊆ (card ‘A)) |
| 32 | 31 | a1i 7 |
. . . . 5
⊢ (B
∈ D → (A ≈ B
→ (card ‘B) ⊆ (card
‘A))) |
| 33 | 23, 32 | jcad 455 |
. . . 4
⊢ (B
∈ D → (A ≈ B
→ ((card ‘A) ⊆ (card
‘B) ∧ (card ‘B) ⊆ (card ‘A)))) |
| 34 | | eqss 1516 |
. . . 4
⊢ ((card ‘A) = (card ‘B) ↔ ((card ‘A) ⊆ (card ‘B) ∧ (card ‘B) ⊆ (card ‘A))) |
| 35 | 33, 34 | syl6ibr 186 |
. . 3
⊢ (B
∈ D → (A ≈ B
→ (card ‘A) = (card
‘B))) |
| 36 | 35 | adantl 305 |
. 2
⊢ ((A
∈ C ∧ B ∈ D)
→ (A ≈ B → (card ‘A) = (card ‘B))) |
| 37 | 11, 36 | impbid 397 |
1
⊢ ((A
∈ C ∧ B ∈ D)
→ ((card ‘A) = (card
‘B) ↔ A ≈ B)) |