Metamath Proof Explorer


Theorem isf34lem7

Description: Lemma for isfin3-4 . (Contributed by Stefan O'Rear, 7-Nov-2014)

Ref Expression
Hypothesis compss.a F=x𝒫AAx
Assertion isf34lem7 AFinIIIG:ω𝒫AyωGyGsucyranGranG

Proof

Step Hyp Ref Expression
1 compss.a F=x𝒫AAx
2 1 isf34lem2 AFinIIIF:𝒫A𝒫A
3 2 adantr AFinIIIG:ω𝒫AF:𝒫A𝒫A
4 3 3adant3 AFinIIIG:ω𝒫AyωGyGsucyF:𝒫A𝒫A
5 4 ffnd AFinIIIG:ω𝒫AyωGyGsucyFFn𝒫A
6 imassrn FranGranF
7 3 frnd AFinIIIG:ω𝒫AranF𝒫A
8 7 3adant3 AFinIIIG:ω𝒫AyωGyGsucyranF𝒫A
9 6 8 sstrid AFinIIIG:ω𝒫AyωGyGsucyFranG𝒫A
10 simp1 AFinIIIG:ω𝒫AyωGyGsucyAFinIII
11 fco F:𝒫A𝒫AG:ω𝒫AFG:ω𝒫A
12 2 11 sylan AFinIIIG:ω𝒫AFG:ω𝒫A
13 12 3adant3 AFinIIIG:ω𝒫AyωGyGsucyFG:ω𝒫A
14 sscon GyGsucyAGsucyAGy
15 simpr AFinIIIG:ω𝒫AG:ω𝒫A
16 peano2 yωsucyω
17 fvco3 G:ω𝒫AsucyωFGsucy=FGsucy
18 15 16 17 syl2an AFinIIIG:ω𝒫AyωFGsucy=FGsucy
19 simpll AFinIIIG:ω𝒫AyωAFinIII
20 ffvelcdm G:ω𝒫AsucyωGsucy𝒫A
21 15 16 20 syl2an AFinIIIG:ω𝒫AyωGsucy𝒫A
22 21 elpwid AFinIIIG:ω𝒫AyωGsucyA
23 1 isf34lem1 AFinIIIGsucyAFGsucy=AGsucy
24 19 22 23 syl2anc AFinIIIG:ω𝒫AyωFGsucy=AGsucy
25 18 24 eqtrd AFinIIIG:ω𝒫AyωFGsucy=AGsucy
26 fvco3 G:ω𝒫AyωFGy=FGy
27 26 adantll AFinIIIG:ω𝒫AyωFGy=FGy
28 ffvelcdm G:ω𝒫AyωGy𝒫A
29 28 adantll AFinIIIG:ω𝒫AyωGy𝒫A
30 29 elpwid AFinIIIG:ω𝒫AyωGyA
31 1 isf34lem1 AFinIIIGyAFGy=AGy
32 19 30 31 syl2anc AFinIIIG:ω𝒫AyωFGy=AGy
33 27 32 eqtrd AFinIIIG:ω𝒫AyωFGy=AGy
34 25 33 sseq12d AFinIIIG:ω𝒫AyωFGsucyFGyAGsucyAGy
35 14 34 imbitrrid AFinIIIG:ω𝒫AyωGyGsucyFGsucyFGy
36 35 ralimdva AFinIIIG:ω𝒫AyωGyGsucyyωFGsucyFGy
37 36 3impia AFinIIIG:ω𝒫AyωGyGsucyyωFGsucyFGy
38 fin33i AFinIIIFG:ω𝒫AyωFGsucyFGyranFGranFG
39 10 13 37 38 syl3anc AFinIIIG:ω𝒫AyωGyGsucyranFGranFG
40 rnco2 ranFG=FranG
41 40 inteqi ranFG=FranG
42 39 41 40 3eltr3g AFinIIIG:ω𝒫AyωGyGsucyFranGFranG
43 fnfvima FFn𝒫AFranG𝒫AFranGFranGFFranGFFranG
44 5 9 42 43 syl3anc AFinIIIG:ω𝒫AyωGyGsucyFFranGFFranG
45 simpl AFinIIIG:ω𝒫AAFinIII
46 6 7 sstrid AFinIIIG:ω𝒫AFranG𝒫A
47 incom domFranG=ranGdomF
48 frn G:ω𝒫AranG𝒫A
49 48 adantl AFinIIIG:ω𝒫AranG𝒫A
50 3 fdmd AFinIIIG:ω𝒫AdomF=𝒫A
51 49 50 sseqtrrd AFinIIIG:ω𝒫AranGdomF
52 df-ss ranGdomFranGdomF=ranG
53 51 52 sylib AFinIIIG:ω𝒫AranGdomF=ranG
54 47 53 eqtrid AFinIIIG:ω𝒫AdomFranG=ranG
55 fdm G:ω𝒫AdomG=ω
56 55 adantl AFinIIIG:ω𝒫AdomG=ω
57 peano1 ω
58 ne0i ωω
59 57 58 mp1i AFinIIIG:ω𝒫Aω
60 56 59 eqnetrd AFinIIIG:ω𝒫AdomG
61 dm0rn0 domG=ranG=
62 61 necon3bii domGranG
63 60 62 sylib AFinIIIG:ω𝒫AranG
64 54 63 eqnetrd AFinIIIG:ω𝒫AdomFranG
65 imadisj FranG=domFranG=
66 65 necon3bii FranGdomFranG
67 64 66 sylibr AFinIIIG:ω𝒫AFranG
68 1 isf34lem5 AFinIIIFranG𝒫AFranGFFranG=FFranG
69 45 46 67 68 syl12anc AFinIIIG:ω𝒫AFFranG=FFranG
70 1 isf34lem3 AFinIIIranG𝒫AFFranG=ranG
71 45 49 70 syl2anc AFinIIIG:ω𝒫AFFranG=ranG
72 71 unieqd AFinIIIG:ω𝒫AFFranG=ranG
73 69 72 eqtrd AFinIIIG:ω𝒫AFFranG=ranG
74 73 71 eleq12d AFinIIIG:ω𝒫AFFranGFFranGranGranG
75 74 3adant3 AFinIIIG:ω𝒫AyωGyGsucyFFranGFFranGranGranG
76 44 75 mpbid AFinIIIG:ω𝒫AyωGyGsucyranGranG