Metamath Proof Explorer

Theorem voliunsge0lem

Description: The Lebesgue measure function is countably additive. (Contributed by Glauco Siliprandi, 3-Mar-2021)

Ref Expression
Hypotheses voliunsge0lem.s 
|- S = seq 1 ( + , G )
voliunsge0lem.g 
|- G = ( n e. NN |-> ( vol ` ( E ` n ) ) )
voliunsge0lem.e 
|- ( ph -> E : NN --> dom vol )
voliunsge0lem.d 
|- ( ph -> Disj_ n e. NN ( E ` n ) )
Assertion voliunsge0lem 
|- ( ph -> ( vol ` U_ n e. NN ( E ` n ) ) = ( sum^ ` ( n e. NN |-> ( vol ` ( E ` n ) ) ) ) )

Proof

Step Hyp Ref Expression
1 voliunsge0lem.s 
 |-  S = seq 1 ( + , G )
2 voliunsge0lem.g 
 |-  G = ( n e. NN |-> ( vol ` ( E ` n ) ) )
3 voliunsge0lem.e 
 |-  ( ph -> E : NN --> dom vol )
4 voliunsge0lem.d 
 |-  ( ph -> Disj_ n e. NN ( E ` n ) )
5 nfv 
 |-  F/ n ph
6 nfcv 
 |-  F/_ n vol
7 nfiu1 
 |-  F/_ n U_ n e. NN ( E ` n )
8 6 7 nffv 
 |-  F/_ n ( vol ` U_ n e. NN ( E ` n ) )
9 8 nfeq1 
 |-  F/ n ( vol ` U_ n e. NN ( E ` n ) ) = +oo
10 iccssxr 
 |-  ( 0 [,] +oo ) C_ RR*
11 volf 
 |-  vol : dom vol --> ( 0 [,] +oo )
12 11 a1i 
 |-  ( ph -> vol : dom vol --> ( 0 [,] +oo ) )
13 3 ffvelcdmda 
 |-  ( ( ph /\ n e. NN ) -> ( E ` n ) e. dom vol )
14 13 ralrimiva 
 |-  ( ph -> A. n e. NN ( E ` n ) e. dom vol )
15 iunmbl 
 |-  ( A. n e. NN ( E ` n ) e. dom vol -> U_ n e. NN ( E ` n ) e. dom vol )
16 14 15 syl 
 |-  ( ph -> U_ n e. NN ( E ` n ) e. dom vol )
17 12 16 ffvelcdmd 
 |-  ( ph -> ( vol ` U_ n e. NN ( E ` n ) ) e. ( 0 [,] +oo ) )
18 10 17 sselid 
 |-  ( ph -> ( vol ` U_ n e. NN ( E ` n ) ) e. RR* )
19 18 adantr 
 |-  ( ( ph /\ n e. NN ) -> ( vol ` U_ n e. NN ( E ` n ) ) e. RR* )
20 19 3adant3 
 |-  ( ( ph /\ n e. NN /\ ( vol ` ( E ` n ) ) = +oo ) -> ( vol ` U_ n e. NN ( E ` n ) ) e. RR* )
21 id 
 |-  ( ( vol ` ( E ` n ) ) = +oo -> ( vol ` ( E ` n ) ) = +oo )
22 21 eqcomd 
 |-  ( ( vol ` ( E ` n ) ) = +oo -> +oo = ( vol ` ( E ` n ) ) )
23 22 3ad2ant3 
 |-  ( ( ph /\ n e. NN /\ ( vol ` ( E ` n ) ) = +oo ) -> +oo = ( vol ` ( E ` n ) ) )
24 16 adantr 
 |-  ( ( ph /\ n e. NN ) -> U_ n e. NN ( E ` n ) e. dom vol )
25 ssiun2 
 |-  ( n e. NN -> ( E ` n ) C_ U_ n e. NN ( E ` n ) )
26 25 adantl 
 |-  ( ( ph /\ n e. NN ) -> ( E ` n ) C_ U_ n e. NN ( E ` n ) )
27 volss 
 |-  ( ( ( E ` n ) e. dom vol /\ U_ n e. NN ( E ` n ) e. dom vol /\ ( E ` n ) C_ U_ n e. NN ( E ` n ) ) -> ( vol ` ( E ` n ) ) <_ ( vol ` U_ n e. NN ( E ` n ) ) )
28 13 24 26 27 syl3anc 
 |-  ( ( ph /\ n e. NN ) -> ( vol ` ( E ` n ) ) <_ ( vol ` U_ n e. NN ( E ` n ) ) )
29 28 3adant3 
 |-  ( ( ph /\ n e. NN /\ ( vol ` ( E ` n ) ) = +oo ) -> ( vol ` ( E ` n ) ) <_ ( vol ` U_ n e. NN ( E ` n ) ) )
30 23 29 eqbrtrd 
 |-  ( ( ph /\ n e. NN /\ ( vol ` ( E ` n ) ) = +oo ) -> +oo <_ ( vol ` U_ n e. NN ( E ` n ) ) )
31 20 30 xrgepnfd 
 |-  ( ( ph /\ n e. NN /\ ( vol ` ( E ` n ) ) = +oo ) -> ( vol ` U_ n e. NN ( E ` n ) ) = +oo )
