Metamath Proof Explorer


Theorem ordthmeolem

Description: Lemma for ordthmeo . (Contributed by Mario Carneiro, 9-Sep-2015)

Ref Expression
Hypotheses ordthmeo.1 X=domR
ordthmeo.2 Y=domS
Assertion ordthmeolem RVSWFIsomR,SXYFordTopRCnordTopS

Proof

Step Hyp Ref Expression
1 ordthmeo.1 X=domR
2 ordthmeo.2 Y=domS
3 isof1o FIsomR,SXYF:X1-1 ontoY
4 3 3ad2ant3 RVSWFIsomR,SXYF:X1-1 ontoY
5 f1of F:X1-1 ontoYF:XY
6 4 5 syl RVSWFIsomR,SXYF:XY
7 fimacnv F:XYF-1Y=X
8 6 7 syl RVSWFIsomR,SXYF-1Y=X
9 1 ordttopon RVordTopRTopOnX
10 9 3ad2ant1 RVSWFIsomR,SXYordTopRTopOnX
11 toponmax ordTopRTopOnXXordTopR
12 10 11 syl RVSWFIsomR,SXYXordTopR
13 8 12 eqeltrd RVSWFIsomR,SXYF-1YordTopR
14 elsni zYz=Y
15 14 imaeq2d zYF-1z=F-1Y
16 15 eleq1d zYF-1zordTopRF-1YordTopR
17 13 16 syl5ibrcom RVSWFIsomR,SXYzYF-1zordTopR
18 17 ralrimiv RVSWFIsomR,SXYzYF-1zordTopR
19 cnvimass F-1yY|¬ySxdomF
20 f1odm F:X1-1 ontoYdomF=X
21 4 20 syl RVSWFIsomR,SXYdomF=X
22 21 adantr RVSWFIsomR,SXYxYdomF=X
23 19 22 sseqtrid RVSWFIsomR,SXYxYF-1yY|¬ySxX
24 sseqin2 F-1yY|¬ySxXXF-1yY|¬ySx=F-1yY|¬ySx
25 23 24 sylib RVSWFIsomR,SXYxYXF-1yY|¬ySx=F-1yY|¬ySx
26 4 ad2antrr RVSWFIsomR,SXYxYzXF:X1-1 ontoY
27 f1ofn F:X1-1 ontoYFFnX
28 26 27 syl RVSWFIsomR,SXYxYzXFFnX
29 elpreima FFnXzF-1yY|¬ySxzXFzyY|¬ySx
30 28 29 syl RVSWFIsomR,SXYxYzXzF-1yY|¬ySxzXFzyY|¬ySx
31 simpr RVSWFIsomR,SXYxYzXzX
32 31 biantrurd RVSWFIsomR,SXYxYzXFzyY|¬ySxzXFzyY|¬ySx
33 6 adantr RVSWFIsomR,SXYxYF:XY
34 33 ffvelrnda RVSWFIsomR,SXYxYzXFzY
35 breq1 y=FzySxFzSx
36 35 notbid y=Fz¬ySx¬FzSx
37 36 elrab3 FzYFzyY|¬ySx¬FzSx
38 34 37 syl RVSWFIsomR,SXYxYzXFzyY|¬ySx¬FzSx
39 simpll3 RVSWFIsomR,SXYxYzXFIsomR,SXY
40 f1ocnv F:X1-1 ontoYF-1:Y1-1 ontoX
41 f1of F-1:Y1-1 ontoXF-1:YX
42 4 40 41 3syl RVSWFIsomR,SXYF-1:YX
43 42 ffvelrnda RVSWFIsomR,SXYxYF-1xX
44 43 adantr RVSWFIsomR,SXYxYzXF-1xX
45 isorel FIsomR,SXYzXF-1xXzRF-1xFzSFF-1x
46 39 31 44 45 syl12anc RVSWFIsomR,SXYxYzXzRF-1xFzSFF-1x
47 f1ocnvfv2 F:X1-1 ontoYxYFF-1x=x
48 4 47 sylan RVSWFIsomR,SXYxYFF-1x=x
49 48 adantr RVSWFIsomR,SXYxYzXFF-1x=x
50 49 breq2d RVSWFIsomR,SXYxYzXFzSFF-1xFzSx
51 46 50 bitrd RVSWFIsomR,SXYxYzXzRF-1xFzSx
52 51 notbid RVSWFIsomR,SXYxYzX¬zRF-1x¬FzSx
53 38 52 bitr4d RVSWFIsomR,SXYxYzXFzyY|¬ySx¬zRF-1x
54 30 32 53 3bitr2d RVSWFIsomR,SXYxYzXzF-1yY|¬ySx¬zRF-1x
55 54 rabbi2dva RVSWFIsomR,SXYxYXF-1yY|¬ySx=zX|¬zRF-1x
56 25 55 eqtr3d RVSWFIsomR,SXYxYF-1yY|¬ySx=zX|¬zRF-1x
57 simpl1 RVSWFIsomR,SXYxYRV
58 1 ordtopn1 RVF-1xXzX|¬zRF-1xordTopR
59 57 43 58 syl2anc RVSWFIsomR,SXYxYzX|¬zRF-1xordTopR
60 56 59 eqeltrd RVSWFIsomR,SXYxYF-1yY|¬ySxordTopR
61 60 ralrimiva RVSWFIsomR,SXYxYF-1yY|¬ySxordTopR
62 dmexg SWdomSV
63 2 62 eqeltrid SWYV
64 63 3ad2ant2 RVSWFIsomR,SXYYV
65 rabexg YVyY|¬ySxV
66 64 65 syl RVSWFIsomR,SXYyY|¬ySxV
67 66 ralrimivw RVSWFIsomR,SXYxYyY|¬ySxV
68 eqid xYyY|¬ySx=xYyY|¬ySx
69 imaeq2 z=yY|¬ySxF-1z=F-1yY|¬ySx
70 69 eleq1d z=yY|¬ySxF-1zordTopRF-1yY|¬ySxordTopR
71 68 70 ralrnmptw xYyY|¬ySxVzranxYyY|¬ySxF-1zordTopRxYF-1yY|¬ySxordTopR
72 67 71 syl RVSWFIsomR,SXYzranxYyY|¬ySxF-1zordTopRxYF-1yY|¬ySxordTopR
73 61 72 mpbird RVSWFIsomR,SXYzranxYyY|¬ySxF-1zordTopR
74 cnvimass F-1yY|¬xSydomF
75 74 22 sseqtrid RVSWFIsomR,SXYxYF-1yY|¬xSyX
76 sseqin2 F-1yY|¬xSyXXF-1yY|¬xSy=F-1yY|¬xSy
77 75 76 sylib RVSWFIsomR,SXYxYXF-1yY|¬xSy=F-1yY|¬xSy
78 elpreima FFnXzF-1yY|¬xSyzXFzyY|¬xSy
79 28 78 syl RVSWFIsomR,SXYxYzXzF-1yY|¬xSyzXFzyY|¬xSy
80 31 biantrurd RVSWFIsomR,SXYxYzXFzyY|¬xSyzXFzyY|¬xSy
81 breq2 y=FzxSyxSFz
82 81 notbid y=Fz¬xSy¬xSFz
83 82 elrab3 FzYFzyY|¬xSy¬xSFz
84 34 83 syl RVSWFIsomR,SXYxYzXFzyY|¬xSy¬xSFz
85 isorel FIsomR,SXYF-1xXzXF-1xRzFF-1xSFz
86 39 44 31 85 syl12anc RVSWFIsomR,SXYxYzXF-1xRzFF-1xSFz
87 49 breq1d RVSWFIsomR,SXYxYzXFF-1xSFzxSFz
88 86 87 bitrd RVSWFIsomR,SXYxYzXF-1xRzxSFz
89 88 notbid RVSWFIsomR,SXYxYzX¬F-1xRz¬xSFz
90 84 89 bitr4d RVSWFIsomR,SXYxYzXFzyY|¬xSy¬F-1xRz
91 79 80 90 3bitr2d RVSWFIsomR,SXYxYzXzF-1yY|¬xSy¬F-1xRz
92 91 rabbi2dva RVSWFIsomR,SXYxYXF-1yY|¬xSy=zX|¬F-1xRz
93 77 92 eqtr3d RVSWFIsomR,SXYxYF-1yY|¬xSy=zX|¬F-1xRz
94 1 ordtopn2 RVF-1xXzX|¬F-1xRzordTopR
95 57 43 94 syl2anc RVSWFIsomR,SXYxYzX|¬F-1xRzordTopR
96 93 95 eqeltrd RVSWFIsomR,SXYxYF-1yY|¬xSyordTopR
97 96 ralrimiva RVSWFIsomR,SXYxYF-1yY|¬xSyordTopR
98 rabexg YVyY|¬xSyV
99 64 98 syl RVSWFIsomR,SXYyY|¬xSyV
100 99 ralrimivw RVSWFIsomR,SXYxYyY|¬xSyV
101 eqid xYyY|¬xSy=xYyY|¬xSy
102 imaeq2 z=yY|¬xSyF-1z=F-1yY|¬xSy
103 102 eleq1d z=yY|¬xSyF-1zordTopRF-1yY|¬xSyordTopR
104 101 103 ralrnmptw xYyY|¬xSyVzranxYyY|¬xSyF-1zordTopRxYF-1yY|¬xSyordTopR
105 100 104 syl RVSWFIsomR,SXYzranxYyY|¬xSyF-1zordTopRxYF-1yY|¬xSyordTopR
106 97 105 mpbird RVSWFIsomR,SXYzranxYyY|¬xSyF-1zordTopR
107 ralunb zranxYyY|¬ySxranxYyY|¬xSyF-1zordTopRzranxYyY|¬ySxF-1zordTopRzranxYyY|¬xSyF-1zordTopR
108 73 106 107 sylanbrc RVSWFIsomR,SXYzranxYyY|¬ySxranxYyY|¬xSyF-1zordTopR
109 ralunb zYranxYyY|¬ySxranxYyY|¬xSyF-1zordTopRzYF-1zordTopRzranxYyY|¬ySxranxYyY|¬xSyF-1zordTopR
110 18 108 109 sylanbrc RVSWFIsomR,SXYzYranxYyY|¬ySxranxYyY|¬xSyF-1zordTopR
111 eqid ranxYyY|¬ySx=ranxYyY|¬ySx
112 eqid ranxYyY|¬xSy=ranxYyY|¬xSy
113 2 111 112 ordtuni SWY=YranxYyY|¬ySxranxYyY|¬xSy
114 113 63 eqeltrrd SWYranxYyY|¬ySxranxYyY|¬xSyV
115 uniexb YranxYyY|¬ySxranxYyY|¬xSyVYranxYyY|¬ySxranxYyY|¬xSyV
116 114 115 sylibr SWYranxYyY|¬ySxranxYyY|¬xSyV
117 116 3ad2ant2 RVSWFIsomR,SXYYranxYyY|¬ySxranxYyY|¬xSyV
118 2 111 112 ordtval SWordTopS=topGenfiYranxYyY|¬ySxranxYyY|¬xSy
119 118 3ad2ant2 RVSWFIsomR,SXYordTopS=topGenfiYranxYyY|¬ySxranxYyY|¬xSy
120 2 ordttopon SWordTopSTopOnY
121 120 3ad2ant2 RVSWFIsomR,SXYordTopSTopOnY
122 10 117 119 121 subbascn RVSWFIsomR,SXYFordTopRCnordTopSF:XYzYranxYyY|¬ySxranxYyY|¬xSyF-1zordTopR
123 6 110 122 mpbir2and RVSWFIsomR,SXYFordTopRCnordTopS