Metamath Proof Explorer


Theorem ordtrest2NEWlem

Description: Lemma for ordtrest2NEW . (Contributed by Mario Carneiro, 9-Sep-2015) (Revised by Thierry Arnoux, 11-Sep-2018)

Ref Expression
Hypotheses ordtNEW.b B=BaseK
ordtNEW.l ˙=KB×B
ordtrest2NEW.2 φKToset
ordtrest2NEW.3 φAB
ordtrest2NEW.4 φxAyAzB|x˙zz˙yA
Assertion ordtrest2NEWlem φvranzBwB|¬w˙zvAordTop˙A×A

Proof

Step Hyp Ref Expression
1 ordtNEW.b B=BaseK
2 ordtNEW.l ˙=KB×B
3 ordtrest2NEW.2 φKToset
4 ordtrest2NEW.3 φAB
5 ordtrest2NEW.4 φxAyAzB|x˙zz˙yA
6 inrab2 wB|¬w˙zA=wBA|¬w˙z
7 sseqin2 ABBA=A
8 4 7 sylib φBA=A
9 8 adantr φzBBA=A
10 rabeq BA=AwBA|¬w˙z=wA|¬w˙z
11 9 10 syl φzBwBA|¬w˙z=wA|¬w˙z
12 6 11 eqtrid φzBwB|¬w˙zA=wA|¬w˙z
13 fvex KV
14 13 inex1 KB×BV
15 2 14 eqeltri ˙V
16 15 inex1 ˙A×AV
17 16 a1i φ˙A×AV
18 eqid dom˙A×A=dom˙A×A
19 18 ordttopon ˙A×AVordTop˙A×ATopOndom˙A×A
20 17 19 syl φordTop˙A×ATopOndom˙A×A
21 tospos KTosetKPoset
22 posprs KPosetKProset
23 3 21 22 3syl φKProset
24 1 2 prsssdm KProsetABdom˙A×A=A
25 23 4 24 syl2anc φdom˙A×A=A
26 25 fveq2d φTopOndom˙A×A=TopOnA
27 20 26 eleqtrd φordTop˙A×ATopOnA
28 toponmax ordTop˙A×ATopOnAAordTop˙A×A
29 27 28 syl φAordTop˙A×A
30 29 adantr φzBAordTop˙A×A
31 rabid2 A=wA|¬w˙zwA¬w˙z
32 eleq1 A=wA|¬w˙zAordTop˙A×AwA|¬w˙zordTop˙A×A
33 31 32 sylbir wA¬w˙zAordTop˙A×AwA|¬w˙zordTop˙A×A
34 30 33 syl5ibcom φzBwA¬w˙zwA|¬w˙zordTop˙A×A
35 dfrex2 wAw˙z¬wA¬w˙z
36 breq1 w=xw˙zx˙z
37 36 cbvrexvw wAw˙zxAx˙z
38 35 37 bitr3i ¬wA¬w˙zxAx˙z
39 ordttop ˙A×AVordTop˙A×ATop
40 17 39 syl φordTop˙A×ATop
41 40 adantr φzBordTop˙A×ATop
42 0opn ordTop˙A×ATopordTop˙A×A
43 41 42 syl φzBordTop˙A×A
44 43 adantr φzBxAx˙zordTop˙A×A
45 eleq1 wA|¬w˙z=wA|¬w˙zordTop˙A×AordTop˙A×A
46 44 45 syl5ibrcom φzBxAx˙zwA|¬w˙z=wA|¬w˙zordTop˙A×A
47 rabn0 wA|¬w˙zwA¬w˙z
48 breq1 w=yw˙zy˙z
49 48 notbid w=y¬w˙z¬y˙z
50 49 cbvrexvw wA¬w˙zyA¬y˙z
51 47 50 bitri wA|¬w˙zyA¬y˙z
52 3 ad3antrrr φzBxAx˙zyAKToset
53 4 ad2antrr φzBxAx˙zAB
54 53 sselda φzBxAx˙zyAyB
55 simpllr φzBxAx˙zyAzB
56 1 2 trleile KTosetyBzBy˙zz˙y
57 52 54 55 56 syl3anc φzBxAx˙zyAy˙zz˙y
58 57 ord φzBxAx˙zyA¬y˙zz˙y
59 an4 xAx˙zyAz˙yxAyAx˙zz˙y
60 rabss zB|x˙zz˙yAzBx˙zz˙yzA
61 5 60 sylib φxAyAzBx˙zz˙yzA
62 61 r19.21bi φxAyAzBx˙zz˙yzA
63 62 an32s φzBxAyAx˙zz˙yzA
64 63 impr φzBxAyAx˙zz˙yzA
65 59 64 sylan2b φzBxAx˙zyAz˙yzA
66 brinxp wAzAw˙zw˙A×Az
67 66 ancoms zAwAw˙zw˙A×Az
68 67 notbid zAwA¬w˙z¬w˙A×Az
69 68 rabbidva zAwA|¬w˙z=wA|¬w˙A×Az
70 65 69 syl φzBxAx˙zyAz˙ywA|¬w˙z=wA|¬w˙A×Az
71 25 ad2antrr φzBxAx˙zyAz˙ydom˙A×A=A
72 rabeq dom˙A×A=Awdom˙A×A|¬w˙A×Az=wA|¬w˙A×Az
73 71 72 syl φzBxAx˙zyAz˙ywdom˙A×A|¬w˙A×Az=wA|¬w˙A×Az
74 70 73 eqtr4d φzBxAx˙zyAz˙ywA|¬w˙z=wdom˙A×A|¬w˙A×Az
75 16 a1i φzBxAx˙zyAz˙y˙A×AV
76 65 71 eleqtrrd φzBxAx˙zyAz˙yzdom˙A×A
77 18 ordtopn1 ˙A×AVzdom˙A×Awdom˙A×A|¬w˙A×AzordTop˙A×A
78 75 76 77 syl2anc φzBxAx˙zyAz˙ywdom˙A×A|¬w˙A×AzordTop˙A×A
79 74 78 eqeltrd φzBxAx˙zyAz˙ywA|¬w˙zordTop˙A×A
80 79 anassrs φzBxAx˙zyAz˙ywA|¬w˙zordTop˙A×A
81 80 expr φzBxAx˙zyAz˙ywA|¬w˙zordTop˙A×A
82 58 81 syld φzBxAx˙zyA¬y˙zwA|¬w˙zordTop˙A×A
83 82 rexlimdva φzBxAx˙zyA¬y˙zwA|¬w˙zordTop˙A×A
84 51 83 biimtrid φzBxAx˙zwA|¬w˙zwA|¬w˙zordTop˙A×A
85 46 84 pm2.61dne φzBxAx˙zwA|¬w˙zordTop˙A×A
86 85 rexlimdvaa φzBxAx˙zwA|¬w˙zordTop˙A×A
87 38 86 biimtrid φzB¬wA¬w˙zwA|¬w˙zordTop˙A×A
88 34 87 pm2.61d φzBwA|¬w˙zordTop˙A×A
89 12 88 eqeltrd φzBwB|¬w˙zAordTop˙A×A
90 89 ralrimiva φzBwB|¬w˙zAordTop˙A×A
91 fvex BaseKV
92 1 91 eqeltri BV
93 92 a1i φBV
94 rabexg BVwB|¬w˙zV
95 93 94 syl φwB|¬w˙zV
96 95 ralrimivw φzBwB|¬w˙zV
97 eqid zBwB|¬w˙z=zBwB|¬w˙z
98 ineq1 v=wB|¬w˙zvA=wB|¬w˙zA
99 98 eleq1d v=wB|¬w˙zvAordTop˙A×AwB|¬w˙zAordTop˙A×A
100 97 99 ralrnmptw zBwB|¬w˙zVvranzBwB|¬w˙zvAordTop˙A×AzBwB|¬w˙zAordTop˙A×A
101 96 100 syl φvranzBwB|¬w˙zvAordTop˙A×AzBwB|¬w˙zAordTop˙A×A
102 90 101 mpbird φvranzBwB|¬w˙zvAordTop˙A×A