32 31 3exp 
 |-  ( ph -> ( n e. NN -> ( ( vol ` ( E ` n ) ) = +oo -> ( vol ` U_ n e. NN ( E ` n ) ) = +oo ) ) )
33 5 9 32 rexlimd 
 |-  ( ph -> ( E. n e. NN ( vol ` ( E ` n ) ) = +oo -> ( vol ` U_ n e. NN ( E ` n ) ) = +oo ) )
34 33 imp 
 |-  ( ( ph /\ E. n e. NN ( vol ` ( E ` n ) ) = +oo ) -> ( vol ` U_ n e. NN ( E ` n ) ) = +oo )
35 nfre1 
 |-  F/ n E. n e. NN ( vol ` ( E ` n ) ) = +oo
36 5 35 nfan 
 |-  F/ n ( ph /\ E. n e. NN ( vol ` ( E ` n ) ) = +oo )
37 nnex 
 |-  NN e. _V
38 37 a1i 
 |-  ( ( ph /\ E. n e. NN ( vol ` ( E ` n ) ) = +oo ) -> NN e. _V )
39 11 a1i 
 |-  ( ( ph /\ n e. NN ) -> vol : dom vol --> ( 0 [,] +oo ) )
40 39 13 ffvelcdmd 
 |-  ( ( ph /\ n e. NN ) -> ( vol ` ( E ` n ) ) e. ( 0 [,] +oo ) )
41 40 adantlr 
 |-  ( ( ( ph /\ E. n e. NN ( vol ` ( E ` n ) ) = +oo ) /\ n e. NN ) -> ( vol ` ( E ` n ) ) e. ( 0 [,] +oo ) )
42 simpr 
 |-  ( ( ph /\ E. n e. NN ( vol ` ( E ` n ) ) = +oo ) -> E. n e. NN ( vol ` ( E ` n ) ) = +oo )
43 36 38 41 42 sge0pnfmpt 
 |-  ( ( ph /\ E. n e. NN ( vol ` ( E ` n ) ) = +oo ) -> ( sum^ ` ( n e. NN |-> ( vol ` ( E ` n ) ) ) ) = +oo )
44 34 43 eqtr4d 
 |-  ( ( ph /\ E. n e. NN ( vol ` ( E ` n ) ) = +oo ) -> ( vol ` U_ n e. NN ( E ` n ) ) = ( sum^ ` ( n e. NN |-> ( vol ` ( E ` n ) ) ) ) )
45 ralnex 
 |-  ( A. n e. NN -. ( vol ` ( E ` n ) ) = +oo <-> -. E. n e. NN ( vol ` ( E ` n ) ) = +oo )
46 45 bilanri 
 |-  ( ( ph /\ -. E. n e. NN ( vol ` ( E ` n ) ) = +oo ) -> A. n e. NN -. ( vol ` ( E ` n ) ) = +oo )
47 40 adantr 
 |-  ( ( ( ph /\ n e. NN ) /\ -. ( vol ` ( E ` n ) ) = +oo ) -> ( vol ` ( E ` n ) ) e. ( 0 [,] +oo ) )
48 21 necon3bi 
 |-  ( -. ( vol ` ( E ` n ) ) = +oo -> ( vol ` ( E ` n ) ) =/= +oo )
