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

Theorem dchrmusum2 21176
Description: The sum of the Möbius function multiplied by a non-principal Dirichlet character, divided by  n, is bounded, provided that  T  =/=  0. Lemma 9.4.2 of [Shapiro], p. 380. (Contributed by Mario Carneiro, 4-May-2016.)
Hypotheses
Ref Expression
rpvmasum.z  |-  Z  =  (ℤ/n `  N )
rpvmasum.l  |-  L  =  ( ZRHom `  Z
)
rpvmasum.a  |-  ( ph  ->  N  e.  NN )
rpvmasum.g  |-  G  =  (DChr `  N )
rpvmasum.d  |-  D  =  ( Base `  G
)
rpvmasum.1  |-  .1.  =  ( 0g `  G )
dchrisum.b  |-  ( ph  ->  X  e.  D )
dchrisum.n1  |-  ( ph  ->  X  =/=  .1.  )
dchrisumn0.f  |-  F  =  ( a  e.  NN  |->  ( ( X `  ( L `  a ) )  /  a ) )
dchrisumn0.c  |-  ( ph  ->  C  e.  ( 0 [,)  +oo ) )
dchrisumn0.t  |-  ( ph  ->  seq  1 (  +  ,  F )  ~~>  T )
dchrisumn0.1  |-  ( ph  ->  A. y  e.  ( 1 [,)  +oo )
( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  y ) )  -  T ) )  <_ 
( C  /  y
) )
Assertion
Ref Expression
dchrmusum2  |-  ( ph  ->  ( x  e.  RR+  |->  ( sum_ d  e.  ( 1 ... ( |_
`  x ) ) ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  T ) )  e.  O ( 1 ) )
Distinct variable groups:    x, y,  .1.    x, d, y, C    F, d, x, y    a,
d, x, y    x, N, y    ph, d, x    T, d, x, y    x, Z, y    x, D, y    L, a, d, x, y    X, a, d, x, y
Allowed substitution hints:    ph( y, a)    C( a)    D( a, d)    T( a)    .1. ( a, d)    F( a)    G( x, y, a, d)    N( a, d)    Z( a, d)

