Proof of Theorem carddomi2
Step | Hyp | Ref
| Expression |
1 | | cardnueq0 9722 |
. . . . . 6
⊢ (𝐴 ∈ dom card →
((card‘𝐴) = ∅
↔ 𝐴 =
∅)) |
2 | 1 | adantr 481 |
. . . . 5
⊢ ((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) → ((card‘𝐴) = ∅ ↔ 𝐴 = ∅)) |
3 | 2 | biimpa 477 |
. . . 4
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ (card‘𝐴) = ∅) → 𝐴 = ∅) |
4 | | 0domg 8887 |
. . . . 5
⊢ (𝐵 ∈ 𝑉 → ∅ ≼ 𝐵) |
5 | 4 | ad2antlr 724 |
. . . 4
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ (card‘𝐴) = ∅) → ∅ ≼ 𝐵) |
6 | 3, 5 | eqbrtrd 5096 |
. . 3
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ (card‘𝐴) = ∅) → 𝐴 ≼ 𝐵) |
7 | 6 | a1d 25 |
. 2
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ (card‘𝐴) = ∅) → ((card‘𝐴) ⊆ (card‘𝐵) → 𝐴 ≼ 𝐵)) |
8 | | fvex 6787 |
. . . . 5
⊢
(card‘𝐵)
∈ V |
9 | | simprr 770 |
. . . . 5
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ ((card‘𝐴) ≠ ∅ ∧ (card‘𝐴) ⊆ (card‘𝐵))) → (card‘𝐴) ⊆ (card‘𝐵)) |
10 | | ssdomg 8786 |
. . . . 5
⊢
((card‘𝐵)
∈ V → ((card‘𝐴) ⊆ (card‘𝐵) → (card‘𝐴) ≼ (card‘𝐵))) |
11 | 8, 9, 10 | mpsyl 68 |
. . . 4
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ ((card‘𝐴) ≠ ∅ ∧ (card‘𝐴) ⊆ (card‘𝐵))) → (card‘𝐴) ≼ (card‘𝐵)) |
12 | | cardid2 9711 |
. . . . . 6
⊢ (𝐴 ∈ dom card →
(card‘𝐴) ≈
𝐴) |
13 | 12 | ad2antrr 723 |
. . . . 5
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ ((card‘𝐴) ≠ ∅ ∧ (card‘𝐴) ⊆ (card‘𝐵))) → (card‘𝐴) ≈ 𝐴) |
14 | | simprl 768 |
. . . . . . 7
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ ((card‘𝐴) ≠ ∅ ∧ (card‘𝐴) ⊆ (card‘𝐵))) → (card‘𝐴) ≠ ∅) |
15 | | ssn0 4334 |
. . . . . . 7
⊢
(((card‘𝐴)
⊆ (card‘𝐵)
∧ (card‘𝐴) ≠
∅) → (card‘𝐵) ≠ ∅) |
16 | 9, 14, 15 | syl2anc 584 |
. . . . . 6
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ ((card‘𝐴) ≠ ∅ ∧ (card‘𝐴) ⊆ (card‘𝐵))) → (card‘𝐵) ≠ ∅) |
17 | | ndmfv 6804 |
. . . . . . 7
⊢ (¬
𝐵 ∈ dom card →
(card‘𝐵) =
∅) |
18 | 17 | necon1ai 2971 |
. . . . . 6
⊢
((card‘𝐵) ≠
∅ → 𝐵 ∈ dom
card) |
19 | | cardid2 9711 |
. . . . . 6
⊢ (𝐵 ∈ dom card →
(card‘𝐵) ≈
𝐵) |
20 | 16, 18, 19 | 3syl 18 |
. . . . 5
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ ((card‘𝐴) ≠ ∅ ∧ (card‘𝐴) ⊆ (card‘𝐵))) → (card‘𝐵) ≈ 𝐵) |
21 | | domen1 8906 |
. . . . . 6
⊢
((card‘𝐴)
≈ 𝐴 →
((card‘𝐴) ≼
(card‘𝐵) ↔ 𝐴 ≼ (card‘𝐵))) |
22 | | domen2 8907 |
. . . . . 6
⊢
((card‘𝐵)
≈ 𝐵 → (𝐴 ≼ (card‘𝐵) ↔ 𝐴 ≼ 𝐵)) |
23 | 21, 22 | sylan9bb 510 |
. . . . 5
⊢
(((card‘𝐴)
≈ 𝐴 ∧
(card‘𝐵) ≈
𝐵) →
((card‘𝐴) ≼
(card‘𝐵) ↔ 𝐴 ≼ 𝐵)) |
24 | 13, 20, 23 | syl2anc 584 |
. . . 4
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ ((card‘𝐴) ≠ ∅ ∧ (card‘𝐴) ⊆ (card‘𝐵))) → ((card‘𝐴) ≼ (card‘𝐵) ↔ 𝐴 ≼ 𝐵)) |
25 | 11, 24 | mpbid 231 |
. . 3
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ ((card‘𝐴) ≠ ∅ ∧ (card‘𝐴) ⊆ (card‘𝐵))) → 𝐴 ≼ 𝐵) |
26 | 25 | expr 457 |
. 2
⊢ (((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) ∧ (card‘𝐴) ≠ ∅) → ((card‘𝐴) ⊆ (card‘𝐵) → 𝐴 ≼ 𝐵)) |
27 | 7, 26 | pm2.61dane 3032 |
1
⊢ ((𝐴 ∈ dom card ∧ 𝐵 ∈ 𝑉) → ((card‘𝐴) ⊆ (card‘𝐵) → 𝐴 ≼ 𝐵)) |