Metamath Proof Explorer

Theorem ovollb2lem

Description: Lemma for ovollb2 . (Contributed by Mario Carneiro, 24-Mar-2015)

Ref Expression
Hypotheses ovollb2.1 
|- S = seq 1 ( + , ( ( abs o. - ) o. F ) )
ovollb2.2 
|- G = ( n e. NN |-> <. ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) , ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) >. )
ovollb2.3 
|- T = seq 1 ( + , ( ( abs o. - ) o. G ) )
ovollb2.4 
|- ( ph -> F : NN --> ( <_ i^i ( RR X. RR ) ) )
ovollb2.5 
|- ( ph -> A C_ U. ran ( [,] o. F ) )
ovollb2.6 
|- ( ph -> B e. RR+ )
ovollb2.7 
|- ( ph -> sup ( ran S , RR* , < ) e. RR )
Assertion ovollb2lem 
|- ( ph -> ( vol* ` A ) <_ ( sup ( ran S , RR* , < ) + B ) )

Proof

Step Hyp Ref Expression
1 ovollb2.1 
 |-  S = seq 1 ( + , ( ( abs o. - ) o. F ) )
2 ovollb2.2 
 |-  G = ( n e. NN |-> <. ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) , ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) >. )
3 ovollb2.3 
 |-  T = seq 1 ( + , ( ( abs o. - ) o. G ) )
4 ovollb2.4 
 |-  ( ph -> F : NN --> ( <_ i^i ( RR X. RR ) ) )
5 ovollb2.5 
 |-  ( ph -> A C_ U. ran ( [,] o. F ) )
6 ovollb2.6 
 |-  ( ph -> B e. RR+ )
7 ovollb2.7 
 |-  ( ph -> sup ( ran S , RR* , < ) e. RR )
8 ovolficcss 
 |-  ( F : NN --> ( <_ i^i ( RR X. RR ) ) -> U. ran ( [,] o. F ) C_ RR )
9 4 8 syl 
 |-  ( ph -> U. ran ( [,] o. F ) C_ RR )
10 5 9 sstrd 
 |-  ( ph -> A C_ RR )
11 ovolcl 
 |-  ( A C_ RR -> ( vol* ` A ) e. RR* )