49 48 adantl 
 |-  ( ( ( ph /\ n e. NN ) /\ -. ( vol ` ( E ` n ) ) = +oo ) -> ( vol ` ( E ` n ) ) =/= +oo )
50 ge0xrre 
 |-  ( ( ( vol ` ( E ` n ) ) e. ( 0 [,] +oo ) /\ ( vol ` ( E ` n ) ) =/= +oo ) -> ( vol ` ( E ` n ) ) e. RR )
51 47 49 50 syl2anc 
 |-  ( ( ( ph /\ n e. NN ) /\ -. ( vol ` ( E ` n ) ) = +oo ) -> ( vol ` ( E ` n ) ) e. RR )
52 51 ex 
 |-  ( ( ph /\ n e. NN ) -> ( -. ( vol ` ( E ` n ) ) = +oo -> ( vol ` ( E ` n ) ) e. RR ) )
53 renepnf 
 |-  ( ( vol ` ( E ` n ) ) e. RR -> ( vol ` ( E ` n ) ) =/= +oo )
54 53 neneqd 
 |-  ( ( vol ` ( E ` n ) ) e. RR -> -. ( vol ` ( E ` n ) ) = +oo )
55 54 a1i 
 |-  ( ( ph /\ n e. NN ) -> ( ( vol ` ( E ` n ) ) e. RR -> -. ( vol ` ( E ` n ) ) = +oo ) )
56 52 55 impbid 
 |-  ( ( ph /\ n e. NN ) -> ( -. ( vol ` ( E ` n ) ) = +oo <-> ( vol ` ( E ` n ) ) e. RR ) )
57 56 ralbidva 
 |-  ( ph -> ( A. n e. NN -. ( vol ` ( E ` n ) ) = +oo <-> A. n e. NN ( vol ` ( E ` n ) ) e. RR ) )
58 57 adantr 
 |-  ( ( ph /\ -. E. n e. NN ( vol ` ( E ` n ) ) = +oo ) -> ( A. n e. NN -. ( vol ` ( E ` n ) ) = +oo <-> A. n e. NN ( vol ` ( E ` n ) ) e. RR ) )
59 46 58 mpbid 
 |-  ( ( ph /\ -. E. n e. NN ( vol ` ( E ` n ) ) = +oo ) -> A. n e. NN ( vol ` ( E ` n ) ) e. RR )
60 nfra1 
 |-  F/ n A. n e. NN ( vol ` ( E ` n ) ) e. RR
61 5 60 nfan 
 |-  F/ n ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR )
62 13 adantlr 
 |-  ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ n e. NN ) -> ( E ` n ) e. dom vol )
63 rspa 
 |-  ( ( A. n e. NN ( vol ` ( E ` n ) ) e. RR /\ n e. NN ) -> ( vol ` ( E ` n ) ) e. RR )
64 63 adantll 
 |-  ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ n e. NN ) -> ( vol ` ( E ` n ) ) e. RR )
65 62 64 jca 
 |-  ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ n e. NN ) -> ( ( E ` n ) e. dom vol /\ ( vol ` ( E ` n ) ) e. RR ) )
66 65 ex 
 |-  ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) -> ( n e. NN -> ( ( E ` n ) e. dom vol /\ ( vol ` ( E ` n ) ) e. RR ) ) )
67 61 66 ralrimi 
 |-  ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) -> A. n e. NN ( ( E ` n ) e. dom vol /\ ( vol ` ( E ` n ) ) e. RR ) )
68 4 adantr 
 |-  ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) -> Disj_ n e. NN ( E ` n ) )
69 1 2 voliun 
 |-  ( ( A. n e. NN ( ( E ` n ) e. dom vol /\ ( vol ` ( E ` n ) ) e. RR ) /\ Disj_ n e. NN ( E ` n ) ) -> ( vol ` U_ n e. NN ( E ` n ) ) = sup ( ran S , RR* , < ) )
70 67 68 69 syl2anc 
 |-  ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) -> ( vol ` U_ n e. NN ( E ` n ) ) = sup ( ran S , RR* , < ) )
71 1zzd 
 |-  ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) -> 1 e. ZZ )
72 nnuz 
 |-  NN = ( ZZ>= ` 1 )
73 nfv 
 |-  F/ n m e. NN
74 61 73 nfan 
 |-  F/ n ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ m e. NN )
75 nfv 
 |-  F/ n ( vol ` ( E ` m ) ) e. ( 0 [,) +oo )
