MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  dchrisum0lem2a Unicode version

Theorem dchrisum0lem2a 21164
Description: Lemma for dchrisum0 21167. (Contributed by Mario Carneiro, 12-May-2016.)
Hypotheses
Ref Expression
rpvmasum.z  |-  Z  =  (ℤ/n `  N )
rpvmasum.l  |-  L  =  ( ZRHom `  Z
)
rpvmasum.a  |-  ( ph  ->  N  e.  NN )
rpvmasum2.g  |-  G  =  (DChr `  N )
rpvmasum2.d  |-  D  =  ( Base `  G
)
rpvmasum2.1  |-  .1.  =  ( 0g `  G )
rpvmasum2.w  |-  W  =  { y  e.  ( D  \  {  .1.  } )  |  sum_ m  e.  NN  ( ( y `
 ( L `  m ) )  /  m )  =  0 }
dchrisum0.b  |-  ( ph  ->  X  e.  W )
dchrisum0lem1.f  |-  F  =  ( a  e.  NN  |->  ( ( X `  ( L `  a ) )  /  ( sqr `  a ) ) )
dchrisum0.c  |-  ( ph  ->  C  e.  ( 0 [,)  +oo ) )
dchrisum0.s  |-  ( ph  ->  seq  1 (  +  ,  F )  ~~>  S )
dchrisum0.1  |-  ( ph  ->  A. y  e.  ( 1 [,)  +oo )
( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  y ) )  -  S ) )  <_ 
( C  /  ( sqr `  y ) ) )
dchrisum0lem2.h  |-  H  =  ( y  e.  RR+  |->  ( sum_ d  e.  ( 1 ... ( |_
`  y ) ) ( 1  /  ( sqr `  d ) )  -  ( 2  x.  ( sqr `  y
) ) ) )
dchrisum0lem2.u  |-  ( ph  ->  H  ~~> r  U )
Assertion
Ref Expression
dchrisum0lem2a  |-  ( ph  ->  ( x  e.  RR+  |->  sum_
m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  ( H `  (
( x ^ 2 )  /  m ) ) ) )  e.  O ( 1 ) )
Distinct variable groups:    x, m, y,  .1.    m, d, x, y, C    F, d, x, y   
a, d, m, x, y    m, N, x, y    ph, d, m, x    S, d, m, x, y    U, m, x    x, W   
m, Z, x, y    D, m, x, y    L, a, d, m, x, y    X, a, d, m, x, y    m, F
Allowed substitution hints:    ph( y, a)    C( a)    D( a, d)    S( a)    U( y, a, d)    .1. ( a, d)    F( a)    G( x, y, m, a, d)    H( x, y, m, a, d)    N( a, d)    W( y, m, a, d)    Z( a, d)

Proof of Theorem dchrisum0lem2a
Dummy variables  w  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fzfid 11267 . . . 4  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( 1 ... ( |_ `  x ) )  e. 
Fin )
2 simpl 444 . . . . 5  |-  ( (
ph  /\  x  e.  RR+ )  ->  ph )
3 elfznn 11036 . . . . 5  |-  ( m  e.  ( 1 ... ( |_ `  x
) )  ->  m  e.  NN )
4 rpvmasum2.g . . . . . . 7  |-  G  =  (DChr `  N )
5 rpvmasum.z . . . . . . 7  |-  Z  =  (ℤ/n `  N )
6 rpvmasum2.d . . . . . . 7  |-  D  =  ( Base `  G
)
7 rpvmasum.l . . . . . . 7  |-  L  =  ( ZRHom `  Z
)
8 rpvmasum2.w . . . . . . . . . . 11  |-  W  =  { y  e.  ( D  \  {  .1.  } )  |  sum_ m  e.  NN  ( ( y `
 ( L `  m ) )  /  m )  =  0 }
9 ssrab2 3388 . . . . . . . . . . 11  |-  { y  e.  ( D  \  {  .1.  } )  | 
sum_ m  e.  NN  ( ( y `  ( L `  m ) )  /  m )  =  0 }  C_  ( D  \  {  .1.  } )
108, 9eqsstri 3338 . . . . . . . . . 10  |-  W  C_  ( D  \  {  .1.  } )
11 dchrisum0.b . . . . . . . . . 10  |-  ( ph  ->  X  e.  W )
1210, 11sseldi 3306 . . . . . . . . 9  |-  ( ph  ->  X  e.  ( D 
\  {  .1.  }
) )
1312eldifad 3292 . . . . . . . 8  |-  ( ph  ->  X  e.  D )
1413adantr 452 . . . . . . 7  |-  ( (
ph  /\  m  e.  NN )  ->  X  e.  D )
15 nnz 10259 . . . . . . . 8  |-  ( m  e.  NN  ->  m  e.  ZZ )
1615adantl 453 . . . . . . 7  |-  ( (
ph  /\  m  e.  NN )  ->  m  e.  ZZ )
174, 5, 6, 7, 14, 16dchrzrhcl 20982 . . . . . 6  |-  ( (
ph  /\  m  e.  NN )  ->  ( X `
 ( L `  m ) )  e.  CC )
18 nnrp 10577 . . . . . . . . 9  |-  ( m  e.  NN  ->  m  e.  RR+ )
1918adantl 453 . . . . . . . 8  |-  ( (
ph  /\  m  e.  NN )  ->  m  e.  RR+ )
2019rpsqrcld 12169 . . . . . . 7  |-  ( (
ph  /\  m  e.  NN )  ->  ( sqr `  m )  e.  RR+ )
2120rpcnd 10606 . . . . . 6  |-  ( (
ph  /\  m  e.  NN )  ->  ( sqr `  m )  e.  CC )
2220rpne0d 10609 . . . . . 6  |-  ( (
ph  /\  m  e.  NN )  ->  ( sqr `  m )  =/=  0
)
2317, 21, 22divcld 9746 . . . . 5  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( X `  ( L `
 m ) )  /  ( sqr `  m
) )  e.  CC )
242, 3, 23syl2an 464 . . . 4  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( X `  ( L `  m ) )  / 
( sqr `  m
) )  e.  CC )
251, 24fsumcl 12482 . . 3  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  e.  CC )
26 dchrisum0lem2.u . . . . 5  |-  ( ph  ->  H  ~~> r  U )
27 rlimcl 12252 . . . . 5  |-  ( H  ~~> r  U  ->  U  e.  CC )
2826, 27syl 16 . . . 4  |-  ( ph  ->  U  e.  CC )
2928adantr 452 . . 3  |-  ( (
ph  /\  x  e.  RR+ )  ->  U  e.  CC )
30 0xr 9087 . . . . . . . . 9  |-  0  e.  RR*
31 0lt1 9506 . . . . . . . . 9  |-  0  <  1
32 df-ioo 10876 . . . . . . . . . 10  |-  (,)  =  ( x  e.  RR* ,  y  e.  RR*  |->  { z  e.  RR*  |  (
x  <  z  /\  z  <  y ) } )
33 df-ico 10878 . . . . . . . . . 10  |-  [,)  =  ( x  e.  RR* ,  y  e.  RR*  |->  { z  e.  RR*  |  (
x  <_  z  /\  z  <  y ) } )
34 xrltletr 10703 . . . . . . . . . 10  |-  ( ( 0  e.  RR*  /\  1  e.  RR*  /\  w  e. 
RR* )  ->  (
( 0  <  1  /\  1  <_  w )  ->  0  <  w
) )
3532, 33, 34ixxss1 10890 . . . . . . . . 9  |-  ( ( 0  e.  RR*  /\  0  <  1 )  ->  (
1 [,)  +oo )  C_  ( 0 (,)  +oo ) )
3630, 31, 35mp2an 654 . . . . . . . 8  |-  ( 1 [,)  +oo )  C_  (
0 (,)  +oo )
37 ioorp 10944 . . . . . . . 8  |-  ( 0 (,)  +oo )  =  RR+
3836, 37sseqtri 3340 . . . . . . 7  |-  ( 1 [,)  +oo )  C_  RR+
39 resmpt 5150 . . . . . . 7  |-  ( ( 1 [,)  +oo )  C_  RR+  ->  ( ( x  e.  RR+  |->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )  |`  ( 1 [,)  +oo ) )  =  ( x  e.  ( 1 [,)  +oo )  |->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) ) )
4038, 39ax-mp 8 . . . . . 6  |-  ( ( x  e.  RR+  |->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )  |`  ( 1 [,)  +oo ) )  =  ( x  e.  ( 1 [,)  +oo )  |->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )
4138sseli 3304 . . . . . . . . 9  |-  ( x  e.  ( 1 [,) 
+oo )  ->  x  e.  RR+ )
423adantl 453 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  m  e.  NN )
43 fveq2 5687 . . . . . . . . . . . . 13  |-  ( a  =  m  ->  ( L `  a )  =  ( L `  m ) )
4443fveq2d 5691 . . . . . . . . . . . 12  |-  ( a  =  m  ->  ( X `  ( L `  a ) )  =  ( X `  ( L `  m )
) )
45 fveq2 5687 . . . . . . . . . . . 12  |-  ( a  =  m  ->  ( sqr `  a )  =  ( sqr `  m
) )
4644, 45oveq12d 6058 . . . . . . . . . . 11  |-  ( a  =  m  ->  (
( X `  ( L `  a )
)  /  ( sqr `  a ) )  =  ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )
47 dchrisum0lem1.f . . . . . . . . . . 11  |-  F  =  ( a  e.  NN  |->  ( ( X `  ( L `  a ) )  /  ( sqr `  a ) ) )
48 ovex 6065 . . . . . . . . . . 11  |-  ( ( X `  ( L `
 a ) )  /  ( sqr `  a
) )  e.  _V
4946, 47, 48fvmpt3i 5768 . . . . . . . . . 10  |-  ( m  e.  NN  ->  ( F `  m )  =  ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) ) )
5042, 49syl 16 . . . . . . . . 9  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( F `  m )  =  ( ( X `  ( L `  m )
)  /  ( sqr `  m ) ) )
5141, 50sylanl2 633 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  ( 1 [,)  +oo ) )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( F `  m )  =  ( ( X `  ( L `  m )
)  /  ( sqr `  m ) ) )
52 1re 9046 . . . . . . . . . . . 12  |-  1  e.  RR
53 elicopnf 10956 . . . . . . . . . . . 12  |-  ( 1  e.  RR  ->  (
x  e.  ( 1 [,)  +oo )  <->  ( x  e.  RR  /\  1  <_  x ) ) )
5452, 53ax-mp 8 . . . . . . . . . . 11  |-  ( x  e.  ( 1 [,) 
+oo )  <->  ( x  e.  RR  /\  1  <_  x ) )
55 flge1nn 11181 . . . . . . . . . . 11  |-  ( ( x  e.  RR  /\  1  <_  x )  -> 
( |_ `  x
)  e.  NN )
5654, 55sylbi 188 . . . . . . . . . 10  |-  ( x  e.  ( 1 [,) 
+oo )  ->  ( |_ `  x )  e.  NN )
5756adantl 453 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 [,)  +oo ) )  ->  ( |_ `  x )  e.  NN )
58 nnuz 10477 . . . . . . . . 9  |-  NN  =  ( ZZ>= `  1 )
5957, 58syl6eleq 2494 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( 1 [,)  +oo ) )  ->  ( |_ `  x )  e.  ( ZZ>= `  1 )
)
6041, 24sylanl2 633 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  ( 1 [,)  +oo ) )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( X `  ( L `  m ) )  / 
( sqr `  m
) )  e.  CC )
6151, 59, 60fsumser 12479 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( 1 [,)  +oo ) )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  =  (  seq  1 (  +  ,  F ) `
 ( |_ `  x ) ) )
6261mpteq2dva 4255 . . . . . 6  |-  ( ph  ->  ( x  e.  ( 1 [,)  +oo )  |-> 
sum_ m  e.  (
1 ... ( |_ `  x ) ) ( ( X `  ( L `  m )
)  /  ( sqr `  m ) ) )  =  ( x  e.  ( 1 [,)  +oo )  |->  (  seq  1
(  +  ,  F
) `  ( |_ `  x ) ) ) )
6340, 62syl5eq 2448 . . . . 5  |-  ( ph  ->  ( ( x  e.  RR+  |->  sum_ m  e.  ( 1 ... ( |_
`  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )  |`  ( 1 [,)  +oo ) )  =  ( x  e.  ( 1 [,)  +oo )  |->  (  seq  1 (  +  ,  F ) `  ( |_ `  x ) ) ) )
64 fveq2 5687 . . . . . . 7  |-  ( m  =  ( |_ `  x )  ->  (  seq  1 (  +  ,  F ) `  m
)  =  (  seq  1 (  +  ,  F ) `  ( |_ `  x ) ) )
65 rpssre 10578 . . . . . . . . 9  |-  RR+  C_  RR
6665a1i 11 . . . . . . . 8  |-  ( ph  -> 
RR+  C_  RR )
6738, 66syl5ss 3319 . . . . . . 7  |-  ( ph  ->  ( 1 [,)  +oo )  C_  RR )
68 1z 10267 . . . . . . . 8  |-  1  e.  ZZ
6968a1i 11 . . . . . . 7  |-  ( ph  ->  1  e.  ZZ )
7046cbvmptv 4260 . . . . . . . . . . . . 13  |-  ( a  e.  NN  |->  ( ( X `  ( L `
 a ) )  /  ( sqr `  a
) ) )  =  ( m  e.  NN  |->  ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )
7147, 70eqtri 2424 . . . . . . . . . . . 12  |-  F  =  ( m  e.  NN  |->  ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )
7223, 71fmptd 5852 . . . . . . . . . . 11  |-  ( ph  ->  F : NN --> CC )
7372ffvelrnda 5829 . . . . . . . . . 10  |-  ( (
ph  /\  m  e.  NN )  ->  ( F `
 m )  e.  CC )
7458, 69, 73serf 11306 . . . . . . . . 9  |-  ( ph  ->  seq  1 (  +  ,  F ) : NN --> CC )
7574feqmptd 5738 . . . . . . . 8  |-  ( ph  ->  seq  1 (  +  ,  F )  =  ( m  e.  NN  |->  (  seq  1 (  +  ,  F ) `  m ) ) )
76 dchrisum0.s . . . . . . . 8  |-  ( ph  ->  seq  1 (  +  ,  F )  ~~>  S )
7775, 76eqbrtrrd 4194 . . . . . . 7  |-  ( ph  ->  ( m  e.  NN  |->  (  seq  1 (  +  ,  F ) `  m ) )  ~~>  S )
7874ffvelrnda 5829 . . . . . . 7  |-  ( (
ph  /\  m  e.  NN )  ->  (  seq  1 (  +  ,  F ) `  m
)  e.  CC )
7954simprbi 451 . . . . . . . 8  |-  ( x  e.  ( 1 [,) 
+oo )  ->  1  <_  x )
8079adantl 453 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( 1 [,)  +oo ) )  ->  1  <_  x )
8158, 64, 67, 69, 77, 78, 80climrlim2 12296 . . . . . 6  |-  ( ph  ->  ( x  e.  ( 1 [,)  +oo )  |->  (  seq  1 (  +  ,  F ) `
 ( |_ `  x ) ) )  ~~> r  S )