12 10 11 syl 
 |-  ( ph -> ( vol* ` A ) e. RR* )
13 ovolfcl 
 |-  ( ( F : NN --> ( <_ i^i ( RR X. RR ) ) /\ n e. NN ) -> ( ( 1st ` ( F ` n ) ) e. RR /\ ( 2nd ` ( F ` n ) ) e. RR /\ ( 1st ` ( F ` n ) ) <_ ( 2nd ` ( F ` n ) ) ) )
14 4 13 sylan 
 |-  ( ( ph /\ n e. NN ) -> ( ( 1st ` ( F ` n ) ) e. RR /\ ( 2nd ` ( F ` n ) ) e. RR /\ ( 1st ` ( F ` n ) ) <_ ( 2nd ` ( F ` n ) ) ) )
15 14 simp1d 
 |-  ( ( ph /\ n e. NN ) -> ( 1st ` ( F ` n ) ) e. RR )
16 6 rphalfcld 
 |-  ( ph -> ( B / 2 ) e. RR+ )
17 16 adantr 
 |-  ( ( ph /\ n e. NN ) -> ( B / 2 ) e. RR+ )
18 2nn 
 |-  2 e. NN
19 nnnn0 
 |-  ( n e. NN -> n e. NN0 )
20 19 adantl 
 |-  ( ( ph /\ n e. NN ) -> n e. NN0 )
21 nnexpcl 
 |-  ( ( 2 e. NN /\ n e. NN0 ) -> ( 2 ^ n ) e. NN )
22 18 20 21 sylancr 
 |-  ( ( ph /\ n e. NN ) -> ( 2 ^ n ) e. NN )
23 22 nnrpd 
 |-  ( ( ph /\ n e. NN ) -> ( 2 ^ n ) e. RR+ )
24 17 23 rpdivcld 
 |-  ( ( ph /\ n e. NN ) -> ( ( B / 2 ) / ( 2 ^ n ) ) e. RR+ )
25 24 rpred 
 |-  ( ( ph /\ n e. NN ) -> ( ( B / 2 ) / ( 2 ^ n ) ) e. RR )
26 15 25 resubcld 
 |-  ( ( ph /\ n e. NN ) -> ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) e. RR )
27 14 simp2d 
 |-  ( ( ph /\ n e. NN ) -> ( 2nd ` ( F ` n ) ) e. RR )
28 27 25 readdcld 
 |-  ( ( ph /\ n e. NN ) -> ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) e. RR )
29 15 24 ltsubrpd 
 |-  ( ( ph /\ n e. NN ) -> ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) < ( 1st ` ( F ` n ) ) )
30 14 simp3d 
 |-  ( ( ph /\ n e. NN ) -> ( 1st ` ( F ` n ) ) <_ ( 2nd ` ( F ` n ) ) )
31 27 24 ltaddrpd 
 |-  ( ( ph /\ n e. NN ) -> ( 2nd ` ( F ` n ) ) < ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) )
32 15 27 28 30 31 lelttrd 
 |-  ( ( ph /\ n e. NN ) -> ( 1st ` ( F ` n ) ) < ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) )
33 26 15 28 29 32 lttrd 
 |-  ( ( ph /\ n e. NN ) -> ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) < ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) )
34 26 28 33 ltled 
 |-  ( ( ph /\ n e. NN ) -> ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) <_ ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) )
35 df-br 
 |-  ( ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) <_ ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) <-> <. ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) , ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) >. e. <_ )
36 34 35 sylib 
 |-  ( ( ph /\ n e. NN ) -> <. ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) , ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) >. e. <_ )
37 26 28 opelxpd 
 |-  ( ( ph /\ n e. NN ) -> <. ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) , ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) >. e. ( RR X. RR ) )
38 36 37 elind 
 |-  ( ( ph /\ n e. NN ) -> <. ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) , ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) >. e. ( <_ i^i ( RR X. RR ) ) )
39 38 2 fmptd 
 |-  ( ph -> G : NN --> ( <_ i^i ( RR X. RR ) ) )
40 eqid 
 |-  ( ( abs o. - ) o. G ) = ( ( abs o. - ) o. G )
41 40 3 ovolsf 
 |-  ( G : NN --> ( <_ i^i ( RR X. RR ) ) -> T : NN --> ( 0 [,) +oo ) )
42 39 41 syl 
 |-  ( ph -> T : NN --> ( 0 [,) +oo ) )
43 42 frnd 
 |-  ( ph -> ran T C_ ( 0 [,) +oo ) )
44 icossxr 
 |-  ( 0 [,) +oo ) C_ RR*
45 43 44 sstrdi 
 |-  ( ph -> ran T C_ RR* )
46 supxrcl 
 |-  ( ran T C_ RR* -> sup ( ran T , RR* , < ) e. RR* )
47 45 46 syl 
 |-  ( ph -> sup ( ran T , RR* , < ) e. RR* )
48 6 rpred 
 |-  ( ph -> B e. RR )
49 7 48 readdcld 
 |-  ( ph -> ( sup ( ran S , RR* , < ) + B ) e. RR )
50 49 rexrd 
 |-  ( ph -> ( sup ( ran S , RR* , < ) + B ) e. RR* )
51 2fveq3 
 |-  ( n = m -> ( 1st ` ( F ` n ) ) = ( 1st ` ( F ` m ) ) )
52 oveq2 
 |-  ( n = m -> ( 2 ^ n ) = ( 2 ^ m ) )
53 52 oveq2d 
 |-  ( n = m -> ( ( B / 2 ) / ( 2 ^ n ) ) = ( ( B / 2 ) / ( 2 ^ m ) ) )
54 51 53 oveq12d 
 |-  ( n = m -> ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) = ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) )
55 2fveq3 
 |-  ( n = m -> ( 2nd ` ( F ` n ) ) = ( 2nd ` ( F ` m ) ) )
56 55 53 oveq12d 
 |-  ( n = m -> ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) = ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) )
57 54 56 opeq12d 
 |-  ( n = m -> <. ( ( 1st ` ( F ` n ) ) - ( ( B / 2 ) / ( 2 ^ n ) ) ) , ( ( 2nd ` ( F ` n ) ) + ( ( B / 2 ) / ( 2 ^ n ) ) ) >. = <. ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) , ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) >. )
58 opex 
 |-  <. ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) , ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) >. e. _V
59 57 2 58 fvmpt 
 |-  ( m e. NN -> ( G ` m ) = <. ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) , ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) >. )
60 59 adantl 
 |-  ( ( ph /\ m e. NN ) -> ( G ` m ) = <. ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) , ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) >. )
61 60 fveq2d 
 |-  ( ( ph /\ m e. NN ) -> ( 1st ` ( G ` m ) ) = ( 1st ` <. ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) , ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) >. ) )
62 ovex 
 |-  ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) e. _V
63 ovex 
 |-  ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) e. _V
64 62 63 op1st 
 |-  ( 1st ` <. ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) , ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) >. ) = ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) )
65 61 64 eqtrdi 
 |-  ( ( ph /\ m e. NN ) -> ( 1st ` ( G ` m ) ) = ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) )
66 ovolfcl 
 |-  ( ( F : NN --> ( <_ i^i ( RR X. RR ) ) /\ m e. NN ) -> ( ( 1st ` ( F ` m ) ) e. RR /\ ( 2nd ` ( F ` m ) ) e. RR /\ ( 1st ` ( F ` m ) ) <_ ( 2nd ` ( F ` m ) ) ) )
67 4 66 sylan 
 |-  ( ( ph /\ m e. NN ) -> ( ( 1st ` ( F ` m ) ) e. RR /\ ( 2nd ` ( F ` m ) ) e. RR /\ ( 1st ` ( F ` m ) ) <_ ( 2nd ` ( F ` m ) ) ) )
68 67 simp1d 
 |-  ( ( ph /\ m e. NN ) -> ( 1st ` ( F ` m ) ) e. RR )
69 16 adantr 
 |-  ( ( ph /\ m e. NN ) -> ( B / 2 ) e. RR+ )
70 nnnn0 
 |-  ( m e. NN -> m e. NN0 )
71 70 adantl 
 |-  ( ( ph /\ m e. NN ) -> m e. NN0 )
72 nnexpcl 
 |-  ( ( 2 e. NN /\ m e. NN0 ) -> ( 2 ^ m ) e. NN )
73 18 71 72 sylancr 
 |-  ( ( ph /\ m e. NN ) -> ( 2 ^ m ) e. NN )
74 73 nnrpd 
 |-  ( ( ph /\ m e. NN ) -> ( 2 ^ m ) e. RR+ )
75 69 74 rpdivcld 
 |-  ( ( ph /\ m e. NN ) -> ( ( B / 2 ) / ( 2 ^ m ) ) e. RR+ )
76 68 75 ltsubrpd 
 |-  ( ( ph /\ m e. NN ) -> ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) < ( 1st ` ( F ` m ) ) )
77 65 76 eqbrtrd 
 |-  ( ( ph /\ m e. NN ) -> ( 1st ` ( G ` m ) ) < ( 1st ` ( F ` m ) ) )
78 77 adantlr 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> ( 1st ` ( G ` m ) ) < ( 1st ` ( F ` m ) ) )
79 ovolfcl 
 |-  ( ( G : NN --> ( <_ i^i ( RR X. RR ) ) /\ m e. NN ) -> ( ( 1st ` ( G ` m ) ) e. RR /\ ( 2nd ` ( G ` m ) ) e. RR /\ ( 1st ` ( G ` m ) ) <_ ( 2nd ` ( G ` m ) ) ) )
80 39 79 sylan 
 |-  ( ( ph /\ m e. NN ) -> ( ( 1st ` ( G ` m ) ) e. RR /\ ( 2nd ` ( G ` m ) ) e. RR /\ ( 1st ` ( G ` m ) ) <_ ( 2nd ` ( G ` m ) ) ) )
81 80 simp1d 
 |-  ( ( ph /\ m e. NN ) -> ( 1st ` ( G ` m ) ) e. RR )
82 81 adantlr 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> ( 1st ` ( G ` m ) ) e. RR )
83 68 adantlr 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> ( 1st ` ( F ` m ) ) e. RR )
84 10 sselda 
 |-  ( ( ph /\ z e. A ) -> z e. RR )
85 84 adantr 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> z e. RR )
86 ltletr 
 |-  ( ( ( 1st ` ( G ` m ) ) e. RR /\ ( 1st ` ( F ` m ) ) e. RR /\ z e. RR ) -> ( ( ( 1st ` ( G ` m ) ) < ( 1st ` ( F ` m ) ) /\ ( 1st ` ( F ` m ) ) <_ z ) -> ( 1st ` ( G ` m ) ) < z ) )
87 82 83 85 86 syl3anc 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> ( ( ( 1st ` ( G ` m ) ) < ( 1st ` ( F ` m ) ) /\ ( 1st ` ( F ` m ) ) <_ z ) -> ( 1st ` ( G ` m ) ) < z ) )
88 78 87 mpand 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> ( ( 1st ` ( F ` m ) ) <_ z -> ( 1st ` ( G ` m ) ) < z ) )
89 67 simp2d 
 |-  ( ( ph /\ m e. NN ) -> ( 2nd ` ( F ` m ) ) e. RR )
90 89 75 ltaddrpd 
 |-  ( ( ph /\ m e. NN ) -> ( 2nd ` ( F ` m ) ) < ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) )
91 60 fveq2d 
 |-  ( ( ph /\ m e. NN ) -> ( 2nd ` ( G ` m ) ) = ( 2nd ` <. ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) , ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) >. ) )
92 62 63 op2nd 
 |-  ( 2nd ` <. ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) , ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) >. ) = ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) )
93 91 92 eqtrdi 
 |-  ( ( ph /\ m e. NN ) -> ( 2nd ` ( G ` m ) ) = ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) )
94 90 93 breqtrrd 
 |-  ( ( ph /\ m e. NN ) -> ( 2nd ` ( F ` m ) ) < ( 2nd ` ( G ` m ) ) )
95 94 adantlr 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> ( 2nd ` ( F ` m ) ) < ( 2nd ` ( G ` m ) ) )
96 89 adantlr 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> ( 2nd ` ( F ` m ) ) e. RR )
97 80 simp2d 
 |-  ( ( ph /\ m e. NN ) -> ( 2nd ` ( G ` m ) ) e. RR )
98 97 adantlr 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> ( 2nd ` ( G ` m ) ) e. RR )
99 lelttr 
 |-  ( ( z e. RR /\ ( 2nd ` ( F ` m ) ) e. RR /\ ( 2nd ` ( G ` m ) ) e. RR ) -> ( ( z <_ ( 2nd ` ( F ` m ) ) /\ ( 2nd ` ( F ` m ) ) < ( 2nd ` ( G ` m ) ) ) -> z < ( 2nd ` ( G ` m ) ) ) )
100 85 96 98 99 syl3anc 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> ( ( z <_ ( 2nd ` ( F ` m ) ) /\ ( 2nd ` ( F ` m ) ) < ( 2nd ` ( G ` m ) ) ) -> z < ( 2nd ` ( G ` m ) ) ) )
101 95 100 mpan2d 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> ( z <_ ( 2nd ` ( F ` m ) ) -> z < ( 2nd ` ( G ` m ) ) ) )
102 88 101 anim12d 
 |-  ( ( ( ph /\ z e. A ) /\ m e. NN ) -> ( ( ( 1st ` ( F ` m ) ) <_ z /\ z <_ ( 2nd ` ( F ` m ) ) ) -> ( ( 1st ` ( G ` m ) ) < z /\ z < ( 2nd ` ( G ` m ) ) ) ) )
103 102 reximdva 
 |-  ( ( ph /\ z e. A ) -> ( E. m e. NN ( ( 1st ` ( F ` m ) ) <_ z /\ z <_ ( 2nd ` ( F ` m ) ) ) -> E. m e. NN ( ( 1st ` ( G ` m ) ) < z /\ z < ( 2nd ` ( G ` m ) ) ) ) )
104 103 ralimdva 
 |-  ( ph -> ( A. z e. A E. m e. NN ( ( 1st ` ( F ` m ) ) <_ z /\ z <_ ( 2nd ` ( F ` m ) ) ) -> A. z e. A E. m e. NN ( ( 1st ` ( G ` m ) ) < z /\ z < ( 2nd ` ( G ` m ) ) ) ) )
105 ovolficc 
 |-  ( ( A C_ RR /\ F : NN --> ( <_ i^i ( RR X. RR ) ) ) -> ( A C_ U. ran ( [,] o. F ) <-> A. z e. A E. m e. NN ( ( 1st ` ( F ` m ) ) <_ z /\ z <_ ( 2nd ` ( F ` m ) ) ) ) )
106 10 4 105 syl2anc 
 |-  ( ph -> ( A C_ U. ran ( [,] o. F ) <-> A. z e. A E. m e. NN ( ( 1st ` ( F ` m ) ) <_ z /\ z <_ ( 2nd ` ( F ` m ) ) ) ) )
107 ovolfioo 
 |-  ( ( A C_ RR /\ G : NN --> ( <_ i^i ( RR X. RR ) ) ) -> ( A C_ U. ran ( (,) o. G ) <-> A. z e. A E. m e. NN ( ( 1st ` ( G ` m ) ) < z /\ z < ( 2nd ` ( G ` m ) ) ) ) )
108 10 39 107 syl2anc 
 |-  ( ph -> ( A C_ U. ran ( (,) o. G ) <-> A. z e. A E. m e. NN ( ( 1st ` ( G ` m ) ) < z /\ z < ( 2nd ` ( G ` m ) ) ) ) )
109 104 106 108 3imtr4d 
 |-  ( ph -> ( A C_ U. ran ( [,] o. F ) -> A C_ U. ran ( (,) o. G ) ) )
110 5 109 mpd 
 |-  ( ph -> A C_ U. ran ( (,) o. G ) )
111 3 ovollb 
 |-  ( ( G : NN --> ( <_ i^i ( RR X. RR ) ) /\ A C_ U. ran ( (,) o. G ) ) -> ( vol* ` A ) <_ sup ( ran T , RR* , < ) )
112 39 110 111 syl2anc 
 |-  ( ph -> ( vol* ` A ) <_ sup ( ran T , RR* , < ) )
113 3 fveq1i 
 |-  ( T ` k ) = ( seq 1 ( + , ( ( abs o. - ) o. G ) ) ` k )
114 fzfid 
 |-  ( ( ph /\ k e. NN ) -> ( 1 ... k ) e. Fin )
115 rge0ssre 
 |-  ( 0 [,) +oo ) C_ RR
116 eqid 
 |-  ( ( abs o. - ) o. F ) = ( ( abs o. - ) o. F )
117 116 ovolfsf 
 |-  ( F : NN --> ( <_ i^i ( RR X. RR ) ) -> ( ( abs o. - ) o. F ) : NN --> ( 0 [,) +oo ) )
118 4 117 syl 
 |-  ( ph -> ( ( abs o. - ) o. F ) : NN --> ( 0 [,) +oo ) )
119 118 adantr 
 |-  ( ( ph /\ k e. NN ) -> ( ( abs o. - ) o. F ) : NN --> ( 0 [,) +oo ) )
120 elfznn 
 |-  ( m e. ( 1 ... k ) -> m e. NN )
121 ffvelcdm 
 |-  ( ( ( ( abs o. - ) o. F ) : NN --> ( 0 [,) +oo ) /\ m e. NN ) -> ( ( ( abs o. - ) o. F ) ` m ) e. ( 0 [,) +oo ) )
122 119 120 121 syl2an 
 |-  ( ( ( ph /\ k e. NN ) /\ m e. ( 1 ... k ) ) -> ( ( ( abs o. - ) o. F ) ` m ) e. ( 0 [,) +oo ) )
123 115 122 sselid 
 |-  ( ( ( ph /\ k e. NN ) /\ m e. ( 1 ... k ) ) -> ( ( ( abs o. - ) o. F ) ` m ) e. RR )
124 123 recnd 
 |-  ( ( ( ph /\ k e. NN ) /\ m e. ( 1 ... k ) ) -> ( ( ( abs o. - ) o. F ) ` m ) e. CC )
125 6 adantr 
 |-  ( ( ph /\ m e. NN ) -> B e. RR+ )
126 125 74 rpdivcld 
 |-  ( ( ph /\ m e. NN ) -> ( B / ( 2 ^ m ) ) e. RR+ )
127 126 rpcnd 
 |-  ( ( ph /\ m e. NN ) -> ( B / ( 2 ^ m ) ) e. CC )
128 120 127 sylan2 
 |-  ( ( ph /\ m e. ( 1 ... k ) ) -> ( B / ( 2 ^ m ) ) e. CC )
129 128 adantlr 
 |-  ( ( ( ph /\ k e. NN ) /\ m e. ( 1 ... k ) ) -> ( B / ( 2 ^ m ) ) e. CC )
130 114 124 129 fsumadd 
 |-  ( ( ph /\ k e. NN ) -> sum_ m e. ( 1 ... k ) ( ( ( ( abs o. - ) o. F ) ` m ) + ( B / ( 2 ^ m ) ) ) = ( sum_ m e. ( 1 ... k ) ( ( ( abs o. - ) o. F ) ` m ) + sum_ m e. ( 1 ... k ) ( B / ( 2 ^ m ) ) ) )
131 40 ovolfsval 
 |-  ( ( G : NN --> ( <_ i^i ( RR X. RR ) ) /\ m e. NN ) -> ( ( ( abs o. - ) o. G ) ` m ) = ( ( 2nd ` ( G ` m ) ) - ( 1st ` ( G ` m ) ) ) )
132 39 131 sylan 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( abs o. - ) o. G ) ` m ) = ( ( 2nd ` ( G ` m ) ) - ( 1st ` ( G ` m ) ) ) )
133 89 recnd 
 |-  ( ( ph /\ m e. NN ) -> ( 2nd ` ( F ` m ) ) e. CC )
134 75 rpcnd 
 |-  ( ( ph /\ m e. NN ) -> ( ( B / 2 ) / ( 2 ^ m ) ) e. CC )
135 68 recnd 
 |-  ( ( ph /\ m e. NN ) -> ( 1st ` ( F ` m ) ) e. CC )
136 135 134 subcld 
 |-  ( ( ph /\ m e. NN ) -> ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) e. CC )
137 133 134 136 addsubassd 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) - ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) ) = ( ( 2nd ` ( F ` m ) ) + ( ( ( B / 2 ) / ( 2 ^ m ) ) - ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) ) ) )
138 93 65 oveq12d 
 |-  ( ( ph /\ m e. NN ) -> ( ( 2nd ` ( G ` m ) ) - ( 1st ` ( G ` m ) ) ) = ( ( ( 2nd ` ( F ` m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) - ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) ) )
139 133 135 127 subadd23d 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( 2nd ` ( F ` m ) ) - ( 1st ` ( F ` m ) ) ) + ( B / ( 2 ^ m ) ) ) = ( ( 2nd ` ( F ` m ) ) + ( ( B / ( 2 ^ m ) ) - ( 1st ` ( F ` m ) ) ) ) )
140 116 ovolfsval 
 |-  ( ( F : NN --> ( <_ i^i ( RR X. RR ) ) /\ m e. NN ) -> ( ( ( abs o. - ) o. F ) ` m ) = ( ( 2nd ` ( F ` m ) ) - ( 1st ` ( F ` m ) ) ) )
141 4 140 sylan 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( abs o. - ) o. F ) ` m ) = ( ( 2nd ` ( F ` m ) ) - ( 1st ` ( F ` m ) ) ) )
142 141 oveq1d 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( ( abs o. - ) o. F ) ` m ) + ( B / ( 2 ^ m ) ) ) = ( ( ( 2nd ` ( F ` m ) ) - ( 1st ` ( F ` m ) ) ) + ( B / ( 2 ^ m ) ) ) )
143 134 135 134 subsub3d 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( B / 2 ) / ( 2 ^ m ) ) - ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) ) = ( ( ( ( B / 2 ) / ( 2 ^ m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) - ( 1st ` ( F ` m ) ) ) )
144 69 rpcnd 
 |-  ( ( ph /\ m e. NN ) -> ( B / 2 ) e. CC )
145 73 nncnd 
 |-  ( ( ph /\ m e. NN ) -> ( 2 ^ m ) e. CC )
146 73 nnne0d 
 |-  ( ( ph /\ m e. NN ) -> ( 2 ^ m ) =/= 0 )
147 144 144 145 146 divdird 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( B / 2 ) + ( B / 2 ) ) / ( 2 ^ m ) ) = ( ( ( B / 2 ) / ( 2 ^ m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) )
148 125 rpcnd 
 |-  ( ( ph /\ m e. NN ) -> B e. CC )
149 148 2halvesd 
 |-  ( ( ph /\ m e. NN ) -> ( ( B / 2 ) + ( B / 2 ) ) = B )
150 149 oveq1d 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( B / 2 ) + ( B / 2 ) ) / ( 2 ^ m ) ) = ( B / ( 2 ^ m ) ) )
151 147 150 eqtr3d 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( B / 2 ) / ( 2 ^ m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) = ( B / ( 2 ^ m ) ) )
152 151 oveq1d 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( ( B / 2 ) / ( 2 ^ m ) ) + ( ( B / 2 ) / ( 2 ^ m ) ) ) - ( 1st ` ( F ` m ) ) ) = ( ( B / ( 2 ^ m ) ) - ( 1st ` ( F ` m ) ) ) )
153 143 152 eqtrd 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( B / 2 ) / ( 2 ^ m ) ) - ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) ) = ( ( B / ( 2 ^ m ) ) - ( 1st ` ( F ` m ) ) ) )
154 153 oveq2d 
 |-  ( ( ph /\ m e. NN ) -> ( ( 2nd ` ( F ` m ) ) + ( ( ( B / 2 ) / ( 2 ^ m ) ) - ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) ) ) = ( ( 2nd ` ( F ` m ) ) + ( ( B / ( 2 ^ m ) ) - ( 1st ` ( F ` m ) ) ) ) )
155 139 142 154 3eqtr4d 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( ( abs o. - ) o. F ) ` m ) + ( B / ( 2 ^ m ) ) ) = ( ( 2nd ` ( F ` m ) ) + ( ( ( B / 2 ) / ( 2 ^ m ) ) - ( ( 1st ` ( F ` m ) ) - ( ( B / 2 ) / ( 2 ^ m ) ) ) ) ) )
156 137 138 155 3eqtr4d 
 |-  ( ( ph /\ m e. NN ) -> ( ( 2nd ` ( G ` m ) ) - ( 1st ` ( G ` m ) ) ) = ( ( ( ( abs o. - ) o. F ) ` m ) + ( B / ( 2 ^ m ) ) ) )
157 132 156 eqtrd 
 |-  ( ( ph /\ m e. NN ) -> ( ( ( abs o. - ) o. G ) ` m ) = ( ( ( ( abs o. - ) o. F ) ` m ) + ( B / ( 2 ^ m ) ) ) )
158 120 157 sylan2 
 |-  ( ( ph /\ m e. ( 1 ... k ) ) -> ( ( ( abs o. - ) o. G ) ` m ) = ( ( ( ( abs o. - ) o. F ) ` m ) + ( B / ( 2 ^ m ) ) ) )
159 158 adantlr 
 |-  ( ( ( ph /\ k e. NN ) /\ m e. ( 1 ... k ) ) -> ( ( ( abs o. - ) o. G ) ` m ) = ( ( ( ( abs o. - ) o. F ) ` m ) + ( B / ( 2 ^ m ) ) ) )
160 simpr 
 |-  ( ( ph /\ k e. NN ) -> k e. NN )
161 nnuz 
 |-  NN = ( ZZ>= ` 1 )
162 160 161 eleqtrdi 
 |-  ( ( ph /\ k e. NN ) -> k e. ( ZZ>= ` 1 ) )
163 124 129 addcld 
 |-  ( ( ( ph /\ k e. NN ) /\ m e. ( 1 ... k ) ) -> ( ( ( ( abs o. - ) o. F ) ` m ) + ( B / ( 2 ^ m ) ) ) e. CC )
164 159 162 163 fsumser 
 |-  ( ( ph /\ k e. NN ) -> sum_ m e. ( 1 ... k ) ( ( ( ( abs o. - ) o. F ) ` m ) + ( B / ( 2 ^ m ) ) ) = ( seq 1 ( + , ( ( abs o. - ) o. G ) ) ` k ) )
165 eqidd 
 |-  ( ( ( ph /\ k e. NN ) /\ m e. ( 1 ... k ) ) -> ( ( ( abs o. - ) o. F ) ` m ) = ( ( ( abs o. - ) o. F ) ` m ) )
166 165 162 124 fsumser 
 |-  ( ( ph /\ k e. NN ) -> sum_ m e. ( 1 ... k ) ( ( ( abs o. - ) o. F ) ` m ) = ( seq 1 ( + , ( ( abs o. - ) o. F ) ) ` k ) )
167 1 fveq1i 
 |-  ( S ` k ) = ( seq 1 ( + , ( ( abs o. - ) o. F ) ) ` k )
168 166 167 eqtr4di 
 |-  ( ( ph /\ k e. NN ) -> sum_ m e. ( 1 ... k ) ( ( ( abs o. - ) o. F ) ` m ) = ( S ` k ) )
169 6 adantr 
 |-  ( ( ph /\ k e. NN ) -> B e. RR+ )
170 169 rpcnd 
 |-  ( ( ph /\ k e. NN ) -> B e. CC )
171 geo2sum 
 |-  ( ( k e. NN /\ B e. CC ) -> sum_ m e. ( 1 ... k ) ( B / ( 2 ^ m ) ) = ( B - ( B / ( 2 ^ k ) ) ) )
172 160 170 171 syl2anc 
 |-  ( ( ph /\ k e. NN ) -> sum_ m e. ( 1 ... k ) ( B / ( 2 ^ m ) ) = ( B - ( B / ( 2 ^ k ) ) ) )
173 168 172 oveq12d 
 |-  ( ( ph /\ k e. NN ) -> ( sum_ m e. ( 1 ... k ) ( ( ( abs o. - ) o. F ) ` m ) + sum_ m e. ( 1 ... k ) ( B / ( 2 ^ m ) ) ) = ( ( S ` k ) + ( B - ( B / ( 2 ^ k ) ) ) ) )
174 130 164 173 3eqtr3d 
 |-  ( ( ph /\ k e. NN ) -> ( seq 1 ( + , ( ( abs o. - ) o. G ) ) ` k ) = ( ( S ` k ) + ( B - ( B / ( 2 ^ k ) ) ) ) )
175 113 174 eqtrid 
 |-  ( ( ph /\ k e. NN ) -> ( T ` k ) = ( ( S ` k ) + ( B - ( B / ( 2 ^ k ) ) ) ) )
176 116 1 ovolsf 
 |-  ( F : NN --> ( <_ i^i ( RR X. RR ) ) -> S : NN --> ( 0 [,) +oo ) )
177 4 176 syl 
 |-  ( ph -> S : NN --> ( 0 [,) +oo ) )
178 177 ffvelcdmda 
 |-  ( ( ph /\ k e. NN ) -> ( S ` k ) e. ( 0 [,) +oo ) )
179 115 178 sselid 
 |-  ( ( ph /\ k e. NN ) -> ( S ` k ) e. RR )
180 169 rpred 
 |-  ( ( ph /\ k e. NN ) -> B e. RR )
181 nnnn0 
 |-  ( k e. NN -> k e. NN0 )
182 181 adantl 
 |-  ( ( ph /\ k e. NN ) -> k e. NN0 )
183 nnexpcl 
 |-  ( ( 2 e. NN /\ k e. NN0 ) -> ( 2 ^ k ) e. NN )
184 18 182 183 sylancr 
 |-  ( ( ph /\ k e. NN ) -> ( 2 ^ k ) e. NN )
185 184 nnrpd 
 |-  ( ( ph /\ k e. NN ) -> ( 2 ^ k ) e. RR+ )
186 169 185 rpdivcld 
 |-  ( ( ph /\ k e. NN ) -> ( B / ( 2 ^ k ) ) e. RR+ )
187 186 rpred 
 |-  ( ( ph /\ k e. NN ) -> ( B / ( 2 ^ k ) ) e. RR )
188 180 187 resubcld 
 |-  ( ( ph /\ k e. NN ) -> ( B - ( B / ( 2 ^ k ) ) ) e. RR )
189 7 adantr 
 |-  ( ( ph /\ k e. NN ) -> sup ( ran S , RR* , < ) e. RR )
190 177 frnd 
 |-  ( ph -> ran S C_ ( 0 [,) +oo ) )
191 190 44 sstrdi 
 |-  ( ph -> ran S C_ RR* )
192 191 adantr 
 |-  ( ( ph /\ k e. NN ) -> ran S C_ RR* )
193 177 ffnd 
 |-  ( ph -> S Fn NN )
194 fnfvelrn 
 |-  ( ( S Fn NN /\ k e. NN ) -> ( S ` k ) e. ran S )
195 193 194 sylan 
 |-  ( ( ph /\ k e. NN ) -> ( S ` k ) e. ran S )
196 supxrub 
 |-  ( ( ran S C_ RR* /\ ( S ` k ) e. ran S ) -> ( S ` k ) <_ sup ( ran S , RR* , < ) )
197 192 195 196 syl2anc 
 |-  ( ( ph /\ k e. NN ) -> ( S ` k ) <_ sup ( ran S , RR* , < ) )
198 180 186 ltsubrpd 
 |-  ( ( ph /\ k e. NN ) -> ( B - ( B / ( 2 ^ k ) ) ) < B )
199 188 180 198 ltled 
 |-  ( ( ph /\ k e. NN ) -> ( B - ( B / ( 2 ^ k ) ) ) <_ B )
200 179 188 189 180 197 199 le2addd 
 |-  ( ( ph /\ k e. NN ) -> ( ( S ` k ) + ( B - ( B / ( 2 ^ k ) ) ) ) <_ ( sup ( ran S , RR* , < ) + B ) )
201 175 200 eqbrtrd 
 |-  ( ( ph /\ k e. NN ) -> ( T ` k ) <_ ( sup ( ran S , RR* , < ) + B ) )
202 201 ralrimiva 
 |-  ( ph -> A. k e. NN ( T ` k ) <_ ( sup ( ran S , RR* , < ) + B ) )
203 ffn 
 |-  ( T : NN --> ( 0 [,) +oo ) -> T Fn NN )
204 breq1 
 |-  ( y = ( T ` k ) -> ( y <_ ( sup ( ran S , RR* , < ) + B ) <-> ( T ` k ) <_ ( sup ( ran S , RR* , < ) + B ) ) )
205 204 ralrn 
 |-  ( T Fn NN -> ( A. y e. ran T y <_ ( sup ( ran S , RR* , < ) + B ) <-> A. k e. NN ( T ` k ) <_ ( sup ( ran S , RR* , < ) + B ) ) )
206 42 203 205 3syl 
 |-  ( ph -> ( A. y e. ran T y <_ ( sup ( ran S , RR* , < ) + B ) <-> A. k e. NN ( T ` k ) <_ ( sup ( ran S , RR* , < ) + B ) ) )
207 202 206 mpbird 
 |-  ( ph -> A. y e. ran T y <_ ( sup ( ran S , RR* , < ) + B ) )
208 supxrleub 
 |-  ( ( ran T C_ RR* /\ ( sup ( ran S , RR* , < ) + B ) e. RR* ) -> ( sup ( ran T , RR* , < ) <_ ( sup ( ran S , RR* , < ) + B ) <-> A. y e. ran T y <_ ( sup ( ran S , RR* , < ) + B ) ) )
209 45 50 208 syl2anc 
 |-  ( ph -> ( sup ( ran T , RR* , < ) <_ ( sup ( ran S , RR* , < ) + B ) <-> A. y e. ran T y <_ ( sup ( ran S , RR* , < ) + B ) ) )
210 207 209 mpbird 
 |-  ( ph -> sup ( ran T , RR* , < ) <_ ( sup ( ran S , RR* , < ) + B ) )
211 12 47 50 112 210 xrletrd 
 |-  ( ph -> ( vol* ` A ) <_ ( sup ( ran S , RR* , < ) + B ) )