Proof of Theorem dchrmusum2
Dummy variables  m  n are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 rpssre 10611 . . . 4  |-  RR+  C_  RR
2 ax-1cn 9037 . . . 4  |-  1  e.  CC
3 o1const 12401 . . . 4  |-  ( (
RR+  C_  RR  /\  1  e.  CC )  ->  (
x  e.  RR+  |->  1 )  e.  O ( 1 ) )
41, 2, 3mp2an 654 . . 3  |-  ( x  e.  RR+  |->  1 )  e.  O ( 1 )
54a1i 11 . 2  |-  ( ph  ->  ( x  e.  RR+  |->  1 )  e.  O
( 1 ) )
62a1i 11 . . 3  |-  ( (
ph  /\  x  e.  RR+ )  ->  1  e.  CC )
7 fzfid 11300 . . . . 5  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( 1 ... ( |_ `  x ) )  e. 
Fin )
8 rpvmasum.g . . . . . . 7  |-  G  =  (DChr `  N )
9 rpvmasum.z . . . . . . 7  |-  Z  =  (ℤ/n `  N )
10 rpvmasum.d . . . . . . 7  |-  D  =  ( Base `  G
)
11 rpvmasum.l . . . . . . 7  |-  L  =  ( ZRHom `  Z
)
12 dchrisum.b . . . . . . . 8  |-  ( ph  ->  X  e.  D )
1312ad2antrr 707 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  X  e.  D )
14 elfzelz 11048 . . . . . . . 8  |-  ( d  e.  ( 1 ... ( |_ `  x
) )  ->  d  e.  ZZ )
1514adantl 453 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  d  e.  ZZ )
168, 9, 10, 11, 13, 15dchrzrhcl 21017 . . . . . 6  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( X `  ( L `  d
) )  e.  CC )
17 elfznn 11069 . . . . . . . . 9  |-  ( d  e.  ( 1 ... ( |_ `  x
) )  ->  d  e.  NN )
1817adantl 453 . . . . . . . 8  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  d  e.  NN )
19 mucl 20912 . . . . . . . . . 10  |-  ( d  e.  NN  ->  (
mmu `  d )  e.  ZZ )
2019zred 10364 . . . . . . . . 9  |-  ( d  e.  NN  ->  (
mmu `  d )  e.  RR )
21 nndivre 10024 . . . . . . . . 9  |-  ( ( ( mmu `  d
)  e.  RR  /\  d  e.  NN )  ->  ( ( mmu `  d )  /  d
)  e.  RR )
2220, 21mpancom 651 . . . . . . . 8  |-  ( d  e.  NN  ->  (
( mmu `  d
)  /  d )  e.  RR )
2318, 22syl 16 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( (
mmu `  d )  /  d )  e.  RR )
2423recnd 9103 . . . . . 6  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( (
mmu `  d )  /  d )  e.  CC )
2516, 24mulcld 9097 . . . . 5  |-  ( ( ( ph  /\  x  e.  RR+ )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  e.  CC )
267, 25fsumcl 12515 . . . 4  |-  ( (
ph  /\  x  e.  RR+ )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  e.  CC )
27 dchrisumn0.t . . . . . 6  |-  ( ph  ->  seq  1 (  +  ,  F )  ~~>  T )
28 climcl 12281 . . . . . 6  |-  (  seq  1 (  +  ,  F )  ~~>  T  ->  T  e.  CC )
2927, 28syl 16 . . . . 5  |-  ( ph  ->  T  e.  CC )
3029adantr 452 . . . 4  |-  ( (
ph  /\  x  e.  RR+ )  ->  T  e.  CC )
3126, 30mulcld 9097 . . 3  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  T )  e.  CC )
321a1i 11 . . . 4  |-  ( ph  -> 
RR+  C_  RR )
33 subcl 9294 . . . . 5  |-  ( ( 1  e.  CC  /\  ( sum_ d  e.  ( 1 ... ( |_
`  x ) ) ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  T )  e.  CC )  ->  (
1  -  ( sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  T ) )  e.  CC )
342, 31, 33sylancr 645 . . . 4  |-  ( (
ph  /\  x  e.  RR+ )  ->  ( 1  -  ( sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  T ) )  e.  CC )
35 1re 9079 . . . . 5  |-  1  e.  RR
3635a1i 11 . . . 4  |-  ( ph  ->  1  e.  RR )
37 dchrisumn0.c . . . . . 6  |-  ( ph  ->  C  e.  ( 0 [,)  +oo ) )
38 elrege0 10996 . . . . . 6  |-  ( C  e.  ( 0 [,) 
+oo )  <->  ( C  e.  RR  /\  0  <_  C ) )
3937, 38sylib 189 . . . . 5  |-  ( ph  ->  ( C  e.  RR  /\  0  <_  C )
)
4039simpld 446 . . . 4  |-  ( ph  ->  C  e.  RR )
41 fzfid 11300 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( 1 ... ( |_ `  x ) )  e.  Fin )
4225adantlrr 702 . . . . . . . . 9  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  e.  CC )
43 nnuz 10510 . . . . . . . . . . . 12  |-  NN  =  ( ZZ>= `  1 )
44 1z 10300 . . . . . . . . . . . . 13  |-  1  e.  ZZ
4544a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  1  e.  ZZ )
4612adantr 452 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  m  e.  NN )  ->  X  e.  D )
47 nnz 10292 . . . . . . . . . . . . . . . . 17  |-  ( m  e.  NN  ->  m  e.  ZZ )
4847adantl 453 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  m  e.  NN )  ->  m  e.  ZZ )
498, 9, 10, 11, 46, 48dchrzrhcl 21017 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  m  e.  NN )  ->  ( X `
 ( L `  m ) )  e.  CC )
50 nncn 9997 . . . . . . . . . . . . . . . 16  |-  ( m  e.  NN  ->  m  e.  CC )
5150adantl 453 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  m  e.  NN )  ->  m  e.  CC )
52 nnne0 10021 . . . . . . . . . . . . . . . 16  |-  ( m  e.  NN  ->  m  =/=  0 )
5352adantl 453 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  m  e.  NN )  ->  m  =/=  0 )
5449, 51, 53divcld 9779 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  m  e.  NN )  ->  ( ( X `  ( L `
 m ) )  /  m )  e.  CC )
55 dchrisumn0.f . . . . . . . . . . . . . . 15  |-  F  =  ( a  e.  NN  |->  ( ( X `  ( L `  a ) )  /  a ) )
56 fveq2 5719 . . . . . . . . . . . . . . . . . 18  |-  ( a  =  m  ->  ( L `  a )  =  ( L `  m ) )
5756fveq2d 5723 . . . . . . . . . . . . . . . . 17  |-  ( a  =  m  ->  ( X `  ( L `  a ) )  =  ( X `  ( L `  m )
) )
58 id 20 . . . . . . . . . . . . . . . . 17  |-  ( a  =  m  ->  a  =  m )
5957, 58oveq12d 6090 . . . . . . . . . . . . . . . 16  |-  ( a  =  m  ->  (
( X `  ( L `  a )
)  /  a )  =  ( ( X `
 ( L `  m ) )  /  m ) )
6059cbvmptv 4292 . . . . . . . . . . . . . . 15  |-  ( a  e.  NN  |->  ( ( X `  ( L `
 a ) )  /  a ) )  =  ( m  e.  NN  |->  ( ( X `
 ( L `  m ) )  /  m ) )
6155, 60eqtri 2455 . . . . . . . . . . . . . 14  |-  F  =  ( m  e.  NN  |->  ( ( X `  ( L `  m ) )  /  m ) )
6254, 61fmptd 5884 . . . . . . . . . . . . 13  |-  ( ph  ->  F : NN --> CC )
6362ffvelrnda 5861 . . . . . . . . . . . 12  |-  ( (
ph  /\  m  e.  NN )  ->  ( F `
 m )  e.  CC )
6443, 45, 63serf 11339 . . . . . . . . . . 11  |-  ( ph  ->  seq  1 (  +  ,  F ) : NN --> CC )
6564ad2antrr 707 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  seq  1 (  +  ,  F ) : NN --> CC )
66 simprl 733 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  x  e.  RR+ )
6766rpred 10637 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  x  e.  RR )
68 nndivre 10024 . . . . . . . . . . . 12  |-  ( ( x  e.  RR  /\  d  e.  NN )  ->  ( x  /  d
)  e.  RR )
6967, 17, 68syl2an 464 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( x  / 
d )  e.  RR )
7017adantl 453 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  d  e.  NN )
7170nncnd 10005 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  d  e.  CC )
7271mulid2d 9095 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  x.  d )  =  d )
73 fznnfl 11231 . . . . . . . . . . . . . . 15  |-  ( x  e.  RR  ->  (
d  e.  ( 1 ... ( |_ `  x ) )  <->  ( d  e.  NN  /\  d  <_  x ) ) )
7467, 73syl 16 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( d  e.  ( 1 ... ( |_
`  x ) )  <-> 
( d  e.  NN  /\  d  <_  x )
) )
7574simplbda 608 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  d  <_  x
)
7672, 75eqbrtrd 4224 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  x.  d )  <_  x
)
7735a1i 11 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  1  e.  RR )
7867adantr 452 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  x  e.  RR )
7970nnrpd 10636 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  d  e.  RR+ )
8077, 78, 79lemuldivd 10682 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( 1  x.  d )  <_  x 
<->  1  <_  ( x  /  d ) ) )
8176, 80mpbid 202 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  1  <_  (
x  /  d ) )
82 flge1nn 11214 . . . . . . . . . . 11  |-  ( ( ( x  /  d
)  e.  RR  /\  1  <_  ( x  / 
d ) )  -> 
( |_ `  (
x  /  d ) )  e.  NN )
8369, 81, 82syl2anc 643 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( |_ `  ( x  /  d
) )  e.  NN )
8465, 83ffvelrnd 5862 . . . . . . . . 9  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  (  seq  1
(  +  ,  F
) `  ( |_ `  ( x  /  d
) ) )  e.  CC )
8542, 84mulcld 9097 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) ) )  e.  CC )
8629ad2antrr 707 . . . . . . . . 9  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  T  e.  CC )
8742, 86mulcld 9097 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  T
)  e.  CC )
8841, 85, 87fsumsub 12559 . . . . . . 7  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) ) )  -  ( ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  T ) )  =  ( sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) ) )  -  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  T
) ) )
8942, 84, 86subdid 9478 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) )  =  ( ( ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) ) )  -  ( ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  T ) ) )
9089sumeq2dv 12485 . . . . . . 7  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) )  =  sum_ d  e.  ( 1 ... ( |_
`  x ) ) ( ( ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) ) )  -  ( ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  T ) ) )
9112ad3antrrr 711 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  X  e.  D )
9214ad2antlr 708 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  d  e.  ZZ )
93 elfzelz 11048 . . . . . . . . . . . . . . . . . . 19  |-  ( m  e.  ( 1 ... ( |_ `  (
x  /  d ) ) )  ->  m  e.  ZZ )
9493adantl 453 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  m  e.  ZZ )
958, 9, 10, 11, 91, 92, 94dchrzrhmul 21018 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( X `  ( L `  (
d  x.  m ) ) )  =  ( ( X `  ( L `  d )
)  x.  ( X `
 ( L `  m ) ) ) )
