Metamath Proof Explorer


Theorem cfpwsdom

Description: A corollary of Konig's Theorem konigth . Theorem 11.29 of TakeutiZaring p. 108. (Contributed by Mario Carneiro, 20-Mar-2013)

Ref Expression
Hypothesis cfpwsdom.1 ⊢ B ∈ V
Assertion cfpwsdom ⊢ 2 𝑜 ≼ B → ℵ ⁡ A ≺ cf ⁡ card ⁡ B ℵ ⁡ A

Proof

Step Hyp Ref Expression
1 cfpwsdom.1 ⊢ B ∈ V
2 ovex ⊢ B ℵ ⁡ A ∈ V
3 2 cardid ⊢ card ⁡ B ℵ ⁡ A ≈ B ℵ ⁡ A
4 3 ensymi ⊢ B ℵ ⁡ A ≈ card ⁡ B ℵ ⁡ A
5 fvex ⊢ ℵ ⁡ A ∈ V
6 5 canth2 ⊢ ℵ ⁡ A ≺ 𝒫 ℵ ⁡ A
7 5 pw2en ⊢ 𝒫 ℵ ⁡ A ≈ 2 𝑜 ℵ ⁡ A
8 sdomentr ⊢ ℵ ⁡ A ≺ 𝒫 ℵ ⁡ A ∧ 𝒫 ℵ ⁡ A ≈ 2 𝑜 ℵ ⁡ A → ℵ ⁡ A ≺ 2 𝑜 ℵ ⁡ A
9 6 7 8 mp2an ⊢ ℵ ⁡ A ≺ 2 𝑜 ℵ ⁡ A
10 mapdom1 ⊢ 2 𝑜 ≼ B → 2 𝑜 ℵ ⁡ A ≼ B ℵ ⁡ A
11 sdomdomtr ⊢ ℵ ⁡ A ≺ 2 𝑜 ℵ ⁡ A ∧ 2 𝑜 ℵ ⁡ A ≼ B ℵ ⁡ A → ℵ ⁡ A ≺ B ℵ ⁡ A
12 9 10 11 sylancr ⊢ 2 𝑜 ≼ B → ℵ ⁡ A ≺ B ℵ ⁡ A
13 ficard ⊢ B ℵ ⁡ A ∈ V → B ℵ ⁡ A ∈ Fin ↔ card ⁡ B ℵ ⁡ A ∈ ω
14 2 13 ax-mp ⊢ B ℵ ⁡ A ∈ Fin ↔ card ⁡ B ℵ ⁡ A ∈ ω
15 fict ⊢ B ℵ ⁡ A ∈ Fin → B ℵ ⁡ A ≼ ω
16 14 15 sylbir ⊢ card ⁡ B ℵ ⁡ A ∈ ω → B ℵ ⁡ A ≼ ω
17 alephgeom ⊢ A ∈ On ↔ ω ⊆ ℵ ⁡ A
18 alephon ⊢ ℵ ⁡ A ∈ On
19 ssdomg ⊢ ℵ ⁡ A ∈ On → ω ⊆ ℵ ⁡ A → ω ≼ ℵ ⁡ A
20 18 19 ax-mp ⊢ ω ⊆ ℵ ⁡ A → ω ≼ ℵ ⁡ A
21 17 20 sylbi ⊢ A ∈ On → ω ≼ ℵ ⁡ A
22 domtr ⊢ B ℵ ⁡ A ≼ ω ∧ ω ≼ ℵ ⁡ A → B ℵ ⁡ A ≼ ℵ ⁡ A
23 16 21 22 syl2an ⊢ card ⁡ B ℵ ⁡ A ∈ ω ∧ A ∈ On → B ℵ ⁡ A ≼ ℵ ⁡ A
24 domnsym ⊢ B ℵ ⁡ A ≼ ℵ ⁡ A → ¬ ℵ ⁡ A ≺ B ℵ ⁡ A
25 23 24 syl ⊢ card ⁡ B ℵ ⁡ A ∈ ω ∧ A ∈ On → ¬ ℵ ⁡ A ≺ B ℵ ⁡ A
26 25 expcom ⊢ A ∈ On → card ⁡ B ℵ ⁡ A ∈ ω → ¬ ℵ ⁡ A ≺ B ℵ ⁡ A
27 26 con2d ⊢ A ∈ On → ℵ ⁡ A ≺ B ℵ ⁡ A → ¬ card ⁡ B ℵ ⁡ A ∈ ω
28 cardidm ⊢ card ⁡ card ⁡ B ℵ ⁡ A = card ⁡ B ℵ ⁡ A
29 iscard3 ⊢ card ⁡ card ⁡ B ℵ ⁡ A = card ⁡ B ℵ ⁡ A ↔ card ⁡ B ℵ ⁡ A ∈ ω ∪ ran ⁡ ℵ
30 elun ⊢ card ⁡ B ℵ ⁡ A ∈ ω ∪ ran ⁡ ℵ ↔ card ⁡ B ℵ ⁡ A ∈ ω ∨ card ⁡ B ℵ ⁡ A ∈ ran ⁡ ℵ
31 df-or ⊢ card ⁡ B ℵ ⁡ A ∈ ω ∨ card ⁡ B ℵ ⁡ A ∈ ran ⁡ ℵ ↔ ¬ card ⁡ B ℵ ⁡ A ∈ ω → card ⁡ B ℵ ⁡ A ∈ ran ⁡ ℵ
32 29 30 31 3bitri ⊢ card ⁡ card ⁡ B ℵ ⁡ A = card ⁡ B ℵ ⁡ A ↔ ¬ card ⁡ B ℵ ⁡ A ∈ ω → card ⁡ B ℵ ⁡ A ∈ ran ⁡ ℵ
33 28 32 mpbi ⊢ ¬ card ⁡ B ℵ ⁡ A ∈ ω → card ⁡ B ℵ ⁡ A ∈ ran ⁡ ℵ
34 12 27 33 syl56 ⊢ A ∈ On → 2 𝑜 ≼ B → card ⁡ B ℵ ⁡ A ∈ ran ⁡ ℵ
35 alephfnon ⊢ ℵ Fn On
36 fvelrnb ⊢ ℵ Fn On → card ⁡ B ℵ ⁡ A ∈ ran ⁡ ℵ ↔ ∃ x ∈ On ℵ ⁡ x = card ⁡ B ℵ ⁡ A
37 35 36 ax-mp ⊢ card ⁡ B ℵ ⁡ A ∈ ran ⁡ ℵ ↔ ∃ x ∈ On ℵ ⁡ x = card ⁡ B ℵ ⁡ A
38 34 37 imbitrdi ⊢ A ∈ On → 2 𝑜 ≼ B → ∃ x ∈ On ℵ ⁡ x = card ⁡ B ℵ ⁡ A
39 eqid ⊢ y ∈ cf ⁡ ℵ ⁡ x ⟼ har ⁡ z ⁡ y = y ∈ cf ⁡ ℵ ⁡ x ⟼ har ⁡ z ⁡ y
40 39 pwcfsdom ⊢ ℵ ⁡ x ≺ ℵ ⁡ x cf ⁡ ℵ ⁡ x
41 id ⊢ ℵ ⁡ x = card ⁡ B ℵ ⁡ A → ℵ ⁡ x = card ⁡ B ℵ ⁡ A
42 fveq2 ⊢ ℵ ⁡ x = card ⁡ B ℵ ⁡ A → cf ⁡ ℵ ⁡ x = cf ⁡ card ⁡ B ℵ ⁡ A
43 41 42 oveq12d ⊢ ℵ ⁡ x = card ⁡ B ℵ ⁡ A → ℵ ⁡ x cf ⁡ ℵ ⁡ x = card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A
44 41 43 breq12d ⊢ ℵ ⁡ x = card ⁡ B ℵ ⁡ A → ℵ ⁡ x ≺ ℵ ⁡ x cf ⁡ ℵ ⁡ x ↔ card ⁡ B ℵ ⁡ A ≺ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A
45 40 44 mpbii ⊢ ℵ ⁡ x = card ⁡ B ℵ ⁡ A → card ⁡ B ℵ ⁡ A ≺ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A
46 45 rexlimivw ⊢ ∃ x ∈ On ℵ ⁡ x = card ⁡ B ℵ ⁡ A → card ⁡ B ℵ ⁡ A ≺ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A
47 38 46 syl6 ⊢ A ∈ On → 2 𝑜 ≼ B → card ⁡ B ℵ ⁡ A ≺ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A
48 47 imp ⊢ A ∈ On ∧ 2 𝑜 ≼ B → card ⁡ B ℵ ⁡ A ≺ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A
49 ensdomtr ⊢ B ℵ ⁡ A ≈ card ⁡ B ℵ ⁡ A ∧ card ⁡ B ℵ ⁡ A ≺ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A → B ℵ ⁡ A ≺ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A
50 4 48 49 sylancr ⊢ A ∈ On ∧ 2 𝑜 ≼ B → B ℵ ⁡ A ≺ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A
51 fvex ⊢ cf ⁡ card ⁡ B ℵ ⁡ A ∈ V
52 51 enref ⊢ cf ⁡ card ⁡ B ℵ ⁡ A ≈ cf ⁡ card ⁡ B ℵ ⁡ A
53 mapen ⊢ card ⁡ B ℵ ⁡ A ≈ B ℵ ⁡ A ∧ cf ⁡ card ⁡ B ℵ ⁡ A ≈ cf ⁡ card ⁡ B ℵ ⁡ A → card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A ≈ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A
54 3 52 53 mp2an ⊢ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A ≈ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A
55 mapxpen ⊢ B ∈ V ∧ ℵ ⁡ A ∈ On ∧ cf ⁡ card ⁡ B ℵ ⁡ A ∈ V → B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A ≈ B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A
56 1 18 51 55 mp3an ⊢ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A ≈ B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A
57 54 56 entri ⊢ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A ≈ B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A
58 sdomentr ⊢ B ℵ ⁡ A ≺ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A ∧ card ⁡ B ℵ ⁡ A cf ⁡ card ⁡ B ℵ ⁡ A ≈ B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A → B ℵ ⁡ A ≺ B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A
59 50 57 58 sylancl ⊢ A ∈ On ∧ 2 𝑜 ≼ B → B ℵ ⁡ A ≺ B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A
60 5 xpdom2 ⊢ cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A → ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A × ℵ ⁡ A
61 17 biimpi ⊢ A ∈ On → ω ⊆ ℵ ⁡ A
62 infxpen ⊢ ℵ ⁡ A ∈ On ∧ ω ⊆ ℵ ⁡ A → ℵ ⁡ A × ℵ ⁡ A ≈ ℵ ⁡ A
63 18 61 62 sylancr ⊢ A ∈ On → ℵ ⁡ A × ℵ ⁡ A ≈ ℵ ⁡ A
64 domentr ⊢ ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A × ℵ ⁡ A ∧ ℵ ⁡ A × ℵ ⁡ A ≈ ℵ ⁡ A → ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A
65 60 63 64 syl2an ⊢ cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A ∧ A ∈ On → ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A
66 nsuceq0 ⊢ suc ⁡ 1 𝑜 ≠ ∅
67 dom0 ⊢ suc ⁡ 1 𝑜 ≼ ∅ ↔ suc ⁡ 1 𝑜 = ∅
68 66 67 nemtbir ⊢ ¬ suc ⁡ 1 𝑜 ≼ ∅
69 df-2o ⊢ 2 𝑜 = suc ⁡ 1 𝑜
70 69 breq1i ⊢ 2 𝑜 ≼ B ↔ suc ⁡ 1 𝑜 ≼ B
71 breq2 ⊢ B = ∅ → suc ⁡ 1 𝑜 ≼ B ↔ suc ⁡ 1 𝑜 ≼ ∅
72 70 71 bitrid ⊢ B = ∅ → 2 𝑜 ≼ B ↔ suc ⁡ 1 𝑜 ≼ ∅
73 72 biimpcd ⊢ 2 𝑜 ≼ B → B = ∅ → suc ⁡ 1 𝑜 ≼ ∅
74 73 adantld ⊢ 2 𝑜 ≼ B → ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A = ∅ ∧ B = ∅ → suc ⁡ 1 𝑜 ≼ ∅
75 68 74 mtoi ⊢ 2 𝑜 ≼ B → ¬ ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A = ∅ ∧ B = ∅
76 mapdom2 ⊢ ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A ∧ ¬ ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A = ∅ ∧ B = ∅ → B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A ≼ B ℵ ⁡ A
77 65 75 76 syl2an ⊢ cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A ∧ A ∈ On ∧ 2 𝑜 ≼ B → B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A ≼ B ℵ ⁡ A
78 domnsym ⊢ B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A ≼ B ℵ ⁡ A → ¬ B ℵ ⁡ A ≺ B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A
79 77 78 syl ⊢ cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A ∧ A ∈ On ∧ 2 𝑜 ≼ B → ¬ B ℵ ⁡ A ≺ B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A
80 79 expl ⊢ cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A → A ∈ On ∧ 2 𝑜 ≼ B → ¬ B ℵ ⁡ A ≺ B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A
81 80 com12 ⊢ A ∈ On ∧ 2 𝑜 ≼ B → cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A → ¬ B ℵ ⁡ A ≺ B ℵ ⁡ A × cf ⁡ card ⁡ B ℵ ⁡ A
82 59 81 mt2d ⊢ A ∈ On ∧ 2 𝑜 ≼ B → ¬ cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A
83 domtri ⊢ cf ⁡ card ⁡ B ℵ ⁡ A ∈ V ∧ ℵ ⁡ A ∈ V → cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A ↔ ¬ ℵ ⁡ A ≺ cf ⁡ card ⁡ B ℵ ⁡ A
84 51 5 83 mp2an ⊢ cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A ↔ ¬ ℵ ⁡ A ≺ cf ⁡ card ⁡ B ℵ ⁡ A
85 84 biimpri ⊢ ¬ ℵ ⁡ A ≺ cf ⁡ card ⁡ B ℵ ⁡ A → cf ⁡ card ⁡ B ℵ ⁡ A ≼ ℵ ⁡ A
86 82 85 nsyl2 ⊢ A ∈ On ∧ 2 𝑜 ≼ B → ℵ ⁡ A ≺ cf ⁡ card ⁡ B ℵ ⁡ A
87 86 ex ⊢ A ∈ On → 2 𝑜 ≼ B → ℵ ⁡ A ≺ cf ⁡ card ⁡ B ℵ ⁡ A
88 fndm ⊢ ℵ Fn On → dom ⁡ ℵ = On
89 35 88 ax-mp ⊢ dom ⁡ ℵ = On
90 89 eleq2i ⊢ A ∈ dom ⁡ ℵ ↔ A ∈ On
91 ndmfv ⊢ ¬ A ∈ dom ⁡ ℵ → ℵ ⁡ A = ∅
92 90 91 sylnbir ⊢ ¬ A ∈ On → ℵ ⁡ A = ∅
93 1n0 ⊢ 1 𝑜 ≠ ∅
94 1oex ⊢ 1 𝑜 ∈ V
95 94 0sdom ⊢ ∅ ≺ 1 𝑜 ↔ 1 𝑜 ≠ ∅
96 93 95 mpbir ⊢ ∅ ≺ 1 𝑜
97 id ⊢ ℵ ⁡ A = ∅ → ℵ ⁡ A = ∅
98 oveq2 ⊢ ℵ ⁡ A = ∅ → B ℵ ⁡ A = B ∅
99 map0e ⊢ B ∈ V → B ∅ = 1 𝑜
100 1 99 ax-mp ⊢ B ∅ = 1 𝑜
101 98 100 eqtrdi ⊢ ℵ ⁡ A = ∅ → B ℵ ⁡ A = 1 𝑜
102 101 fveq2d ⊢ ℵ ⁡ A = ∅ → card ⁡ B ℵ ⁡ A = card ⁡ 1 𝑜
103 1onn ⊢ 1 𝑜 ∈ ω
104 cardnn ⊢ 1 𝑜 ∈ ω → card ⁡ 1 𝑜 = 1 𝑜
105 103 104 ax-mp ⊢ card ⁡ 1 𝑜 = 1 𝑜
106 102 105 eqtrdi ⊢ ℵ ⁡ A = ∅ → card ⁡ B ℵ ⁡ A = 1 𝑜
107 106 fveq2d ⊢ ℵ ⁡ A = ∅ → cf ⁡ card ⁡ B ℵ ⁡ A = cf ⁡ 1 𝑜
108 df-1o ⊢ 1 𝑜 = suc ⁡ ∅
109 108 fveq2i ⊢ cf ⁡ 1 𝑜 = cf ⁡ suc ⁡ ∅
110 0elon ⊢ ∅ ∈ On
111 cfsuc ⊢ ∅ ∈ On → cf ⁡ suc ⁡ ∅ = 1 𝑜
112 110 111 ax-mp ⊢ cf ⁡ suc ⁡ ∅ = 1 𝑜
113 109 112 eqtri ⊢ cf ⁡ 1 𝑜 = 1 𝑜
114 107 113 eqtrdi ⊢ ℵ ⁡ A = ∅ → cf ⁡ card ⁡ B ℵ ⁡ A = 1 𝑜
115 97 114 breq12d ⊢ ℵ ⁡ A = ∅ → ℵ ⁡ A ≺ cf ⁡ card ⁡ B ℵ ⁡ A ↔ ∅ ≺ 1 𝑜
116 96 115 mpbiri ⊢ ℵ ⁡ A = ∅ → ℵ ⁡ A ≺ cf ⁡ card ⁡ B ℵ ⁡ A
117 116 a1d ⊢ ℵ ⁡ A = ∅ → 2 𝑜 ≼ B → ℵ ⁡ A ≺ cf ⁡ card ⁡ B ℵ ⁡ A
118 92 117 syl ⊢ ¬ A ∈ On → 2 𝑜 ≼ B → ℵ ⁡ A ≺ cf ⁡ card ⁡ B ℵ ⁡ A
119 87 118 pm2.61i ⊢ 2 𝑜 ≼ B → ℵ ⁡ A ≺ cf ⁡ card ⁡ B ℵ ⁡ A