Metamath Proof Explorer


Theorem mblfinlem4

Description: Backward direction of ismblfin . (Contributed by Brendan Leahy, 28-Mar-2018) (Revised by Brendan Leahy, 13-Jul-2018)

Ref Expression
Assertion mblfinlem4 A vol * A A dom vol vol * A = sup y | b Clsd topGen ran . b A y = vol b <

Proof

Step Hyp Ref Expression
1 ltso < Or
2 1 a1i A vol * A A dom vol < Or
3 simplr A vol * A A dom vol vol * A
4 vex u V
5 eqeq1 y = u y = vol b u = vol b
6 5 anbi2d y = u b A y = vol b b A u = vol b
7 6 rexbidv y = u b Clsd topGen ran . b A y = vol b b Clsd topGen ran . b A u = vol b
8 4 7 elab u y | b Clsd topGen ran . b A y = vol b b Clsd topGen ran . b A u = vol b
9 simprl b Clsd topGen ran . b A u = vol b b A
10 ovolss b A A vol * b vol * A
11 sstr b A A b
12 ovolcl b vol * b *
13 11 12 syl b A A vol * b *
14 ovolcl A vol * A *
15 14 adantl b A A vol * A *
16 xrlenlt vol * b * vol * A * vol * b vol * A ¬ vol * A < vol * b
17 13 15 16 syl2anc b A A vol * b vol * A ¬ vol * A < vol * b
18 10 17 mpbid b A A ¬ vol * A < vol * b
19 18 ancoms A b A ¬ vol * A < vol * b
20 9 19 sylan2 A b Clsd topGen ran . b A u = vol b ¬ vol * A < vol * b
21 simprrr A b Clsd topGen ran . b A u = vol b u = vol b
22 uniretop = topGen ran .
23 22 cldss b Clsd topGen ran . b
24 dfss4 b b = b
25 23 24 sylib b Clsd topGen ran . b = b
26 rembl dom vol
27 22 cldopn b Clsd topGen ran . b topGen ran .
28 opnmbl b topGen ran . b dom vol
29 27 28 syl b Clsd topGen ran . b dom vol
30 difmbl dom vol b dom vol b dom vol
31 26 29 30 sylancr b Clsd topGen ran . b dom vol
32 25 31 eqeltrrd b Clsd topGen ran . b dom vol
33 mblvol b dom vol vol b = vol * b
34 32 33 syl b Clsd topGen ran . vol b = vol * b
35 34 ad2antrl A b Clsd topGen ran . b A u = vol b vol b = vol * b
36 21 35 eqtrd A b Clsd topGen ran . b A u = vol b u = vol * b
37 36 breq2d A b Clsd topGen ran . b A u = vol b vol * A < u vol * A < vol * b
38 20 37 mtbird A b Clsd topGen ran . b A u = vol b ¬ vol * A < u
39 38 rexlimdvaa A b Clsd topGen ran . b A u = vol b ¬ vol * A < u
40 8 39 syl5bi A u y | b Clsd topGen ran . b A y = vol b ¬ vol * A < u
41 40 ad2antrr A vol * A A dom vol u y | b Clsd topGen ran . b A y = vol b ¬ vol * A < u
42 41 imp A vol * A A dom vol u y | b Clsd topGen ran . b A y = vol b ¬ vol * A < u
43 1rp 1 +
44 eqid seq 1 + abs f = seq 1 + abs f
45 44 ovolgelb A vol * A 1 + f 2 A ran . f sup ran seq 1 + abs f * < vol * A + 1
46 43 45 mp3an3 A vol * A f 2 A ran . f sup ran seq 1 + abs f * < vol * A + 1
47 elmapi f 2 f : 2
48 ssid ran . f ran . f
49 44 ovollb f : 2 ran . f ran . f vol * ran . f sup ran seq 1 + abs f * <
50 48 49 mpan2 f : 2 vol * ran . f sup ran seq 1 + abs f * <
51 50 adantl vol * A f : 2 vol * ran . f sup ran seq 1 + abs f * <
52 eqid abs f = abs f
53 52 44 ovolsf f : 2 seq 1 + abs f : 0 +∞
54 frn seq 1 + abs f : 0 +∞ ran seq 1 + abs f 0 +∞
55 icossxr 0 +∞ *
56 54 55 sstrdi seq 1 + abs f : 0 +∞ ran seq 1 + abs f *
57 supxrcl ran seq 1 + abs f * sup ran seq 1 + abs f * < *
58 53 56 57 3syl f : 2 sup ran seq 1 + abs f * < *
59 peano2re vol * A vol * A + 1
60 59 rexrd vol * A vol * A + 1 *
61 rncoss ran . f ran .
62 61 unissi ran . f ran .
63 unirnioo = ran .
64 62 63 sseqtrri ran . f
65 ovolcl ran . f vol * ran . f *
66 64 65 ax-mp vol * ran . f *
67 xrletr vol * ran . f * sup ran seq 1 + abs f * < * vol * A + 1 * vol * ran . f sup ran seq 1 + abs f * < sup ran seq 1 + abs f * < vol * A + 1 vol * ran . f vol * A + 1
68 66 67 mp3an1 sup ran seq 1 + abs f * < * vol * A + 1 * vol * ran . f sup ran seq 1 + abs f * < sup ran seq 1 + abs f * < vol * A + 1 vol * ran . f vol * A + 1
69 58 60 68 syl2anr vol * A f : 2 vol * ran . f sup ran seq 1 + abs f * < sup ran seq 1 + abs f * < vol * A + 1 vol * ran . f vol * A + 1
70 51 69 mpand vol * A f : 2 sup ran seq 1 + abs f * < vol * A + 1 vol * ran . f vol * A + 1
71 70 adantll A vol * A f : 2 sup ran seq 1 + abs f * < vol * A + 1 vol * ran . f vol * A + 1
72 47 71 sylan2 A vol * A f 2 sup ran seq 1 + abs f * < vol * A + 1 vol * ran . f vol * A + 1
73 72 anim2d A vol * A f 2 A ran . f sup ran seq 1 + abs f * < vol * A + 1 A ran . f vol * ran . f vol * A + 1
74 73 reximdva A vol * A f 2 A ran . f sup ran seq 1 + abs f * < vol * A + 1 f 2 A ran . f vol * ran . f vol * A + 1
75 46 74 mpd A vol * A f 2 A ran . f vol * ran . f vol * A + 1
76 rexex f 2 A ran . f vol * ran . f vol * A + 1 f A ran . f vol * ran . f vol * A + 1
77 75 76 syl A vol * A f A ran . f vol * ran . f vol * A + 1
78 77 ad2antrr A vol * A A dom vol u u < vol * A f A ran . f vol * ran . f vol * A + 1
79 difss ran . f A ran . f
80 79 64 sstri ran . f A
81 ovolcl ran . f A vol * ran . f A *
82 80 81 ax-mp vol * ran . f A *
83 59 82 jctil vol * A vol * ran . f A * vol * A + 1
84 83 ad4antlr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f A * vol * A + 1
85 ovolss ran . f A ran . f ran . f vol * ran . f A vol * ran . f
86 79 64 85 mp2an vol * ran . f A vol * ran . f
87 xrletr vol * ran . f A * vol * ran . f * vol * A + 1 * vol * ran . f A vol * ran . f vol * ran . f vol * A + 1 vol * ran . f A vol * A + 1
88 82 66 87 mp3an12 vol * A + 1 * vol * ran . f A vol * ran . f vol * ran . f vol * A + 1 vol * ran . f A vol * A + 1
89 60 88 syl vol * A vol * ran . f A vol * ran . f vol * ran . f vol * A + 1 vol * ran . f A vol * A + 1
90 86 89 mpani vol * A vol * ran . f vol * A + 1 vol * ran . f A vol * A + 1
91 90 ad4antlr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f A vol * A + 1
92 91 impr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f A vol * A + 1
93 ovolge0 ran . f A 0 vol * ran . f A
94 80 93 ax-mp 0 vol * ran . f A
95 92 94 jctil A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 0 vol * ran . f A vol * ran . f A vol * A + 1
96 xrrege0 vol * ran . f A * vol * A + 1 0 vol * ran . f A vol * ran . f A vol * A + 1 vol * ran . f A
97 84 95 96 syl2anc A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f A
98 resubcl vol * A u vol * A u
99 98 adantrr vol * A u u < vol * A vol * A u
100 posdif u vol * A u < vol * A 0 < vol * A u
101 100 ancoms vol * A u u < vol * A 0 < vol * A u
102 101 biimpd vol * A u u < vol * A 0 < vol * A u
103 102 impr vol * A u u < vol * A 0 < vol * A u
104 99 103 elrpd vol * A u u < vol * A vol * A u +
105 104 rphalfcld vol * A u u < vol * A vol * A u 2 +
106 3 105 sylan A vol * A A dom vol u u < vol * A vol * A u 2 +
107 106 adantr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * A u 2 +
108 eqid seq 1 + abs g = seq 1 + abs g
109 108 ovolgelb ran . f A vol * ran . f A vol * A u 2 + g 2 ran . f A ran . g sup ran seq 1 + abs g * < vol * ran . f A + vol * A u 2
110 80 109 mp3an1 vol * ran . f A vol * A u 2 + g 2 ran . f A ran . g sup ran seq 1 + abs g * < vol * ran . f A + vol * A u 2
111 97 107 110 syl2anc A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 g 2 ran . f A ran . g sup ran seq 1 + abs g * < vol * ran . f A + vol * A u 2
112 elmapi g 2 g : 2
113 ssid ran . g ran . g
114 108 ovollb g : 2 ran . g ran . g vol * ran . g sup ran seq 1 + abs g * <
115 113 114 mpan2 g : 2 vol * ran . g sup ran seq 1 + abs g * <
116 115 adantl A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 g : 2 vol * ran . g sup ran seq 1 + abs g * <
117 eqid abs g = abs g
118 117 108 ovolsf g : 2 seq 1 + abs g : 0 +∞
119 frn seq 1 + abs g : 0 +∞ ran seq 1 + abs g 0 +∞
120 119 55 sstrdi seq 1 + abs g : 0 +∞ ran seq 1 + abs g *
121 supxrcl ran seq 1 + abs g * sup ran seq 1 + abs g * < *
122 118 120 121 3syl g : 2 sup ran seq 1 + abs g * < *
123 99 rehalfcld vol * A u u < vol * A vol * A u 2
124 3 123 sylan A vol * A A dom vol u u < vol * A vol * A u 2
125 124 adantr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * A u 2
126 97 125 readdcld A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f A + vol * A u 2
127 126 rexrd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f A + vol * A u 2 *
128 rncoss ran . g ran .
129 128 unissi ran . g ran .
130 129 63 sseqtrri ran . g
131 ovolcl ran . g vol * ran . g *
132 130 131 ax-mp vol * ran . g *
133 xrletr vol * ran . g * sup ran seq 1 + abs g * < * vol * ran . f A + vol * A u 2 * vol * ran . g sup ran seq 1 + abs g * < sup ran seq 1 + abs g * < vol * ran . f A + vol * A u 2 vol * ran . g vol * ran . f A + vol * A u 2
134 132 133 mp3an1 sup ran seq 1 + abs g * < * vol * ran . f A + vol * A u 2 * vol * ran . g sup ran seq 1 + abs g * < sup ran seq 1 + abs g * < vol * ran . f A + vol * A u 2 vol * ran . g vol * ran . f A + vol * A u 2
135 122 127 134 syl2anr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 g : 2 vol * ran . g sup ran seq 1 + abs g * < sup ran seq 1 + abs g * < vol * ran . f A + vol * A u 2 vol * ran . g vol * ran . f A + vol * A u 2
136 116 135 mpand A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 g : 2 sup ran seq 1 + abs g * < vol * ran . f A + vol * A u 2 vol * ran . g vol * ran . f A + vol * A u 2
137 112 136 sylan2 A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 g 2 sup ran seq 1 + abs g * < vol * ran . f A + vol * A u 2 vol * ran . g vol * ran . f A + vol * A u 2
138 137 anim2d A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 g 2 ran . f A ran . g sup ran seq 1 + abs g * < vol * ran . f A + vol * A u 2 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2
139 138 reximdva A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 g 2 ran . f A ran . g sup ran seq 1 + abs g * < vol * ran . f A + vol * A u 2 g 2 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2
140 111 139 mpd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 g 2 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2
141 rexex g 2 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 g ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2
142 140 141 syl A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 g ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2
143 59 66 jctil vol * A vol * ran . f * vol * A + 1
144 143 ad3antlr A vol * A A dom vol u u < vol * A vol * ran . f * vol * A + 1
145 ovolge0 ran . f 0 vol * ran . f
146 64 145 ax-mp 0 vol * ran . f
147 146 jctl vol * ran . f vol * A + 1 0 vol * ran . f vol * ran . f vol * A + 1
148 147 adantl A ran . f vol * ran . f vol * A + 1 0 vol * ran . f vol * ran . f vol * A + 1
149 xrrege0 vol * ran . f * vol * A + 1 0 vol * ran . f vol * ran . f vol * A + 1 vol * ran . f
150 144 148 149 syl2an A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f
151 150 125 resubcld A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f vol * A u 2
152 150 107 ltsubrpd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f vol * A u 2 < vol * ran . f
153 retop topGen ran . Top
154 retopbas ran . TopBases
155 bastg ran . TopBases ran . topGen ran .
156 154 155 ax-mp ran . topGen ran .
157 61 156 sstri ran . f topGen ran .
158 uniopn topGen ran . Top ran . f topGen ran . ran . f topGen ran .
159 153 157 158 mp2an ran . f topGen ran .
160 mblfinlem2 ran . f topGen ran . vol * ran . f vol * A u 2 vol * ran . f vol * A u 2 < vol * ran . f s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s
161 159 160 mp3an1 vol * ran . f vol * A u 2 vol * ran . f vol * A u 2 < vol * ran . f s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s
162 151 152 161 syl2anc A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s
163 162 adantr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s
164 indif2 s ran . g = s ran . g
165 22 cldss s Clsd topGen ran . s
166 df-ss s s = s
167 165 166 sylib s Clsd topGen ran . s = s
168 167 difeq1d s Clsd topGen ran . s ran . g = s ran . g
169 164 168 syl5eq s Clsd topGen ran . s ran . g = s ran . g
170 128 156 sstri ran . g topGen ran .
171 uniopn topGen ran . Top ran . g topGen ran . ran . g topGen ran .
172 153 170 171 mp2an ran . g topGen ran .
173 22 opncld topGen ran . Top ran . g topGen ran . ran . g Clsd topGen ran .
174 153 172 173 mp2an ran . g Clsd topGen ran .
175 incld s Clsd topGen ran . ran . g Clsd topGen ran . s ran . g Clsd topGen ran .
176 174 175 mpan2 s Clsd topGen ran . s ran . g Clsd topGen ran .
177 169 176 eqeltrrd s Clsd topGen ran . s ran . g Clsd topGen ran .
178 simpr ran . f A ran . g s ran . f s ran . f
179 simpl ran . f A ran . g s ran . f ran . f A ran . g
180 178 179 ssdif2d ran . f A ran . g s ran . f s ran . g ran . f ran . f A
181 dfin4 ran . f A = ran . f ran . f A
182 inss2 ran . f A A
183 181 182 eqsstrri ran . f ran . f A A
184 180 183 sstrdi ran . f A ran . g s ran . f s ran . g A
185 sseq1 b = s ran . g b A s ran . g A
186 185 anbi1d b = s ran . g b A vol s ran . g = vol b s ran . g A vol s ran . g = vol b
187 fveq2 s ran . g = b vol s ran . g = vol b
188 187 eqcoms b = s ran . g vol s ran . g = vol b
189 188 biantrud b = s ran . g s ran . g A s ran . g A vol s ran . g = vol b
190 186 189 bitr4d b = s ran . g b A vol s ran . g = vol b s ran . g A
191 190 rspcev s ran . g Clsd topGen ran . s ran . g A b Clsd topGen ran . b A vol s ran . g = vol b
192 177 184 191 syl2an s Clsd topGen ran . ran . f A ran . g s ran . f b Clsd topGen ran . b A vol s ran . g = vol b
193 192 an12s ran . f A ran . g s Clsd topGen ran . s ran . f b Clsd topGen ran . b A vol s ran . g = vol b
194 193 adantrrr ran . f A ran . g s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s b Clsd topGen ran . b A vol s ran . g = vol b
195 194 adantlr ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s b Clsd topGen ran . b A vol s ran . g = vol b
196 195 adantll A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s b Clsd topGen ran . b A vol s ran . g = vol b
197 difss A s ran . g A
198 ovolsscl A s ran . g A A vol * A vol * A s ran . g
199 197 198 mp3an1 A vol * A vol * A s ran . g
200 199 ad5antr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s ran . g
201 simp-6r A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A
202 simpl u u < vol * A u
203 202 ad4antlr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s u
204 difdif2 A s ran . g = A s A ran . g
205 204 fveq2i vol * A s ran . g = vol * A s A ran . g
206 difss A s A
207 inss1 A ran . g A
208 206 207 unssi A s A ran . g A
209 ovolsscl A s A ran . g A A vol * A vol * A s A ran . g
210 208 209 mp3an1 A vol * A vol * A s A ran . g
211 210 ad5antr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s A ran . g
212 ovolsscl A s A A vol * A vol * A s
213 206 212 mp3an1 A vol * A vol * A s
214 213 ad5antr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s
215 ovolsscl A ran . g A A vol * A vol * A ran . g
216 207 215 mp3an1 A vol * A vol * A ran . g
217 216 ad5antr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A ran . g
218 214 217 readdcld A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s + vol * A ran . g
219 3 202 98 syl2an A vol * A A dom vol u u < vol * A vol * A u
220 219 ad3antrrr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A u
221 ssdifss A A s
222 221 adantr A vol * A A s
223 ssinss1 A A ran . g
224 223 adantr A vol * A A ran . g
225 ovolun A s vol * A s A ran . g vol * A ran . g vol * A s A ran . g vol * A s + vol * A ran . g
226 222 213 224 216 225 syl22anc A vol * A vol * A s A ran . g vol * A s + vol * A ran . g
227 226 ad5antr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s A ran . g vol * A s + vol * A ran . g
228 124 ad2antrr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * A u 2
229 228 adantr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A u 2
230 150 ad2antrr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f
231 simprl s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s s ran . f
232 150 adantr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . f
233 ovolsscl s ran . f ran . f vol * ran . f vol * s
234 64 233 mp3an2 s ran . f vol * ran . f vol * s
235 231 232 234 syl2anr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * s
236 230 235 resubcld A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f vol * s
237 ssdif A ran . f A s ran . f s
238 difss ran . f s ran . f
239 238 64 sstri ran . f s
240 ovolss A s ran . f s ran . f s vol * A s vol * ran . f s
241 237 239 240 sylancl A ran . f vol * A s vol * ran . f s
242 241 adantr A ran . f vol * ran . f vol * A + 1 vol * A s vol * ran . f s
243 242 ad3antlr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s vol * ran . f s
244 eleq1w b = s b dom vol s dom vol
245 244 32 vtoclga s Clsd topGen ran . s dom vol
246 245 adantr s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s s dom vol
247 mblsplit s dom vol ran . f vol * ran . f vol * ran . f = vol * ran . f s + vol * ran . f s
248 64 247 mp3an2 s dom vol vol * ran . f vol * ran . f = vol * ran . f s + vol * ran . f s
249 246 232 248 syl2anr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f = vol * ran . f s + vol * ran . f s
250 249 eqcomd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f s + vol * ran . f s = vol * ran . f
251 230 recnd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f
252 inss1 ran . f s ran . f
253 ovolsscl ran . f s ran . f ran . f vol * ran . f vol * ran . f s
254 252 64 253 mp3an12 vol * ran . f vol * ran . f s
255 150 254 syl A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f s
256 255 ad2antrr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f s
257 256 recnd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f s
258 ovolsscl ran . f s ran . f ran . f vol * ran . f vol * ran . f s
259 238 64 258 mp3an12 vol * ran . f vol * ran . f s
260 150 259 syl A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f s
261 260 recnd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . f s
262 261 ad2antrr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f s
263 251 257 262 subaddd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f vol * ran . f s = vol * ran . f s vol * ran . f s + vol * ran . f s = vol * ran . f
264 250 263 mpbird A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f vol * ran . f s = vol * ran . f s
265 sseqin2 s ran . f ran . f s = s
266 265 biimpi s ran . f ran . f s = s
267 266 fveq2d s ran . f vol * ran . f s = vol * s
268 267 oveq2d s ran . f vol * ran . f vol * ran . f s = vol * ran . f vol * s
269 268 adantr s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f vol * ran . f s = vol * ran . f vol * s
270 269 ad2antll A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f vol * ran . f s = vol * ran . f vol * s
271 264 270 eqtr3d A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f s = vol * ran . f vol * s
272 243 271 breqtrd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s vol * ran . f vol * s
273 simprrr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f vol * A u 2 < vol * s
274 230 229 235 273 ltsub23d A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * ran . f vol * s < vol * A u 2
275 214 236 229 272 274 lelttrd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s < vol * A u 2
276 216 ad4antr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * A ran . g
277 126 132 jctil A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 vol * ran . g * vol * ran . f A + vol * A u 2
278 simpr ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g vol * ran . f A + vol * A u 2
279 ovolge0 ran . g 0 vol * ran . g
280 130 279 ax-mp 0 vol * ran . g
281 278 280 jctil ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 0 vol * ran . g vol * ran . g vol * ran . f A + vol * A u 2
282 xrrege0 vol * ran . g * vol * ran . f A + vol * A u 2 0 vol * ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g
283 277 281 282 syl2an A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g
284 difss ran . g ran . f A ran . g
285 ovolsscl ran . g ran . f A ran . g ran . g vol * ran . g vol * ran . g ran . f A
286 284 130 285 mp3an12 vol * ran . g vol * ran . g ran . f A
287 283 286 syl A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g ran . f A
288 ssun2 ran . g A ran . g ran . f ran . g A
289 incom A ran . g = ran . g A
290 difdif2 ran . g ran . f A = ran . g ran . f ran . g A
291 288 289 290 3sstr4i A ran . g ran . g ran . f A
292 284 130 sstri ran . g ran . f A
293 291 292 pm3.2i A ran . g ran . g ran . f A ran . g ran . f A
294 ovolss A ran . g ran . g ran . f A ran . g ran . f A vol * A ran . g vol * ran . g ran . f A
295 293 294 mp1i A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * A ran . g vol * ran . g ran . f A
296 opnmbl ran . f topGen ran . ran . f dom vol
297 159 296 ax-mp ran . f dom vol
298 difmbl ran . f dom vol A dom vol ran . f A dom vol
299 297 298 mpan A dom vol ran . f A dom vol
300 299 ad4antlr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 ran . f A dom vol
301 mblsplit ran . f A dom vol ran . g vol * ran . g vol * ran . g = vol * ran . g ran . f A + vol * ran . g ran . f A
302 130 301 mp3an2 ran . f A dom vol vol * ran . g vol * ran . g = vol * ran . g ran . f A + vol * ran . g ran . f A
303 300 283 302 syl2anc A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g = vol * ran . g ran . f A + vol * ran . g ran . f A
304 sseqin2 ran . f A ran . g ran . g ran . f A = ran . f A
305 304 biimpi ran . f A ran . g ran . g ran . f A = ran . f A
306 305 fveq2d ran . f A ran . g vol * ran . g ran . f A = vol * ran . f A
307 306 oveq1d ran . f A ran . g vol * ran . g ran . f A + vol * ran . g ran . f A = vol * ran . f A + vol * ran . g ran . f A
308 307 ad2antrl A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g ran . f A + vol * ran . g ran . f A = vol * ran . f A + vol * ran . g ran . f A
309 303 308 eqtr2d A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . f A + vol * ran . g ran . f A = vol * ran . g
310 283 recnd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g
311 97 adantr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . f A
312 311 recnd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . f A
313 287 recnd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g ran . f A
314 310 312 313 subaddd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g vol * ran . f A = vol * ran . g ran . f A vol * ran . f A + vol * ran . g ran . f A = vol * ran . g
315 309 314 mpbird A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g vol * ran . f A = vol * ran . g ran . f A
316 simprr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g vol * ran . f A + vol * A u 2
317 283 311 228 lesubadd2d A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g vol * ran . f A vol * A u 2 vol * ran . g vol * ran . f A + vol * A u 2
318 316 317 mpbird A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g vol * ran . f A vol * A u 2
319 315 318 eqbrtrrd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * ran . g ran . f A vol * A u 2
320 276 287 228 295 319 letrd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 vol * A ran . g vol * A u 2
321 320 adantr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A ran . g vol * A u 2
322 214 217 229 229 275 321 ltleaddd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s + vol * A ran . g < vol * A u 2 + vol * A u 2
323 98 recnd vol * A u vol * A u
324 323 2halvesd vol * A u vol * A u 2 + vol * A u 2 = vol * A u
325 324 adantll A vol * A u vol * A u 2 + vol * A u 2 = vol * A u
326 325 ad2ant2r A vol * A A dom vol u u < vol * A vol * A u 2 + vol * A u 2 = vol * A u
327 326 ad3antrrr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A u 2 + vol * A u 2 = vol * A u
328 322 327 breqtrd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s + vol * A ran . g < vol * A u
329 211 218 220 227 328 lelttrd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s A ran . g < vol * A u
330 205 329 eqbrtrid A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s ran . g < vol * A u
331 200 201 203 330 ltsub13d A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s u < vol * A vol * A s ran . g
332 opnmbl ran . g topGen ran . ran . g dom vol
333 172 332 ax-mp ran . g dom vol
334 difmbl s dom vol ran . g dom vol s ran . g dom vol
335 245 333 334 sylancl s Clsd topGen ran . s ran . g dom vol
336 mblvol s ran . g dom vol vol s ran . g = vol * s ran . g
337 335 336 syl s Clsd topGen ran . vol s ran . g = vol * s ran . g
338 337 ad2antrl ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol s ran . g = vol * s ran . g
339 sseqin2 s ran . g A A s ran . g = s ran . g
340 184 339 sylib ran . f A ran . g s ran . f A s ran . g = s ran . g
341 340 fveq2d ran . f A ran . g s ran . f vol * A s ran . g = vol * s ran . g
342 341 adantrr ran . f A ran . g s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s ran . g = vol * s ran . g
343 342 ad2ant2rl ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s ran . g = vol * s ran . g
344 338 343 eqtr4d ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol s ran . g = vol * A s ran . g
345 344 adantll A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol s ran . g = vol * A s ran . g
346 335 adantr s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s s ran . g dom vol
347 simp-4l A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 A vol * A
348 mblsplit s ran . g dom vol A vol * A vol * A = vol * A s ran . g + vol * A s ran . g
349 348 3expb s ran . g dom vol A vol * A vol * A = vol * A s ran . g + vol * A s ran . g
350 349 eqcomd s ran . g dom vol A vol * A vol * A s ran . g + vol * A s ran . g = vol * A
351 346 347 350 syl2anr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A s ran . g + vol * A s ran . g = vol * A
352 recn vol * A vol * A
353 352 adantl A vol * A vol * A
354 199 recnd A vol * A vol * A s ran . g
355 inss1 A s ran . g A
356 ovolsscl A s ran . g A A vol * A vol * A s ran . g
357 355 356 mp3an1 A vol * A vol * A s ran . g
358 357 recnd A vol * A vol * A s ran . g
359 353 354 358 subadd2d A vol * A vol * A vol * A s ran . g = vol * A s ran . g vol * A s ran . g + vol * A s ran . g = vol * A
360 359 ad5antr A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A vol * A s ran . g = vol * A s ran . g vol * A s ran . g + vol * A s ran . g = vol * A
361 351 360 mpbird A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol * A vol * A s ran . g = vol * A s ran . g
362 345 361 eqtr4d A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s vol s ran . g = vol * A vol * A s ran . g
363 331 362 breqtrrd A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s u < vol s ran . g
364 fvex vol s ran . g V
365 eqeq1 v = vol s ran . g v = vol b vol s ran . g = vol b
366 365 anbi2d v = vol s ran . g b A v = vol b b A vol s ran . g = vol b
367 366 rexbidv v = vol s ran . g b Clsd topGen ran . b A v = vol b b Clsd topGen ran . b A vol s ran . g = vol b
368 breq2 v = vol s ran . g u < v u < vol s ran . g
369 367 368 anbi12d v = vol s ran . g b Clsd topGen ran . b A v = vol b u < v b Clsd topGen ran . b A vol s ran . g = vol b u < vol s ran . g
370 364 369 spcev b Clsd topGen ran . b A vol s ran . g = vol b u < vol s ran . g v b Clsd topGen ran . b A v = vol b u < v
371 196 363 370 syl2anc A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 s Clsd topGen ran . s ran . f vol * ran . f vol * A u 2 < vol * s v b Clsd topGen ran . b A v = vol b u < v
372 163 371 rexlimddv A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 ran . f A ran . g vol * ran . g vol * ran . f A + vol * A u 2 v b Clsd topGen ran . b A v = vol b u < v
373 142 372 exlimddv A vol * A A dom vol u u < vol * A A ran . f vol * ran . f vol * A + 1 v b Clsd topGen ran . b A v = vol b u < v
374 78 373 exlimddv A vol * A A dom vol u u < vol * A v b Clsd topGen ran . b A v = vol b u < v
375 eqeq1 y = v y = vol b v = vol b
376 375 anbi2d y = v b A y = vol b b A v = vol b
377 376 rexbidv y = v b Clsd topGen ran . b A y = vol b b Clsd topGen ran . b A v = vol b
378 377 rexab v y | b Clsd topGen ran . b A y = vol b u < v v b Clsd topGen ran . b A v = vol b u < v
379 374 378 sylibr A vol * A A dom vol u u < vol * A v y | b Clsd topGen ran . b A y = vol b u < v
380 2 3 42 379 eqsupd A vol * A A dom vol sup y | b Clsd topGen ran . b A y = vol b < = vol * A
381 380 eqcomd A vol * A A dom vol vol * A = sup y | b Clsd topGen ran . b A y = vol b <