Metamath Proof Explorer


Theorem isf34lem6

Description: Lemma for isfin3-4 . (Contributed by Stefan O'Rear, 7-Nov-2014) (Revised by Mario Carneiro, 17-May-2015)

Ref Expression
Hypothesis compss.a F=x𝒫AAx
Assertion isf34lem6 AVAFinIIIf𝒫Aωyωfyfsucyranfranf

Proof

Step Hyp Ref Expression
1 compss.a F=x𝒫AAx
2 elmapi f𝒫Aωf:ω𝒫A
3 1 isf34lem7 AFinIIIf:ω𝒫Ayωfyfsucyranfranf
4 3 3expia AFinIIIf:ω𝒫Ayωfyfsucyranfranf
5 2 4 sylan2 AFinIIIf𝒫Aωyωfyfsucyranfranf
6 5 ralrimiva AFinIIIf𝒫Aωyωfyfsucyranfranf
7 elmapex g𝒫Aω𝒫AVωV
8 7 simpld g𝒫Aω𝒫AV
9 pwexb AV𝒫AV
10 8 9 sylibr g𝒫AωAV
11 1 isf34lem2 AVF:𝒫A𝒫A
12 10 11 syl g𝒫AωF:𝒫A𝒫A
13 elmapi g𝒫Aωg:ω𝒫A
14 fco F:𝒫A𝒫Ag:ω𝒫AFg:ω𝒫A
15 12 13 14 syl2anc g𝒫AωFg:ω𝒫A
16 elmapg 𝒫AVωVFg𝒫AωFg:ω𝒫A
17 7 16 syl g𝒫AωFg𝒫AωFg:ω𝒫A
18 15 17 mpbird g𝒫AωFg𝒫Aω
19 fveq1 f=Fgfy=Fgy
20 fveq1 f=Fgfsucy=Fgsucy
21 19 20 sseq12d f=FgfyfsucyFgyFgsucy
22 21 ralbidv f=FgyωfyfsucyyωFgyFgsucy
23 rneq f=Fgranf=ranFg
24 rnco2 ranFg=Frang
25 23 24 eqtrdi f=Fgranf=Frang
26 25 unieqd f=Fgranf=Frang
27 26 25 eleq12d f=FgranfranfFrangFrang
28 22 27 imbi12d f=FgyωfyfsucyranfranfyωFgyFgsucyFrangFrang
29 28 rspccv f𝒫AωyωfyfsucyranfranfFg𝒫AωyωFgyFgsucyFrangFrang
30 18 29 syl5 f𝒫Aωyωfyfsucyranfranfg𝒫AωyωFgyFgsucyFrangFrang
31 sscon gsucygyAgyAgsucy
32 13 ffvelcdmda g𝒫Aωyωgy𝒫A
33 32 elpwid g𝒫AωyωgyA
34 1 isf34lem1 AVgyAFgy=Agy
35 10 33 34 syl2an2r g𝒫AωyωFgy=Agy
36 peano2 yωsucyω
37 ffvelcdm g:ω𝒫Asucyωgsucy𝒫A
38 13 36 37 syl2an g𝒫Aωyωgsucy𝒫A
39 38 elpwid g𝒫AωyωgsucyA
40 1 isf34lem1 AVgsucyAFgsucy=Agsucy
41 10 39 40 syl2an2r g𝒫AωyωFgsucy=Agsucy
42 35 41 sseq12d g𝒫AωyωFgyFgsucyAgyAgsucy
43 31 42 imbitrrid g𝒫AωyωgsucygyFgyFgsucy
44 fvco3 g:ω𝒫AyωFgy=Fgy
45 13 44 sylan g𝒫AωyωFgy=Fgy
46 fvco3 g:ω𝒫AsucyωFgsucy=Fgsucy
47 13 36 46 syl2an g𝒫AωyωFgsucy=Fgsucy
48 45 47 sseq12d g𝒫AωyωFgyFgsucyFgyFgsucy
49 43 48 sylibrd g𝒫AωyωgsucygyFgyFgsucy
50 49 ralimdva g𝒫AωyωgsucygyyωFgyFgsucy
51 12 ffnd g𝒫AωFFn𝒫A
52 imassrn FrangranF
53 12 frnd g𝒫AωranF𝒫A
54 52 53 sstrid g𝒫AωFrang𝒫A
55 fnfvima FFn𝒫AFrang𝒫AFrangFrangFFrangFFrang
56 55 3expia FFn𝒫AFrang𝒫AFrangFrangFFrangFFrang
57 51 54 56 syl2anc g𝒫AωFrangFrangFFrangFFrang
58 incom domFrang=rangdomF
59 13 frnd g𝒫Aωrang𝒫A
60 12 fdmd g𝒫AωdomF=𝒫A
61 59 60 sseqtrrd g𝒫AωrangdomF
62 df-ss rangdomFrangdomF=rang
63 61 62 sylib g𝒫AωrangdomF=rang
64 58 63 eqtrid g𝒫AωdomFrang=rang
65 13 fdmd g𝒫Aωdomg=ω
66 peano1 ω
67 ne0i ωω
68 66 67 mp1i g𝒫Aωω
69 65 68 eqnetrd g𝒫Aωdomg
70 dm0rn0 domg=rang=
71 70 necon3bii domgrang
72 69 71 sylib g𝒫Aωrang
73 64 72 eqnetrd g𝒫AωdomFrang
74 imadisj Frang=domFrang=
75 74 necon3bii FrangdomFrang
76 73 75 sylibr g𝒫AωFrang
77 1 isf34lem4 AVFrang𝒫AFrangFFrang=FFrang
78 10 54 76 77 syl12anc g𝒫AωFFrang=FFrang
79 1 isf34lem3 AVrang𝒫AFFrang=rang
80 10 59 79 syl2anc g𝒫AωFFrang=rang
81 80 inteqd g𝒫AωFFrang=rang
82 78 81 eqtrd g𝒫AωFFrang=rang
83 82 80 eleq12d g𝒫AωFFrangFFrangrangrang
84 57 83 sylibd g𝒫AωFrangFrangrangrang
85 50 84 imim12d g𝒫AωyωFgyFgsucyFrangFrangyωgsucygyrangrang
86 30 85 sylcom f𝒫Aωyωfyfsucyranfranfg𝒫Aωyωgsucygyrangrang
87 86 ralrimiv f𝒫Aωyωfyfsucyranfranfg𝒫Aωyωgsucygyrangrang
88 isfin3-3 AVAFinIIIg𝒫Aωyωgsucygyrangrang
89 87 88 imbitrrid AVf𝒫AωyωfyfsucyranfranfAFinIII
90 6 89 impbid2 AVAFinIIIf𝒫Aωyωfyfsucyranfranf