Step |
Hyp |
Ref |
Expression |
1 |
|
pntlem1.r |
|- R = ( a e. RR+ |-> ( ( psi ` a ) - a ) ) |
2 |
|
pntlem1.a |
|- ( ph -> A e. RR+ ) |
3 |
|
pntlem1.b |
|- ( ph -> B e. RR+ ) |
4 |
|
pntlem1.l |
|- ( ph -> L e. ( 0 (,) 1 ) ) |
5 |
|
pntlem1.d |
|- D = ( A + 1 ) |
6 |
|
pntlem1.f |
|- F = ( ( 1 - ( 1 / D ) ) x. ( ( L / ( ; 3 2 x. B ) ) / ( D ^ 2 ) ) ) |
7 |
|
pntlem1.u |
|- ( ph -> U e. RR+ ) |
8 |
|
pntlem1.u2 |
|- ( ph -> U <_ A ) |
9 |
|
pntlem1.e |
|- E = ( U / D ) |
10 |
|
pntlem1.k |
|- K = ( exp ` ( B / E ) ) |
11 |
|
pntlem1.y |
|- ( ph -> ( Y e. RR+ /\ 1 <_ Y ) ) |
12 |
|
pntlem1.x |
|- ( ph -> ( X e. RR+ /\ Y < X ) ) |
13 |
|
pntlem1.c |
|- ( ph -> C e. RR+ ) |
14 |
|
pntlem1.w |
|- W = ( ( ( Y + ( 4 / ( L x. E ) ) ) ^ 2 ) + ( ( ( X x. ( K ^ 2 ) ) ^ 4 ) + ( exp ` ( ( ( ; 3 2 x. B ) / ( ( U - E ) x. ( L x. ( E ^ 2 ) ) ) ) x. ( ( U x. 3 ) + C ) ) ) ) ) |
15 |
|
pntleme.U |
|- ( ph -> A. z e. ( Y [,) +oo ) ( abs ` ( ( R ` z ) / z ) ) <_ U ) |
16 |
|
pntleme.K |
|- ( ph -> A. k e. ( K [,) +oo ) A. y e. ( X (,) +oo ) E. z e. RR+ ( ( y < z /\ ( ( 1 + ( L x. E ) ) x. z ) < ( k x. y ) ) /\ A. u e. ( z [,] ( ( 1 + ( L x. E ) ) x. z ) ) ( abs ` ( ( R ` u ) / u ) ) <_ E ) ) |
17 |
|
pntleme.C |
|- ( ph -> A. z e. ( 1 (,) +oo ) ( ( ( ( abs ` ( R ` z ) ) x. ( log ` z ) ) - ( ( 2 / ( log ` z ) ) x. sum_ i e. ( 1 ... ( |_ ` ( z / Y ) ) ) ( ( abs ` ( R ` ( z / i ) ) ) x. ( log ` i ) ) ) ) / z ) <_ C ) |
18 |
1 2 3 4 5 6 7 8 9 10 11 12 13 14
|
pntlema |
|- ( ph -> W e. RR+ ) |
19 |
2
|
adantr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> A e. RR+ ) |
20 |
3
|
adantr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> B e. RR+ ) |
21 |
4
|
adantr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> L e. ( 0 (,) 1 ) ) |
22 |
7
|
adantr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> U e. RR+ ) |
23 |
8
|
adantr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> U <_ A ) |
24 |
11
|
adantr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> ( Y e. RR+ /\ 1 <_ Y ) ) |
25 |
12
|
adantr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> ( X e. RR+ /\ Y < X ) ) |
26 |
13
|
adantr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> C e. RR+ ) |
27 |
|
simpr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> v e. ( W [,) +oo ) ) |
28 |
|
eqid |
|- ( ( |_ ` ( ( log ` X ) / ( log ` K ) ) ) + 1 ) = ( ( |_ ` ( ( log ` X ) / ( log ` K ) ) ) + 1 ) |
29 |
|
eqid |
|- ( |_ ` ( ( ( log ` v ) / ( log ` K ) ) / 2 ) ) = ( |_ ` ( ( ( log ` v ) / ( log ` K ) ) / 2 ) ) |
30 |
15
|
adantr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> A. z e. ( Y [,) +oo ) ( abs ` ( ( R ` z ) / z ) ) <_ U ) |
31 |
|
oveq1 |
|- ( k = K -> ( k x. y ) = ( K x. y ) ) |
32 |
31
|
breq2d |
|- ( k = K -> ( ( ( 1 + ( L x. E ) ) x. z ) < ( k x. y ) <-> ( ( 1 + ( L x. E ) ) x. z ) < ( K x. y ) ) ) |
33 |
32
|
anbi2d |
|- ( k = K -> ( ( y < z /\ ( ( 1 + ( L x. E ) ) x. z ) < ( k x. y ) ) <-> ( y < z /\ ( ( 1 + ( L x. E ) ) x. z ) < ( K x. y ) ) ) ) |
34 |
33
|
anbi1d |
|- ( k = K -> ( ( ( y < z /\ ( ( 1 + ( L x. E ) ) x. z ) < ( k x. y ) ) /\ A. u e. ( z [,] ( ( 1 + ( L x. E ) ) x. z ) ) ( abs ` ( ( R ` u ) / u ) ) <_ E ) <-> ( ( y < z /\ ( ( 1 + ( L x. E ) ) x. z ) < ( K x. y ) ) /\ A. u e. ( z [,] ( ( 1 + ( L x. E ) ) x. z ) ) ( abs ` ( ( R ` u ) / u ) ) <_ E ) ) ) |
35 |
34
|
rexbidv |
|- ( k = K -> ( E. z e. RR+ ( ( y < z /\ ( ( 1 + ( L x. E ) ) x. z ) < ( k x. y ) ) /\ A. u e. ( z [,] ( ( 1 + ( L x. E ) ) x. z ) ) ( abs ` ( ( R ` u ) / u ) ) <_ E ) <-> E. z e. RR+ ( ( y < z /\ ( ( 1 + ( L x. E ) ) x. z ) < ( K x. y ) ) /\ A. u e. ( z [,] ( ( 1 + ( L x. E ) ) x. z ) ) ( abs ` ( ( R ` u ) / u ) ) <_ E ) ) ) |
36 |
35
|
ralbidv |
|- ( k = K -> ( A. y e. ( X (,) +oo ) E. z e. RR+ ( ( y < z /\ ( ( 1 + ( L x. E ) ) x. z ) < ( k x. y ) ) /\ A. u e. ( z [,] ( ( 1 + ( L x. E ) ) x. z ) ) ( abs ` ( ( R ` u ) / u ) ) <_ E ) <-> A. y e. ( X (,) +oo ) E. z e. RR+ ( ( y < z /\ ( ( 1 + ( L x. E ) ) x. z ) < ( K x. y ) ) /\ A. u e. ( z [,] ( ( 1 + ( L x. E ) ) x. z ) ) ( abs ` ( ( R ` u ) / u ) ) <_ E ) ) ) |
37 |
1 2 3 4 5 6 7 8 9 10
|
pntlemc |
|- ( ph -> ( E e. RR+ /\ K e. RR+ /\ ( E e. ( 0 (,) 1 ) /\ 1 < K /\ ( U - E ) e. RR+ ) ) ) |
38 |
37
|
simp2d |
|- ( ph -> K e. RR+ ) |
39 |
38
|
rpxrd |
|- ( ph -> K e. RR* ) |
40 |
|
pnfxr |
|- +oo e. RR* |
41 |
40
|
a1i |
|- ( ph -> +oo e. RR* ) |
42 |
38
|
rpred |
|- ( ph -> K e. RR ) |
43 |
42
|
ltpnfd |
|- ( ph -> K < +oo ) |
44 |
|
lbico1 |
|- ( ( K e. RR* /\ +oo e. RR* /\ K < +oo ) -> K e. ( K [,) +oo ) ) |
45 |
39 41 43 44
|
syl3anc |
|- ( ph -> K e. ( K [,) +oo ) ) |
46 |
36 16 45
|
rspcdva |
|- ( ph -> A. y e. ( X (,) +oo ) E. z e. RR+ ( ( y < z /\ ( ( 1 + ( L x. E ) ) x. z ) < ( K x. y ) ) /\ A. u e. ( z [,] ( ( 1 + ( L x. E ) ) x. z ) ) ( abs ` ( ( R ` u ) / u ) ) <_ E ) ) |
47 |
46
|
adantr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> A. y e. ( X (,) +oo ) E. z e. RR+ ( ( y < z /\ ( ( 1 + ( L x. E ) ) x. z ) < ( K x. y ) ) /\ A. u e. ( z [,] ( ( 1 + ( L x. E ) ) x. z ) ) ( abs ` ( ( R ` u ) / u ) ) <_ E ) ) |
48 |
17
|
adantr |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> A. z e. ( 1 (,) +oo ) ( ( ( ( abs ` ( R ` z ) ) x. ( log ` z ) ) - ( ( 2 / ( log ` z ) ) x. sum_ i e. ( 1 ... ( |_ ` ( z / Y ) ) ) ( ( abs ` ( R ` ( z / i ) ) ) x. ( log ` i ) ) ) ) / z ) <_ C ) |
49 |
1 19 20 21 5 6 22 23 9 10 24 25 26 14 27 28 29 30 47 48
|
pntlemo |
|- ( ( ph /\ v e. ( W [,) +oo ) ) -> ( abs ` ( ( R ` v ) / v ) ) <_ ( U - ( F x. ( U ^ 3 ) ) ) ) |
50 |
49
|
ralrimiva |
|- ( ph -> A. v e. ( W [,) +oo ) ( abs ` ( ( R ` v ) / v ) ) <_ ( U - ( F x. ( U ^ 3 ) ) ) ) |
51 |
|
oveq1 |
|- ( w = W -> ( w [,) +oo ) = ( W [,) +oo ) ) |
52 |
51
|
raleqdv |
|- ( w = W -> ( A. v e. ( w [,) +oo ) ( abs ` ( ( R ` v ) / v ) ) <_ ( U - ( F x. ( U ^ 3 ) ) ) <-> A. v e. ( W [,) +oo ) ( abs ` ( ( R ` v ) / v ) ) <_ ( U - ( F x. ( U ^ 3 ) ) ) ) ) |
53 |
52
|
rspcev |
|- ( ( W e. RR+ /\ A. v e. ( W [,) +oo ) ( abs ` ( ( R ` v ) / v ) ) <_ ( U - ( F x. ( U ^ 3 ) ) ) ) -> E. w e. RR+ A. v e. ( w [,) +oo ) ( abs ` ( ( R ` v ) / v ) ) <_ ( U - ( F x. ( U ^ 3 ) ) ) ) |
54 |
18 50 53
|
syl2anc |
|- ( ph -> E. w e. RR+ A. v e. ( w [,) +oo ) ( abs ` ( ( R ` v ) / v ) ) <_ ( U - ( F x. ( U ^ 3 ) ) ) ) |