Metamath Proof Explorer


Theorem ovolval4lem2

Description: The value of the Lebesgue outer measure for subsets of the reals. Similar to ovolval3 , but here f is may represent unordered interval bounds. (Contributed by Glauco Siliprandi, 3-Mar-2021)

Ref Expression
Hypotheses ovolval4lem2.a φ A
ovolval4lem2.m M = y * | f 2 A ran . f y = sum^ vol . f
ovolval4lem2.g G = n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n
Assertion ovolval4lem2 φ vol * A = inf M * <

Proof

Step Hyp Ref Expression
1 ovolval4lem2.a φ A
2 ovolval4lem2.m M = y * | f 2 A ran . f y = sum^ vol . f
3 ovolval4lem2.g G = n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n
4 iftrue 1 st f n 2 nd f n if 1 st f n 2 nd f n 2 nd f n 1 st f n = 2 nd f n
5 4 opeq2d 1 st f n 2 nd f n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n = 1 st f n 2 nd f n
6 5 adantl f 2 n 1 st f n 2 nd f n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n = 1 st f n 2 nd f n
7 df-br 1 st f n 2 nd f n 1 st f n 2 nd f n
8 7 bilani f 2 n 1 st f n 2 nd f n 1 st f n 2 nd f n
9 6 8 eqeltrd f 2 n 1 st f n 2 nd f n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n
10 iffalse ¬ 1 st f n 2 nd f n if 1 st f n 2 nd f n 2 nd f n 1 st f n = 1 st f n
11 10 opeq2d ¬ 1 st f n 2 nd f n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n = 1 st f n 1 st f n
12 11 adantl f 2 n ¬ 1 st f n 2 nd f n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n = 1 st f n 1 st f n
13 elmapi f 2 f : 2
14 13 ffvelcdmda f 2 n f n 2
15 xp1st f n 2 1 st f n
16 14 15 syl f 2 n 1 st f n
17 16 leidd f 2 n 1 st f n 1 st f n
18 df-br 1 st f n 1 st f n 1 st f n 1 st f n
19 17 18 sylib f 2 n 1 st f n 1 st f n
20 19 adantr f 2 n ¬ 1 st f n 2 nd f n 1 st f n 1 st f n
21 12 20 eqeltrd f 2 n ¬ 1 st f n 2 nd f n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n
22 9 21 pm2.61dan f 2 n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n
23 xp2nd f n 2 2 nd f n
24 14 23 syl f 2 n 2 nd f n
25 24 16 ifcld f 2 n if 1 st f n 2 nd f n 2 nd f n 1 st f n
26 opelxpi 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n 2
27 16 25 26 syl2anc f 2 n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n 2
28 22 27 elind f 2 n 1 st f n if 1 st f n 2 nd f n 2 nd f n 1 st f n 2
29 28 3 fmptd f 2 G : 2
30 reex V
31 30 30 xpex 2 V
32 31 inex2 2 V
33 32 a1i f 2 2 V
34 nnex V
35 34 a1i f 2 V
36 33 35 elmapd f 2 G 2 G : 2
37 29 36 mpbird f 2 G 2
38 37 adantr f 2 A ran . f y = sum^ vol . f G 2
39 simpr f 2 A ran . f A ran . f
40 rexpssxrxp 2 * × *
41 40 a1i f 2 2 * × *
42 13 41 fssd f 2 f : * × *
43 2fveq3 k = n 1 st f k = 1 st f n
44 2fveq3 k = n 2 nd f k = 2 nd f n
45 43 44 breq12d k = n 1 st f k 2 nd f k 1 st f n 2 nd f n
46 45 cbvrabv k | 1 st f k 2 nd f k = n | 1 st f n 2 nd f n
47 42 3 46 ovolval4lem1 f 2 ran . f = ran . G vol . f = vol . G
48 47 simpld f 2 ran . f = ran . G
49 48 adantr f 2 A ran . f ran . f = ran . G
50 39 49 sseqtrd f 2 A ran . f A ran . G
51 50 adantrr f 2 A ran . f y = sum^ vol . f A ran . G
52 simpr f 2 y = sum^ vol . f y = sum^ vol . f
53 47 simprd f 2 vol . f = vol . G
54 coass vol . f = vol . f
55 54 a1i f 2 vol . f = vol . f
56 coass vol . G = vol . G
57 56 a1i f 2 vol . G = vol . G
58 53 55 57 3eqtr4d f 2 vol . f = vol . G
59 58 fveq2d f 2 sum^ vol . f = sum^ vol . G
60 59 adantr f 2 y = sum^ vol . f sum^ vol . f = sum^ vol . G
61 52 60 eqtrd f 2 y = sum^ vol . f y = sum^ vol . G
62 61 adantrl f 2 A ran . f y = sum^ vol . f y = sum^ vol . G
63 51 62 jca f 2 A ran . f y = sum^ vol . f A ran . G y = sum^ vol . G
64 coeq2 g = G . g = . G
65 64 rneqd g = G ran . g = ran . G
66 65 unieqd g = G ran . g = ran . G
67 66 sseq2d g = G A ran . g A ran . G
68 coeq2 g = G vol . g = vol . G
69 68 fveq2d g = G sum^ vol . g = sum^ vol . G
70 69 eqeq2d g = G y = sum^ vol . g y = sum^ vol . G
71 67 70 anbi12d g = G A ran . g y = sum^ vol . g A ran . G y = sum^ vol . G
72 71 rspcev G 2 A ran . G y = sum^ vol . G g 2 A ran . g y = sum^ vol . g
73 38 63 72 syl2anc f 2 A ran . f y = sum^ vol . f g 2 A ran . g y = sum^ vol . g
74 73 rexlimiva f 2 A ran . f y = sum^ vol . f g 2 A ran . g y = sum^ vol . g
75 inss2 2 2
76 mapss 2 V 2 2 2 2
77 31 75 76 mp2an 2 2
78 77 sseli g 2 g 2
79 78 adantr g 2 A ran . g y = sum^ vol . g g 2
80 simpr g 2 A ran . g y = sum^ vol . g A ran . g y = sum^ vol . g
81 coeq2 f = g . f = . g
82 81 rneqd f = g ran . f = ran . g
83 82 unieqd f = g ran . f = ran . g
84 83 sseq2d f = g A ran . f A ran . g
85 coeq2 f = g vol . f = vol . g
86 85 fveq2d f = g sum^ vol . f = sum^ vol . g
87 86 eqeq2d f = g y = sum^ vol . f y = sum^ vol . g
88 84 87 anbi12d f = g A ran . f y = sum^ vol . f A ran . g y = sum^ vol . g
89 88 rspcev g 2 A ran . g y = sum^ vol . g f 2 A ran . f y = sum^ vol . f
90 79 80 89 syl2anc g 2 A ran . g y = sum^ vol . g f 2 A ran . f y = sum^ vol . f
91 90 rexlimiva g 2 A ran . g y = sum^ vol . g f 2 A ran . f y = sum^ vol . f
92 74 91 impbii f 2 A ran . f y = sum^ vol . f g 2 A ran . g y = sum^ vol . g
93 92 rabbii y * | f 2 A ran . f y = sum^ vol . f = y * | g 2 A ran . g y = sum^ vol . g
94 2 93 eqtri M = y * | g 2 A ran . g y = sum^ vol . g
95 1 94 ovolval3 φ vol * A = inf M * <