76 74 75 nfim 
 |-  F/ n ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ m e. NN ) -> ( vol ` ( E ` m ) ) e. ( 0 [,) +oo ) )
77 eleq1w 
 |-  ( n = m -> ( n e. NN <-> m e. NN ) )
78 77 anbi2d 
 |-  ( n = m -> ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ n e. NN ) <-> ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ m e. NN ) ) )
79 2fveq3 
 |-  ( n = m -> ( vol ` ( E ` n ) ) = ( vol ` ( E ` m ) ) )
80 79 eleq1d 
 |-  ( n = m -> ( ( vol ` ( E ` n ) ) e. ( 0 [,) +oo ) <-> ( vol ` ( E ` m ) ) e. ( 0 [,) +oo ) ) )
81 78 80 imbi12d 
 |-  ( n = m -> ( ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ n e. NN ) -> ( vol ` ( E ` n ) ) e. ( 0 [,) +oo ) ) <-> ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ m e. NN ) -> ( vol ` ( E ` m ) ) e. ( 0 [,) +oo ) ) ) )
82 0xr 
 |-  0 e. RR*
83 82 a1i 
 |-  ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ n e. NN ) -> 0 e. RR* )
84 pnfxr 
 |-  +oo e. RR*
85 84 a1i 
 |-  ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ n e. NN ) -> +oo e. RR* )
86 64 rexrd 
 |-  ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ n e. NN ) -> ( vol ` ( E ` n ) ) e. RR* )
87 volge0 
 |-  ( ( E ` n ) e. dom vol -> 0 <_ ( vol ` ( E ` n ) ) )
88 13 87 syl 
 |-  ( ( ph /\ n e. NN ) -> 0 <_ ( vol ` ( E ` n ) ) )
89 88 adantlr 
 |-  ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ n e. NN ) -> 0 <_ ( vol ` ( E ` n ) ) )
90 64 ltpnfd 
 |-  ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ n e. NN ) -> ( vol ` ( E ` n ) ) < +oo )
91 83 85 86 89 90 elicod 
 |-  ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ n e. NN ) -> ( vol ` ( E ` n ) ) e. ( 0 [,) +oo ) )
92 76 81 91 chvarfv 
 |-  ( ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) /\ m e. NN ) -> ( vol ` ( E ` m ) ) e. ( 0 [,) +oo ) )
93 79 cbvmptv 
 |-  ( n e. NN |-> ( vol ` ( E ` n ) ) ) = ( m e. NN |-> ( vol ` ( E ` m ) ) )
94 92 93 fmptd 
 |-  ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) -> ( n e. NN |-> ( vol ` ( E ` n ) ) ) : NN --> ( 0 [,) +oo ) )
95 seqeq3 
 |-  ( G = ( n e. NN |-> ( vol ` ( E ` n ) ) ) -> seq 1 ( + , G ) = seq 1 ( + , ( n e. NN |-> ( vol ` ( E ` n ) ) ) ) )
96 2 95 ax-mp 
 |-  seq 1 ( + , G ) = seq 1 ( + , ( n e. NN |-> ( vol ` ( E ` n ) ) ) )
97 1 96 eqtri 
 |-  S = seq 1 ( + , ( n e. NN |-> ( vol ` ( E ` n ) ) ) )
98 71 72 94 97 sge0seq 
 |-  ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) -> ( sum^ ` ( n e. NN |-> ( vol ` ( E ` n ) ) ) ) = sup ( ran S , RR* , < ) )
99 70 98 eqtr4d 
 |-  ( ( ph /\ A. n e. NN ( vol ` ( E ` n ) ) e. RR ) -> ( vol ` U_ n e. NN ( E ` n ) ) = ( sum^ ` ( n e. NN |-> ( vol ` ( E ` n ) ) ) ) )
100 59 99 syldan 
 |-  ( ( ph /\ -. E. n e. NN ( vol ` ( E ` n ) ) = +oo ) -> ( vol ` U_ n e. NN ( E ` n ) ) = ( sum^ ` ( n e. NN |-> ( vol ` ( E ` n ) ) ) ) )
101 44 100 pm2.61dan 
 |-  ( ph -> ( vol ` U_ n e. NN ( E ` n ) ) = ( sum^ ` ( n e. NN |-> ( vol ` ( E ` n ) ) ) ) )