9695oveq1d 6087 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( ( X `  ( L `  ( d  x.  m
) ) )  / 
( d  x.  m
) )  =  ( ( ( X `  ( L `  d ) )  x.  ( X `
 ( L `  m ) ) )  /  ( d  x.  m ) ) )
9716adantlrr 702 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( X `  ( L `  d ) )  e.  CC )
9897adantr 452 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( X `  ( L `  d
) )  e.  CC )
9971adantr 452 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  d  e.  CC )
1008, 9, 10, 11, 91, 94dchrzrhcl 21017 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( X `  ( L `  m
) )  e.  CC )
101 elfznn 11069 . . . . . . . . . . . . . . . . . . 19  |-  ( m  e.  ( 1 ... ( |_ `  (
x  /  d ) ) )  ->  m  e.  NN )
102101adantl 453 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  m  e.  NN )
103102nncnd 10005 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  m  e.  CC )
10470nnne0d 10033 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  d  =/=  0
)
105104adantr 452 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  d  =/=  0 )
106102nnne0d 10033 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  m  =/=  0 )
10798, 99, 100, 103, 105, 106divmuldivd 9820 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( (
( X `  ( L `  d )
)  /  d )  x.  ( ( X `
 ( L `  m ) )  /  m ) )  =  ( ( ( X `
 ( L `  d ) )  x.  ( X `  ( L `  m )
) )  /  (
d  x.  m ) ) )
10896, 107eqtr4d 2470 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( ( X `  ( L `  ( d  x.  m
) ) )  / 
( d  x.  m
) )  =  ( ( ( X `  ( L `  d ) )  /  d )  x.  ( ( X `
 ( L `  m ) )  /  m ) ) )
109108oveq2d 6088 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( (
mmu `  d )  x.  ( ( X `  ( L `  ( d  x.  m ) ) )  /  ( d  x.  m ) ) )  =  ( ( mmu `  d )  x.  ( ( ( X `  ( L `
 d ) )  /  d )  x.  ( ( X `  ( L `  m ) )  /  m ) ) ) )
11070, 19syl 16 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( mmu `  d )  e.  ZZ )
111110zcnd 10365 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( mmu `  d )  e.  CC )
112111adantr 452 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( mmu `  d )  e.  CC )
11398, 99, 105divcld 9779 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( ( X `  ( L `  d ) )  / 
d )  e.  CC )
114100, 103, 106divcld 9779 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( ( X `  ( L `  m ) )  /  m )  e.  CC )
115112, 113, 114mulassd 9100 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( (
( mmu `  d
)  x.  ( ( X `  ( L `
 d ) )  /  d ) )  x.  ( ( X `
 ( L `  m ) )  /  m ) )  =  ( ( mmu `  d )  x.  (
( ( X `  ( L `  d ) )  /  d )  x.  ( ( X `
 ( L `  m ) )  /  m ) ) ) )
116112, 98, 99, 105div12d 9815 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( (
mmu `  d )  x.  ( ( X `  ( L `  d ) )  /  d ) )  =  ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) ) )
117116oveq1d 6087 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( (
( mmu `  d
)  x.  ( ( X `  ( L `
 d ) )  /  d ) )  x.  ( ( X `
 ( L `  m ) )  /  m ) )  =  ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (
( X `  ( L `  m )
)  /  m ) ) )
118109, 115, 1173eqtr2d 2473 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( (
mmu `  d )  x.  ( ( X `  ( L `  ( d  x.  m ) ) )  /  ( d  x.  m ) ) )  =  ( ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  ( ( X `
 ( L `  m ) )  /  m ) ) )
119118sumeq2dv 12485 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  sum_ m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) ( ( mmu `  d )  x.  (
( X `  ( L `  ( d  x.  m ) ) )  /  ( d  x.  m ) ) )  =  sum_ m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (
( X `  ( L `  m )
)  /  m ) ) )
120 fzfid 11300 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1 ... ( |_ `  (
x  /  d ) ) )  e.  Fin )
121 simpll 731 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ph )
122121, 101, 54syl2an 464 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( ( X `  ( L `  m ) )  /  m )  e.  CC )
123120, 42, 122fsummulc2 12555 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  sum_ m  e.  ( 1 ... ( |_ `  (
x  /  d ) ) ) ( ( X `  ( L `
 m ) )  /  m ) )  =  sum_ m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (
( X `  ( L `  m )
)  /  m ) ) )
124 ovex 6097 . . . . . . . . . . . . . . . 16  |-  ( ( X `  ( L `
 m ) )  /  m )  e. 
_V
12559, 55, 124fvmpt 5797 . . . . . . . . . . . . . . 15  |-  ( m  e.  NN  ->  ( F `  m )  =  ( ( X `
 ( L `  m ) )  /  m ) )
126102, 125syl 16 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  /\  m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) )  ->  ( F `  m )  =  ( ( X `  ( L `  m )
)  /  m ) )
12783, 43syl6eleq 2525 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( |_ `  ( x  /  d
) )  e.  (
ZZ>= `  1 ) )
128126, 127, 122fsumser 12512 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  sum_ m  e.  ( 1 ... ( |_
`  ( x  / 
d ) ) ) ( ( X `  ( L `  m ) )  /  m )  =  (  seq  1
(  +  ,  F
) `  ( |_ `  ( x  /  d
) ) ) )
129128oveq2d 6088 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  sum_ m  e.  ( 1 ... ( |_ `  (
x  /  d ) ) ) ( ( X `  ( L `
 m ) )  /  m ) )  =  ( ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) ) ) )
