Metamath Proof Explorer


Theorem hoicvr

Description: I is a countable set of half-open intervals that covers the whole multidimensional reals. See Definition 1135 (b) of Fremlin1 p. 29. (Contributed by Glauco Siliprandi, 11-Oct-2020) Avoid ax-rep and shorten proof. (Revised by GG, 2-Apr-2026)

Ref Expression
Hypotheses hoicvr.2 I = j x X j j
hoicvr.3 φ X Fin
Assertion hoicvr φ X j i X . I j i

Proof

Step Hyp Ref Expression
1 hoicvr.2 I = j x X j j
2 hoicvr.3 φ X Fin
3 reex V
4 mapdm0 V =
5 3 4 ax-mp =
6 oveq2 X = X =
7 ixpeq1 X = i X . I j i = i . I j i
8 7 iuneq2d X = j i X . I j i = j i . I j i
9 ixp0x i . I j i =
10 9 a1i j i . I j i =
11 10 iuneq2i j i . I j i = j
12 nnn0
13 iunconst j =
14 12 13 ax-mp j =
15 11 14 eqtri j i . I j i =
16 8 15 eqtrdi X = j i X . I j i =
17 5 6 16 3eqtr4a X = X = j i X . I j i
18 17 eqimssd X = X j i X . I j i
19 18 adantl φ X = X j i X . I j i
20 elmapi f X f : X
21 20 adantl φ f X f : X
22 21 ffnd φ f X f Fn X
23 22 ad3antrrr φ f X ¬ X = j sup ran abs f < < j f Fn X
24 simplll φ f X j sup ran abs f < < j i X φ f X
25 simpllr φ f X j sup ran abs f < < j i X j
26 simplr φ f X j sup ran abs f < < j i X sup ran abs f < < j
27 simpr φ f X j sup ran abs f < < j i X i X
28 nnnegz j j
29 28 zxrd j j *
30 29 adantr j i X j *
31 30 3ad2antl2 φ f X j sup ran abs f < < j i X j *
32 nnxr j j *
33 32 adantr j i X j *
34 33 3ad2antl2 φ f X j sup ran abs f < < j i X j *
35 20 3ad2ant1 f X j sup ran abs f < < j f : X
36 35 frexr f X j sup ran abs f < < j f : X *
37 36 3adant1l φ f X j sup ran abs f < < j f : X *
38 37 ffvelcdmda φ f X j sup ran abs f < < j i X f i *
39 nnre j j
40 39 adantr j i X j
41 40 3ad2antl2 φ f X j sup ran abs f < < j i X j
42 41 renegcld φ f X j sup ran abs f < < j i X j
43 21 ffvelcdmda φ f X i X f i
44 43 3ad2antl1 φ f X j sup ran abs f < < j i X f i
45 44 renegcld φ f X j sup ran abs f < < j i X f i
46 n0i i X ¬ X =
47 rncoss ran abs f ran abs
48 absf abs :
49 frn abs : ran abs
50 48 49 ax-mp ran abs
51 47 50 sstri ran abs f
52 ltso < Or
53 52 a1i φ f X ¬ X = < Or
54 48 a1i φ f X abs :
55 ax-resscn
56 55 a1i φ f X
57 54 56 21 fcoss φ f X abs f : X
58 2 adantr φ f X X Fin
59 rnffi abs f : X X Fin ran abs f Fin
60 57 58 59 syl2anc φ f X ran abs f Fin
61 60 adantr φ f X ¬ X = ran abs f Fin
62 20 frnd f X ran f
63 48 fdmi dom abs =
64 63 eqcomi = dom abs
65 55 64 sseqtri dom abs
66 62 65 sstrdi f X ran f dom abs
67 dmcosseq ran f dom abs dom abs f = dom f
68 66 67 syl f X dom abs f = dom f
69 20 fdmd f X dom f = X
70 68 69 eqtrd f X dom abs f = X
71 70 adantr f X ¬ X = dom abs f = X
72 neqne ¬ X = X
73 72 adantl f X ¬ X = X
74 71 73 eqnetrd f X ¬ X = dom abs f
75 74 neneqd f X ¬ X = ¬ dom abs f =
76 dm0rn0 dom abs f = ran abs f =
77 75 76 sylnib f X ¬ X = ¬ ran abs f =
78 77 neqned f X ¬ X = ran abs f
79 78 adantll φ f X ¬ X = ran abs f
80 51 a1i φ f X ¬ X = ran abs f
81 fisupcl < Or ran abs f Fin ran abs f ran abs f sup ran abs f < ran abs f
82 53 61 79 80 81 syl13anc φ f X ¬ X = sup ran abs f < ran abs f
83 51 82 sselid φ f X ¬ X = sup ran abs f <
84 46 83 sylan2 φ f X i X sup ran abs f <
85 84 3ad2antl1 φ f X j sup ran abs f < < j i X sup ran abs f <
86 20 ffvelcdmda f X i X f i
87 86 recnd f X i X f i
88 87 abscld f X i X f i
89 88 adantll φ f X i X f i
90 89 3ad2antl1 φ f X j sup ran abs f < < j i X f i
91 86 renegcld f X i X f i
92 91 leabsd f X i X f i f i
93 87 absnegd f X i X f i = f i
94 92 93 breqtrd f X i X f i f i
95 94 adantll φ f X i X f i f i
96 95 3ad2antl1 φ f X j sup ran abs f < < j i X f i f i
97 51 a1i φ f X j sup ran abs f < < j i X ran abs f
98 46 79 sylan2 φ f X i X ran abs f
99 98 3ad2antl1 φ f X j sup ran abs f < < j i X ran abs f
100 fimaxre2 ran abs f ran abs f Fin y z ran abs f z y
101 51 60 100 sylancr φ f X y z ran abs f z y
102 101 adantr φ f X i X y z ran abs f z y
103 102 3ad2antl1 φ f X j sup ran abs f < < j i X y z ran abs f z y
104 elmapfun f X Fun f
105 simpr f X i X i X
106 69 eqcomd f X X = dom f
107 106 adantr f X i X X = dom f
108 105 107 eleqtrd f X i X i dom f
109 fvco Fun f i dom f abs f i = f i
110 104 108 109 syl2an2r f X i X abs f i = f i
111 absfun Fun abs
112 funco Fun abs Fun f Fun abs f
113 111 104 112 sylancr f X Fun abs f
114 87 64 eleqtrdi f X i X f i dom abs
115 dmfco Fun f i dom f i dom abs f f i dom abs
116 104 108 115 syl2an2r f X i X i dom abs f f i dom abs
117 114 116 mpbird f X i X i dom abs f
118 fvelrn Fun abs f i dom abs f abs f i ran abs f
119 113 117 118 syl2an2r f X i X abs f i ran abs f
120 110 119 eqeltrrd f X i X f i ran abs f
121 120 adantll φ f X i X f i ran abs f
122 121 3ad2antl1 φ f X j sup ran abs f < < j i X f i ran abs f
123 97 99 103 122 suprubd φ f X j sup ran abs f < < j i X f i sup ran abs f <
124 45 90 85 96 123 letrd φ f X j sup ran abs f < < j i X f i sup ran abs f <
125 simpl3 φ f X j sup ran abs f < < j i X sup ran abs f < < j
126 45 85 41 124 125 lelttrd φ f X j sup ran abs f < < j i X f i < j
127 44 41 126 ltnegcon1d φ f X j sup ran abs f < < j i X j < f i
128 42 44 127 ltled φ f X j sup ran abs f < < j i X j f i
129 44 leabsd φ f X j sup ran abs f < < j i X f i f i
130 44 90 85 129 123 letrd φ f X j sup ran abs f < < j i X f i sup ran abs f <
131 44 85 41 130 125 lelttrd φ f X j sup ran abs f < < j i X f i < j
132 31 34 38 128 131 elicod φ f X j sup ran abs f < < j i X f i j j
133 24 25 26 27 132 syl31anc φ f X j sup ran abs f < < j i X f i j j
134 133 adantl3r φ f X ¬ X = j sup ran abs f < < j i X f i j j
135 simpr φ j j
136 fconstmpt X × j j = x X j j
137 snex j j V
138 137 a1i φ j j V
139 2 138 xpexd φ X × j j V
140 136 139 eqeltrrid φ x X j j V
141 140 adantr φ j x X j j V
142 1 fvmpt2 j x X j j V I j = x X j j
143 135 141 142 syl2anc φ j I j = x X j j
144 143 fveq1d φ j I j i = x X j j i
145 144 3adant3 φ j i X I j i = x X j j i
146 eqidd i X x X j j = x X j j
147 eqidd i X x = i j j = j j
148 id i X i X
149 opex j j V
150 149 a1i i X j j V
151 146 147 148 150 fvmptd i X x X j j i = j j
152 151 3ad2ant3 φ j i X x X j j i = j j
153 145 152 eqtrd φ j i X I j i = j j
154 153 fveq2d φ j i X 1 st I j i = 1 st j j
155 negex j V
156 vex j V
157 155 156 op1st 1 st j j = j
158 154 157 eqtrdi φ j i X 1 st I j i = j
159 153 fveq2d φ j i X 2 nd I j i = 2 nd j j
160 155 156 op2nd 2 nd j j = j
161 159 160 eqtrdi φ j i X 2 nd I j i = j
162 158 161 oveq12d φ j i X 1 st I j i 2 nd I j i = j j
163 162 eqcomd φ j i X j j = 1 st I j i 2 nd I j i
164 163 3adant1r φ f X j i X j j = 1 st I j i 2 nd I j i
165 164 ad5ant135 φ f X ¬ X = j sup ran abs f < < j i X j j = 1 st I j i 2 nd I j i
166 134 165 eleqtrd φ f X ¬ X = j sup ran abs f < < j i X f i 1 st I j i 2 nd I j i
167 28 zred j j
168 167 39 opelxpd j j j 2
169 168 ad2antlr φ j x X j j 2
170 143 169 fmpt3d φ j I j : X 2
171 170 ad4ant14 φ f X ¬ X = j I j : X 2
172 171 ad2antrr φ f X ¬ X = j sup ran abs f < < j i X I j : X 2
173 simpr φ f X ¬ X = j sup ran abs f < < j i X i X
174 172 173 fvovco φ f X ¬ X = j sup ran abs f < < j i X . I j i = 1 st I j i 2 nd I j i
175 166 174 eleqtrrd φ f X ¬ X = j sup ran abs f < < j i X f i . I j i
176 175 ralrimiva φ f X ¬ X = j sup ran abs f < < j i X f i . I j i
177 vex f V
178 177 elixp f i X . I j i f Fn X i X f i . I j i
179 23 176 178 sylanbrc φ f X ¬ X = j sup ran abs f < < j f i X . I j i
180 83 archd φ f X ¬ X = j sup ran abs f < < j
181 179 180 reximddv3 φ f X ¬ X = j f i X . I j i
182 181 an32s φ ¬ X = f X j f i X . I j i
183 182 eliund φ ¬ X = f X f j i X . I j i
184 183 ssd φ ¬ X = X j i X . I j i
185 19 184 pm2.61dan φ X j i X . I j i