82 rlimo1 12365 . . . . . 6  |-  ( ( x  e.  ( 1 [,)  +oo )  |->  (  seq  1 (  +  ,  F ) `  ( |_ `  x ) ) )  ~~> r  S  -> 
( x  e.  ( 1 [,)  +oo )  |->  (  seq  1 (  +  ,  F ) `
 ( |_ `  x ) ) )  e.  O ( 1 ) )
8381, 82syl 16 . . . . 5  |-  ( ph  ->  ( x  e.  ( 1 [,)  +oo )  |->  (  seq  1 (  +  ,  F ) `
 ( |_ `  x ) ) )  e.  O ( 1 ) )
8463, 83eqeltrd 2478 . . . 4  |-  ( ph  ->  ( ( x  e.  RR+  |->  sum_ m  e.  ( 1 ... ( |_
`  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )  |`  ( 1 [,)  +oo ) )  e.  O
( 1 ) )
85 eqid 2404 . . . . . 6  |-  ( x  e.  RR+  |->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )  =  ( x  e.  RR+  |->  sum_ m  e.  ( 1 ... ( |_
`  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )
8625, 85fmptd 5852 . . . . 5  |-  ( ph  ->  ( x  e.  RR+  |->  sum_
m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m )
)  /  ( sqr `  m ) ) ) : RR+ --> CC )
8752a1i 11 . . . . 5  |-  ( ph  ->  1  e.  RR )
8886, 66, 87o1resb 12315 . . . 4  |-  ( ph  ->  ( ( x  e.  RR+  |->  sum_ m  e.  ( 1 ... ( |_
`  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )  e.  O ( 1 )  <->  ( ( x  e.  RR+  |->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )  |`  ( 1 [,)  +oo ) )  e.  O
( 1 ) ) )
8984, 88mpbird 224 . . 3  |-  ( ph  ->  ( x  e.  RR+  |->  sum_
m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m )
)  /  ( sqr `  m ) ) )  e.  O ( 1 ) )
90 o1const 12368 . . . 4  |-  ( (
RR+  C_  RR  /\  U  e.  CC )  ->  (
x  e.  RR+  |->  U )  e.  O ( 1 ) )
9165, 28, 90sylancr 645 . . 3  |-  ( ph  ->  ( x  e.  RR+  |->  U )  e.  O
( 1 ) )
9225, 29, 89, 91o1mul2 12373 . 2  |-  ( ph  ->  ( x  e.  RR+  |->  ( sum_ m  e.  ( 1 ... ( |_
`  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  U ) )  e.  O ( 1 ) )
93 simpr 448 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  RR+ )  ->  x  e.  RR+ )
94 2z 10268 . . . . . . . . 9  |-  2  e.  ZZ
95 rpexpcl 11355 . . . . . . . . 9  |-  ( ( x  e.  RR+  /\  2  e.  ZZ )  ->  (
x ^ 2 )  e.  RR+ )
9693, 94, 95sylancl 644 . . . . . . . 8  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( x ^ 2 )  e.  RR+ )
973nnrpd 10603 . . . . . . . 8  |-  ( m  e.  ( 1 ... ( |_ `  x
) )  ->  m  e.  RR+ )
98 rpdivcl 10590 . . . . . . . 8  |-  ( ( ( x ^ 2 )  e.  RR+  /\  m  e.  RR+ )  ->  (
( x ^ 2 )  /  m )  e.  RR+ )
9996, 97, 98syl2an 464 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( (
x ^ 2 )  /  m )  e.  RR+ )
100 dchrisum0lem2.h . . . . . . . . 9  |-  H  =  ( y  e.  RR+  |->  ( sum_ d  e.  ( 1 ... ( |_
`  y ) ) ( 1  /  ( sqr `  d ) )  -  ( 2  x.  ( sqr `  y
) ) ) )
101100divsqrsumf 20772 . . . . . . . 8  |-  H : RR+
--> RR
102101ffvelrni 5828 . . . . . . 7  |-  ( ( ( x ^ 2 )  /  m )  e.  RR+  ->  ( H `
 ( ( x ^ 2 )  /  m ) )  e.  RR )
10399, 102syl 16 . . . . . 6  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( H `  ( ( x ^
2 )  /  m
) )  e.  RR )
104103recnd 9070 . . . . 5  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( H `  ( ( x ^
2 )  /  m
) )  e.  CC )
10524, 104mulcld 9064 . . . 4  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( (
( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  ( H `  (
( x ^ 2 )  /  m ) ) )  e.  CC )
1061, 105fsumcl 12482 . . 3  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  ( H `  ( (
x ^ 2 )  /  m ) ) )  e.  CC )
10725, 29mulcld 9064 . . 3  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( sum_ m  e.  ( 1 ... ( |_ `  x
) ) ( ( X `  ( L `
 m ) )  /  ( sqr `  m
) )  x.  U
)  e.  CC )
10826ad2antrr 707 . . . . . . . . 9  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  H  ~~> r  U
)
109108, 27syl 16 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  U  e.  CC )
11024, 109mulcld 9064 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( (
( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  U )  e.  CC )
1111, 105, 110fsumsub 12526 . . . . . 6  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( ( X `  ( L `
 m ) )  /  ( sqr `  m
) )  x.  ( H `  ( (
x ^ 2 )  /  m ) ) )  -  ( ( ( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  U ) )  =  ( sum_ m  e.  ( 1 ... ( |_
`  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  ( H `  ( (
x ^ 2 )  /  m ) ) )  -  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  U
) ) )
11224, 104, 109subdid 9445 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( (
( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) )  =  ( ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  ( H `  ( (
x ^ 2 )  /  m ) ) )  -  ( ( ( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  U ) ) )
113112sumeq2dv 12452 . . . . . 6  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  (
( H `  (
( x ^ 2 )  /  m ) )  -  U ) )  =  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( ( X `  ( L `
 m ) )  /  ( sqr `  m
) )  x.  ( H `  ( (
x ^ 2 )  /  m ) ) )  -  ( ( ( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  U ) ) )
1141, 29, 24fsummulc1 12523 . . . . . . 7  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( sum_ m  e.  ( 1 ... ( |_ `  x
) ) ( ( X `  ( L `
 m ) )  /  ( sqr `  m
) )  x.  U
)  =  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  U
) )
115114oveq2d 6056 . . . . . 6  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( sum_ m  e.  ( 1 ... ( |_ `  x
) ) ( ( ( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  ( H `  (
( x ^ 2 )  /  m ) ) )  -  ( sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  U ) )  =  ( sum_ m  e.  ( 1 ... ( |_
`  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  ( H `  ( (
x ^ 2 )  /  m ) ) )  -  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  U
) ) )
116111, 113, 1153eqtr4d 2446 . . . . 5  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  (
( H `  (
( x ^ 2 )  /  m ) )  -  U ) )  =  ( sum_ m  e.  ( 1 ... ( |_ `  x
) ) ( ( ( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  ( H `  (
( x ^ 2 )  /  m ) ) )  -  ( sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  U ) ) )
117116mpteq2dva 4255 . . . 4  |-  ( ph  ->  ( x  e.  RR+  |->  sum_
m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) ) )  =  ( x  e.  RR+  |->  ( sum_ m  e.  ( 1 ... ( |_
`  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  ( H `  ( (
x ^ 2 )  /  m ) ) )  -  ( sum_ m  e.  ( 1 ... ( |_ `  x
) ) ( ( X `  ( L `
 m ) )  /  ( sqr `  m
) )  x.  U
) ) ) )
118104, 109subcld 9367 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( H `  ( (
x ^ 2 )  /  m ) )  -  U )  e.  CC )
11924, 118mulcld 9064 . . . . . 6  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( (
( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) )  e.  CC )
1201, 119fsumcl 12482 . . . . 5  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  (
( H `  (
( x ^ 2 )  /  m ) )  -  U ) )  e.  CC )
121120abscld 12193 . . . . . . 7  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( abs ` 
sum_ m  e.  (
1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) ) )  e.  RR )
122119abscld 12193 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  (
( H `  (
( x ^ 2 )  /  m ) )  -  U ) ) )  e.  RR )
1231, 122fsumrecl 12483 . . . . . . 7  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( abs `  (
( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) ) )  e.  RR )
12452a1i 11 . . . . . . 7  |-  ( (
ph  /\  x  e.  RR+ )  ->  1  e.  RR )
1251, 119fsumabs 12535 . . . . . . 7  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( abs ` 
sum_ m  e.  (
1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) ) )  <_  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( abs `  ( ( ( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) ) ) )
126 rprege0 10582 . . . . . . . . . . . 12  |-  ( x  e.  RR+  ->  ( x  e.  RR  /\  0  <_  x ) )
127126adantl 453 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( x  e.  RR  /\  0  <_  x ) )
128127simpld 446 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  RR+ )  ->  x  e.  RR )
129 reflcl 11160 . . . . . . . . . 10  |-  ( x  e.  RR  ->  ( |_ `  x )  e.  RR )
130128, 129syl 16 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( |_ `  x )  e.  RR )
131130, 93rerpdivcld 10631 . . . . . . . 8  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( ( |_ `  x )  /  x )  e.  RR )
132 simplr 732 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  x  e.  RR+ )
133132rprecred 10615 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  /  x )  e.  RR )
13424abscld 12193 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )  e.  RR )
13597rpsqrcld 12169 . . . . . . . . . . . . . 14  |-  ( m  e.  ( 1 ... ( |_ `  x
) )  ->  ( sqr `  m )  e.  RR+ )
136135adantl 453 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( sqr `  m )  e.  RR+ )
137136rprecred 10615 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  /  ( sqr `  m
) )  e.  RR )
138118abscld 12193 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) )  e.  RR )
139136, 132rpdivcld 10621 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( sqr `  m )  /  x )  e.  RR+ )
14065, 139sseldi 3306 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( sqr `  m )  /  x )  e.  RR )
14124absge0d 12201 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  0  <_  ( abs `  ( ( X `  ( L `
 m ) )  /  ( sqr `  m
) ) ) )
142118absge0d 12201 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  0  <_  ( abs `  ( ( H `  ( ( x ^ 2 )  /  m ) )  -  U ) ) )
1432, 3, 17syl2an 464 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( X `  ( L `  m
) )  e.  CC )
144136rpcnd 10606 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( sqr `  m )  e.  CC )
145136rpne0d 10609 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( sqr `  m )  =/=  0
)
146143, 144, 145absdivd 12212 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )  =  ( ( abs `  ( X `  ( L `  m )
) )  /  ( abs `  ( sqr `  m
) ) ) )
147136rprege0d 10611 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( sqr `  m )  e.  RR  /\  0  <_ 
( sqr `  m
) ) )
148 absid 12056 . . . . . . . . . . . . . . . 16  |-  ( ( ( sqr `  m
)  e.  RR  /\  0  <_  ( sqr `  m
) )  ->  ( abs `  ( sqr `  m
) )  =  ( sqr `  m ) )
149147, 148syl 16 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( sqr `  m
) )  =  ( sqr `  m ) )
150149oveq2d 6056 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( abs `  ( X `  ( L `  m ) ) )  /  ( abs `  ( sqr `  m
) ) )  =  ( ( abs `  ( X `  ( L `  m ) ) )  /  ( sqr `  m
) ) )
151146, 150eqtrd 2436 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )  =  ( ( abs `  ( X `  ( L `  m )
) )  /  ( sqr `  m ) ) )
152143abscld 12193 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( X `  ( L `  m )
) )  e.  RR )
15352a1i 11 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  1  e.  RR )
154 eqid 2404 . . . . . . . . . . . . . . 15  |-  ( Base `  Z )  =  (
Base `  Z )
15513ad2antrr 707 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  X  e.  D )
156 rpvmasum.a . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  N  e.  NN )
157156nnnn0d 10230 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  N  e.  NN0 )
1585, 154, 7znzrhfo 16783 . . . . . . . . . . . . . . . . . 18  |-  ( N  e.  NN0  ->  L : ZZ -onto-> ( Base `  Z
) )
159 fof 5612 . . . . . . . . . . . . . . . . . 18  |-  ( L : ZZ -onto-> ( Base `  Z )  ->  L : ZZ --> ( Base `  Z
) )
160157, 158, 1593syl 19 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  L : ZZ --> ( Base `  Z ) )
161160adantr 452 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  x  e.  RR+ )  ->  L : ZZ
--> ( Base `  Z
) )
162 elfzelz 11015 . . . . . . . . . . . . . . . 16  |-  ( m  e.  ( 1 ... ( |_ `  x
) )  ->  m  e.  ZZ )
163 ffvelrn 5827 . . . . . . . . . . . . . . . 16  |-  ( ( L : ZZ --> ( Base `  Z )  /\  m  e.  ZZ )  ->  ( L `  m )  e.  ( Base `  Z
) )
164161, 162, 163syl2an 464 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( L `  m )  e.  (
Base `  Z )
)
1654, 6, 5, 154, 155, 164dchrabs2 20999 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( X `  ( L `  m )
) )  <_  1
)
166152, 153, 136, 165lediv1dd 10658 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( abs `  ( X `  ( L `  m ) ) )  /  ( sqr `  m ) )  <_  ( 1  / 
( sqr `  m
) ) )
167151, 166eqbrtrd 4192 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( ( X `  ( L `  m ) )  /  ( sqr `  m ) ) )  <_  ( 1  / 
( sqr `  m
) ) )
168100, 108divsqrsum2 20774 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  /\  ( ( x ^ 2 )  /  m )  e.  RR+ )  ->  ( abs `  (
( H `  (
( x ^ 2 )  /  m ) )  -  U ) )  <_  ( 1  /  ( sqr `  (
( x ^ 2 )  /  m ) ) ) )
16999, 168mpdan 650 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) )  <_  (
1  /  ( sqr `  ( ( x ^
2 )  /  m
) ) ) )
17096rprege0d 10611 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( (
x ^ 2 )  e.  RR  /\  0  <_  ( x ^ 2 ) ) )
171 sqrdiv 12026 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( x ^
2 )  e.  RR  /\  0  <_  ( x ^ 2 ) )  /\  m  e.  RR+ )  ->  ( sqr `  (
( x ^ 2 )  /  m ) )  =  ( ( sqr `  ( x ^ 2 ) )  /  ( sqr `  m
) ) )
172170, 97, 171syl2an 464 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( sqr `  ( ( x ^
2 )  /  m
) )  =  ( ( sqr `  (
x ^ 2 ) )  /  ( sqr `  m ) ) )
173126ad2antlr 708 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( x  e.  RR  /\  0  <_  x ) )
174 sqrsq 12030 . . . . . . . . . . . . . . . . . 18  |-  ( ( x  e.  RR  /\  0  <_  x )  -> 
( sqr `  (
x ^ 2 ) )  =  x )
175173, 174syl 16 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( sqr `  ( x ^ 2 ) )  =  x )
176175oveq1d 6055 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( sqr `  ( x ^
2 ) )  / 
( sqr `  m
) )  =  ( x  /  ( sqr `  m ) ) )
177172, 176eqtrd 2436 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( sqr `  ( ( x ^
2 )  /  m
) )  =  ( x  /  ( sqr `  m ) ) )
178177oveq2d 6056 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  /  ( sqr `  (
( x ^ 2 )  /  m ) ) )  =  ( 1  /  ( x  /  ( sqr `  m
) ) ) )
179 rpcnne0 10585 . . . . . . . . . . . . . . . 16  |-  ( x  e.  RR+  ->  ( x  e.  CC  /\  x  =/=  0 ) )
180179ad2antlr 708 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( x  e.  CC  /\  x  =/=  0 ) )
181136rpcnne0d 10613 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( sqr `  m )  e.  CC  /\  ( sqr `  m )  =/=  0
) )
182 recdiv 9676 . . . . . . . . . . . . . . 15  |-  ( ( ( x  e.  CC  /\  x  =/=  0 )  /\  ( ( sqr `  m )  e.  CC  /\  ( sqr `  m
)  =/=  0 ) )  ->  ( 1  /  ( x  / 
( sqr `  m
) ) )  =  ( ( sqr `  m
)  /  x ) )
183180, 181, 182syl2anc 643 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  /  ( x  / 
( sqr `  m
) ) )  =  ( ( sqr `  m
)  /  x ) )
184178, 183eqtrd 2436 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  /  ( sqr `  (
( x ^ 2 )  /  m ) ) )  =  ( ( sqr `  m
)  /  x ) )
185169, 184breqtrd 4196 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) )  <_  (
( sqr `  m
)  /  x ) )
186134, 137, 138, 140, 141, 142, 167, 185lemul12ad 9909 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( abs `  ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) ) )  x.  ( abs `  (
( H `  (
( x ^ 2 )  /  m ) )  -  U ) ) )  <_  (
( 1  /  ( sqr `  m ) )  x.  ( ( sqr `  m )  /  x
) ) )
18724, 118absmuld 12211 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  (
( H `  (
( x ^ 2 )  /  m ) )  -  U ) ) )  =  ( ( abs `  (
( X `  ( L `  m )
)  /  ( sqr `  m ) ) )  x.  ( abs `  (
( H `  (
( x ^ 2 )  /  m ) )  -  U ) ) ) )
188 ax-1cn 9004 . . . . . . . . . . . . . 14  |-  1  e.  CC
189188a1i 11 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  1  e.  CC )
190 dmdcan 9680 . . . . . . . . . . . . 13  |-  ( ( ( ( sqr `  m
)  e.  CC  /\  ( sqr `  m )  =/=  0 )  /\  ( x  e.  CC  /\  x  =/=  0 )  /\  1  e.  CC )  ->  ( ( ( sqr `  m )  /  x )  x.  ( 1  /  ( sqr `  m ) ) )  =  ( 1  /  x ) )
191181, 180, 189, 190syl3anc 1184 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( (
( sqr `  m
)  /  x )  x.  ( 1  / 
( sqr `  m
) ) )  =  ( 1  /  x
) )
192139rpcnd 10606 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( sqr `  m )  /  x )  e.  CC )
193 reccl 9641 . . . . . . . . . . . . . 14  |-  ( ( ( sqr `  m
)  e.  CC  /\  ( sqr `  m )  =/=  0 )  -> 
( 1  /  ( sqr `  m ) )  e.  CC )
194181, 193syl 16 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  /  ( sqr `  m
) )  e.  CC )
195192, 194mulcomd 9065 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( (
( sqr `  m
)  /  x )  x.  ( 1  / 
( sqr `  m
) ) )  =  ( ( 1  / 
( sqr `  m
) )  x.  (
( sqr `  m
)  /  x ) ) )
196191, 195eqtr3d 2438 . . . . . . . . . . 11  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  /  x )  =  ( ( 1  / 
( sqr `  m
) )  x.  (
( sqr `  m
)  /  x ) ) )
197186, 187, 1963brtr4d 4202 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  m  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  (
( H `  (
( x ^ 2 )  /  m ) )  -  U ) ) )  <_  (
1  /  x ) )
1981, 122, 133, 197fsumle 12533 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( abs `  (
( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) ) )  <_  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( 1  /  x ) )
199 flge0nn0 11180 . . . . . . . . . . . 12  |-  ( ( x  e.  RR  /\  0  <_  x )  -> 
( |_ `  x
)  e.  NN0 )
200 hashfz1 11585 . . . . . . . . . . . 12  |-  ( ( |_ `  x )  e.  NN0  ->  ( # `  ( 1 ... ( |_ `  x ) ) )  =  ( |_
`  x ) )
201127, 199, 2003syl 19 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( # `  (
1 ... ( |_ `  x ) ) )  =  ( |_ `  x ) )
202201oveq1d 6055 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( ( # `
 ( 1 ... ( |_ `  x
) ) )  x.  ( 1  /  x
) )  =  ( ( |_ `  x
)  x.  ( 1  /  x ) ) )
20393rpreccld 10614 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( 1  /  x )  e.  RR+ )
204203rpcnd 10606 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( 1  /  x )  e.  CC )
205 fsumconst 12528 . . . . . . . . . . 11  |-  ( ( ( 1 ... ( |_ `  x ) )  e.  Fin  /\  (
1  /  x )  e.  CC )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( 1  /  x )  =  ( ( # `  ( 1 ... ( |_ `  x ) ) )  x.  ( 1  /  x ) ) )
2061, 204, 205syl2anc 643 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( 1  /  x
)  =  ( (
# `  ( 1 ... ( |_ `  x
) ) )  x.  ( 1  /  x
) ) )
207130recnd 9070 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( |_ `  x )  e.  CC )
208179adantl 453 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( x  e.  CC  /\  x  =/=  0 ) )
209208simpld 446 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  RR+ )  ->  x  e.  CC )
210208simprd 450 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  RR+ )  ->  x  =/=  0 )
211207, 209, 210divrecd 9749 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( ( |_ `  x )  /  x )  =  ( ( |_ `  x
)  x.  ( 1  /  x ) ) )
212202, 206, 2113eqtr4d 2446 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( 1  /  x
)  =  ( ( |_ `  x )  /  x ) )
213198, 212breqtrd 4196 . . . . . . . 8  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( abs `  (
( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) ) )  <_ 
( ( |_ `  x )  /  x
) )
214 flle 11163 . . . . . . . . . . 11  |-  ( x  e.  RR  ->  ( |_ `  x )  <_  x )
215128, 214syl 16 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( |_ `  x )  <_  x
)
216128recnd 9070 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  RR+ )  ->  x  e.  CC )
217216mulid1d 9061 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( x  x.  1 )  =  x )
218215, 217breqtrrd 4198 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( |_ `  x )  <_  (
x  x.  1 ) )
219 rpregt0 10581 . . . . . . . . . . 11  |-  ( x  e.  RR+  ->  ( x  e.  RR  /\  0  <  x ) )
220219adantl 453 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( x  e.  RR  /\  0  < 
x ) )
221 ledivmul 9839 . . . . . . . . . 10  |-  ( ( ( |_ `  x
)  e.  RR  /\  1  e.  RR  /\  (
x  e.  RR  /\  0  <  x ) )  ->  ( ( ( |_ `  x )  /  x )  <_ 
1  <->  ( |_ `  x )  <_  (
x  x.  1 ) ) )
222130, 124, 220, 221syl3anc 1184 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( (
( |_ `  x
)  /  x )  <_  1  <->  ( |_ `  x )  <_  (
x  x.  1 ) ) )
223218, 222mpbird 224 . . . . . . . 8  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( ( |_ `  x )  /  x )  <_  1
)
224123, 131, 124, 213, 223letrd 9183 . . . . . . 7  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( abs `  (
( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) ) )  <_ 
1 )
225121, 123, 124, 125, 224letrd 9183 . . . . . 6  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( abs ` 
sum_ m  e.  (
1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) ) )  <_ 
1 )
226225adantrr 698 . . . . 5  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( abs `  sum_ m  e.  ( 1 ... ( |_ `  x
) ) ( ( ( X `  ( L `  m )
)  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) ) )  <_ 
1 )
22766, 120, 87, 87, 226elo1d 12285 . . . 4  |-  ( ph  ->  ( x  e.  RR+  |->  sum_
m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  ( ( H `  ( ( x ^
2 )  /  m
) )  -  U
) ) )  e.  O ( 1 ) )
228117, 227eqeltrrd 2479 . . 3  |-  ( ph  ->  ( x  e.  RR+  |->  ( sum_ m  e.  ( 1 ... ( |_
`  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  ( H `  ( (
x ^ 2 )  /  m ) ) )  -  ( sum_ m  e.  ( 1 ... ( |_ `  x
) ) ( ( X `  ( L `
 m ) )  /  ( sqr `  m
) )  x.  U
) ) )  e.  O ( 1 ) )
229106, 107, 228o1dif 12378 . 2  |-  ( ph  ->  ( ( x  e.  RR+  |->  sum_ m  e.  ( 1 ... ( |_
`  x ) ) ( ( ( X `
 ( L `  m ) )  / 
( sqr `  m
) )  x.  ( H `  ( (
x ^ 2 )  /  m ) ) ) )  e.  O
( 1 )  <->  ( x  e.  RR+  |->  ( sum_ m  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  U ) )  e.  O ( 1 ) ) )
23092, 229mpbird 224 1  |-  ( ph  ->  ( x  e.  RR+  |->  sum_
m  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  m ) )  /  ( sqr `  m ) )  x.  ( H `  (
( x ^ 2 )  /  m ) ) ) )  e.  O ( 1 ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 177    /\ wa 359    = wceq 1649    e. wcel 1721    =/= wne 2567   A.wral 2666   {crab 2670    \ cdif 3277    C_ wss 3280   {csn 3774   class class class wbr 4172    e. cmpt 4226    |` cres 4839   -->wf 5409   -onto->wfo 5411   ` cfv 5413  (class class class)co 6040   Fincfn 7068   CCcc 8944   RRcr 8945   0cc0 8946   1c1 8947    + caddc 8949    x. cmul 8951    +oocpnf 9073   RR*cxr 9075    < clt 9076    <_ cle 9077    - cmin 9247    / cdiv 9633   NNcn 9956   2c2 10005   NN0cn0 10177   ZZcz 10238   ZZ>=cuz 10444   RR+crp 10568   (,)cioo 10872   [,)cico 10874   ...cfz 10999   |_cfl 11156    seq cseq 11278   ^cexp 11337   #chash 11573   sqrcsqr 11993   abscabs 11994    ~~> cli 12233    ~~> r crli 12234   O (
1 )co1 12235   sum_csu 12434   Basecbs 13424   0gc0g 13678   ZRHomczrh 16733  ℤ/nczn 16736  DChrcdchr 20969
This theorem is referenced by:  dchrisum0lem2  21165
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1662  ax-8 1683  ax-13 1723  ax-14 1725  ax-6 1740  ax-7 1745  ax-11 1757  ax-12 1946  ax-ext 2385  ax-rep 4280  ax-sep 4290  ax-nul 4298  ax-pow 4337  ax-pr 4363  ax-un 4660  ax-inf2 7552  ax-cnex 9002  ax-resscn 9003  ax-1cn 9004  ax-icn 9005  ax-addcl 9006  ax-addrcl 9007  ax-mulcl 9008  ax-mulrcl 9009  ax-mulcom 9010  ax-addass 9011  ax-mulass 9012  ax-distr 9013  ax-i2m1 9014  ax-1ne0 9015  ax-1rid 9016  ax-rnegex 9017  ax-rrecex 9018  ax-cnre 9019  ax-pre-lttri 9020  ax-pre-lttrn 9021  ax-pre-ltadd 9022  ax-pre-mulgt0 9023  ax-pre-sup 9024  ax-addf 9025  ax-mulf 9026
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2258  df-mo 2259  df-clab 2391  df-cleq 2397  df-clel 2400  df-nfc 2529  df-ne 2569  df-nel 2570  df-ral 2671  df-rex 2672  df-reu 2673  df-rmo 2674  df-rab 2675  df-v 2918  df-sbc 3122  df-csb 3212  df-dif 3283  df-un 3285  df-in 3287  df-ss 3294  df-pss 3296  df-nul 3589  df-if 3700  df-pw 3761  df-sn 3780  df-pr 3781  df-tp 3782  df-op 3783  df-uni 3976  df-int 4011  df-iun 4055  df-iin 4056  df-disj 4143  df-br 4173  df-opab 4227  df-mpt 4228  df-tr 4263  df-eprel 4454  df-id 4458  df-po 4463  df-so 4464  df-fr 4501  df-se 4502  df-we 4503  df-ord 4544  df-on 4545  df-lim 4546  df-suc 4547  df-om 4805  df-xp 4843  df-rel 4844  df-cnv 4845  df-co 4846  df-dm 4847  df-rn 4848  df-res 4849  df-ima 4850  df-iota 5377  df-fun 5415  df-fn 5416  df-f 5417  df-f1 5418  df-fo 5419  df-f1o 5420  df-fv 5421  df-isom 5422  df-ov 6043  df-oprab 6044  df-mpt2 6045  df-of 6264  df-1st 6308  df-2nd 6309  df-tpos 6438  df-riota 6508  df-recs 6592  df-rdg 6627  df-1o 6683  df-2o 6684  df-oadd 6687  df-omul 6688  df-er 6864  df-ec 6866  df-qs 6870  df-map 6979  df-pm 6980  df-ixp 7023  df-en 7069  df-dom 7070  df-sdom 7071  df-fin 7072  df-fi 7374  df-sup 7404  df-oi 7435  df-card 7782  df-acn 7785  df-cda 8004  df-pnf 9078  df-mnf 9079  df-xr 9080  df-ltxr 9081  df-le 9082  df-sub 9249  df-neg 9250  df-div 9634  df-nn 9957  df-2 10014  df-3 10015  df-4 10016  df-5 10017  df-6 10018  df-7 10019  df-8 10020  df-9 10021  df-10 10022  df-n0 10178  df-z 10239  df-dec 10339  df-uz 10445  df-q 10531  df-rp 10569  df-xneg 10666  df-xadd 10667  df-xmul 10668  df-ioo 10876  df-ioc 10877  df-ico 10878  df-icc 10879  df-fz 11000  df-fzo 11091  df-fl 11157  df-mod 11206  df-seq 11279  df-exp 11338  df-fac 11522  df-bc 11549  df-hash 11574  df-shft 11837  df-cj 11859  df-re 11860  df-im 11861  df-sqr 11995  df-abs 11996  df-limsup 12220  df-clim 12237  df-rlim 12238  df-o1 12239  df-lo1 12240  df-sum 12435  df-ef 12625  df-sin 12627  df-cos 12628  df-pi 12630  df-dvds 12808  df-struct 13426  df-ndx 13427  df-slot 13428  df-base 13429  df-sets 13430  df-ress 13431  df-plusg 13497  df-mulr 13498  df-starv 13499  df-sca 13500  df-vsca 13501  df-tset 13503  df-ple 13504  df-ds 13506  df-unif 13507  df-hom 13508  df-cco 13509  df-rest 13605  df-topn 13606  df-topgen 13622  df-pt 13623  df-prds 13626  df-xrs 13681  df-0g 13682  df-gsum 13683  df-qtop 13688  df-imas 13689  df-divs 13690  df-xps 13691  df-mre 13766  df-mrc 13767  df-acs 13769  df-mnd 14645  df-mhm 14693  df-submnd 14694  df-grp 14767  df-minusg 14768  df-sbg 14769  df-mulg 14770  df-subg 14896  df-nsg 14897  df-eqg 14898  df-ghm 14959  df-cntz 15071  df-od 15122  df-cmn 15369  df-abl 15370  df-mgp 15604  df-rng 15618  df-cring 15619  df-ur 15620  df-oppr 15683  df-dvdsr 15701  df-unit 15702  df-invr 15732  df-dvr 15743  df-rnghom 15774  df-drng 15792  df-subrg 15821  df-lmod 15907  df-lss 15964  df-lsp 16003  df-sra 16199  df-rgmod 16200  df-lidl 16201  df-rsp 16202  df-2idl 16258  df-psmet 16649  df-xmet 16650  df-met 16651  df-bl 16652  df-mopn 16653  df-fbas 16654  df-fg 16655  df-cnfld 16659  df-zrh 16737  df-zn 16740  df-top 16918  df-bases 16920  df-topon 16921  df-topsp 16922  df-cld 17038  df-ntr 17039  df-cls 17040  df-nei 17117  df-lp 17155  df-perf 17156  df-cn 17245  df-cnp 17246  df-haus 17333  df-cmp 17404  df-tx 17547  df-hmeo 17740  df-fil 17831  df-fm 17923  df-flim 17924  df-flf 17925  df-xms 18303  df-ms 18304  df-tms 18305  df-cncf 18861  df-limc 19706  df-dv 19707  df-log 20407  df-cxp 20408  df-dchr 20970
  Copyright terms: Public domain W3C validator