130119, 123, 1293eqtr2rd 2474 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) ) )  =  sum_ m  e.  ( 1 ... ( |_ `  ( x  / 
d ) ) ) ( ( mmu `  d )  x.  (
( X `  ( L `  ( d  x.  m ) ) )  /  ( d  x.  m ) ) ) )
131130sumeq2dv 12485 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  (  seq  1
(  +  ,  F
) `  ( |_ `  ( x  /  d
) ) ) )  =  sum_ d  e.  ( 1 ... ( |_
`  x ) )
sum_ m  e.  (
1 ... ( |_ `  ( x  /  d
) ) ) ( ( mmu `  d
)  x.  ( ( X `  ( L `
 ( d  x.  m ) ) )  /  ( d  x.  m ) ) ) )
132 fveq2 5719 . . . . . . . . . . . . . 14  |-  ( n  =  ( d  x.  m )  ->  ( L `  n )  =  ( L `  ( d  x.  m
) ) )
133132fveq2d 5723 . . . . . . . . . . . . 13  |-  ( n  =  ( d  x.  m )  ->  ( X `  ( L `  n ) )  =  ( X `  ( L `  ( d  x.  m ) ) ) )
134 id 20 . . . . . . . . . . . . 13  |-  ( n  =  ( d  x.  m )  ->  n  =  ( d  x.  m ) )
135133, 134oveq12d 6090 . . . . . . . . . . . 12  |-  ( n  =  ( d  x.  m )  ->  (
( X `  ( L `  n )
)  /  n )  =  ( ( X `
 ( L `  ( d  x.  m
) ) )  / 
( d  x.  m
) ) )
136135oveq2d 6088 . . . . . . . . . . 11  |-  ( n  =  ( d  x.  m )  ->  (
( mmu `  d
)  x.  ( ( X `  ( L `
 n ) )  /  n ) )  =  ( ( mmu `  d )  x.  (
( X `  ( L `  ( d  x.  m ) ) )  /  ( d  x.  m ) ) ) )
137 elrabi 3082 . . . . . . . . . . . . . . 15  |-  ( d  e.  { y  e.  NN  |  y  ||  n }  ->  d  e.  NN )
138137ad2antll 710 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  ( n  e.  (
1 ... ( |_ `  x ) )  /\  d  e.  { y  e.  NN  |  y  ||  n } ) )  -> 
d  e.  NN )
139138, 19syl 16 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  ( n  e.  (
1 ... ( |_ `  x ) )  /\  d  e.  { y  e.  NN  |  y  ||  n } ) )  -> 
( mmu `  d
)  e.  ZZ )
140139zcnd 10365 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  ( n  e.  (
1 ... ( |_ `  x ) )  /\  d  e.  { y  e.  NN  |  y  ||  n } ) )  -> 
( mmu `  d
)  e.  CC )
14112ad2antrr 707 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  n  e.  ( 1 ... ( |_ `  x ) ) )  ->  X  e.  D
)
142 elfzelz 11048 . . . . . . . . . . . . . . . 16  |-  ( n  e.  ( 1 ... ( |_ `  x
) )  ->  n  e.  ZZ )
143142adantl 453 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  n  e.  ( 1 ... ( |_ `  x ) ) )  ->  n  e.  ZZ )
1448, 9, 10, 11, 141, 143dchrzrhcl 21017 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  n  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( X `  ( L `  n ) )  e.  CC )
14517ssriv 3344 . . . . . . . . . . . . . . . . 17  |-  ( 1 ... ( |_ `  x ) )  C_  NN
146145a1i 11 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( 1 ... ( |_ `  x ) ) 
C_  NN )
147146sselda 3340 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  n  e.  ( 1 ... ( |_ `  x ) ) )  ->  n  e.  NN )
148147nncnd 10005 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  n  e.  ( 1 ... ( |_ `  x ) ) )  ->  n  e.  CC )
149147nnne0d 10033 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  n  e.  ( 1 ... ( |_ `  x ) ) )  ->  n  =/=  0
)
150144, 148, 149divcld 9779 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  n  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( X `
 ( L `  n ) )  /  n )  e.  CC )
151150adantrr 698 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  ( n  e.  (
1 ... ( |_ `  x ) )  /\  d  e.  { y  e.  NN  |  y  ||  n } ) )  -> 
( ( X `  ( L `  n ) )  /  n )  e.  CC )
152140, 151mulcld 9097 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  ( n  e.  (
1 ... ( |_ `  x ) )  /\  d  e.  { y  e.  NN  |  y  ||  n } ) )  -> 
( ( mmu `  d )  x.  (
( X `  ( L `  n )
)  /  n ) )  e.  CC )
153136, 67, 152dvdsflsumcom 20961 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ n  e.  ( 1 ... ( |_ `  x ) ) sum_ d  e.  { y  e.  NN  |  y  ||  n }  ( (
mmu `  d )  x.  ( ( X `  ( L `  n ) )  /  n ) )  =  sum_ d  e.  ( 1 ... ( |_ `  x ) )
sum_ m  e.  (
1 ... ( |_ `  ( x  /  d
) ) ) ( ( mmu `  d
)  x.  ( ( X `  ( L `
 ( d  x.  m ) ) )  /  ( d  x.  m ) ) ) )
154 fveq2 5719 . . . . . . . . . . . . 13  |-  ( n  =  1  ->  ( L `  n )  =  ( L ` 
1 ) )
155154fveq2d 5723 . . . . . . . . . . . 12  |-  ( n  =  1  ->  ( X `  ( L `  n ) )  =  ( X `  ( L `  1 )
) )
156 id 20 . . . . . . . . . . . 12  |-  ( n  =  1  ->  n  =  1 )
157155, 156oveq12d 6090 . . . . . . . . . . 11  |-  ( n  =  1  ->  (
( X `  ( L `  n )
)  /  n )  =  ( ( X `
 ( L ` 
1 ) )  / 
1 ) )
158 simprr 734 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
1  <_  x )
159 flge1nn 11214 . . . . . . . . . . . . . 14  |-  ( ( x  e.  RR  /\  1  <_  x )  -> 
( |_ `  x
)  e.  NN )
16067, 158, 159syl2anc 643 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( |_ `  x
)  e.  NN )
161160, 43syl6eleq 2525 . . . . . . . . . . . 12  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( |_ `  x
)  e.  ( ZZ>= ` 
1 ) )
162 eluzfz1 11053 . . . . . . . . . . . 12  |-  ( ( |_ `  x )  e.  ( ZZ>= `  1
)  ->  1  e.  ( 1 ... ( |_ `  x ) ) )
163161, 162syl 16 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
1  e.  ( 1 ... ( |_ `  x ) ) )
164157, 41, 146, 163, 150musumsum 20965 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ n  e.  ( 1 ... ( |_ `  x ) ) sum_ d  e.  { y  e.  NN  |  y  ||  n }  ( (
mmu `  d )  x.  ( ( X `  ( L `  n ) )  /  n ) )  =  ( ( X `  ( L `
 1 ) )  /  1 ) )
