Metamath Proof Explorer


Theorem domtriomlem

Description: Lemma for domtriom . (Contributed by Mario Carneiro, 9-Feb-2013)

Ref Expression
Hypotheses domtriomlem.1 AV
domtriomlem.2 B=y|yAy𝒫n
domtriomlem.3 C=nωbnknbk
Assertion domtriomlem ¬AFinωA

Proof

Step Hyp Ref Expression
1 domtriomlem.1 AV
2 domtriomlem.2 B=y|yAy𝒫n
3 domtriomlem.3 C=nωbnknbk
4 1 pwex 𝒫AV
5 simpl yAy𝒫nyA
6 5 ss2abi y|yAy𝒫ny|yA
7 df-pw 𝒫A=y|yA
8 6 7 sseqtrri y|yAy𝒫n𝒫A
9 4 8 ssexi y|yAy𝒫nV
10 2 9 eqeltri BV
11 omex ωV
12 11 enref ωω
13 10 12 axcc3 bbFnωnωBbnB
14 nfv n¬AFin
15 nfra1 nnωBbnB
16 14 15 nfan n¬AFinnωBbnB
17 nnfi nωnFin
18 pwfi nFin𝒫nFin
19 17 18 sylib nω𝒫nFin
20 ficardom 𝒫nFincard𝒫nω
21 isinf ¬AFinmωyyAym
22 breq2 m=card𝒫nymycard𝒫n
23 22 anbi2d m=card𝒫nyAymyAycard𝒫n
24 23 exbidv m=card𝒫nyyAymyyAycard𝒫n
25 24 rspcv card𝒫nωmωyyAymyyAycard𝒫n
26 21 25 syl5 card𝒫nω¬AFinyyAycard𝒫n
27 19 20 26 3syl nω¬AFinyyAycard𝒫n
28 finnum 𝒫nFin𝒫ndomcard
29 cardid2 𝒫ndomcardcard𝒫n𝒫n
30 entr ycard𝒫ncard𝒫n𝒫ny𝒫n
31 30 expcom card𝒫n𝒫nycard𝒫ny𝒫n
32 19 28 29 31 4syl nωycard𝒫ny𝒫n
33 32 anim2d nωyAycard𝒫nyAy𝒫n
34 33 eximdv nωyyAycard𝒫nyyAy𝒫n
35 27 34 syld nω¬AFinyyAy𝒫n
36 2 neeq1i By|yAy𝒫n
37 abn0 y|yAy𝒫nyyAy𝒫n
38 36 37 bitri ByyAy𝒫n
39 35 38 syl6ibr nω¬AFinB
40 39 com12 ¬AFinnωB
41 40 adantr ¬AFinnωBbnBnωB
42 rsp nωBbnBnωBbnB
43 42 adantl ¬AFinnωBbnBnωBbnB
44 41 43 mpdd ¬AFinnωBbnBnωbnB
45 16 44 ralrimi ¬AFinnωBbnBnωbnB
46 45 3adant2 ¬AFinbFnωnωBbnBnωbnB
47 46 3expib ¬AFinbFnωnωBbnBnωbnB
48 47 eximdv ¬AFinbbFnωnωBbnBbnωbnB
49 13 48 mpi ¬AFinbnωbnB
50 axcc2 ccFnωnωCncnCn
51 simp2 nωbnBcFnωnωCncnCncFnω
52 nfra1 nnωbnB
53 nfra1 nnωCncnCn
54 52 53 nfan nnωbnBnωCncnCn
55 fvex bnV
56 sseq1 y=bnyAbnA
57 breq1 y=bny𝒫nbn𝒫n
58 56 57 anbi12d y=bnyAy𝒫nbnAbn𝒫n
59 55 58 2 elab2 bnBbnAbn𝒫n
60 59 simprbi bnBbn𝒫n
61 60 ralimi nωbnBnωbn𝒫n
62 fveq2 n=kbn=bk
63 pweq n=k𝒫n=𝒫k
64 62 63 breq12d n=kbn𝒫nbk𝒫k
65 64 cbvralvw nωbn𝒫nkωbk𝒫k
66 peano2 nωsucnω
67 omelon ωOn
68 67 onelssi sucnωsucnω
69 ssralv sucnωkωbk𝒫kksucnbk𝒫k
70 66 68 69 3syl nωkωbk𝒫kksucnbk𝒫k
71 pwsdompw nωksucnbk𝒫kknbkbn
72 71 ex nωksucnbk𝒫kknbkbn
73 70 72 syld nωkωbk𝒫kknbkbn
74 sdomdif knbkbnbnknbk
75 73 74 syl6 nωkωbk𝒫kbnknbk
76 65 75 biimtrid nωnωbn𝒫nbnknbk
77 55 difexi bnknbkV
78 3 fvmpt2 nωbnknbkVCn=bnknbk
79 77 78 mpan2 nωCn=bnknbk
80 79 neeq1d nωCnbnknbk
81 76 80 sylibrd nωnωbn𝒫nCn
82 61 81 syl5com nωbnBnωCn
83 82 adantr nωbnBnωCncnCnnωCn
84 rsp nωCncnCnnωCncnCn
85 84 adantl nωbnBnωCncnCnnωCncnCn
86 83 85 mpdd nωbnBnωCncnCnnωcnCn
87 54 86 ralrimi nωbnBnωCncnCnnωcnCn
88 87 3adant2 nωbnBcFnωnωCncnCnnωcnCn
89 51 88 jca nωbnBcFnωnωCncnCncFnωnωcnCn
90 89 3expib nωbnBcFnωnωCncnCncFnωnωcnCn
91 90 eximdv nωbnBccFnωnωCncnCnccFnωnωcnCn
92 50 91 mpi nωbnBccFnωnωcnCn
93 simp2 nωbnBcFnωnωcnCncFnω
94 nfra1 nnωcnCn
95 52 94 nfan nnωbnBnωcnCn
96 rsp nωcnCnnωcnCn
97 96 com12 nωnωcnCncnCn
98 rsp nωbnBnωbnB
99 98 com12 nωnωbnBbnB
100 79 eleq2d nωcnCncnbnknbk
101 eldifi cnbnknbkcnbn
102 100 101 syl6bi nωcnCncnbn
103 59 simplbi bnBbnA
104 103 sseld bnBcnbncnA
105 102 104 syl9 nωbnBcnCncnA
106 99 105 syld nωnωbnBcnCncnA
107 106 com23 nωcnCnnωbnBcnA
108 97 107 syld nωnωcnCnnωbnBcnA
109 108 com13 nωbnBnωcnCnnωcnA
110 109 imp nωbnBnωcnCnnωcnA
111 95 110 ralrimi nωbnBnωcnCnnωcnA
112 111 3adant2 nωbnBcFnωnωcnCnnωcnA
113 ffnfv c:ωAcFnωnωcnA
114 93 112 113 sylanbrc nωbnBcFnωnωcnCnc:ωA
115 nfv nkω
116 nnord kωOrdk
117 nnord nωOrdn
118 ordtri3or OrdkOrdnknk=nnk
119 116 117 118 syl2an kωnωknk=nnk
120 fveq2 n=kcn=ck
121 fveq2 k=jbk=bj
122 121 cbviunv knbk=jnbj
123 iuneq1 n=kjnbj=jkbj
124 122 123 eqtrid n=kknbk=jkbj
125 62 124 difeq12d n=kbnknbk=bkjkbj
126 120 125 eleq12d n=kcnbnknbkckbkjkbj
127 126 rspccv nωcnbnknbkkωckbkjkbj
128 96 100 mpbidi nωcnCnnωcnbnknbk
129 94 128 ralrimi nωcnCnnωcnbnknbk
130 127 129 syl11 kωnωcnCnckbkjkbj
131 130 3ad2ant1 kωnωck=cnnωcnCnckbkjkbj
132 eldifi ckbkjkbjckbk
133 eleq1 ck=cnckbkcnbk
134 132 133 imbitrid ck=cnckbkjkbjcnbk
135 134 3ad2ant3 kωnωck=cnckbkjkbjcnbk
136 131 135 syld kωnωck=cnnωcnCncnbk
137 136 imp kωnωck=cnnωcnCncnbk
138 ssiun2 knbkknbk
139 138 sseld kncnbkcnknbk
140 137 139 syl5 knkωnωck=cnnωcnCncnknbk
141 140 3impib knkωnωck=cnnωcnCncnknbk
142 128 com12 nωnωcnCncnbnknbk
143 142 3ad2ant2 kωnωck=cnnωcnCncnbnknbk
144 143 imp kωnωck=cnnωcnCncnbnknbk
145 144 eldifbd kωnωck=cnnωcnCn¬cnknbk
146 145 3adant1 knkωnωck=cnnωcnCn¬cnknbk
147 141 146 pm2.21dd knkωnωck=cnnωcnCnk=n
148 147 3exp knkωnωck=cnnωcnCnk=n
149 2a1 k=nkωnωck=cnnωcnCnk=n
150 fveq2 j=nbj=bn
151 150 ssiun2s nkbnjkbj
152 151 sseld nkcnbncnjkbj
153 101 152 syl5 nkcnbnknbkcnjkbj
154 144 153 syl5 nkkωnωck=cnnωcnCncnjkbj
155 154 3impib nkkωnωck=cnnωcnCncnjkbj
156 eleq1 ck=cnckbkjkbjcnbkjkbj
157 eldifn cnbkjkbj¬cnjkbj
158 156 157 syl6bi ck=cnckbkjkbj¬cnjkbj
159 158 3ad2ant3 kωnωck=cnckbkjkbj¬cnjkbj
160 131 159 syld kωnωck=cnnωcnCn¬cnjkbj
161 160 a1i nkkωnωck=cnnωcnCn¬cnjkbj
162 161 3imp nkkωnωck=cnnωcnCn¬cnjkbj
163 155 162 pm2.21dd nkkωnωck=cnnωcnCnk=n
164 163 3exp nkkωnωck=cnnωcnCnk=n
165 148 149 164 3jaoi knk=nnkkωnωck=cnnωcnCnk=n
166 165 com12 kωnωck=cnknk=nnknωcnCnk=n
167 166 3expia kωnωck=cnknk=nnknωcnCnk=n
168 119 167 mpid kωnωck=cnnωcnCnk=n
169 168 com3r nωcnCnkωnωck=cnk=n
170 169 expd nωcnCnkωnωck=cnk=n
171 94 115 170 ralrimd nωcnCnkωnωck=cnk=n
172 171 ralrimiv nωcnCnkωnωck=cnk=n
173 172 3ad2ant3 nωbnBcFnωnωcnCnkωnωck=cnk=n
174 dff13 c:ω1-1Ac:ωAkωnωck=cnk=n
175 114 173 174 sylanbrc nωbnBcFnωnωcnCnc:ω1-1A
176 175 19.8ad nωbnBcFnωnωcnCncc:ω1-1A
177 1 brdom ωAcc:ω1-1A
178 176 177 sylibr nωbnBcFnωnωcnCnωA
179 178 3expib nωbnBcFnωnωcnCnωA
180 179 exlimdv nωbnBccFnωnωcnCnωA
181 92 180 mpd nωbnBωA
182 181 exlimiv bnωbnBωA
183 49 182 syl ¬AFinωA