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

Theorem rplogsumlem2 24323
Description: Lemma for rplogsum 24365. Equation 9.2.14 of [Shapiro], p. 331. (Contributed by Mario Carneiro, 2-May-2016.)
Assertion
Ref Expression
rplogsumlem2  |-  ( A  e.  ZZ  ->  sum_ n  e.  ( 1 ... A
) ( ( (Λ `  n )  -  if ( n  e.  Prime ,  ( log `  n
) ,  0 ) )  /  n )  <_  2 )
Distinct variable group:    A, n

Proof of Theorem rplogsumlem2
Dummy variables  k  p are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 flid 12044 . . . . 5  |-  ( A  e.  ZZ  ->  ( |_ `  A )  =  A )
21oveq2d 6306 . . . 4  |-  ( A  e.  ZZ  ->  (
1 ... ( |_ `  A ) )  =  ( 1 ... A
) )
32sumeq1d 13767 . . 3  |-  ( A  e.  ZZ  ->  sum_ n  e.  ( 1 ... ( |_ `  A ) ) ( ( (Λ `  n
)  -  if ( n  e.  Prime ,  ( log `  n ) ,  0 ) )  /  n )  = 
sum_ n  e.  (
1 ... A ) ( ( (Λ `  n
)  -  if ( n  e.  Prime ,  ( log `  n ) ,  0 ) )  /  n ) )
4 fveq2 5865 . . . . . 6  |-  ( n  =  ( p ^
k )  ->  (Λ `  n )  =  (Λ `  ( p ^ k
) ) )
5 eleq1 2517 . . . . . . 7  |-  ( n  =  ( p ^
k )  ->  (
n  e.  Prime  <->  ( p ^ k )  e. 
Prime ) )
6 fveq2 5865 . . . . . . 7  |-  ( n  =  ( p ^
k )  ->  ( log `  n )  =  ( log `  (
p ^ k ) ) )
75, 6ifbieq1d 3904 . . . . . 6  |-  ( n  =  ( p ^
k )  ->  if ( n  e.  Prime ,  ( log `  n
) ,  0 )  =  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )
84, 7oveq12d 6308 . . . . 5  |-  ( n  =  ( p ^
k )  ->  (
(Λ `  n )  -  if ( n  e.  Prime ,  ( log `  n
) ,  0 ) )  =  ( (Λ `  ( p ^ k
) )  -  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 ) ) )
9 id 22 . . . . 5  |-  ( n  =  ( p ^
k )  ->  n  =  ( p ^
k ) )
108, 9oveq12d 6308 . . . 4  |-  ( n  =  ( p ^
k )  ->  (
( (Λ `  n )  -  if ( n  e. 
Prime ,  ( log `  n ) ,  0 ) )  /  n
)  =  ( ( (Λ `  ( p ^ k ) )  -  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )  /  (
p ^ k ) ) )
11 zre 10941 . . . 4  |-  ( A  e.  ZZ  ->  A  e.  RR )
12 elfznn 11828 . . . . . . . . 9  |-  ( n  e.  ( 1 ... ( |_ `  A
) )  ->  n  e.  NN )
1312adantl 468 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  n  e.  ( 1 ... ( |_ `  A ) ) )  ->  n  e.  NN )
14 vmacl 24045 . . . . . . . 8  |-  ( n  e.  NN  ->  (Λ `  n )  e.  RR )
1513, 14syl 17 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  n  e.  ( 1 ... ( |_ `  A ) ) )  ->  (Λ `  n )  e.  RR )
1613nnrpd 11339 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  n  e.  ( 1 ... ( |_ `  A ) ) )  ->  n  e.  RR+ )
1716relogcld 23572 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  n  e.  ( 1 ... ( |_ `  A ) ) )  ->  ( log `  n
)  e.  RR )
18 0re 9643 . . . . . . . 8  |-  0  e.  RR
19 ifcl 3923 . . . . . . . 8  |-  ( ( ( log `  n
)  e.  RR  /\  0  e.  RR )  ->  if ( n  e. 
Prime ,  ( log `  n ) ,  0 )  e.  RR )
2017, 18, 19sylancl 668 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  n  e.  ( 1 ... ( |_ `  A ) ) )  ->  if ( n  e.  Prime ,  ( log `  n ) ,  0 )  e.  RR )
2115, 20resubcld 10047 . . . . . 6  |-  ( ( A  e.  ZZ  /\  n  e.  ( 1 ... ( |_ `  A ) ) )  ->  ( (Λ `  n
)  -  if ( n  e.  Prime ,  ( log `  n ) ,  0 ) )  e.  RR )
2221, 13nndivred 10658 . . . . 5  |-  ( ( A  e.  ZZ  /\  n  e.  ( 1 ... ( |_ `  A ) ) )  ->  ( ( (Λ `  n )  -  if ( n  e.  Prime ,  ( log `  n
) ,  0 ) )  /  n )  e.  RR )
2322recnd 9669 . . . 4  |-  ( ( A  e.  ZZ  /\  n  e.  ( 1 ... ( |_ `  A ) ) )  ->  ( ( (Λ `  n )  -  if ( n  e.  Prime ,  ( log `  n
) ,  0 ) )  /  n )  e.  CC )
24 simprr 766 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  ( n  e.  (
1 ... ( |_ `  A ) )  /\  (Λ `  n )  =  0 ) )  -> 
(Λ `  n )  =  0 )
25 vmaprm 24044 . . . . . . . . . . . . 13  |-  ( n  e.  Prime  ->  (Λ `  n
)  =  ( log `  n ) )
26 prmnn 14625 . . . . . . . . . . . . . . 15  |-  ( n  e.  Prime  ->  n  e.  NN )
2726nnred 10624 . . . . . . . . . . . . . 14  |-  ( n  e.  Prime  ->  n  e.  RR )
28 prmgt1 14643 . . . . . . . . . . . . . 14  |-  ( n  e.  Prime  ->  1  < 
n )
2927, 28rplogcld 23578 . . . . . . . . . . . . 13  |-  ( n  e.  Prime  ->  ( log `  n )  e.  RR+ )
3025, 29eqeltrd 2529 . . . . . . . . . . . 12  |-  ( n  e.  Prime  ->  (Λ `  n
)  e.  RR+ )
3130rpne0d 11346 . . . . . . . . . . 11  |-  ( n  e.  Prime  ->  (Λ `  n
)  =/=  0 )
3231necon2bi 2654 . . . . . . . . . 10  |-  ( (Λ `  n )  =  0  ->  -.  n  e.  Prime )
3332ad2antll 735 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  ( n  e.  (
1 ... ( |_ `  A ) )  /\  (Λ `  n )  =  0 ) )  ->  -.  n  e.  Prime )
3433iffalsed 3892 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  ( n  e.  (
1 ... ( |_ `  A ) )  /\  (Λ `  n )  =  0 ) )  ->  if ( n  e.  Prime ,  ( log `  n
) ,  0 )  =  0 )
3524, 34oveq12d 6308 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  ( n  e.  (
1 ... ( |_ `  A ) )  /\  (Λ `  n )  =  0 ) )  -> 
( (Λ `  n )  -  if ( n  e. 
Prime ,  ( log `  n ) ,  0 ) )  =  ( 0  -  0 ) )
36 0m0e0 10719 . . . . . . 7  |-  ( 0  -  0 )  =  0
3735, 36syl6eq 2501 . . . . . 6  |-  ( ( A  e.  ZZ  /\  ( n  e.  (
1 ... ( |_ `  A ) )  /\  (Λ `  n )  =  0 ) )  -> 
( (Λ `  n )  -  if ( n  e. 
Prime ,  ( log `  n ) ,  0 ) )  =  0 )
3837oveq1d 6305 . . . . 5  |-  ( ( A  e.  ZZ  /\  ( n  e.  (
1 ... ( |_ `  A ) )  /\  (Λ `  n )  =  0 ) )  -> 
( ( (Λ `  n
)  -  if ( n  e.  Prime ,  ( log `  n ) ,  0 ) )  /  n )  =  ( 0  /  n
) )
3912ad2antrl 734 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  ( n  e.  (
1 ... ( |_ `  A ) )  /\  (Λ `  n )  =  0 ) )  ->  n  e.  NN )
4039nnrpd 11339 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  ( n  e.  (
1 ... ( |_ `  A ) )  /\  (Λ `  n )  =  0 ) )  ->  n  e.  RR+ )
4140rpcnne0d 11350 . . . . . 6  |-  ( ( A  e.  ZZ  /\  ( n  e.  (
1 ... ( |_ `  A ) )  /\  (Λ `  n )  =  0 ) )  -> 
( n  e.  CC  /\  n  =/=  0 ) )
42 div0 10298 . . . . . 6  |-  ( ( n  e.  CC  /\  n  =/=  0 )  -> 
( 0  /  n
)  =  0 )
4341, 42syl 17 . . . . 5  |-  ( ( A  e.  ZZ  /\  ( n  e.  (
1 ... ( |_ `  A ) )  /\  (Λ `  n )  =  0 ) )  -> 
( 0  /  n
)  =  0 )
4438, 43eqtrd 2485 . . . 4  |-  ( ( A  e.  ZZ  /\  ( n  e.  (
1 ... ( |_ `  A ) )  /\  (Λ `  n )  =  0 ) )  -> 
( ( (Λ `  n
)  -  if ( n  e.  Prime ,  ( log `  n ) ,  0 ) )  /  n )  =  0 )
4510, 11, 23, 44fsumvma2 24142 . . 3  |-  ( A  e.  ZZ  ->  sum_ n  e.  ( 1 ... ( |_ `  A ) ) ( ( (Λ `  n
)  -  if ( n  e.  Prime ,  ( log `  n ) ,  0 ) )  /  n )  = 
sum_ p  e.  (
( 0 [,] A
)  i^i  Prime ) sum_ k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k
) )  -  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 ) )  /  ( p ^ k ) ) )
463, 45eqtr3d 2487 . 2  |-  ( A  e.  ZZ  ->  sum_ n  e.  ( 1 ... A
) ( ( (Λ `  n )  -  if ( n  e.  Prime ,  ( log `  n
) ,  0 ) )  /  n )  =  sum_ p  e.  ( ( 0 [,] A
)  i^i  Prime ) sum_ k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k
) )  -  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 ) )  /  ( p ^ k ) ) )
47 fzfid 12186 . . . . 5  |-  ( A  e.  ZZ  ->  (
2 ... ( ( abs `  A )  +  1 ) )  e.  Fin )
48 inss2 3653 . . . . . . . . . . . 12  |-  ( ( 0 [,] A )  i^i  Prime )  C_  Prime
49 simpr 463 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  p  e.  ( (
0 [,] A )  i^i  Prime ) )
5048, 49sseldi 3430 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  p  e.  Prime )
51 prmnn 14625 . . . . . . . . . . 11  |-  ( p  e.  Prime  ->  p  e.  NN )
5250, 51syl 17 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  p  e.  NN )
5352nnred 10624 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  p  e.  RR )
5411adantr 467 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  A  e.  RR )
55 zcn 10942 . . . . . . . . . . . 12  |-  ( A  e.  ZZ  ->  A  e.  CC )
5655abscld 13498 . . . . . . . . . . 11  |-  ( A  e.  ZZ  ->  ( abs `  A )  e.  RR )
57 peano2re 9806 . . . . . . . . . . 11  |-  ( ( abs `  A )  e.  RR  ->  (
( abs `  A
)  +  1 )  e.  RR )
5856, 57syl 17 . . . . . . . . . 10  |-  ( A  e.  ZZ  ->  (
( abs `  A
)  +  1 )  e.  RR )
5958adantr 467 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( abs `  A
)  +  1 )  e.  RR )
60 inss1 3652 . . . . . . . . . . . . 13  |-  ( ( 0 [,] A )  i^i  Prime )  C_  (
0 [,] A )
6160sseli 3428 . . . . . . . . . . . 12  |-  ( p  e.  ( ( 0 [,] A )  i^i 
Prime )  ->  p  e.  ( 0 [,] A
) )
62 elicc2 11699 . . . . . . . . . . . . 13  |-  ( ( 0  e.  RR  /\  A  e.  RR )  ->  ( p  e.  ( 0 [,] A )  <-> 
( p  e.  RR  /\  0  <_  p  /\  p  <_  A ) ) )
6318, 11, 62sylancr 669 . . . . . . . . . . . 12  |-  ( A  e.  ZZ  ->  (
p  e.  ( 0 [,] A )  <->  ( p  e.  RR  /\  0  <_  p  /\  p  <_  A
) ) )
6461, 63syl5ib 223 . . . . . . . . . . 11  |-  ( A  e.  ZZ  ->  (
p  e.  ( ( 0 [,] A )  i^i  Prime )  ->  (
p  e.  RR  /\  0  <_  p  /\  p  <_  A ) ) )
6564imp 431 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p  e.  RR  /\  0  <_  p  /\  p  <_  A ) )
6665simp3d 1022 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  p  <_  A )
6755adantr 467 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  A  e.  CC )
6867abscld 13498 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( abs `  A
)  e.  RR )
6954leabsd 13476 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  A  <_  ( abs `  A
) )
7068lep1d 10538 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( abs `  A
)  <_  ( ( abs `  A )  +  1 ) )
7154, 68, 59, 69, 70letrd 9792 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  A  <_  ( ( abs `  A )  +  1 ) )
7253, 54, 59, 66, 71letrd 9792 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  p  <_  ( ( abs `  A )  +  1 ) )
73 prmuz2 14642 . . . . . . . . . 10  |-  ( p  e.  Prime  ->  p  e.  ( ZZ>= `  2 )
)
7450, 73syl 17 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  p  e.  ( ZZ>= ` 
2 ) )
75 nn0abscl 13375 . . . . . . . . . . . 12  |-  ( A  e.  ZZ  ->  ( abs `  A )  e. 
NN0 )
76 nn0p1nn 10909 . . . . . . . . . . . 12  |-  ( ( abs `  A )  e.  NN0  ->  ( ( abs `  A )  +  1 )  e.  NN )
7775, 76syl 17 . . . . . . . . . . 11  |-  ( A  e.  ZZ  ->  (
( abs `  A
)  +  1 )  e.  NN )
7877nnzd 11039 . . . . . . . . . 10  |-  ( A  e.  ZZ  ->  (
( abs `  A
)  +  1 )  e.  ZZ )
7978adantr 467 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( abs `  A
)  +  1 )  e.  ZZ )
80 elfz5 11792 . . . . . . . . 9  |-  ( ( p  e.  ( ZZ>= ` 
2 )  /\  (
( abs `  A
)  +  1 )  e.  ZZ )  -> 
( p  e.  ( 2 ... ( ( abs `  A )  +  1 ) )  <-> 
p  <_  ( ( abs `  A )  +  1 ) ) )
8174, 79, 80syl2anc 667 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p  e.  ( 2 ... ( ( abs `  A )  +  1 ) )  <-> 
p  <_  ( ( abs `  A )  +  1 ) ) )
8272, 81mpbird 236 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )
8382ex 436 . . . . . 6  |-  ( A  e.  ZZ  ->  (
p  e.  ( ( 0 [,] A )  i^i  Prime )  ->  p  e.  ( 2 ... (
( abs `  A
)  +  1 ) ) ) )
8483ssrdv 3438 . . . . 5  |-  ( A  e.  ZZ  ->  (
( 0 [,] A
)  i^i  Prime )  C_  ( 2 ... (
( abs `  A
)  +  1 ) ) )
85 ssfi 7792 . . . . 5  |-  ( ( ( 2 ... (
( abs `  A
)  +  1 ) )  e.  Fin  /\  ( ( 0 [,] A )  i^i  Prime ) 
C_  ( 2 ... ( ( abs `  A
)  +  1 ) ) )  ->  (
( 0 [,] A
)  i^i  Prime )  e. 
Fin )
8647, 84, 85syl2anc 667 . . . 4  |-  ( A  e.  ZZ  ->  (
( 0 [,] A
)  i^i  Prime )  e. 
Fin )
87 fzfid 12186 . . . . 5  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1 ... ( |_ `  ( ( log `  A )  /  ( log `  p ) ) ) )  e.  Fin )
88 simprl 764 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  ->  p  e.  ( (
0 [,] A )  i^i  Prime ) )
8948, 88sseldi 3430 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  ->  p  e.  Prime )
90 elfznn 11828 . . . . . . . . . . 11  |-  ( k  e.  ( 1 ... ( |_ `  (
( log `  A
)  /  ( log `  p ) ) ) )  ->  k  e.  NN )
9190ad2antll 735 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  -> 
k  e.  NN )
92 vmappw 24043 . . . . . . . . . 10  |-  ( ( p  e.  Prime  /\  k  e.  NN )  ->  (Λ `  ( p ^ k
) )  =  ( log `  p ) )
9389, 91, 92syl2anc 667 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  -> 
(Λ `  ( p ^
k ) )  =  ( log `  p
) )
9452adantrr 723 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  ->  p  e.  NN )
9594nnrpd 11339 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  ->  p  e.  RR+ )
9695relogcld 23572 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  -> 
( log `  p
)  e.  RR )
9793, 96eqeltrd 2529 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  -> 
(Λ `  ( p ^
k ) )  e.  RR )
9891nnnn0d 10925 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  -> 
k  e.  NN0 )
99 nnexpcl 12285 . . . . . . . . . . . 12  |-  ( ( p  e.  NN  /\  k  e.  NN0 )  -> 
( p ^ k
)  e.  NN )
10094, 98, 99syl2anc 667 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  -> 
( p ^ k
)  e.  NN )
101100nnrpd 11339 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  -> 
( p ^ k
)  e.  RR+ )
102101relogcld 23572 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  -> 
( log `  (
p ^ k ) )  e.  RR )
103 ifcl 3923 . . . . . . . . 9  |-  ( ( ( log `  (
p ^ k ) )  e.  RR  /\  0  e.  RR )  ->  if ( ( p ^ k )  e. 
Prime ,  ( log `  ( p ^ k
) ) ,  0 )  e.  RR )
104102, 18, 103sylancl 668 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  ->  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 )  e.  RR )
10597, 104resubcld 10047 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  -> 
( (Λ `  ( p ^ k ) )  -  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )  e.  RR )
106105, 100nndivred 10658 . . . . . 6  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  -> 
( ( (Λ `  (
p ^ k ) )  -  if ( ( p ^ k
)  e.  Prime ,  ( log `  ( p ^ k ) ) ,  0 ) )  /  ( p ^
k ) )  e.  RR )
107106anassrs 654 . . . . 5  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  (
( (Λ `  ( p ^ k ) )  -  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )  /  (
p ^ k ) )  e.  RR )
10887, 107fsumrecl 13800 . . . 4  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k
) )  -  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 ) )  /  ( p ^ k ) )  e.  RR )
10986, 108fsumrecl 13800 . . 3  |-  ( A  e.  ZZ  ->  sum_ p  e.  ( ( 0 [,] A )  i^i  Prime )
sum_ k  e.  ( 1 ... ( |_
`  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k ) )  -  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )  /  (
p ^ k ) )  e.  RR )
11052nnrpd 11339 . . . . . 6  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  p  e.  RR+ )
111110relogcld 23572 . . . . 5  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( log `  p
)  e.  RR )
112 uz2m1nn 11233 . . . . . . 7  |-  ( p  e.  ( ZZ>= `  2
)  ->  ( p  -  1 )  e.  NN )
11374, 112syl 17 . . . . . 6  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p  -  1 )  e.  NN )
11452, 113nnmulcld 10657 . . . . 5  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p  x.  (
p  -  1 ) )  e.  NN )
115111, 114nndivred 10658 . . . 4  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( log `  p
)  /  ( p  x.  ( p  - 
1 ) ) )  e.  RR )
11686, 115fsumrecl 13800 . . 3  |-  ( A  e.  ZZ  ->  sum_ p  e.  ( ( 0 [,] A )  i^i  Prime ) ( ( log `  p
)  /  ( p  x.  ( p  - 
1 ) ) )  e.  RR )
117 2re 10679 . . . 4  |-  2  e.  RR
118117a1i 11 . . 3  |-  ( A  e.  ZZ  ->  2  e.  RR )
11918a1i 11 . . . . . . . . . . . . 13  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
0  e.  RR )
12052nngt0d 10653 . . . . . . . . . . . . 13  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
0  <  p )
121119, 53, 54, 120, 66ltletrd 9795 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
0  <  A )
12254, 121elrpd 11338 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  A  e.  RR+ )
123122relogcld 23572 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( log `  A
)  e.  RR )
124 prmgt1 14643 . . . . . . . . . . . 12  |-  ( p  e.  Prime  ->  1  < 
p )
12550, 124syl 17 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
1  <  p )
12653, 125rplogcld 23578 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( log `  p
)  e.  RR+ )
127123, 126rerpdivcld 11369 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( log `  A
)  /  ( log `  p ) )  e.  RR )
128126rpcnd 11343 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( log `  p
)  e.  CC )
129128mulid2d 9661 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1  x.  ( log `  p ) )  =  ( log `  p
) )
130110, 122logled 23576 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p  <_  A  <->  ( log `  p )  <_  ( log `  A
) ) )
13166, 130mpbid 214 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( log `  p
)  <_  ( log `  A ) )
132129, 131eqbrtrd 4423 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1  x.  ( log `  p ) )  <_  ( log `  A
) )
133 1re 9642 . . . . . . . . . . . 12  |-  1  e.  RR
134133a1i 11 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
1  e.  RR )
135134, 123, 126lemuldivd 11387 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( 1  x.  ( log `  p
) )  <_  ( log `  A )  <->  1  <_  ( ( log `  A
)  /  ( log `  p ) ) ) )
136132, 135mpbid 214 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
1  <_  ( ( log `  A )  / 
( log `  p
) ) )
137 flge1nn 12055 . . . . . . . . 9  |-  ( ( ( ( log `  A
)  /  ( log `  p ) )  e.  RR  /\  1  <_ 
( ( log `  A
)  /  ( log `  p ) ) )  ->  ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  e.  NN )
138127, 136, 137syl2anc 667 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( |_ `  (
( log `  A
)  /  ( log `  p ) ) )  e.  NN )
139 nnuz 11194 . . . . . . . 8  |-  NN  =  ( ZZ>= `  1 )
140138, 139syl6eleq 2539 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( |_ `  (
( log `  A
)  /  ( log `  p ) ) )  e.  ( ZZ>= `  1
) )
141106recnd 9669 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  ( p  e.  (
( 0 [,] A
)  i^i  Prime )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ) )  -> 
( ( (Λ `  (
p ^ k ) )  -  if ( ( p ^ k
)  e.  Prime ,  ( log `  ( p ^ k ) ) ,  0 ) )  /  ( p ^
k ) )  e.  CC )
142141anassrs 654 . . . . . . 7  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  (
( (Λ `  ( p ^ k ) )  -  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )  /  (
p ^ k ) )  e.  CC )
143 oveq2 6298 . . . . . . . . . 10  |-  ( k  =  1  ->  (
p ^ k )  =  ( p ^
1 ) )
144143fveq2d 5869 . . . . . . . . 9  |-  ( k  =  1  ->  (Λ `  ( p ^ k
) )  =  (Λ `  ( p ^ 1 ) ) )
145143eleq1d 2513 . . . . . . . . . 10  |-  ( k  =  1  ->  (
( p ^ k
)  e.  Prime  <->  ( p ^ 1 )  e. 
Prime ) )
146143fveq2d 5869 . . . . . . . . . 10  |-  ( k  =  1  ->  ( log `  ( p ^
k ) )  =  ( log `  (
p ^ 1 ) ) )
147145, 146ifbieq1d 3904 . . . . . . . . 9  |-  ( k  =  1  ->  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 )  =  if ( ( p ^ 1 )  e.  Prime ,  ( log `  ( p ^ 1 ) ) ,  0 ) )
148144, 147oveq12d 6308 . . . . . . . 8  |-  ( k  =  1  ->  (
(Λ `  ( p ^
k ) )  -  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 ) )  =  ( (Λ `  ( p ^ 1 ) )  -  if ( ( p ^
1 )  e.  Prime ,  ( log `  (
p ^ 1 ) ) ,  0 ) ) )
149148, 143oveq12d 6308 . . . . . . 7  |-  ( k  =  1  ->  (
( (Λ `  ( p ^ k ) )  -  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )  /  (
p ^ k ) )  =  ( ( (Λ `  ( p ^ 1 ) )  -  if ( ( p ^ 1 )  e.  Prime ,  ( log `  ( p ^ 1 ) ) ,  0 ) )  /  (
p ^ 1 ) ) )
150140, 142, 149fsum1p 13814 . . . . . 6  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k
) )  -  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 ) )  /  ( p ^ k ) )  =  ( ( ( (Λ `  ( p ^ 1 ) )  -  if ( ( p ^ 1 )  e.  Prime ,  ( log `  ( p ^ 1 ) ) ,  0 ) )  /  (
p ^ 1 ) )  +  sum_ k  e.  ( ( 1  +  1 ) ... ( |_ `  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k ) )  -  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )  /  (
p ^ k ) ) ) )
15152nncnd 10625 . . . . . . . . . . . . . 14  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  p  e.  CC )
152151exp1d 12411 . . . . . . . . . . . . 13  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p ^ 1 )  =  p )
153152fveq2d 5869 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
(Λ `  ( p ^
1 ) )  =  (Λ `  p )
)
154 vmaprm 24044 . . . . . . . . . . . . 13  |-  ( p  e.  Prime  ->  (Λ `  p
)  =  ( log `  p ) )
15550, 154syl 17 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
(Λ `  p )  =  ( log `  p
) )
156153, 155eqtrd 2485 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
(Λ `  ( p ^
1 ) )  =  ( log `  p
) )
157152, 50eqeltrd 2529 . . . . . . . . . . . . 13  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p ^ 1 )  e.  Prime )
158157iftrued 3889 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  if ( ( p ^
1 )  e.  Prime ,  ( log `  (
p ^ 1 ) ) ,  0 )  =  ( log `  (
p ^ 1 ) ) )
159152fveq2d 5869 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( log `  (
p ^ 1 ) )  =  ( log `  p ) )
160158, 159eqtrd 2485 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  if ( ( p ^
1 )  e.  Prime ,  ( log `  (
p ^ 1 ) ) ,  0 )  =  ( log `  p
) )
161156, 160oveq12d 6308 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( (Λ `  ( p ^ 1 ) )  -  if ( ( p ^ 1 )  e.  Prime ,  ( log `  ( p ^ 1 ) ) ,  0 ) )  =  ( ( log `  p
)  -  ( log `  p ) ) )
162128subidd 9974 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( log `  p
)  -  ( log `  p ) )  =  0 )
163161, 162eqtrd 2485 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( (Λ `  ( p ^ 1 ) )  -  if ( ( p ^ 1 )  e.  Prime ,  ( log `  ( p ^ 1 ) ) ,  0 ) )  =  0 )
164163, 152oveq12d 6308 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( (Λ `  (
p ^ 1 ) )  -  if ( ( p ^ 1 )  e.  Prime ,  ( log `  ( p ^ 1 ) ) ,  0 ) )  /  ( p ^
1 ) )  =  ( 0  /  p
) )
165110rpcnne0d 11350 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p  e.  CC  /\  p  =/=  0 ) )
166 div0 10298 . . . . . . . . 9  |-  ( ( p  e.  CC  /\  p  =/=  0 )  -> 
( 0  /  p
)  =  0 )
167165, 166syl 17 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 0  /  p
)  =  0 )
168164, 167eqtrd 2485 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( (Λ `  (
p ^ 1 ) )  -  if ( ( p ^ 1 )  e.  Prime ,  ( log `  ( p ^ 1 ) ) ,  0 ) )  /  ( p ^
1 ) )  =  0 )
169 1p1e2 10723 . . . . . . . . . 10  |-  ( 1  +  1 )  =  2
170169oveq1i 6300 . . . . . . . . 9  |-  ( ( 1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) )  =  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) )
171170a1i 11 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( 1  +  1 ) ... ( |_ `  ( ( log `  A )  /  ( log `  p ) ) ) )  =  ( 2 ... ( |_
`  ( ( log `  A )  /  ( log `  p ) ) ) ) )
172 elfzuz 11796 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 2 ... ( |_ `  (
( log `  A
)  /  ( log `  p ) ) ) )  ->  k  e.  ( ZZ>= `  2 )
)
173 eluz2nn 11197 . . . . . . . . . . . . . 14  |-  ( k  e.  ( ZZ>= `  2
)  ->  k  e.  NN )
174172, 173syl 17 . . . . . . . . . . . . 13  |-  ( k  e.  ( 2 ... ( |_ `  (
( log `  A
)  /  ( log `  p ) ) ) )  ->  k  e.  NN )
175174, 170eleq2s 2547 . . . . . . . . . . . 12  |-  ( k  e.  ( ( 1  +  1 ) ... ( |_ `  (
( log `  A
)  /  ( log `  p ) ) ) )  ->  k  e.  NN )
17650, 175, 92syl2an 480 . . . . . . . . . . 11  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( (
1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  (Λ `  ( p ^ k
) )  =  ( log `  p ) )
17752adantr 467 . . . . . . . . . . . . . 14  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( (
1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  p  e.  NN )
178 nnq 11277 . . . . . . . . . . . . . 14  |-  ( p  e.  NN  ->  p  e.  QQ )
179177, 178syl 17 . . . . . . . . . . . . 13  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( (
1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  p  e.  QQ )
180172, 170eleq2s 2547 . . . . . . . . . . . . . 14  |-  ( k  e.  ( ( 1  +  1 ) ... ( |_ `  (
( log `  A
)  /  ( log `  p ) ) ) )  ->  k  e.  ( ZZ>= `  2 )
)
181180adantl 468 . . . . . . . . . . . . 13  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( (
1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  k  e.  ( ZZ>= `  2 )
)
182 expnprm 14847 . . . . . . . . . . . . 13  |-  ( ( p  e.  QQ  /\  k  e.  ( ZZ>= ` 
2 ) )  ->  -.  ( p ^ k
)  e.  Prime )
183179, 181, 182syl2anc 667 . . . . . . . . . . . 12  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( (
1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  -.  ( p ^ k
)  e.  Prime )
184183iffalsed 3892 . . . . . . . . . . 11  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( (
1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 )  =  0 )
185176, 184oveq12d 6308 . . . . . . . . . 10  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( (
1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  (
(Λ `  ( p ^
k ) )  -  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 ) )  =  ( ( log `  p )  -  0 ) )
186128subid1d 9975 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( log `  p
)  -  0 )  =  ( log `  p
) )
187186adantr 467 . . . . . . . . . 10  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( (
1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  (
( log `  p
)  -  0 )  =  ( log `  p
) )
188185, 187eqtrd 2485 . . . . . . . . 9  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( (
1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  (
(Λ `  ( p ^
k ) )  -  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 ) )  =  ( log `  p ) )
189188oveq1d 6305 . . . . . . . 8  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( (
1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  (
( (Λ `  ( p ^ k ) )  -  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )  /  (
p ^ k ) )  =  ( ( log `  p )  /  ( p ^
k ) ) )
190171, 189sumeq12dv 13772 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( ( 1  +  1 ) ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k
) )  -  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 ) )  /  ( p ^ k ) )  =  sum_ k  e.  ( 2 ... ( |_
`  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( log `  p )  /  ( p ^
k ) ) )
191168, 190oveq12d 6308 . . . . . 6  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( ( (Λ `  ( p ^ 1 ) )  -  if ( ( p ^
1 )  e.  Prime ,  ( log `  (
p ^ 1 ) ) ,  0 ) )  /  ( p ^ 1 ) )  +  sum_ k  e.  ( ( 1  +  1 ) ... ( |_
`  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k ) )  -  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )  /  (
p ^ k ) ) )  =  ( 0  +  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( log `  p )  /  ( p ^
k ) ) ) )
192 fzfid 12186 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 2 ... ( |_ `  ( ( log `  A )  /  ( log `  p ) ) ) )  e.  Fin )
193111adantr 467 . . . . . . . . . . 11  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  ( log `  p
)  e.  RR )
194 nnnn0 10876 . . . . . . . . . . . 12  |-  ( k  e.  NN  ->  k  e.  NN0 )
19552, 194, 99syl2an 480 . . . . . . . . . . 11  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  ( p ^ k
)  e.  NN )
196193, 195nndivred 10658 . . . . . . . . . 10  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  ( ( log `  p
)  /  ( p ^ k ) )  e.  RR )
197174, 196sylan2 477 . . . . . . . . 9  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  (
( log `  p
)  /  ( p ^ k ) )  e.  RR )
198192, 197fsumrecl 13800 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( log `  p )  /  (
p ^ k ) )  e.  RR )
199198recnd 9669 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( log `  p )  /  (
p ^ k ) )  e.  CC )
200199addid2d 9834 . . . . . 6  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 0  +  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( log `  p )  /  (
p ^ k ) ) )  =  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( log `  p )  /  (
p ^ k ) ) )
201150, 191, 2003eqtrd 2489 . . . . 5  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k
) )  -  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 ) )  /  ( p ^ k ) )  =  sum_ k  e.  ( 2 ... ( |_
`  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( log `  p )  /  ( p ^
k ) ) )
202110rpreccld 11351 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1  /  p
)  e.  RR+ )
203127flcld 12034 . . . . . . . . . . . . 13  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( |_ `  (
( log `  A
)  /  ( log `  p ) ) )  e.  ZZ )
204203peano2zd 11043 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 )  e.  ZZ )
205202, 204rpexpcld 12439 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( 1  /  p ) ^ (
( |_ `  (
( log `  A
)  /  ( log `  p ) ) )  +  1 ) )  e.  RR+ )
206205rpge0d 11345 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
0  <_  ( (
1  /  p ) ^ ( ( |_
`  ( ( log `  A )  /  ( log `  p ) ) )  +  1 ) ) )
20752nnrecred 10655 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1  /  p
)  e.  RR )
208207resqcld 12442 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( 1  /  p ) ^ 2 )  e.  RR )
209138peano2nnd 10626 . . . . . . . . . . . . 13  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 )  e.  NN )
210209nnnn0d 10925 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 )  e. 
NN0 )
211207, 210reexpcld 12433 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( 1  /  p ) ^ (
( |_ `  (
( log `  A
)  /  ( log `  p ) ) )  +  1 ) )  e.  RR )
212208, 211subge02d 10205 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 0  <_  (
( 1  /  p
) ^ ( ( |_ `  ( ( log `  A )  /  ( log `  p
) ) )  +  1 ) )  <->  ( (
( 1  /  p
) ^ 2 )  -  ( ( 1  /  p ) ^
( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) )  <_  ( (
1  /  p ) ^ 2 ) ) )
213206, 212mpbid 214 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( ( 1  /  p ) ^
2 )  -  (
( 1  /  p
) ^ ( ( |_ `  ( ( log `  A )  /  ( log `  p
) ) )  +  1 ) ) )  <_  ( ( 1  /  p ) ^
2 ) )
214113nnrpd 11339 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p  -  1 )  e.  RR+ )
215214rpcnne0d 11350 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( p  - 
1 )  e.  CC  /\  ( p  -  1 )  =/=  0 ) )
216202rpcnd 11343 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1  /  p
)  e.  CC )
217 dmdcan 10317 . . . . . . . . . . 11  |-  ( ( ( ( p  - 
1 )  e.  CC  /\  ( p  -  1 )  =/=  0 )  /\  ( p  e.  CC  /\  p  =/=  0 )  /\  (
1  /  p )  e.  CC )  -> 
( ( ( p  -  1 )  /  p )  x.  (
( 1  /  p
)  /  ( p  -  1 ) ) )  =  ( ( 1  /  p )  /  p ) )
218215, 165, 216, 217syl3anc 1268 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( ( p  -  1 )  /  p )  x.  (
( 1  /  p
)  /  ( p  -  1 ) ) )  =  ( ( 1  /  p )  /  p ) )
219134recnd 9669 . . . . . . . . . . . . 13  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
1  e.  CC )
220 divsubdir 10303 . . . . . . . . . . . . 13  |-  ( ( p  e.  CC  /\  1  e.  CC  /\  (
p  e.  CC  /\  p  =/=  0 ) )  ->  ( ( p  -  1 )  /  p )  =  ( ( p  /  p
)  -  ( 1  /  p ) ) )
221151, 219, 165, 220syl3anc 1268 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( p  - 
1 )  /  p
)  =  ( ( p  /  p )  -  ( 1  /  p ) ) )
222 divid 10297 . . . . . . . . . . . . . 14  |-  ( ( p  e.  CC  /\  p  =/=  0 )  -> 
( p  /  p
)  =  1 )
223165, 222syl 17 . . . . . . . . . . . . 13  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p  /  p
)  =  1 )
224223oveq1d 6305 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( p  /  p )  -  (
1  /  p ) )  =  ( 1  -  ( 1  /  p ) ) )
225221, 224eqtrd 2485 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( p  - 
1 )  /  p
)  =  ( 1  -  ( 1  /  p ) ) )
226 divdiv1 10318 . . . . . . . . . . . 12  |-  ( ( 1  e.  CC  /\  ( p  e.  CC  /\  p  =/=  0 )  /\  ( ( p  -  1 )  e.  CC  /\  ( p  -  1 )  =/=  0 ) )  -> 
( ( 1  /  p )  /  (
p  -  1 ) )  =  ( 1  /  ( p  x.  ( p  -  1 ) ) ) )
227219, 165, 215, 226syl3anc 1268 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( 1  /  p )  /  (
p  -  1 ) )  =  ( 1  /  ( p  x.  ( p  -  1 ) ) ) )
228225, 227oveq12d 6308 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( ( p  -  1 )  /  p )  x.  (
( 1  /  p
)  /  ( p  -  1 ) ) )  =  ( ( 1  -  ( 1  /  p ) )  x.  ( 1  / 
( p  x.  (
p  -  1 ) ) ) ) )
22952nnne0d 10654 . . . . . . . . . . . 12  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  p  =/=  0 )
230216, 151, 229divrecd 10386 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( 1  /  p )  /  p
)  =  ( ( 1  /  p )  x.  ( 1  /  p ) ) )
231216sqvald 12413 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( 1  /  p ) ^ 2 )  =  ( ( 1  /  p )  x.  ( 1  /  p ) ) )
232230, 231eqtr4d 2488 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( 1  /  p )  /  p
)  =  ( ( 1  /  p ) ^ 2 ) )
233218, 228, 2323eqtr3d 2493 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( 1  -  ( 1  /  p
) )  x.  (
1  /  ( p  x.  ( p  - 
1 ) ) ) )  =  ( ( 1  /  p ) ^ 2 ) )
234213, 233breqtrrd 4429 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( ( 1  /  p ) ^
2 )  -  (
( 1  /  p
) ^ ( ( |_ `  ( ( log `  A )  /  ( log `  p
) ) )  +  1 ) ) )  <_  ( ( 1  -  ( 1  /  p ) )  x.  ( 1  /  (
p  x.  ( p  -  1 ) ) ) ) )
235208, 211resubcld 10047 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( ( 1  /  p ) ^
2 )  -  (
( 1  /  p
) ^ ( ( |_ `  ( ( log `  A )  /  ( log `  p
) ) )  +  1 ) ) )  e.  RR )
236114nnrecred 10655 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1  /  (
p  x.  ( p  -  1 ) ) )  e.  RR )
237 resubcl 9938 . . . . . . . . . 10  |-  ( ( 1  e.  RR  /\  ( 1  /  p
)  e.  RR )  ->  ( 1  -  ( 1  /  p
) )  e.  RR )
238133, 207, 237sylancr 669 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1  -  (
1  /  p ) )  e.  RR )
239 recgt1 10502 . . . . . . . . . . . 12  |-  ( ( p  e.  RR  /\  0  <  p )  -> 
( 1  <  p  <->  ( 1  /  p )  <  1 ) )
24053, 120, 239syl2anc 667 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1  <  p  <->  ( 1  /  p )  <  1 ) )
241125, 240mpbid 214 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1  /  p
)  <  1 )
242 posdif 10107 . . . . . . . . . . 11  |-  ( ( ( 1  /  p
)  e.  RR  /\  1  e.  RR )  ->  ( ( 1  /  p )  <  1  <->  0  <  ( 1  -  ( 1  /  p
) ) ) )
243207, 133, 242sylancl 668 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( 1  /  p )  <  1  <->  0  <  ( 1  -  ( 1  /  p
) ) ) )
244241, 243mpbid 214 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
0  <  ( 1  -  ( 1  /  p ) ) )
245 ledivmul 10481 . . . . . . . . 9  |-  ( ( ( ( ( 1  /  p ) ^
2 )  -  (
( 1  /  p
) ^ ( ( |_ `  ( ( log `  A )  /  ( log `  p
) ) )  +  1 ) ) )  e.  RR  /\  (
1  /  ( p  x.  ( p  - 
1 ) ) )  e.  RR  /\  (
( 1  -  (
1  /  p ) )  e.  RR  /\  0  <  ( 1  -  ( 1  /  p
) ) ) )  ->  ( ( ( ( ( 1  /  p ) ^ 2 )  -  ( ( 1  /  p ) ^ ( ( |_
`  ( ( log `  A )  /  ( log `  p ) ) )  +  1 ) ) )  /  (
1  -  ( 1  /  p ) ) )  <_  ( 1  /  ( p  x.  ( p  -  1 ) ) )  <->  ( (
( 1  /  p
) ^ 2 )  -  ( ( 1  /  p ) ^
( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) )  <_  ( (
1  -  ( 1  /  p ) )  x.  ( 1  / 
( p  x.  (
p  -  1 ) ) ) ) ) )
246235, 236, 238, 244, 245syl112anc 1272 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( ( ( ( 1  /  p
) ^ 2 )  -  ( ( 1  /  p ) ^
( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) )  /  ( 1  -  ( 1  /  p ) ) )  <_  ( 1  / 
( p  x.  (
p  -  1 ) ) )  <->  ( (
( 1  /  p
) ^ 2 )  -  ( ( 1  /  p ) ^
( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) )  <_  ( (
1  -  ( 1  /  p ) )  x.  ( 1  / 
( p  x.  (
p  -  1 ) ) ) ) ) )
247234, 246mpbird 236 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( ( ( 1  /  p ) ^ 2 )  -  ( ( 1  /  p ) ^ (
( |_ `  (
( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) )  /  ( 1  -  ( 1  /  p ) ) )  <_  ( 1  / 
( p  x.  (
p  -  1 ) ) ) )
248238, 244elrpd 11338 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1  -  (
1  /  p ) )  e.  RR+ )
249235, 248rerpdivcld 11369 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( ( ( 1  /  p ) ^ 2 )  -  ( ( 1  /  p ) ^ (
( |_ `  (
( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) )  /  ( 1  -  ( 1  /  p ) ) )  e.  RR )
250249, 236, 126lemul2d 11382 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( ( ( ( 1  /  p
) ^ 2 )  -  ( ( 1  /  p ) ^
( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) )  /  ( 1  -  ( 1  /  p ) ) )  <_  ( 1  / 
( p  x.  (
p  -  1 ) ) )  <->  ( ( log `  p )  x.  ( ( ( ( 1  /  p ) ^ 2 )  -  ( ( 1  /  p ) ^ (
( |_ `  (
( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) )  /  ( 1  -  ( 1  /  p ) ) ) )  <_  ( ( log `  p )  x.  ( 1  /  (
p  x.  ( p  -  1 ) ) ) ) ) )
251247, 250mpbid 214 . . . . . 6  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( log `  p
)  x.  ( ( ( ( 1  /  p ) ^ 2 )  -  ( ( 1  /  p ) ^ ( ( |_
`  ( ( log `  A )  /  ( log `  p ) ) )  +  1 ) ) )  /  (
1  -  ( 1  /  p ) ) ) )  <_  (
( log `  p
)  x.  ( 1  /  ( p  x.  ( p  -  1 ) ) ) ) )
252128adantr 467 . . . . . . . . . . 11  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  ( log `  p
)  e.  CC )
253195nncnd 10625 . . . . . . . . . . 11  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  ( p ^ k
)  e.  CC )
254195nnne0d 10654 . . . . . . . . . . 11  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  ( p ^ k
)  =/=  0 )
255252, 253, 254divrecd 10386 . . . . . . . . . 10  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  ( ( log `  p
)  /  ( p ^ k ) )  =  ( ( log `  p )  x.  (
1  /  ( p ^ k ) ) ) )
256151adantr 467 . . . . . . . . . . . 12  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  p  e.  CC )
25752adantr 467 . . . . . . . . . . . . 13  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  p  e.  NN )
258257nnne0d 10654 . . . . . . . . . . . 12  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  p  =/=  0 )
259 nnz 10959 . . . . . . . . . . . . 13  |-  ( k  e.  NN  ->  k  e.  ZZ )
260259adantl 468 . . . . . . . . . . . 12  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  k  e.  ZZ )
261256, 258, 260exprecd 12424 . . . . . . . . . . 11  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  ( ( 1  /  p ) ^ k
)  =  ( 1  /  ( p ^
k ) ) )
262261oveq2d 6306 . . . . . . . . . 10  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  ( ( log `  p
)  x.  ( ( 1  /  p ) ^ k ) )  =  ( ( log `  p )  x.  (
1  /  ( p ^ k ) ) ) )
263255, 262eqtr4d 2488 . . . . . . . . 9  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  NN )  ->  ( ( log `  p
)  /  ( p ^ k ) )  =  ( ( log `  p )  x.  (
( 1  /  p
) ^ k ) ) )
264174, 263sylan2 477 . . . . . . . 8  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  (
( log `  p
)  /  ( p ^ k ) )  =  ( ( log `  p )  x.  (
( 1  /  p
) ^ k ) ) )
265264sumeq2dv 13769 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( log `  p )  /  (
p ^ k ) )  =  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( log `  p )  x.  ( ( 1  /  p ) ^
k ) ) )
266174nnnn0d 10925 . . . . . . . . 9  |-  ( k  e.  ( 2 ... ( |_ `  (
( log `  A
)  /  ( log `  p ) ) ) )  ->  k  e.  NN0 )
267 expcl 12290 . . . . . . . . 9  |-  ( ( ( 1  /  p
)  e.  CC  /\  k  e.  NN0 )  -> 
( ( 1  /  p ) ^ k
)  e.  CC )
268216, 266, 267syl2an 480 . . . . . . . 8  |-  ( ( ( A  e.  ZZ  /\  p  e.  ( ( 0 [,] A )  i^i  Prime ) )  /\  k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) )  ->  (
( 1  /  p
) ^ k )  e.  CC )
269192, 128, 268fsummulc2 13845 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( log `  p
)  x.  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( 1  /  p ) ^ k ) )  =  sum_ k  e.  ( 2 ... ( |_
`  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( log `  p )  x.  ( ( 1  /  p ) ^
k ) ) )
270 fzval3 11983 . . . . . . . . . . 11  |-  ( ( |_ `  ( ( log `  A )  /  ( log `  p
) ) )  e.  ZZ  ->  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) )  =  ( 2..^ ( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) )
271203, 270syl 17 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 2 ... ( |_ `  ( ( log `  A )  /  ( log `  p ) ) ) )  =  ( 2..^ ( ( |_
`  ( ( log `  A )  /  ( log `  p ) ) )  +  1 ) ) )
272271sumeq1d 13767 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( 1  /  p ) ^
k )  =  sum_ k  e.  ( 2..^ ( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) ( ( 1  /  p ) ^ k
) )
273207, 241ltned 9771 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( 1  /  p
)  =/=  1 )
274 2nn0 10886 . . . . . . . . . . 11  |-  2  e.  NN0
275274a1i 11 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
2  e.  NN0 )
276 eluzp1p1 11184 . . . . . . . . . . . 12  |-  ( ( |_ `  ( ( log `  A )  /  ( log `  p
) ) )  e.  ( ZZ>= `  1 )  ->  ( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 )  e.  ( ZZ>= `  ( 1  +  1 ) ) )
277140, 276syl 17 . . . . . . . . . . 11  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 )  e.  ( ZZ>= `  ( 1  +  1 ) ) )
278 df-2 10668 . . . . . . . . . . . 12  |-  2  =  ( 1  +  1 )
279278fveq2i 5868 . . . . . . . . . . 11  |-  ( ZZ>= ` 
2 )  =  (
ZZ>= `  ( 1  +  1 ) )
280277, 279syl6eleqr 2540 . . . . . . . . . 10  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 )  e.  ( ZZ>= `  2 )
)
281216, 273, 275, 280geoserg 13924 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 2..^ ( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) ( ( 1  /  p ) ^ k
)  =  ( ( ( ( 1  /  p ) ^ 2 )  -  ( ( 1  /  p ) ^ ( ( |_
`  ( ( log `  A )  /  ( log `  p ) ) )  +  1 ) ) )  /  (
1  -  ( 1  /  p ) ) ) )
282272, 281eqtrd 2485 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( 1  /  p ) ^
k )  =  ( ( ( ( 1  /  p ) ^
2 )  -  (
( 1  /  p
) ^ ( ( |_ `  ( ( log `  A )  /  ( log `  p
) ) )  +  1 ) ) )  /  ( 1  -  ( 1  /  p
) ) ) )
283282oveq2d 6306 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( log `  p
)  x.  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( 1  /  p ) ^ k ) )  =  ( ( log `  p )  x.  (
( ( ( 1  /  p ) ^
2 )  -  (
( 1  /  p
) ^ ( ( |_ `  ( ( log `  A )  /  ( log `  p
) ) )  +  1 ) ) )  /  ( 1  -  ( 1  /  p
) ) ) ) )
284265, 269, 2833eqtr2d 2491 . . . . . 6  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( log `  p )  /  (
p ^ k ) )  =  ( ( log `  p )  x.  ( ( ( ( 1  /  p
) ^ 2 )  -  ( ( 1  /  p ) ^
( ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) )  +  1 ) ) )  /  ( 1  -  ( 1  /  p ) ) ) ) )
285114nncnd 10625 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p  x.  (
p  -  1 ) )  e.  CC )
286114nnne0d 10654 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( p  x.  (
p  -  1 ) )  =/=  0 )
287128, 285, 286divrecd 10386 . . . . . 6  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  -> 
( ( log `  p
)  /  ( p  x.  ( p  - 
1 ) ) )  =  ( ( log `  p )  x.  (
1  /  ( p  x.  ( p  - 
1 ) ) ) ) )
288251, 284, 2873brtr4d 4433 . . . . 5  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 2 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( log `  p )  /  (
p ^ k ) )  <_  ( ( log `  p )  / 
( p  x.  (
p  -  1 ) ) ) )
289201, 288eqbrtrd 4423 . . . 4  |-  ( ( A  e.  ZZ  /\  p  e.  ( (
0 [,] A )  i^i  Prime ) )  ->  sum_ k  e.  ( 1 ... ( |_ `  ( ( log `  A
)  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k
) )  -  if ( ( p ^
k )  e.  Prime ,  ( log `  (
p ^ k ) ) ,  0 ) )  /  ( p ^ k ) )  <_  ( ( log `  p )  /  (
p  x.  ( p  -  1 ) ) ) )
29086, 108, 115, 289fsumle 13859 . . 3  |-  ( A  e.  ZZ  ->  sum_ p  e.  ( ( 0 [,] A )  i^i  Prime )
sum_ k  e.  ( 1 ... ( |_
`  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k ) )  -  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )  /  (
p ^ k ) )  <_  sum_ p  e.  ( ( 0 [,] A )  i^i  Prime ) ( ( log `  p
)  /  ( p  x.  ( p  - 
1 ) ) ) )
291 elfzuz 11796 . . . . . . . . . . 11  |-  ( p  e.  ( 2 ... ( ( abs `  A
)  +  1 ) )  ->  p  e.  ( ZZ>= `  2 )
)
292 eluz2nn 11197 . . . . . . . . . . 11  |-  ( p  e.  ( ZZ>= `  2
)  ->  p  e.  NN )
293291, 292syl 17 . . . . . . . . . 10  |-  ( p  e.  ( 2 ... ( ( abs `  A
)  +  1 ) )  ->  p  e.  NN )
294293adantl 468 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )  ->  p  e.  NN )
295294nnred 10624 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )  ->  p  e.  RR )
296291adantl 468 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )  ->  p  e.  ( ZZ>= ` 
2 ) )
297 eluz2b2 11231 . . . . . . . . . 10  |-  ( p  e.  ( ZZ>= `  2
)  <->  ( p  e.  NN  /\  1  < 
p ) )
298297simprbi 466 . . . . . . . . 9  |-  ( p  e.  ( ZZ>= `  2
)  ->  1  <  p )
299296, 298syl 17 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )  -> 
1  <  p )
300295, 299rplogcld 23578 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )  -> 
( log `  p
)  e.  RR+ )
301296, 112syl 17 . . . . . . . . 9  |-  ( ( A  e.  ZZ  /\  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )  -> 
( p  -  1 )  e.  NN )
302294, 301nnmulcld 10657 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )  -> 
( p  x.  (
p  -  1 ) )  e.  NN )
303302nnrpd 11339 . . . . . . 7  |-  ( ( A  e.  ZZ  /\  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )  -> 
( p  x.  (
p  -  1 ) )  e.  RR+ )
304300, 303rpdivcld 11358 . . . . . 6  |-  ( ( A  e.  ZZ  /\  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )  -> 
( ( log `  p
)  /  ( p  x.  ( p  - 
1 ) ) )  e.  RR+ )
305304rpred 11341 . . . . 5  |-  ( ( A  e.  ZZ  /\  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )  -> 
( ( log `  p
)  /  ( p  x.  ( p  - 
1 ) ) )  e.  RR )
30647, 305fsumrecl 13800 . . . 4  |-  ( A  e.  ZZ  ->  sum_ p  e.  ( 2 ... (
( abs `  A
)  +  1 ) ) ( ( log `  p )  /  (
p  x.  ( p  -  1 ) ) )  e.  RR )
307304rpge0d 11345 . . . . 5  |-  ( ( A  e.  ZZ  /\  p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) )  -> 
0  <_  ( ( log `  p )  / 
( p  x.  (
p  -  1 ) ) ) )
30847, 305, 307, 84fsumless 13856 . . . 4  |-  ( A  e.  ZZ  ->  sum_ p  e.  ( ( 0 [,] A )  i^i  Prime ) ( ( log `  p
)  /  ( p  x.  ( p  - 
1 ) ) )  <_  sum_ p  e.  ( 2 ... ( ( abs `  A )  +  1 ) ) ( ( log `  p
)  /  ( p  x.  ( p  - 
1 ) ) ) )
309 rplogsumlem1 24322 . . . . 5  |-  ( ( ( abs `  A
)  +  1 )  e.  NN  ->  sum_ p  e.  ( 2 ... (
( abs `  A
)  +  1 ) ) ( ( log `  p )  /  (
p  x.  ( p  -  1 ) ) )  <_  2 )
31077, 309syl 17 . . . 4  |-  ( A  e.  ZZ  ->  sum_ p  e.  ( 2 ... (
( abs `  A
)  +  1 ) ) ( ( log `  p )  /  (
p  x.  ( p  -  1 ) ) )  <_  2 )
311116, 306, 118, 308, 310letrd 9792 . . 3  |-  ( A  e.  ZZ  ->  sum_ p  e.  ( ( 0 [,] A )  i^i  Prime ) ( ( log `  p
)  /  ( p  x.  ( p  - 
1 ) ) )  <_  2 )
312109, 116, 118, 290, 311letrd 9792 . 2  |-  ( A  e.  ZZ  ->  sum_ p  e.  ( ( 0 [,] A )  i^i  Prime )
sum_ k  e.  ( 1 ... ( |_
`  ( ( log `  A )  /  ( log `  p ) ) ) ) ( ( (Λ `  ( p ^ k ) )  -  if ( ( p ^ k )  e.  Prime ,  ( log `  ( p ^ k
) ) ,  0 ) )  /  (
p ^ k ) )  <_  2 )
31346, 312eqbrtrd 4423 1  |-  ( A  e.  ZZ  ->  sum_ n  e.  ( 1 ... A
) ( ( (Λ `  n )  -  if ( n  e.  Prime ,  ( log `  n
) ,  0 ) )  /  n )  <_  2 )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 188    /\ wa 371    /\ w3a 985    = wceq 1444    e. wcel 1887    =/= wne 2622    i^i cin 3403    C_ wss 3404   ifcif 3881   class class class wbr 4402   ` cfv 5582  (class class class)co 6290   Fincfn 7569   CCcc 9537   RRcr 9538   0cc0 9539   1c1 9540    + caddc 9542    x. cmul 9544    < clt 9675    <_ cle 9676    - cmin 9860    / cdiv 10269   NNcn 10609   2c2 10659   NN0cn0 10869   ZZcz 10937   ZZ>=cuz 11159   QQcq 11264   RR+crp 11302   [,]cicc 11638   ...cfz 11784  ..^cfzo 11915   |_cfl 12026   ^cexp 12272   abscabs 13297   sum_csu 13752   Primecprime 14622   logclog 23504  Λcvma 24018
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1669  ax-4 1682  ax-5 1758  ax-6 1805  ax-7 1851  ax-8 1889  ax-9 1896  ax-10 1915  ax-11 1920  ax-12 1933  ax-13 2091  ax-ext 2431  ax-rep 4515  ax-sep 4525  ax-nul 4534  ax-pow 4581  ax-pr 4639  ax-un 6583  ax-inf2 8146  ax-cnex 9595  ax-resscn 9596  ax-1cn 9597  ax-icn 9598  ax-addcl 9599  ax-addrcl 9600  ax-mulcl 9601  ax-mulrcl 9602  ax-mulcom 9603  ax-addass 9604  ax-mulass 9605  ax-distr 9606  ax-i2m1 9607  ax-1ne0 9608  ax-1rid 9609  ax-rnegex 9610  ax-rrecex 9611  ax-cnre 9612  ax-pre-lttri 9613  ax-pre-lttrn 9614  ax-pre-ltadd 9615  ax-pre-mulgt0 9616  ax-pre-sup 9617  ax-addf 9618  ax-mulf 9619
This theorem depends on definitions:  df-bi 189  df-or 372  df-an 373  df-3or 986  df-3an 987  df-tru 1447  df-fal 1450  df-ex 1664  df-nf 1668  df-sb 1798  df-eu 2303  df-mo 2304  df-clab 2438  df-cleq 2444  df-clel 2447  df-nfc 2581  df-ne 2624  df-nel 2625  df-ral 2742  df-rex 2743  df-reu 2744  df-rmo 2745  df-rab 2746  df-v 3047  df-sbc 3268  df-csb 3364  df-dif 3407  df-un 3409  df-in 3411  df-ss 3418  df-pss 3420  df-nul 3732  df-if 3882  df-pw 3953  df-sn 3969  df-pr 3971  df-tp 3973  df-op 3975  df-uni 4199  df-int 4235  df-iun 4280  df-iin 4281  df-br 4403  df-opab 4462  df-mpt 4463  df-tr 4498  df-eprel 4745  df-id 4749  df-po 4755  df-so 4756  df-fr 4793  df-se 4794  df-we 4795  df-xp 4840  df-rel 4841  df-cnv 4842  df-co 4843  df-dm 4844  df-rn 4845  df-res 4846  df-ima 4847  df-pred 5380  df-ord 5426  df-on 5427  df-lim 5428  df-suc 5429  df-iota 5546  df-fun 5584  df-fn 5585  df-f 5586  df-f1 5587  df-fo 5588  df-f1o 5589  df-fv 5590  df-isom 5591  df-riota 6252  df-ov 6293  df-oprab 6294  df-mpt2 6295  df-of 6531  df-om 6693  df-1st 6793  df-2nd 6794  df-supp 6915  df-wrecs 7028  df-recs 7090  df-rdg 7128  df-1o 7182  df-2o 7183  df-oadd 7186  df-er 7363  df-map 7474  df-pm 7475  df-ixp 7523  df-en 7570  df-dom 7571  df-sdom 7572  df-fin 7573  df-fsupp 7884  df-fi 7925  df-sup 7956  df-inf 7957  df-oi 8025  df-card 8373  df-cda 8598  df-pnf 9677  df-mnf 9678  df-xr 9679  df-ltxr 9680  df-le 9681  df-sub 9862  df-neg 9863  df-div 10270  df-nn 10610  df-2 10668  df-3 10669  df-4 10670  df-5 10671  df-6 10672  df-7 10673  df-8 10674  df-9 10675  df-10 10676  df-n0 10870  df-z 10938  df-dec 11052  df-uz 11160  df-q 11265  df-rp 11303  df-xneg 11409  df-xadd 11410  df-xmul 11411  df-ioo 11639  df-ioc 11640  df-ico 11641  df-icc 11642  df-fz 11785  df-fzo 11916  df-fl 12028  df-mod 12097  df-seq 12214  df-exp 12273  df-fac 12460  df-bc 12488  df-hash 12516  df-shft 13130  df-cj 13162  df-re 13163  df-im 13164  df-sqrt 13298  df-abs 13299  df-limsup 13526  df-clim 13552  df-rlim 13553  df-sum 13753  df-ef 14121  df-sin 14123  df-cos 14124  df-tan 14125  df-pi 14126  df-dvds 14306  df-gcd 14469  df-prm 14623  df-pc 14787  df-struct 15123  df-ndx 15124  df-slot 15125  df-base 15126  df-sets 15127  df-ress 15128  df-plusg 15203  df-mulr 15204  df-starv 15205  df-sca 15206  df-vsca 15207  df-ip 15208  df-tset 15209  df-ple 15210  df-ds 15212  df-unif 15213  df-hom 15214  df-cco 15215  df-rest 15321  df-topn 15322  df-0g 15340  df-gsum 15341  df-topgen 15342  df-pt 15343  df-prds 15346  df-xrs 15400  df-qtop 15406  df-imas 15407  df-xps 15410  df-mre 15492  df-mrc 15493  df-acs 15495  df-mgm 16488  df-sgrp 16527  df-mnd 16537  df-submnd 16583  df-mulg 16676  df-cntz 16971  df-cmn 17432  df-psmet 18962  df-xmet 18963  df-met 18964  df-bl 18965  df-mopn 18966  df-fbas 18967  df-fg 18968  df-cnfld 18971  df-top 19921  df-bases 19922  df-topon 19923  df-topsp 19924  df-cld 20034  df-ntr 20035  df-cls 20036  df-nei 20114  df-lp 20152  df-perf 20153  df-cn 20243  df-cnp 20244  df-haus 20331  df-cmp 20402  df-tx 20577  df-hmeo 20770  df-fil 20861  df-fm 20953  df-flim 20954  df-flf 20955  df-xms 21335  df-ms 21336  df-tms 21337  df-cncf 21910  df-limc 22821  df-dv 22822  df-log 23506  df-cxp 23507  df-vma 24024
This theorem is referenced by:  rplogsum  24365
  Copyright terms: Public domain W3C validator