Metamath Proof Explorer


Theorem fin23lem30

Description: Lemma for fin23 . The residual is disjoint from the common set. (Contributed by Stefan O'Rear, 2-Nov-2014)

Ref Expression
Hypotheses fin23lem.a U=seqωiω,uViftiu=utiurant
fin23lem17.f F=g|a𝒫gωxωasucxaxranarana
fin23lem.b P=vω|ranUtv
fin23lem.c Q=wωιxP|xPw
fin23lem.d R=wωιxωP|xωPw
fin23lem.e Z=ifPFintRzPtzranUQ
Assertion fin23lem30 FuntranZranU=

Proof

Step Hyp Ref Expression
1 fin23lem.a U=seqωiω,uViftiu=utiurant
2 fin23lem17.f F=g|a𝒫gωxωasucxaxranarana
3 fin23lem.b P=vω|ranUtv
4 fin23lem.c Q=wωιxP|xPw
5 fin23lem.d R=wωιxωP|xωPw
6 fin23lem.e Z=ifPFintRzPtzranUQ
7 eqif Z=ifPFintRzPtzranUQPFinZ=tR¬PFinZ=zPtzranUQ
8 7 biimpi Z=ifPFintRzPtzranUQPFinZ=tR¬PFinZ=zPtzranUQ
9 simpr PFinFuntFunt
10 5 funmpt2 FunR
11 funco FuntFunRFuntR
12 9 10 11 sylancl PFinFuntFuntR
13 elunirn FuntRarantRbdomtRatRb
14 12 13 syl PFinFuntarantRbdomtRatRb
15 dmcoss domtRdomR
16 15 sseli bdomtRbdomR
17 fvco FunRbdomRtRb=tRb
18 10 17 mpan bdomRtRb=tRb
19 18 adantl PFinFuntbdomRtRb=tRb
20 19 eleq2d PFinFuntbdomRatRbatRb
21 incom tRbranU=ranUtRb
22 difss ωPω
23 ominf ¬ωFin
24 3 ssrab3 Pω
25 undif PωPωP=ω
26 24 25 mpbi PωP=ω
27 unfi PFinωPFinPωPFin
28 26 27 eqeltrrid PFinωPFinωFin
29 28 ex PFinωPFinωFin
30 23 29 mtoi PFin¬ωPFin
31 30 ad2antrr PFinFuntbdomR¬ωPFin
32 5 fin23lem22 ωPω¬ωPFinR:ω1-1 ontoωP
33 22 31 32 sylancr PFinFuntbdomRR:ω1-1 ontoωP
34 f1of R:ω1-1 ontoωPR:ωωP
35 33 34 syl PFinFuntbdomRR:ωωP
36 simpr PFinFuntbdomRbdomR
37 35 fdmd PFinFuntbdomRdomR=ω
38 36 37 eleqtrd PFinFuntbdomRbω
39 35 38 ffvelcdmd PFinFuntbdomRRbωP
40 39 eldifbd PFinFuntbdomR¬RbP
41 3 eleq2i RbPRbvω|ranUtv
42 40 41 sylnib PFinFuntbdomR¬Rbvω|ranUtv
43 39 eldifad PFinFuntbdomRRbω
44 fveq2 v=Rbtv=tRb
45 44 sseq2d v=RbranUtvranUtRb
46 45 elrab3 RbωRbvω|ranUtvranUtRb
47 43 46 syl PFinFuntbdomRRbvω|ranUtvranUtRb
48 42 47 mtbid PFinFuntbdomR¬ranUtRb
49 1 fin23lem20 RbωranUtRbranUtRb=
50 43 49 syl PFinFuntbdomRranUtRbranUtRb=
51 orel1 ¬ranUtRbranUtRbranUtRb=ranUtRb=
52 48 50 51 sylc PFinFuntbdomRranUtRb=
53 21 52 eqtrid PFinFuntbdomRtRbranU=
54 disj tRbranU=atRb¬aranU
55 53 54 sylib PFinFuntbdomRatRb¬aranU
56 rsp atRb¬aranUatRb¬aranU
57 55 56 syl PFinFuntbdomRatRb¬aranU
58 20 57 sylbid PFinFuntbdomRatRb¬aranU
59 58 ex PFinFuntbdomRatRb¬aranU
60 16 59 syl5 PFinFuntbdomtRatRb¬aranU
61 60 rexlimdv PFinFuntbdomtRatRb¬aranU
62 14 61 sylbid PFinFuntarantR¬aranU
63 62 ralrimiv PFinFuntarantR¬aranU
64 disj rantRranU=arantR¬aranU
65 63 64 sylibr PFinFuntrantRranU=
66 rneq Z=tRranZ=rantR
67 66 unieqd Z=tRranZ=rantR
68 67 ineq1d Z=tRranZranU=rantRranU
69 68 eqeq1d Z=tRranZranU=rantRranU=
70 65 69 imbitrrid Z=tRPFinFuntranZranU=
71 70 expd Z=tRPFinFuntranZranU=
72 71 impcom PFinZ=tRFuntranZranU=
73 rneq Z=zPtzranUQranZ=ranzPtzranUQ
74 73 unieqd Z=zPtzranUQranZ=ranzPtzranUQ
75 74 ineq1d Z=zPtzranUQranZranU=ranzPtzranUQranU
76 rncoss ranzPtzranUQranzPtzranU
77 76 unissi ranzPtzranUQranzPtzranU
78 disj ranzPtzranUranU=aranzPtzranU¬aranU
79 eluniab ab|zPb=tzranUbabzPb=tzranU
80 eleq2 b=tzranUabatzranU
81 eldifn atzranU¬aranU
82 80 81 syl6bi b=tzranUab¬aranU
83 82 rexlimivw zPb=tzranUab¬aranU
84 83 impcom abzPb=tzranU¬aranU
85 84 exlimiv babzPb=tzranU¬aranU
86 79 85 sylbi ab|zPb=tzranU¬aranU
87 eqid zPtzranU=zPtzranU
88 87 rnmpt ranzPtzranU=b|zPb=tzranU
89 88 unieqi ranzPtzranU=b|zPb=tzranU
90 86 89 eleq2s aranzPtzranU¬aranU
91 78 90 mprgbir ranzPtzranUranU=
92 ssdisj ranzPtzranUQranzPtzranUranzPtzranUranU=ranzPtzranUQranU=
93 77 91 92 mp2an ranzPtzranUQranU=
94 75 93 eqtrdi Z=zPtzranUQranZranU=
95 94 a1d Z=zPtzranUQFuntranZranU=
96 95 adantl ¬PFinZ=zPtzranUQFuntranZranU=
97 72 96 jaoi PFinZ=tR¬PFinZ=zPtzranUQFuntranZranU=
98 6 8 97 mp2b FuntranZranU=