Metamath Proof Explorer


Theorem ordtrestNEW

Description: The subspace topology of an order topology is in general finer than the topology generated by the restricted order, but we do have inclusion in one direction. (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
Assertion ordtrestNEW KProsetABordTop˙A×AordTop˙𝑡A

Proof

Step Hyp Ref Expression
1 ordtNEW.b B=BaseK
2 ordtNEW.l ˙=KB×B
3 fvex KV
4 3 inex1 KB×BV
5 2 4 eqeltri ˙V
6 5 inex1 ˙A×AV
7 eqid dom˙A×A=dom˙A×A
8 eqid ranxdom˙A×Aydom˙A×A|¬y˙A×Ax=ranxdom˙A×Aydom˙A×A|¬y˙A×Ax
9 eqid ranxdom˙A×Aydom˙A×A|¬x˙A×Ay=ranxdom˙A×Aydom˙A×A|¬x˙A×Ay
10 7 8 9 ordtval ˙A×AVordTop˙A×A=topGenfidom˙A×Aranxdom˙A×Aydom˙A×A|¬y˙A×Axranxdom˙A×Aydom˙A×A|¬x˙A×Ay
11 6 10 mp1i KProsetABordTop˙A×A=topGenfidom˙A×Aranxdom˙A×Aydom˙A×A|¬y˙A×Axranxdom˙A×Aydom˙A×A|¬x˙A×Ay
12 ordttop ˙VordTop˙Top
13 5 12 ax-mp ordTop˙Top
14 fvex BaseKV
15 1 14 eqeltri BV
16 15 ssex ABAV
17 resttop ordTop˙TopAVordTop˙𝑡ATop
18 13 16 17 sylancr ABordTop˙𝑡ATop
19 18 adantl KProsetABordTop˙𝑡ATop
20 1 ressprs KProsetABK𝑠AProset
21 eqid BaseK𝑠A=BaseK𝑠A
22 eqid K𝑠ABaseK𝑠A×BaseK𝑠A=K𝑠ABaseK𝑠A×BaseK𝑠A
23 21 22 prsdm K𝑠AProsetdomK𝑠ABaseK𝑠A×BaseK𝑠A=BaseK𝑠A
24 20 23 syl KProsetABdomK𝑠ABaseK𝑠A×BaseK𝑠A=BaseK𝑠A
25 eqid K𝑠A=K𝑠A
26 25 1 ressbas2 ABA=BaseK𝑠A
27 fvex BaseK𝑠AV
28 26 27 eqeltrdi ABAV
29 eqid K=K
30 25 29 ressle AVK=K𝑠A
31 28 30 syl ABK=K𝑠A
32 31 adantl KProsetABK=K𝑠A
33 26 adantl KProsetABA=BaseK𝑠A
34 33 sqxpeqd KProsetABA×A=BaseK𝑠A×BaseK𝑠A
35 32 34 ineq12d KProsetABKA×A=K𝑠ABaseK𝑠A×BaseK𝑠A
36 35 dmeqd KProsetABdomKA×A=domK𝑠ABaseK𝑠A×BaseK𝑠A
37 24 36 33 3eqtr4d KProsetABdomKA×A=A
38 1 2 prsss KProsetAB˙A×A=KA×A
39 38 dmeqd KProsetABdom˙A×A=domKA×A
40 1 2 prsdm KProsetdom˙=B
41 40 sseq2d KProsetAdom˙AB
42 41 biimpar KProsetABAdom˙
43 sseqin2 Adom˙dom˙A=A
44 42 43 sylib KProsetABdom˙A=A
45 37 39 44 3eqtr4d KProsetABdom˙A×A=dom˙A
46 5 12 mp1i KProsetABordTop˙Top
47 16 adantl KProsetABAV
48 eqid dom˙=dom˙
49 48 ordttopon ˙VordTop˙TopOndom˙
50 5 49 mp1i KProsetABordTop˙TopOndom˙
51 toponmax ordTop˙TopOndom˙dom˙ordTop˙
52 50 51 syl KProsetABdom˙ordTop˙
53 elrestr ordTop˙TopAVdom˙ordTop˙dom˙AordTop˙𝑡A
54 46 47 52 53 syl3anc KProsetABdom˙AordTop˙𝑡A
55 45 54 eqeltrd KProsetABdom˙A×AordTop˙𝑡A
56 55 snssd KProsetABdom˙A×AordTop˙𝑡A
57 rabeq dom˙A×A=dom˙Aydom˙A×A|¬y˙A×Ax=ydom˙A|¬y˙A×Ax
58 45 57 syl KProsetABydom˙A×A|¬y˙A×Ax=ydom˙A|¬y˙A×Ax
59 45 58 mpteq12dv KProsetABxdom˙A×Aydom˙A×A|¬y˙A×Ax=xdom˙Aydom˙A|¬y˙A×Ax
60 59 rneqd KProsetABranxdom˙A×Aydom˙A×A|¬y˙A×Ax=ranxdom˙Aydom˙A|¬y˙A×Ax
61 inrab2 ydom˙|¬y˙xA=ydom˙A|¬y˙x
62 inss2 dom˙AA
63 simpr KProsetABxdom˙Aydom˙Aydom˙A
64 62 63 sselid KProsetABxdom˙Aydom˙AyA
65 simpr KProsetABxdom˙Axdom˙A
66 62 65 sselid KProsetABxdom˙AxA
67 66 adantr KProsetABxdom˙Aydom˙AxA
68 brinxp yAxAy˙xy˙A×Ax
69 64 67 68 syl2anc KProsetABxdom˙Aydom˙Ay˙xy˙A×Ax
70 69 notbid KProsetABxdom˙Aydom˙A¬y˙x¬y˙A×Ax
71 70 rabbidva KProsetABxdom˙Aydom˙A|¬y˙x=ydom˙A|¬y˙A×Ax
72 61 71 eqtrid KProsetABxdom˙Aydom˙|¬y˙xA=ydom˙A|¬y˙A×Ax
73 5 12 mp1i KProsetABxdom˙AordTop˙Top
74 47 adantr KProsetABxdom˙AAV
75 simpl KProsetABKProset
76 inss1 dom˙Adom˙
77 76 sseli xdom˙Axdom˙
78 48 ordtopn1 ˙Vxdom˙ydom˙|¬y˙xordTop˙
79 5 78 mpan xdom˙ydom˙|¬y˙xordTop˙
80 79 adantl KProsetxdom˙ydom˙|¬y˙xordTop˙
81 75 77 80 syl2an KProsetABxdom˙Aydom˙|¬y˙xordTop˙
82 elrestr ordTop˙TopAVydom˙|¬y˙xordTop˙ydom˙|¬y˙xAordTop˙𝑡A
83 73 74 81 82 syl3anc KProsetABxdom˙Aydom˙|¬y˙xAordTop˙𝑡A
84 72 83 eqeltrrd KProsetABxdom˙Aydom˙A|¬y˙A×AxordTop˙𝑡A
85 84 fmpttd KProsetABxdom˙Aydom˙A|¬y˙A×Ax:dom˙AordTop˙𝑡A
86 85 frnd KProsetABranxdom˙Aydom˙A|¬y˙A×AxordTop˙𝑡A
87 60 86 eqsstrd KProsetABranxdom˙A×Aydom˙A×A|¬y˙A×AxordTop˙𝑡A
88 rabeq dom˙A×A=dom˙Aydom˙A×A|¬x˙A×Ay=ydom˙A|¬x˙A×Ay
89 45 88 syl KProsetABydom˙A×A|¬x˙A×Ay=ydom˙A|¬x˙A×Ay
90 45 89 mpteq12dv KProsetABxdom˙A×Aydom˙A×A|¬x˙A×Ay=xdom˙Aydom˙A|¬x˙A×Ay
91 90 rneqd KProsetABranxdom˙A×Aydom˙A×A|¬x˙A×Ay=ranxdom˙Aydom˙A|¬x˙A×Ay
92 inrab2 ydom˙|¬x˙yA=ydom˙A|¬x˙y
93 brinxp xAyAx˙yx˙A×Ay
94 67 64 93 syl2anc KProsetABxdom˙Aydom˙Ax˙yx˙A×Ay
95 94 notbid KProsetABxdom˙Aydom˙A¬x˙y¬x˙A×Ay
96 95 rabbidva KProsetABxdom˙Aydom˙A|¬x˙y=ydom˙A|¬x˙A×Ay
97 92 96 eqtrid KProsetABxdom˙Aydom˙|¬x˙yA=ydom˙A|¬x˙A×Ay
98 48 ordtopn2 ˙Vxdom˙ydom˙|¬x˙yordTop˙
99 5 98 mpan xdom˙ydom˙|¬x˙yordTop˙
100 99 adantl KProsetxdom˙ydom˙|¬x˙yordTop˙
101 75 77 100 syl2an KProsetABxdom˙Aydom˙|¬x˙yordTop˙
102 elrestr ordTop˙TopAVydom˙|¬x˙yordTop˙ydom˙|¬x˙yAordTop˙𝑡A
103 73 74 101 102 syl3anc KProsetABxdom˙Aydom˙|¬x˙yAordTop˙𝑡A
104 97 103 eqeltrrd KProsetABxdom˙Aydom˙A|¬x˙A×AyordTop˙𝑡A
105 104 fmpttd KProsetABxdom˙Aydom˙A|¬x˙A×Ay:dom˙AordTop˙𝑡A
106 105 frnd KProsetABranxdom˙Aydom˙A|¬x˙A×AyordTop˙𝑡A
107 91 106 eqsstrd KProsetABranxdom˙A×Aydom˙A×A|¬x˙A×AyordTop˙𝑡A
108 87 107 unssd KProsetABranxdom˙A×Aydom˙A×A|¬y˙A×Axranxdom˙A×Aydom˙A×A|¬x˙A×AyordTop˙𝑡A
109 56 108 unssd KProsetABdom˙A×Aranxdom˙A×Aydom˙A×A|¬y˙A×Axranxdom˙A×Aydom˙A×A|¬x˙A×AyordTop˙𝑡A
110 tgfiss ordTop˙𝑡ATopdom˙A×Aranxdom˙A×Aydom˙A×A|¬y˙A×Axranxdom˙A×Aydom˙A×A|¬x˙A×AyordTop˙𝑡AtopGenfidom˙A×Aranxdom˙A×Aydom˙A×A|¬y˙A×Axranxdom˙A×Aydom˙A×A|¬x˙A×AyordTop˙𝑡A
111 19 109 110 syl2anc KProsetABtopGenfidom˙A×Aranxdom˙A×Aydom˙A×A|¬y˙A×Axranxdom˙A×Aydom˙A×A|¬x˙A×AyordTop˙𝑡A
112 11 111 eqsstrd KProsetABordTop˙A×AordTop˙𝑡A