165131, 153, 1643eqtr2d 2473 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  (  seq  1
(  +  ,  F
) `  ( |_ `  ( x  /  d
) ) ) )  =  ( ( X `
 ( L ` 
1 ) )  / 
1 ) )
1668, 9, 10, 11, 12dchrzrh1 21016 . . . . . . . . . . . 12  |-  ( ph  ->  ( X `  ( L `  1 )
)  =  1 )
167166adantr 452 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( X `  ( L `  1 )
)  =  1 )
168167oveq1d 6087 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( ( X `  ( L `  1 ) )  /  1 )  =  ( 1  / 
1 ) )
1692div1i 9731 . . . . . . . . . 10  |-  ( 1  /  1 )  =  1
170168, 169syl6eq 2483 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( ( X `  ( L `  1 ) )  /  1 )  =  1 )
171165, 170eqtr2d 2468 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
1  =  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) ) ) )
17229adantr 452 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  T  e.  CC )
17341, 172, 42fsummulc1 12556 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( sum_ d  e.  ( 1 ... ( |_
`  x ) ) ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  T )  = 
sum_ d  e.  ( 1 ... ( |_
`  x ) ) ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  T
) )
174171, 173oveq12d 6090 . . . . . . 7  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( 1  -  ( sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  T ) )  =  ( sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) ) )  -  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  T
) ) )
17588, 90, 1743eqtr4rd 2478 . . . . . 6  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( 1  -  ( sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  T ) )  =  sum_ d  e.  ( 1 ... ( |_
`  x ) ) ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) ) )
176175fveq2d 5723 . . . . 5  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( abs `  (
1  -  ( sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  T ) ) )  =  ( abs `  sum_ d  e.  ( 1 ... ( |_
`  x ) ) ( ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) ) ) )
17784, 86subcld 9400 . . . . . . . . 9  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T )  e.  CC )
17842, 177mulcld 9097 . . . . . . . 8  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) )  x.  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) )  e.  CC )
17941, 178fsumcl 12515 . . . . . . 7  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) )  e.  CC )
180179abscld 12226 . . . . . 6  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( abs `  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) )  e.  RR )
181178abscld 12226 . . . . . . 7  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) )  e.  RR )
18241, 181fsumrecl 12516 . . . . . 6  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( abs `  ( ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) )  e.  RR )
18340adantr 452 . . . . . 6  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  C  e.  RR )
18441, 178fsumabs 12568 . . . . . 6  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( abs `  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) )  <_  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( abs `  (
( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) ) )
185 reflcl 11193 . . . . . . . . . 10  |-  ( x  e.  RR  ->  ( |_ `  x )  e.  RR )
18667, 185syl 16 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( |_ `  x
)  e.  RR )
187186, 183remulcld 9105 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( ( |_ `  x )  x.  C
)  e.  RR )
188187, 66rerpdivcld 10664 . . . . . . 7  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( ( ( |_
`  x )  x.  C )  /  x
)  e.  RR )
189183, 66rerpdivcld 10664 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( C  /  x
)  e.  RR )
190189adantr 452 . . . . . . . . 9  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( C  /  x )  e.  RR )
19142abscld 12226 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) ) )  e.  RR )
19270nnrecred 10034 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  / 
d )  e.  RR )
193177abscld 12226 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) )  e.  RR )
19479rpred 10637 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  d  e.  RR )
195190, 194remulcld 9105 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( C  /  x )  x.  d )  e.  RR )
19642absge0d 12234 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  0  <_  ( abs `  ( ( X `
 ( L `  d ) )  x.  ( ( mmu `  d )  /  d
) ) ) )
197177absge0d 12234 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  0  <_  ( abs `  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) )
19897abscld 12226 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( X `  ( L `  d ) ) )  e.  RR )
19924adantlrr 702 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( mmu `  d )  /  d
)  e.  CC )
200199abscld 12226 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
( mmu `  d
)  /  d ) )  e.  RR )
20197absge0d 12234 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  0  <_  ( abs `  ( X `  ( L `  d ) ) ) )
202199absge0d 12234 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  0  <_  ( abs `  ( ( mmu `  d )  /  d
) ) )
203 eqid 2435 . . . . . . . . . . . . . 14  |-  ( Base `  Z )  =  (
Base `  Z )
20412ad2antrr 707 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  X  e.  D
)
205 rpvmasum.a . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  N  e.  NN )
206205nnnn0d 10263 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  N  e.  NN0 )
2079, 203, 11znzrhfo 16816 . . . . . . . . . . . . . . . . 17  |-  ( N  e.  NN0  ->  L : ZZ -onto-> ( Base `  Z
) )
208 fof 5644 . . . . . . . . . . . . . . . . 17  |-  ( L : ZZ -onto-> ( Base `  Z )  ->  L : ZZ --> ( Base `  Z
) )
209206, 207, 2083syl 19 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  L : ZZ --> ( Base `  Z ) )
210209adantr 452 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  L : ZZ --> ( Base `  Z ) )
211 ffvelrn 5859 . . . . . . . . . . . . . . 15  |-  ( ( L : ZZ --> ( Base `  Z )  /\  d  e.  ZZ )  ->  ( L `  d )  e.  ( Base `  Z
) )
212210, 14, 211syl2an 464 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( L `  d )  e.  (
Base `  Z )
)
2138, 10, 9, 203, 204, 212dchrabs2 21034 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  ( X `  ( L `  d ) ) )  <_  1 )
214111, 71, 104absdivd 12245 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
( mmu `  d
)  /  d ) )  =  ( ( abs `  ( mmu `  d ) )  / 
( abs `  d
) ) )
21579rprege0d 10644 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( d  e.  RR  /\  0  <_ 
d ) )
216 absid 12089 . . . . . . . . . . . . . . . . 17  |-  ( ( d  e.  RR  /\  0  <_  d )  -> 
( abs `  d
)  =  d )
217215, 216syl 16 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  d
)  =  d )
218217oveq2d 6088 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( abs `  ( mmu `  d
) )  /  ( abs `  d ) )  =  ( ( abs `  ( mmu `  d
) )  /  d
) )
219214, 218eqtrd 2467 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
( mmu `  d
)  /  d ) )  =  ( ( abs `  ( mmu `  d ) )  / 
d ) )
220111abscld 12226 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
mmu `  d )
)  e.  RR )
221 mule1 20919 . . . . . . . . . . . . . . . 16  |-  ( d  e.  NN  ->  ( abs `  ( mmu `  d ) )  <_ 
1 )
22270, 221syl 16 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
mmu `  d )
)  <_  1 )
223220, 77, 79, 222lediv1dd 10691 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( abs `  ( mmu `  d
) )  /  d
)  <_  ( 1  /  d ) )
224219, 223eqbrtrd 4224 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
( mmu `  d
)  /  d ) )  <_  ( 1  /  d ) )
225198, 77, 200, 192, 201, 202, 213, 224lemul12ad 9942 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( abs `  ( X `  ( L `  d )
) )  x.  ( abs `  ( ( mmu `  d )  /  d
) ) )  <_ 
( 1  x.  (
1  /  d ) ) )
22697, 199absmuld 12244 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) ) )  =  ( ( abs `  ( X `
 ( L `  d ) ) )  x.  ( abs `  (
( mmu `  d
)  /  d ) ) ) )
227192recnd 9103 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  / 
d )  e.  CC )
228227mulid2d 9095 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  x.  ( 1  /  d
) )  =  ( 1  /  d ) )
229228eqcomd 2440 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( 1  / 
d )  =  ( 1  x.  ( 1  /  d ) ) )
230225, 226, 2293brtr4d 4234 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) ) )  <_  ( 1  /  d ) )
231 elicopnf 10989 . . . . . . . . . . . . . . 15  |-  ( 1  e.  RR  ->  (
( x  /  d
)  e.  ( 1 [,)  +oo )  <->  ( (
x  /  d )  e.  RR  /\  1  <_  ( x  /  d
) ) ) )
23235, 231ax-mp 8 . . . . . . . . . . . . . 14  |-  ( ( x  /  d )  e.  ( 1 [,) 
+oo )  <->  ( (
x  /  d )  e.  RR  /\  1  <_  ( x  /  d
) ) )
23369, 81, 232sylanbrc 646 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( x  / 
d )  e.  ( 1 [,)  +oo )
)
234 dchrisumn0.1 . . . . . . . . . . . . . 14  |-  ( ph  ->  A. y  e.  ( 1 [,)  +oo )
( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  y ) )  -  T ) )  <_ 
( C  /  y
) )
235234ad2antrr 707 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  A. y  e.  ( 1 [,)  +oo )
( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  y ) )  -  T ) )  <_ 
( C  /  y
) )
236 fveq2 5719 . . . . . . . . . . . . . . . . . 18  |-  ( y  =  ( x  / 
d )  ->  ( |_ `  y )  =  ( |_ `  (
x  /  d ) ) )
237236fveq2d 5723 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( x  / 
d )  ->  (  seq  1 (  +  ,  F ) `  ( |_ `  y ) )  =  (  seq  1
(  +  ,  F
) `  ( |_ `  ( x  /  d
) ) ) )
238237oveq1d 6087 . . . . . . . . . . . . . . . 16  |-  ( y  =  ( x  / 
d )  ->  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  y ) )  -  T )  =  ( (  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) )
239238fveq2d 5723 . . . . . . . . . . . . . . 15  |-  ( y  =  ( x  / 
d )  ->  ( abs `  ( (  seq  1 (  +  ,  F ) `  ( |_ `  y ) )  -  T ) )  =  ( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) ) )
240 oveq2 6080 . . . . . . . . . . . . . . 15  |-  ( y  =  ( x  / 
d )  ->  ( C  /  y )  =  ( C  /  (
x  /  d ) ) )
241239, 240breq12d 4217 . . . . . . . . . . . . . 14  |-  ( y  =  ( x  / 
d )  ->  (
( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  y ) )  -  T ) )  <_ 
( C  /  y
)  <->  ( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) )  <_ 
( C  /  (
x  /  d ) ) ) )
242241rspcv 3040 . . . . . . . . . . . . 13  |-  ( ( x  /  d )  e.  ( 1 [,) 
+oo )  ->  ( A. y  e.  (
1 [,)  +oo ) ( abs `  ( (  seq  1 (  +  ,  F ) `  ( |_ `  y ) )  -  T ) )  <_  ( C  /  y )  -> 
( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) )  <_ 
( C  /  (
x  /  d ) ) ) )
243233, 235, 242sylc 58 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) )  <_ 
( C  /  (
x  /  d ) ) )
244183recnd 9103 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  C  e.  CC )
245244adantr 452 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  C  e.  CC )
246 rpcnne0 10618 . . . . . . . . . . . . . . . 16  |-  ( x  e.  RR+  ->  ( x  e.  CC  /\  x  =/=  0 ) )
247246ad2antrl 709 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( x  e.  CC  /\  x  =/=  0 ) )
248247adantr 452 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( x  e.  CC  /\  x  =/=  0 ) )
249 divdiv2 9715 . . . . . . . . . . . . . 14  |-  ( ( C  e.  CC  /\  ( x  e.  CC  /\  x  =/=  0 )  /\  ( d  e.  CC  /\  d  =/=  0 ) )  -> 
( C  /  (
x  /  d ) )  =  ( ( C  x.  d )  /  x ) )
250245, 248, 71, 104, 249syl112anc 1188 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( C  / 
( x  /  d
) )  =  ( ( C  x.  d
)  /  x ) )
251 div23 9686 . . . . . . . . . . . . . 14  |-  ( ( C  e.  CC  /\  d  e.  CC  /\  (
x  e.  CC  /\  x  =/=  0 ) )  ->  ( ( C  x.  d )  /  x )  =  ( ( C  /  x
)  x.  d ) )
252245, 71, 248, 251syl3anc 1184 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( C  x.  d )  /  x )  =  ( ( C  /  x
)  x.  d ) )
253250, 252eqtrd 2467 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( C  / 
( x  /  d
) )  =  ( ( C  /  x
)  x.  d ) )
254243, 253breqtrd 4228 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) )  <_ 
( ( C  /  x )  x.  d
) )
255191, 192, 193, 195, 196, 197, 230, 254lemul12ad 9942 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( abs `  ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) ) )  x.  ( abs `  ( (  seq  1
(  +  ,  F
) `  ( |_ `  ( x  /  d
) ) )  -  T ) ) )  <_  ( ( 1  /  d )  x.  ( ( C  /  x )  x.  d
) ) )
25642, 177absmuld 12244 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) )  =  ( ( abs `  ( ( X `  ( L `
 d ) )  x.  ( ( mmu `  d )  /  d
) ) )  x.  ( abs `  (
(  seq  1 (  +  ,  F ) `
 ( |_ `  ( x  /  d
) ) )  -  T ) ) ) )
257189recnd 9103 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( C  /  x
)  e.  CC )
258257adantr 452 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( C  /  x )  e.  CC )
259258, 71, 104divcan4d 9785 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( ( C  /  x )  x.  d )  / 
d )  =  ( C  /  x ) )
260258, 71mulcld 9097 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( C  /  x )  x.  d )  e.  CC )
261260, 71, 104divrec2d 9783 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( ( ( C  /  x )  x.  d )  / 
d )  =  ( ( 1  /  d
)  x.  ( ( C  /  x )  x.  d ) ) )
262259, 261eqtr3d 2469 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( C  /  x )  =  ( ( 1  /  d
)  x.  ( ( C  /  x )  x.  d ) ) )
263255, 256, 2623brtr4d 4234 . . . . . . . . 9  |-  ( ( ( ph  /\  (
x  e.  RR+  /\  1  <_  x ) )  /\  d  e.  ( 1 ... ( |_ `  x ) ) )  ->  ( abs `  (
( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) )  <_  ( C  /  x ) )
26441, 181, 190, 263fsumle 12566 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( abs `  ( ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) )  <_  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( C  /  x
) )
265160nnnn0d 10263 . . . . . . . . . . 11  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( |_ `  x
)  e.  NN0 )
266 hashfz1 11618 . . . . . . . . . . 11  |-  ( ( |_ `  x )  e.  NN0  ->  ( # `  ( 1 ... ( |_ `  x ) ) )  =  ( |_
`  x ) )
267265, 266syl 16 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( # `  ( 1 ... ( |_ `  x ) ) )  =  ( |_ `  x ) )
268267oveq1d 6087 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( ( # `  (
1 ... ( |_ `  x ) ) )  x.  ( C  /  x ) )  =  ( ( |_ `  x )  x.  ( C  /  x ) ) )
269 fsumconst 12561 . . . . . . . . . 10  |-  ( ( ( 1 ... ( |_ `  x ) )  e.  Fin  /\  ( C  /  x )  e.  CC )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( C  /  x
)  =  ( (
# `  ( 1 ... ( |_ `  x
) ) )  x.  ( C  /  x
) ) )
27041, 257, 269syl2anc 643 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( C  /  x )  =  ( ( # `  ( 1 ... ( |_ `  x ) ) )  x.  ( C  /  x ) ) )
271160nncnd 10005 . . . . . . . . . 10  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( |_ `  x
)  e.  CC )
272 divass 9685 . . . . . . . . . 10  |-  ( ( ( |_ `  x
)  e.  CC  /\  C  e.  CC  /\  (
x  e.  CC  /\  x  =/=  0 ) )  ->  ( ( ( |_ `  x )  x.  C )  /  x )  =  ( ( |_ `  x
)  x.  ( C  /  x ) ) )
273271, 244, 247, 272syl3anc 1184 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( ( ( |_
`  x )  x.  C )  /  x
)  =  ( ( |_ `  x )  x.  ( C  /  x ) ) )
274268, 270, 2733eqtr4d 2477 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( C  /  x )  =  ( ( ( |_ `  x )  x.  C )  /  x ) )
275264, 274breqtrd 4228 . . . . . . 7  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( abs `  ( ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) )  <_  ( (
( |_ `  x
)  x.  C )  /  x ) )
27639adantr 452 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( C  e.  RR  /\  0  <_  C )
)
277 flle 11196 . . . . . . . . . 10  |-  ( x  e.  RR  ->  ( |_ `  x )  <_  x )
27867, 277syl 16 . . . . . . . . 9  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( |_ `  x
)  <_  x )
279 lemul1a 9853 . . . . . . . . 9  |-  ( ( ( ( |_ `  x )  e.  RR  /\  x  e.  RR  /\  ( C  e.  RR  /\  0  <_  C )
)  /\  ( |_ `  x )  <_  x
)  ->  ( ( |_ `  x )  x.  C )  <_  (
x  x.  C ) )
280186, 67, 276, 278, 279syl31anc 1187 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( ( |_ `  x )  x.  C
)  <_  ( x  x.  C ) )
281187, 183, 66ledivmuld 10686 . . . . . . . 8  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( ( ( ( |_ `  x )  x.  C )  /  x )  <_  C  <->  ( ( |_ `  x
)  x.  C )  <_  ( x  x.  C ) ) )
282280, 281mpbird 224 . . . . . . 7  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( ( ( |_
`  x )  x.  C )  /  x
)  <_  C )
283182, 188, 183, 275, 282letrd 9216 . . . . . 6  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  ->  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( abs `  ( ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) )  <_  C )
284180, 182, 183, 184, 283letrd 9216 . . . . 5  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( abs `  sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  ( (  seq  1 (  +  ,  F ) `  ( |_ `  ( x  / 
d ) ) )  -  T ) ) )  <_  C )
285176, 284eqbrtrd 4224 . . . 4  |-  ( (
ph  /\  ( x  e.  RR+  /\  1  <_  x ) )  -> 
( abs `  (
1  -  ( sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  T ) ) )  <_  C )
28632, 34, 36, 40, 285elo1d 12318 . . 3  |-  ( ph  ->  ( x  e.  RR+  |->  ( 1  -  ( sum_ d  e.  ( 1 ... ( |_ `  x ) ) ( ( X `  ( L `  d )
)  x.  ( ( mmu `  d )  /  d ) )  x.  T ) ) )  e.  O ( 1 ) )
2876, 31, 286o1dif 12411 . 2  |-  ( ph  ->  ( ( x  e.  RR+  |->  1 )  e.  O ( 1 )  <-> 
( x  e.  RR+  |->  ( sum_ d  e.  ( 1 ... ( |_
`  x ) ) ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  T ) )  e.  O ( 1 ) ) )
2885, 287mpbid 202 1  |-  ( ph  ->  ( x  e.  RR+  |->  ( sum_ d  e.  ( 1 ... ( |_
`  x ) ) ( ( X `  ( L `  d ) )  x.  ( ( mmu `  d )  /  d ) )  x.  T ) )  e.  O ( 1 ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 177    /\ wa 359    = wceq 1652    e. wcel 1725    =/= wne 2598   A.wral 2697   {crab 2701    C_ wss 3312   class class class wbr 4204    e. cmpt 4258   -->wf 5441   -onto->wfo 5443   ` cfv 5445  (class class class)co 6072   Fincfn 7100   CCcc 8977   RRcr 8978   0cc0 8979   1c1 8980    + caddc 8982    x. cmul 8984    +oocpnf 9106    <_ cle 9110    - cmin 9280    / cdiv 9666   NNcn 9989   NN0cn0 10210   ZZcz 10271   ZZ>=cuz 10477   RR+crp 10601   [,)cico 10907   ...cfz 11032   |_cfl 11189    seq cseq 11311   #chash 11606   abscabs 12027    ~~> cli 12266   O (
1 )co1 12268   sum_csu 12467    || cdivides 12840   Basecbs 13457   0gc0g 13711   ZRHomczrh 16766  ℤ/nczn 16769   mmucmu 20865  DChrcdchr 21004
This theorem is referenced by:  dchrvmasumiflem2  21184  dchrmusumlem  21204
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1555  ax-5 1566  ax-17 1626  ax-9 1666  ax-8 1687  ax-13 1727  ax-14 1729  ax-6 1744  ax-7 1749  ax-11 1761  ax-12 1950  ax-ext 2416  ax-rep 4312  ax-sep 4322  ax-nul 4330  ax-pow 4369  ax-pr 4395  ax-un 4692  ax-inf2 7585  ax-cnex 9035  ax-resscn 9036  ax-1cn 9037  ax-icn 9038  ax-addcl 9039  ax-addrcl 9040  ax-mulcl 9041  ax-mulrcl 9042  ax-mulcom 9043  ax-addass 9044  ax-mulass 9045  ax-distr 9046  ax-i2m1 9047  ax-1ne0 9048  ax-1rid 9049  ax-rnegex 9050  ax-rrecex 9051  ax-cnre 9052  ax-pre-lttri 9053  ax-pre-lttrn 9054  ax-pre-ltadd 9055  ax-pre-mulgt0 9056  ax-pre-sup 9057  ax-addf 9058  ax-mulf 9059
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1328  df-ex 1551  df-nf 1554  df-sb 1659  df-eu 2284  df-mo 2285  df-clab 2422  df-cleq 2428  df-clel 2431  df-nfc 2560  df-ne 2600  df-nel 2601  df-ral 2702  df-rex 2703  df-reu 2704  df-rmo 2705  df-rab 2706  df-v 2950  df-sbc 3154  df-csb 3244  df-dif 3315  df-un 3317  df-in 3319  df-ss 3326  df-pss 3328  df-nul 3621  df-if 3732  df-pw 3793  df-sn 3812  df-pr 3813  df-tp 3814  df-op 3815  df-uni 4008  df-int 4043  df-iun 4087  df-iin 4088  df-disj 4175  df-br 4205  df-opab 4259  df-mpt 4260  df-tr 4295  df-eprel 4486  df-id 4490  df-po 4495  df-so 4496  df-fr 4533  df-se 4534  df-we 4535  df-ord 4576  df-on 4577  df-lim 4578  df-suc 4579  df-om 4837  df-xp 4875  df-rel 4876  df-cnv 4877  df-co 4878  df-dm 4879  df-rn 4880  df-res 4881  df-ima 4882  df-iota 5409  df-fun 5447  df-fn 5448  df-f 5449  df-f1 5450  df-fo 5451  df-f1o 5452  df-fv 5453  df-isom 5454  df-ov 6075  df-oprab 6076  df-mpt2 6077  df-of 6296  df-1st 6340  df-2nd 6341  df-tpos 6470  df-riota 6540  df-recs 6624  df-rdg 6659  df-1o 6715  df-2o 6716  df-oadd 6719  df-omul 6720  df-er 6896  df-ec 6898  df-qs 6902  df-map 7011  df-pm 7012  df-ixp 7055  df-en 7101  df-dom 7102  df-sdom 7103  df-fin 7104  df-fi 7407  df-sup 7437  df-oi 7468  df-card 7815  df-acn 7818  df-cda 8037  df-pnf 9111  df-mnf 9112  df-xr 9113  df-ltxr 9114  df-le 9115  df-sub 9282  df-neg 9283  df-div 9667  df-nn 9990  df-2 10047  df-3 10048  df-4 10049  df-5 10050  df-6 10051  df-7 10052  df-8 10053  df-9 10054  df-10 10055  df-n0 10211  df-z 10272  df-dec 10372  df-uz 10478  df-q 10564  df-rp 10602  df-xneg 10699  df-xadd 10700  df-xmul 10701  df-ioo 10909  df-ioc 10910  df-ico 10911  df-icc 10912  df-fz 11033  df-fzo 11124  df-fl 11190  df-mod 11239  df-seq 11312  df-exp 11371  df-fac 11555  df-bc 11582  df-hash 11607  df-shft 11870  df-cj 11892  df-re 11893  df-im 11894  df-sqr 12028  df-abs 12029  df-limsup 12253  df-clim 12270  df-rlim 12271  df-o1 12272  df-lo1 12273  df-sum 12468  df-ef 12658  df-sin 12660  df-cos 12661  df-pi 12663  df-dvds 12841  df-gcd 12995  df-prm 13068  df-pc 13199  df-struct 13459  df-ndx 13460  df-slot 13461  df-base 13462  df-sets 13463  df-ress 13464  df-plusg 13530  df-mulr 13531  df-starv 13532  df-sca 13533  df-vsca 13534  df-tset 13536  df-ple 13537  df-ds 13539  df-unif 13540  df-hom 13541  df-cco 13542  df-rest 13638  df-topn 13639  df-topgen 13655  df-pt 13656  df-prds 13659  df-xrs 13714  df-0g 13715  df-gsum 13716  df-qtop 13721  df-imas 13722  df-divs 13723  df-xps 13724  df-mre 13799  df-mrc 13800  df-acs 13802  df-mnd 14678  df-mhm 14726  df-submnd 14727  df-grp 14800  df-minusg 14801  df-sbg 14802  df-mulg 14803  df-subg 14929  df-nsg 14930  df-eqg 14931  df-ghm 14992  df-cntz 15104  df-od 15155  df-cmn 15402  df-abl 15403  df-mgp 15637  df-rng 15651  df-cring 15652  df-ur 15653  df-oppr 15716  df-dvdsr 15734  df-unit 15735  df-invr 15765  df-dvr 15776  df-rnghom 15807  df-drng 15825  df-subrg 15854  df-lmod 15940  df-lss 15997  df-lsp 16036  df-sra 16232  df-rgmod 16233  df-lidl 16234  df-rsp 16235  df-2idl 16291  df-psmet 16682  df-xmet 16683  df-met 16684  df-bl 16685  df-mopn 16686  df-fbas 16687  df-fg 16688  df-cnfld 16692  df-zrh 16770  df-zn 16773  df-top 16951  df-bases 16953  df-topon 16954  df-topsp 16955  df-cld 17071  df-ntr 17072  df-cls 17073  df-nei 17150  df-lp 17188  df-perf 17189  df-cn 17279  df-cnp 17280  df-haus 17367  df-tx 17582  df-hmeo 17775  df-fil 17866  df-fm 17958  df-flim 17959  df-flf 17960  df-xms 18338  df-ms 18339  df-tms 18340  df-cncf 18896  df-limc 19741  df-dv 19742  df-log 20442  df-cxp 20443  df-mu 20871  df-dchr 21005
  Copyright terms: Public domain W3C validator