Theorem dchrisum0lem2a 24218

Description: Lemma for dchrisum0 24221. (Contributed by Mario Carneiro, 12-May-2016.)

Hypotheses

Ref	Expression
rpvmasum.z	|- Z = (ℤ/nℤ ` N )
rpvmasum.l	|- L = ( ZRHom ` Z )
rpvmasum.a	|- ( ph -> N e. NN )
rpvmasum2.g	|- G = (DChr ` N )
rpvmasum2.d	|- D = ( Base ` G )
rpvmasum2.1	|- .1. = ( 0g ` G )
rpvmasum2.w	|- W = { y e. ( D \ { .1. } ) | sum_ m e. NN ( ( y ` ( L ` m ) ) / m ) = 0 }
dchrisum0.b	|- ( ph -> X e. W )
dchrisum0lem1.f	|- F = ( a e. NN |-> ( ( X ` ( L ` a ) ) / ( sqr ` a ) ) )
dchrisum0.c	|- ( ph -> C e. ( 0 [,) +oo ) )
dchrisum0.s	|- ( ph -> seq 1 ( + , F ) ~~> S )
dchrisum0.1	|- ( ph -> A. y e. ( 1 [,) +oo ) ( abs ` ( ( seq 1 ( + , F ) ` ( |_ ` y ) ) - S ) ) <_ ( C / ( sqr ` y ) ) )
dchrisum0lem2.h	|- H = ( y e. RR+ |-> ( sum_ d e. ( 1 ... ( |_ ` y ) ) ( 1 / ( sqr ` d ) ) - ( 2 x. ( sqr ` y ) ) ) )
dchrisum0lem2.u	|- ( ph -> H ~~> r U )

Assertion

Ref	Expression
dchrisum0lem2a	|- ( ph -> ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) ) e. O(1) )

Distinct variable groups:   x, m, y, .1.   m, d, x, y, C   F, d, x, y   a, d, m, x, y   m, N, x, y   ph, d, m, x   S, d, m, x, y   U, m, x   x, W   m, Z, x, y   D, m, x, y   L, a, d, m, x, y   X, a, d, m, x, y   m, F

Allowed substitution hints:   ph( y, a)   C( a)   D( a, d)   S( a)   U( y, a, d)   .1. ( a, d)   F( a)   G( x, y, m, a, d)   H( x, y, m, a, d)   N( a, d)   W( y, m, a, d)   Z( a, d)

Proof of Theorem dchrisum0lem2a

Dummy variables w z are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fzfid 12183	. . . 4 |- ( ( ph /\ x e. RR+ ) -> ( 1 ... ( |_ ` x ) ) e. Fin )
2		simpl 458	. . . . 5 |- ( ( ph /\ x e. RR+ ) -> ph )
3		elfznn 11826	. . . . 5 |- ( m e. ( 1 ... ( |_ ` x ) ) -> m e. NN )
4		rpvmasum2.g	. . . . . . 7 |- G = (DChr ` N )
5		rpvmasum.z	. . . . . . 7 |- Z = (ℤ/nℤ ` N )
6		rpvmasum2.d	. . . . . . 7 |- D = ( Base ` G )
7		rpvmasum.l	. . . . . . 7 |- L = ( ZRHom ` Z )
8		rpvmasum2.w	. . . . . . . . . . 11 |- W = { y e. ( D \ { .1. } ) | sum_ m e. NN ( ( y ` ( L ` m ) ) / m ) = 0 }
9		ssrab2 3552	. . . . . . . . . . 11 |- { y e. ( D \ { .1. } ) | sum_ m e. NN ( ( y ` ( L ` m ) ) / m ) = 0 } C_ ( D \ { .1. } )
10	8, 9	eqsstri 3500	. . . . . . . . . 10 |- W C_ ( D \ { .1. } )
11		dchrisum0.b	. . . . . . . . . 10 |- ( ph -> X e. W )
12	10, 11	sseldi 3468	. . . . . . . . 9 |- ( ph -> X e. ( D \ { .1. } ) )
13	12	eldifad 3454	. . . . . . . 8 |- ( ph -> X e. D )
14	13	adantr 466	. . . . . . 7 |- ( ( ph /\ m e. NN ) -> X e. D )
15		nnz 10959	. . . . . . . 8 |- ( m e. NN -> m e. ZZ )
16	15	adantl 467	. . . . . . 7 |- ( ( ph /\ m e. NN ) -> m e. ZZ )
17	4, 5, 6, 7, 14, 16	dchrzrhcl 24036	. . . . . 6 |- ( ( ph /\ m e. NN ) -> ( X ` ( L ` m ) ) e. CC )
18		nnrp 11311	. . . . . . . . 9 |- ( m e. NN -> m e. RR+ )
19	18	adantl 467	. . . . . . . 8 |- ( ( ph /\ m e. NN ) -> m e. RR+ )
20	19	rpsqrtcld 13452	. . . . . . 7 |- ( ( ph /\ m e. NN ) -> ( sqr ` m ) e. RR+ )
21	20	rpcnd 11343	. . . . . 6 |- ( ( ph /\ m e. NN ) -> ( sqr ` m ) e. CC )
22	20	rpne0d 11346	. . . . . 6 |- ( ( ph /\ m e. NN ) -> ( sqr ` m ) =/= 0 )
23	17, 21, 22	divcld 10382	. . . . 5 |- ( ( ph /\ m e. NN ) -> ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) e. CC )
24	2, 3, 23	syl2an 479	. . . 4 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) e. CC )
25	1, 24	fsumcl 13777	. . 3 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) e. CC )
26		dchrisum0lem2.u	. . . . 5 |- ( ph -> H ~~> r U )
27		rlimcl 13545	. . . . 5 |- ( H ~~> r U -> U e. CC )
28	26, 27	syl 17	. . . 4 |- ( ph -> U e. CC )
29	28	adantr 466	. . 3 |- ( ( ph /\ x e. RR+ ) -> U e. CC )
30		0xr 9686	. . . . . . . . 9 |- 0 e. RR*
31		0lt1 10135	. . . . . . . . 9 |- 0 < 1
32		df-ioo 11639	. . . . . . . . . 10 |- (,) = ( x e. RR* , y e. RR* |-> { z e. RR* | ( x < z /\ z < y ) } )
33		df-ico 11641	. . . . . . . . . 10 |- [,) = ( x e. RR* , y e. RR* |-> { z e. RR* | ( x <_ z /\ z < y ) } )
34		xrltletr 11454	. . . . . . . . . 10 |- ( ( 0 e. RR* /\ 1 e. RR* /\ w e. RR* ) -> ( ( 0 < 1 /\ 1 <_ w ) -> 0 < w ) )
35	32, 33, 34	ixxss1 11653	. . . . . . . . 9 |- ( ( 0 e. RR* /\ 0 < 1 ) -> ( 1 [,) +oo ) C_ ( 0 (,) +oo ) )
36	30, 31, 35	mp2an 676	. . . . . . . 8 |- ( 1 [,) +oo ) C_ ( 0 (,) +oo )
37		ioorp 11712	. . . . . . . 8 |- ( 0 (,) +oo ) = RR+
38	36, 37	sseqtri 3502	. . . . . . 7 |- ( 1 [,) +oo ) C_ RR+
39		resmpt 5174	. . . . . . 7 |- ( ( 1 [,) +oo ) C_ RR+ -> ( ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) |` ( 1 [,) +oo ) ) = ( x e. ( 1 [,) +oo ) |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) )
40	38, 39	ax-mp 5	. . . . . 6 |- ( ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) |` ( 1 [,) +oo ) ) = ( x e. ( 1 [,) +oo ) |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) )
41	38	sseli 3466	. . . . . . . . 9 |- ( x e. ( 1 [,) +oo ) -> x e. RR+ )
42	3	adantl 467	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> m e. NN )
43		fveq2 5881	. . . . . . . . . . . . 13 |- ( a = m -> ( L ` a ) = ( L ` m ) )
44	43	fveq2d 5885	. . . . . . . . . . . 12 |- ( a = m -> ( X ` ( L ` a ) ) = ( X ` ( L ` m ) ) )
45		fveq2 5881	. . . . . . . . . . . 12 |- ( a = m -> ( sqr ` a ) = ( sqr ` m ) )
46	44, 45	oveq12d 6323	. . . . . . . . . . 11 |- ( a = m -> ( ( X ` ( L ` a ) ) / ( sqr ` a ) ) = ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) )
47		dchrisum0lem1.f	. . . . . . . . . . 11 |- F = ( a e. NN |-> ( ( X ` ( L ` a ) ) / ( sqr ` a ) ) )
48		ovex 6333	. . . . . . . . . . 11 |- ( ( X ` ( L ` a ) ) / ( sqr ` a ) ) e. _V
49	46, 47, 48	fvmpt3i 5969	. . . . . . . . . 10 |- ( m e. NN -> ( F ` m ) = ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) )
50	42, 49	syl 17	. . . . . . . . 9 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( F ` m ) = ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) )
51	41, 50	sylanl2 655	. . . . . . . 8 |- ( ( ( ph /\ x e. ( 1 [,) +oo ) ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( F ` m ) = ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) )
52		1re 9641	. . . . . . . . . . . 12 |- 1 e. RR
53		elicopnf 11730	. . . . . . . . . . . 12 |- ( 1 e. RR -> ( x e. ( 1 [,) +oo ) <-> ( x e. RR /\ 1 <_ x ) ) )
54	52, 53	ax-mp 5	. . . . . . . . . . 11 |- ( x e. ( 1 [,) +oo ) <-> ( x e. RR /\ 1 <_ x ) )
55		flge1nn 12052	. . . . . . . . . . 11 |- ( ( x e. RR /\ 1 <_ x ) -> ( |_ ` x ) e. NN )
56	54, 55	sylbi 198	. . . . . . . . . 10 |- ( x e. ( 1 [,) +oo ) -> ( |_ ` x ) e. NN )
57	56	adantl 467	. . . . . . . . 9 |- ( ( ph /\ x e. ( 1 [,) +oo ) ) -> ( |_ ` x ) e. NN )
58		nnuz 11194	. . . . . . . . 9 |- NN = ( ZZ>= ` 1 )
59	57, 58	syl6eleq 2527	. . . . . . . 8 |- ( ( ph /\ x e. ( 1 [,) +oo ) ) -> ( |_ ` x ) e. ( ZZ>= ` 1 ) )
60	41, 24	sylanl2 655	. . . . . . . 8 |- ( ( ( ph /\ x e. ( 1 [,) +oo ) ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) e. CC )
61	51, 59, 60	fsumser 13774	. . . . . . 7 |- ( ( ph /\ x e. ( 1 [,) +oo ) ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) = ( seq 1 ( + , F ) ` ( |_ ` x ) ) )
62	61	mpteq2dva 4512	. . . . . 6 |- ( ph -> ( x e. ( 1 [,) +oo ) |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) = ( x e. ( 1 [,) +oo ) |-> ( seq 1 ( + , F ) ` ( |_ ` x ) ) ) )
63	40, 62	syl5eq 2482	. . . . 5 |- ( ph -> ( ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) |` ( 1 [,) +oo ) ) = ( x e. ( 1 [,) +oo ) |-> ( seq 1 ( + , F ) ` ( |_ ` x ) ) ) )
64		fveq2 5881	. . . . . . 7 |- ( m = ( |_ ` x ) -> ( seq 1 ( + , F ) ` m ) = ( seq 1 ( + , F ) ` ( |_ ` x ) ) )
65		rpssre 11312	. . . . . . . . 9 |- RR+ C_ RR
66	65	a1i 11	. . . . . . . 8 |- ( ph -> RR+ C_ RR )
67	38, 66	syl5ss 3481	. . . . . . 7 |- ( ph -> ( 1 [,) +oo ) C_ RR )
68		1zzd 10968	. . . . . . 7 |- ( ph -> 1 e. ZZ )
69	46	cbvmptv 4518	. . . . . . . . . . . . 13 |- ( a e. NN |-> ( ( X ` ( L ` a ) ) / ( sqr ` a ) ) ) = ( m e. NN |-> ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) )
70	47, 69	eqtri 2458	. . . . . . . . . . . 12 |- F = ( m e. NN |-> ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) )
71	23, 70	fmptd 6061	. . . . . . . . . . 11 |- ( ph -> F : NN --> CC )
72	71	ffvelrnda 6037	. . . . . . . . . 10 |- ( ( ph /\ m e. NN ) -> ( F ` m ) e. CC )
73	58, 68, 72	serf 12238	. . . . . . . . 9 |- ( ph -> seq 1 ( + , F ) : NN --> CC )
74	73	feqmptd 5934	. . . . . . . 8 |- ( ph -> seq 1 ( + , F ) = ( m e. NN |-> ( seq 1 ( + , F ) ` m ) ) )
75		dchrisum0.s	. . . . . . . 8 |- ( ph -> seq 1 ( + , F ) ~~> S )
76	74, 75	eqbrtrrd 4448	. . . . . . 7 |- ( ph -> ( m e. NN |-> ( seq 1 ( + , F ) ` m ) ) ~~> S )
77	73	ffvelrnda 6037	. . . . . . 7 |- ( ( ph /\ m e. NN ) -> ( seq 1 ( + , F ) ` m ) e. CC )
78	54	simprbi 465	. . . . . . . 8 |- ( x e. ( 1 [,) +oo ) -> 1 <_ x )
79	78	adantl 467	. . . . . . 7 |- ( ( ph /\ x e. ( 1 [,) +oo ) ) -> 1 <_ x )
80	58, 64, 67, 68, 76, 77, 79	climrlim2 13589	. . . . . 6 |- ( ph -> ( x e. ( 1 [,) +oo ) |-> ( seq 1 ( + , F ) ` ( |_ ` x ) ) ) ~~> r S )
81		rlimo1 13658	. . . . . 6 |- ( ( x e. ( 1 [,) +oo ) |-> ( seq 1 ( + , F ) ` ( |_ ` x ) ) ) ~~> r S -> ( x e. ( 1 [,) +oo ) |-> ( seq 1 ( + , F ) ` ( |_ ` x ) ) ) e. O(1) )
82	80, 81	syl 17	. . . . 5 |- ( ph -> ( x e. ( 1 [,) +oo ) |-> ( seq 1 ( + , F ) ` ( |_ ` x ) ) ) e. O(1) )
83	63, 82	eqeltrd 2517	. . . 4 |- ( ph -> ( ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) |` ( 1 [,) +oo ) ) e. O(1) )
84		eqid 2429	. . . . . 6 |- ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) = ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) )
85	25, 84	fmptd 6061	. . . . 5 |- ( ph -> ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) : RR+ --> CC )
86		1red 9657	. . . . 5 |- ( ph -> 1 e. RR )
87	85, 66, 86	o1resb 13608	. . . 4 |- ( ph -> ( ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) e. O(1) <-> ( ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) |` ( 1 [,) +oo ) ) e. O(1) ) )
88	83, 87	mpbird 235	. . 3 |- ( ph -> ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) e. O(1) )
89		o1const 13661	. . . 4 |- ( ( RR+ C_ RR /\ U e. CC ) -> ( x e. RR+ |-> U ) e. O(1) )
90	65, 28, 89	sylancr 667	. . 3 |- ( ph -> ( x e. RR+ |-> U ) e. O(1) )
91	25, 29, 88, 90	o1mul2 13666	. 2 |- ( ph -> ( x e. RR+ |-> ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) ) e. O(1) )
92		simpr 462	. . . . . . . . 9 |- ( ( ph /\ x e. RR+ ) -> x e. RR+ )
93		2z 10969	. . . . . . . . 9 |- 2 e. ZZ
94		rpexpcl 12288	. . . . . . . . 9 |- ( ( x e. RR+ /\ 2 e. ZZ ) -> ( x ^ 2 ) e. RR+ )
95	92, 93, 94	sylancl 666	. . . . . . . 8 |- ( ( ph /\ x e. RR+ ) -> ( x ^ 2 ) e. RR+ )
96	3	nnrpd 11339	. . . . . . . 8 |- ( m e. ( 1 ... ( |_ ` x ) ) -> m e. RR+ )
97		rpdivcl 11325	. . . . . . . 8 |- ( ( ( x ^ 2 ) e. RR+ /\ m e. RR+ ) -> ( ( x ^ 2 ) / m ) e. RR+ )
98	95, 96, 97	syl2an 479	. . . . . . 7 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( x ^ 2 ) / m ) e. RR+ )
99		dchrisum0lem2.h	. . . . . . . . 9 |- H = ( y e. RR+ |-> ( sum_ d e. ( 1 ... ( |_ ` y ) ) ( 1 / ( sqr ` d ) ) - ( 2 x. ( sqr ` y ) ) ) )
100	99	divsqrsumf 23771	. . . . . . . 8 |- H : RR+ --> RR
101	100	ffvelrni 6036	. . . . . . 7 |- ( ( ( x ^ 2 ) / m ) e. RR+ -> ( H ` ( ( x ^ 2 ) / m ) ) e. RR )
102	98, 101	syl 17	. . . . . 6 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( H ` ( ( x ^ 2 ) / m ) ) e. RR )
103	102	recnd 9668	. . . . 5 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( H ` ( ( x ^ 2 ) / m ) ) e. CC )
104	24, 103	mulcld 9662	. . . 4 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) e. CC )
105	1, 104	fsumcl 13777	. . 3 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) e. CC )
106	25, 29	mulcld 9662	. . 3 |- ( ( ph /\ x e. RR+ ) -> ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) e. CC )
107	26	ad2antrr 730	. . . . . . . . 9 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> H ~~> r U )
108	107, 27	syl 17	. . . . . . . 8 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> U e. CC )
109	24, 108	mulcld 9662	. . . . . . 7 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) e. CC )
110	1, 104, 109	fsumsub 13827	. . . . . 6 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) - ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) ) = ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) - sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) ) )
111	24, 103, 108	subdid 10073	. . . . . . 7 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) = ( ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) - ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) ) )
112	111	sumeq2dv 13747	. . . . . 6 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) = sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) - ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) ) )
113	1, 29, 24	fsummulc1 13824	. . . . . . 7 |- ( ( ph /\ x e. RR+ ) -> ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) = sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) )
114	113	oveq2d 6321	. . . . . 6 |- ( ( ph /\ x e. RR+ ) -> ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) - ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) ) = ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) - sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) ) )
115	110, 112, 114	3eqtr4d 2480	. . . . 5 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) = ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) - ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) ) )
116	115	mpteq2dva 4512	. . . 4 |- ( ph -> ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) = ( x e. RR+ |-> ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) - ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) ) ) )
117	103, 108	subcld 9985	. . . . . . 7 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) e. CC )
118	24, 117	mulcld 9662	. . . . . 6 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) e. CC )
119	1, 118	fsumcl 13777	. . . . 5 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) e. CC )
120	119	abscld 13476	. . . . . . 7 |- ( ( ph /\ x e. RR+ ) -> ( abs ` sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) e. RR )
121	118	abscld 13476	. . . . . . . 8 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) e. RR )
122	1, 121	fsumrecl 13778	. . . . . . 7 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( abs ` ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) e. RR )
123		1red 9657	. . . . . . 7 |- ( ( ph /\ x e. RR+ ) -> 1 e. RR )
124	1, 118	fsumabs 13839	. . . . . . 7 |- ( ( ph /\ x e. RR+ ) -> ( abs ` sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) <_ sum_ m e. ( 1 ... ( |_ ` x ) ) ( abs ` ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) )
125		rprege0 11316	. . . . . . . . . . . 12 |- ( x e. RR+ -> ( x e. RR /\ 0 <_ x ) )
126	125	adantl 467	. . . . . . . . . . 11 |- ( ( ph /\ x e. RR+ ) -> ( x e. RR /\ 0 <_ x ) )
127	126	simpld 460	. . . . . . . . . 10 |- ( ( ph /\ x e. RR+ ) -> x e. RR )
128		reflcl 12029	. . . . . . . . . 10 |- ( x e. RR -> ( |_ ` x ) e. RR )
129	127, 128	syl 17	. . . . . . . . 9 |- ( ( ph /\ x e. RR+ ) -> ( |_ ` x ) e. RR )
130	129, 92	rerpdivcld 11369	. . . . . . . 8 |- ( ( ph /\ x e. RR+ ) -> ( ( |_ ` x ) / x ) e. RR )
131		simplr 760	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> x e. RR+ )
132	131	rprecred 11352	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( 1 / x ) e. RR )
133	24	abscld 13476	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) e. RR )
134	96	rpsqrtcld 13452	. . . . . . . . . . . . . 14 |- ( m e. ( 1 ... ( |_ ` x ) ) -> ( sqr ` m ) e. RR+ )
135	134	adantl 467	. . . . . . . . . . . . 13 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( sqr ` m ) e. RR+ )
136	135	rprecred 11352	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( 1 / ( sqr ` m ) ) e. RR )
137	117	abscld 13476	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) e. RR )
138	135, 131	rpdivcld 11358	. . . . . . . . . . . . 13 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( sqr ` m ) / x ) e. RR+ )
139	65, 138	sseldi 3468	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( sqr ` m ) / x ) e. RR )
140	24	absge0d 13484	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> 0 <_ ( abs ` ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) )
141	117	absge0d 13484	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> 0 <_ ( abs ` ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) )
142	2, 3, 17	syl2an 479	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( X ` ( L ` m ) ) e. CC )
143	135	rpcnd 11343	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( sqr ` m ) e. CC )
144	135	rpne0d 11346	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( sqr ` m ) =/= 0 )
145	142, 143, 144	absdivd 13495	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) = ( ( abs ` ( X ` ( L ` m ) ) ) / ( abs ` ( sqr ` m ) ) ) )
146	135	rprege0d 11348	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( sqr ` m ) e. RR /\ 0 <_ ( sqr ` m ) ) )
147		absid 13338	. . . . . . . . . . . . . . . 16 |- ( ( ( sqr ` m ) e. RR /\ 0 <_ ( sqr ` m ) ) -> ( abs ` ( sqr ` m ) ) = ( sqr ` m ) )
148	146, 147	syl 17	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( sqr ` m ) ) = ( sqr ` m ) )
149	148	oveq2d 6321	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( abs ` ( X ` ( L ` m ) ) ) / ( abs ` ( sqr ` m ) ) ) = ( ( abs ` ( X ` ( L ` m ) ) ) / ( sqr ` m ) ) )
150	145, 149	eqtrd 2470	. . . . . . . . . . . . 13 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) = ( ( abs ` ( X ` ( L ` m ) ) ) / ( sqr ` m ) ) )
151	142	abscld 13476	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( X ` ( L ` m ) ) ) e. RR )
152		1red 9657	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> 1 e. RR )
153		eqid 2429	. . . . . . . . . . . . . . 15 |- ( Base ` Z ) = ( Base ` Z )
154	13	ad2antrr 730	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> X e. D )
155		rpvmasum.a	. . . . . . . . . . . . . . . . . . 19 |- ( ph -> N e. NN )
156	155	nnnn0d 10925	. . . . . . . . . . . . . . . . . 18 |- ( ph -> N e. NN0 )
157	5, 153, 7	znzrhfo 19049	. . . . . . . . . . . . . . . . . 18 |- ( N e. NN0 -> L : ZZ -onto-> ( Base ` Z ) )
158		fof 5810	. . . . . . . . . . . . . . . . . 18 |- ( L : ZZ -onto-> ( Base ` Z ) -> L : ZZ --> ( Base ` Z ) )
159	156, 157, 158	3syl 18	. . . . . . . . . . . . . . . . 17 |- ( ph -> L : ZZ --> ( Base ` Z ) )
160	159	adantr 466	. . . . . . . . . . . . . . . 16 |- ( ( ph /\ x e. RR+ ) -> L : ZZ --> ( Base ` Z ) )
161		elfzelz 11798	. . . . . . . . . . . . . . . 16 |- ( m e. ( 1 ... ( |_ ` x ) ) -> m e. ZZ )
162		ffvelrn 6035	. . . . . . . . . . . . . . . 16 |- ( ( L : ZZ --> ( Base ` Z ) /\ m e. ZZ ) -> ( L ` m ) e. ( Base ` Z ) )
163	160, 161, 162	syl2an 479	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( L ` m ) e. ( Base ` Z ) )
164	4, 6, 5, 153, 154, 163	dchrabs2 24053	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( X ` ( L ` m ) ) ) <_ 1 )
165	151, 152, 135, 164	lediv1dd 11396	. . . . . . . . . . . . 13 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( abs ` ( X ` ( L ` m ) ) ) / ( sqr ` m ) ) <_ ( 1 / ( sqr ` m ) ) )
166	150, 165	eqbrtrd 4446	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) <_ ( 1 / ( sqr ` m ) ) )
167	99, 107	divsqrtsum2 23773	. . . . . . . . . . . . . 14 |- ( ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) /\ ( ( x ^ 2 ) / m ) e. RR+ ) -> ( abs ` ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) <_ ( 1 / ( sqr ` ( ( x ^ 2 ) / m ) ) ) )
168	98, 167	mpdan 672	. . . . . . . . . . . . 13 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) <_ ( 1 / ( sqr ` ( ( x ^ 2 ) / m ) ) ) )
169	95	rprege0d 11348	. . . . . . . . . . . . . . . . 17 |- ( ( ph /\ x e. RR+ ) -> ( ( x ^ 2 ) e. RR /\ 0 <_ ( x ^ 2 ) ) )
170		sqrtdiv 13308	. . . . . . . . . . . . . . . . 17 |- ( ( ( ( x ^ 2 ) e. RR /\ 0 <_ ( x ^ 2 ) ) /\ m e. RR+ ) -> ( sqr ` ( ( x ^ 2 ) / m ) ) = ( ( sqr ` ( x ^ 2 ) ) / ( sqr ` m ) ) )
171	169, 96, 170	syl2an 479	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( sqr ` ( ( x ^ 2 ) / m ) ) = ( ( sqr ` ( x ^ 2 ) ) / ( sqr ` m ) ) )
172	125	ad2antlr 731	. . . . . . . . . . . . . . . . . 18 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( x e. RR /\ 0 <_ x ) )
173		sqrtsq 13312	. . . . . . . . . . . . . . . . . 18 |- ( ( x e. RR /\ 0 <_ x ) -> ( sqr ` ( x ^ 2 ) ) = x )
174	172, 173	syl 17	. . . . . . . . . . . . . . . . 17 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( sqr ` ( x ^ 2 ) ) = x )
175	174	oveq1d 6320	. . . . . . . . . . . . . . . 16 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( sqr ` ( x ^ 2 ) ) / ( sqr ` m ) ) = ( x / ( sqr ` m ) ) )
176	171, 175	eqtrd 2470	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( sqr ` ( ( x ^ 2 ) / m ) ) = ( x / ( sqr ` m ) ) )
177	176	oveq2d 6321	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( 1 / ( sqr ` ( ( x ^ 2 ) / m ) ) ) = ( 1 / ( x / ( sqr ` m ) ) ) )
178		rpcnne0 11319	. . . . . . . . . . . . . . . 16 |- ( x e. RR+ -> ( x e. CC /\ x =/= 0 ) )
179	178	ad2antlr 731	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( x e. CC /\ x =/= 0 ) )
180	135	rpcnne0d 11350	. . . . . . . . . . . . . . 15 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( sqr ` m ) e. CC /\ ( sqr ` m ) =/= 0 ) )
181		recdiv 10312	. . . . . . . . . . . . . . 15 |- ( ( ( x e. CC /\ x =/= 0 ) /\ ( ( sqr ` m ) e. CC /\ ( sqr ` m ) =/= 0 ) ) -> ( 1 / ( x / ( sqr ` m ) ) ) = ( ( sqr ` m ) / x ) )
182	179, 180, 181	syl2anc 665	. . . . . . . . . . . . . 14 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( 1 / ( x / ( sqr ` m ) ) ) = ( ( sqr ` m ) / x ) )
183	177, 182	eqtrd 2470	. . . . . . . . . . . . 13 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( 1 / ( sqr ` ( ( x ^ 2 ) / m ) ) ) = ( ( sqr ` m ) / x ) )
184	168, 183	breqtrd 4450	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) <_ ( ( sqr ` m ) / x ) )
185	133, 136, 137, 139, 140, 141, 166, 184	lemul12ad 10549	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( abs ` ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) x. ( abs ` ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) <_ ( ( 1 / ( sqr ` m ) ) x. ( ( sqr ` m ) / x ) ) )
186	24, 117	absmuld 13494	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) = ( ( abs ` ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) ) x. ( abs ` ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) )
187		1cnd 9658	. . . . . . . . . . . . 13 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> 1 e. CC )
188		dmdcan 10316	. . . . . . . . . . . . 13 |- ( ( ( ( sqr ` m ) e. CC /\ ( sqr ` m ) =/= 0 ) /\ ( x e. CC /\ x =/= 0 ) /\ 1 e. CC ) -> ( ( ( sqr ` m ) / x ) x. ( 1 / ( sqr ` m ) ) ) = ( 1 / x ) )
189	180, 179, 187, 188	syl3anc 1264	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( ( sqr ` m ) / x ) x. ( 1 / ( sqr ` m ) ) ) = ( 1 / x ) )
190	138	rpcnd 11343	. . . . . . . . . . . . 13 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( sqr ` m ) / x ) e. CC )
191		reccl 10276	. . . . . . . . . . . . . 14 |- ( ( ( sqr ` m ) e. CC /\ ( sqr ` m ) =/= 0 ) -> ( 1 / ( sqr ` m ) ) e. CC )
192	180, 191	syl 17	. . . . . . . . . . . . 13 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( 1 / ( sqr ` m ) ) e. CC )
193	190, 192	mulcomd 9663	. . . . . . . . . . . 12 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( ( ( sqr ` m ) / x ) x. ( 1 / ( sqr ` m ) ) ) = ( ( 1 / ( sqr ` m ) ) x. ( ( sqr ` m ) / x ) ) )
194	189, 193	eqtr3d 2472	. . . . . . . . . . 11 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( 1 / x ) = ( ( 1 / ( sqr ` m ) ) x. ( ( sqr ` m ) / x ) ) )
195	185, 186, 194	3brtr4d 4456	. . . . . . . . . 10 |- ( ( ( ph /\ x e. RR+ ) /\ m e. ( 1 ... ( |_ ` x ) ) ) -> ( abs ` ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) <_ ( 1 / x ) )
196	1, 121, 132, 195	fsumle 13837	. . . . . . . . 9 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( abs ` ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) <_ sum_ m e. ( 1 ... ( |_ ` x ) ) ( 1 / x ) )
197		flge0nn0 12051	. . . . . . . . . . . 12 |- ( ( x e. RR /\ 0 <_ x ) -> ( |_ ` x ) e. NN0 )
198		hashfz1 12526	. . . . . . . . . . . 12 |- ( ( |_ ` x ) e. NN0 -> ( # ` ( 1 ... ( |_ ` x ) ) ) = ( |_ ` x ) )
199	126, 197, 198	3syl 18	. . . . . . . . . . 11 |- ( ( ph /\ x e. RR+ ) -> ( # ` ( 1 ... ( |_ ` x ) ) ) = ( |_ ` x ) )
200	199	oveq1d 6320	. . . . . . . . . 10 |- ( ( ph /\ x e. RR+ ) -> ( ( # ` ( 1 ... ( |_ ` x ) ) ) x. ( 1 / x ) ) = ( ( |_ ` x ) x. ( 1 / x ) ) )
201	92	rpreccld 11351	. . . . . . . . . . . 12 |- ( ( ph /\ x e. RR+ ) -> ( 1 / x ) e. RR+ )
202	201	rpcnd 11343	. . . . . . . . . . 11 |- ( ( ph /\ x e. RR+ ) -> ( 1 / x ) e. CC )
203		fsumconst 13829	. . . . . . . . . . 11 |- ( ( ( 1 ... ( |_ ` x ) ) e. Fin /\ ( 1 / x ) e. CC ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( 1 / x ) = ( ( # ` ( 1 ... ( |_ ` x ) ) ) x. ( 1 / x ) ) )
204	1, 202, 203	syl2anc 665	. . . . . . . . . 10 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( 1 / x ) = ( ( # ` ( 1 ... ( |_ ` x ) ) ) x. ( 1 / x ) ) )
205	129	recnd 9668	. . . . . . . . . . 11 |- ( ( ph /\ x e. RR+ ) -> ( |_ ` x ) e. CC )
206	178	adantl 467	. . . . . . . . . . . 12 |- ( ( ph /\ x e. RR+ ) -> ( x e. CC /\ x =/= 0 ) )
207	206	simpld 460	. . . . . . . . . . 11 |- ( ( ph /\ x e. RR+ ) -> x e. CC )
208	206	simprd 464	. . . . . . . . . . 11 |- ( ( ph /\ x e. RR+ ) -> x =/= 0 )
209	205, 207, 208	divrecd 10385	. . . . . . . . . 10 |- ( ( ph /\ x e. RR+ ) -> ( ( |_ ` x ) / x ) = ( ( |_ ` x ) x. ( 1 / x ) ) )
210	200, 204, 209	3eqtr4d 2480	. . . . . . . . 9 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( 1 / x ) = ( ( |_ ` x ) / x ) )
211	196, 210	breqtrd 4450	. . . . . . . 8 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( abs ` ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) <_ ( ( |_ ` x ) / x ) )
212		flle 12032	. . . . . . . . . . 11 |- ( x e. RR -> ( |_ ` x ) <_ x )
213	127, 212	syl 17	. . . . . . . . . 10 |- ( ( ph /\ x e. RR+ ) -> ( |_ ` x ) <_ x )
214	127	recnd 9668	. . . . . . . . . . 11 |- ( ( ph /\ x e. RR+ ) -> x e. CC )
215	214	mulid1d 9659	. . . . . . . . . 10 |- ( ( ph /\ x e. RR+ ) -> ( x x. 1 ) = x )
216	213, 215	breqtrrd 4452	. . . . . . . . 9 |- ( ( ph /\ x e. RR+ ) -> ( |_ ` x ) <_ ( x x. 1 ) )
217		rpregt0 11315	. . . . . . . . . . 11 |- ( x e. RR+ -> ( x e. RR /\ 0 < x ) )
218	217	adantl 467	. . . . . . . . . 10 |- ( ( ph /\ x e. RR+ ) -> ( x e. RR /\ 0 < x ) )
219		ledivmul 10480	. . . . . . . . . 10 |- ( ( ( |_ ` x ) e. RR /\ 1 e. RR /\ ( x e. RR /\ 0 < x ) ) -> ( ( ( |_ ` x ) / x ) <_ 1 <-> ( |_ ` x ) <_ ( x x. 1 ) ) )
220	129, 123, 218, 219	syl3anc 1264	. . . . . . . . 9 |- ( ( ph /\ x e. RR+ ) -> ( ( ( |_ ` x ) / x ) <_ 1 <-> ( |_ ` x ) <_ ( x x. 1 ) ) )
221	216, 220	mpbird 235	. . . . . . . 8 |- ( ( ph /\ x e. RR+ ) -> ( ( |_ ` x ) / x ) <_ 1 )
222	122, 130, 123, 211, 221	letrd 9791	. . . . . . 7 |- ( ( ph /\ x e. RR+ ) -> sum_ m e. ( 1 ... ( |_ ` x ) ) ( abs ` ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) <_ 1 )
223	120, 122, 123, 124, 222	letrd 9791	. . . . . 6 |- ( ( ph /\ x e. RR+ ) -> ( abs ` sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) <_ 1 )
224	223	adantrr 721	. . . . 5 |- ( ( ph /\ ( x e. RR+ /\ 1 <_ x ) ) -> ( abs ` sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) <_ 1 )
225	66, 119, 86, 86, 224	elo1d 13578	. . . 4 |- ( ph -> ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( ( H ` ( ( x ^ 2 ) / m ) ) - U ) ) ) e. O(1) )
226	116, 225	eqeltrrd 2518	. . 3 |- ( ph -> ( x e. RR+ |-> ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) - ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) ) ) e. O(1) )
227	105, 106, 226	o1dif 13671	. 2 |- ( ph -> ( ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) ) e. O(1) <-> ( x e. RR+ |-> ( sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. U ) ) e. O(1) ) )
228	91, 227	mpbird 235	1 |- ( ph -> ( x e. RR+ |-> sum_ m e. ( 1 ... ( |_ ` x ) ) ( ( ( X ` ( L ` m ) ) / ( sqr ` m ) ) x. ( H ` ( ( x ^ 2 ) / m ) ) ) ) e. O(1) )

Syntax hints:   -> wi 4   <-> wb 187   /\ wa 370   = wceq 1437   e. wcel 1870   =/= wne 2625   A.wral 2782   {crab 2786   \ cdif 3439   C_ wss 3442   {csn 4002   class class class wbr 4426   |-> cmpt 4484   |` cres 4856   -->wf 5597   -onto->wfo 5599   ` cfv 5601  (class class class)co 6305   Fincfn 7577   CCcc 9536   RRcr 9537   0cc0 9538   1c1 9539   + caddc 9541   x. cmul 9543   +oocpnf 9671   RR*cxr 9673   < clt 9674   <_ cle 9675   - cmin 9859   / cdiv 10268   NNcn 10609   2c2 10659   NN0cn0 10869   ZZcz 10937   ZZ>=cuz 11159   RR+crp 11302   (,)cioo 11635   [,)cico 11637   ...cfz 11782   |_cfl 12023   seqcseq 12210   ^cexp 12269   #chash 12512   sqrcsqrt 13275   abscabs 13276   ~~> cli 13526   ~~> r crli 13527   O(1)co1 13528   sum_csu 13730   Basecbs 15084   0gc0g 15297   ZRHomczrh 19002  ℤ/nℤczn 19005  DChrcdchr 24023

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1665  ax-4 1678  ax-5 1751  ax-6 1797  ax-7 1841  ax-8 1872  ax-9 1874  ax-10 1889  ax-11 1894  ax-12 1907  ax-13 2055  ax-ext 2407  ax-rep 4538  ax-sep 4548  ax-nul 4556  ax-pow 4603  ax-pr 4661  ax-un 6597  ax-inf2 8146  ax-cnex 9594  ax-resscn 9595  ax-1cn 9596  ax-icn 9597  ax-addcl 9598  ax-addrcl 9599  ax-mulcl 9600  ax-mulrcl 9601  ax-mulcom 9602  ax-addass 9603  ax-mulass 9604  ax-distr 9605  ax-i2m1 9606  ax-1ne0 9607  ax-1rid 9608  ax-rnegex 9609  ax-rrecex 9610  ax-cnre 9611  ax-pre-lttri 9612  ax-pre-lttrn 9613  ax-pre-ltadd 9614  ax-pre-mulgt0 9615  ax-pre-sup 9616  ax-addf 9617  ax-mulf 9618

This theorem depends on definitions:  df-bi 188  df-or 371  df-an 372  df-3or 983  df-3an 984  df-tru 1440  df-fal 1443  df-ex 1660  df-nf 1664  df-sb 1790  df-eu 2270  df-mo 2271  df-clab 2415  df-cleq 2421  df-clel 2424  df-nfc 2579  df-ne 2627  df-nel 2628  df-ral 2787  df-rex 2788  df-reu 2789  df-rmo 2790  df-rab 2791  df-v 3089  df-sbc 3306  df-csb 3402  df-dif 3445  df-un 3447  df-in 3449  df-ss 3456  df-pss 3458  df-nul 3768  df-if 3916  df-pw 3987  df-sn 4003  df-pr 4005  df-tp 4007  df-op 4009  df-uni 4223  df-int 4259  df-iun 4304  df-iin 4305  df-disj 4398  df-br 4427  df-opab 4485  df-mpt 4486  df-tr 4521  df-eprel 4765  df-id 4769  df-po 4775  df-so 4776  df-fr 4813  df-se 4814  df-we 4815  df-xp 4860  df-rel 4861  df-cnv 4862  df-co 4863  df-dm 4864  df-rn 4865  df-res 4866  df-ima 4867  df-pred 5399  df-ord 5445  df-on 5446  df-lim 5447  df-suc 5448  df-iota 5565  df-fun 5603  df-fn 5604  df-f 5605  df-f1 5606  df-fo 5607  df-f1o 5608  df-fv 5609  df-isom 5610  df-riota 6267  df-ov 6308  df-oprab 6309  df-mpt2 6310  df-of 6545  df-om 6707  df-1st 6807  df-2nd 6808  df-supp 6926  df-tpos 6981  df-wrecs 7036  df-recs 7098  df-rdg 7136  df-1o 7190  df-2o 7191  df-oadd 7194  df-omul 7195  df-er 7371  df-ec 7373  df-qs 7377  df-map 7482  df-pm 7483  df-ixp 7531  df-en 7578  df-dom 7579  df-sdom 7580  df-fin 7581  df-fsupp 7890  df-fi 7931  df-sup 7962  df-inf 7963  df-oi 8025  df-card 8372  df-acn 8375  df-cda 8596  df-pnf 9676  df-mnf 9677  df-xr 9678  df-ltxr 9679  df-le 9680  df-sub 9861  df-neg 9862  df-div 10269  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 11783  df-fzo 11914  df-fl 12025  df-mod 12094  df-seq 12211  df-exp 12270  df-fac 12457  df-bc 12485  df-hash 12513  df-shft 13109  df-cj 13141  df-re 13142  df-im 13143  df-sqrt 13277  df-abs 13278  df-limsup 13504  df-clim 13530  df-rlim 13531  df-o1 13532  df-lo1 13533  df-sum 13731  df-ef 14099  df-sin 14101  df-cos 14102  df-pi 14104  df-dvds 14284  df-struct 15086  df-ndx 15087  df-slot 15088  df-base 15089  df-sets 15090  df-ress 15091  df-plusg 15165  df-mulr 15166  df-starv 15167  df-sca 15168  df-vsca 15169  df-ip 15170  df-tset 15171  df-ple 15172  df-ds 15174  df-unif 15175  df-hom 15176  df-cco 15177  df-rest 15280  df-topn 15281  df-0g 15299  df-gsum 15300  df-topgen 15301  df-pt 15302  df-prds 15305  df-xrs 15359  df-qtop 15364  df-imas 15365  df-qus 15366  df-xps 15367  df-mre 15443  df-mrc 15444  df-acs 15446  df-mgm 16439  df-sgrp 16478  df-mnd 16488  df-mhm 16533  df-submnd 16534  df-grp 16624  df-minusg 16625  df-sbg 16626  df-mulg 16627  df-subg 16765  df-nsg 16766  df-eqg 16767  df-ghm 16832  df-cntz 16922  df-od 17120  df-cmn 17367  df-abl 17368  df-mgp 17659  df-ur 17671  df-ring 17717  df-cring 17718  df-oppr 17786  df-dvdsr 17804  df-unit 17805  df-invr 17835  df-dvr 17846  df-rnghom 17878  df-drng 17912  df-subrg 17941  df-lmod 18028  df-lss 18091  df-lsp 18130  df-sra 18330  df-rgmod 18331  df-lidl 18332  df-rsp 18333  df-2idl 18391  df-psmet 18897  df-xmet 18898  df-met 18899  df-bl 18900  df-mopn 18901  df-fbas 18902  df-fg 18903  df-cnfld 18906  df-zring 18974  df-zrh 19006  df-zn 19009  df-top 19852  df-bases 19853  df-topon 19854  df-topsp 19855  df-cld 19965  df-ntr 19966  df-cls 19967  df-nei 20045  df-lp 20083  df-perf 20084  df-cn 20174  df-cnp 20175  df-haus 20262  df-cmp 20333  df-tx 20508  df-hmeo 20701  df-fil 20792  df-fm 20884  df-flim 20885  df-flf 20886  df-xms 21266  df-ms 21267  df-tms 21268  df-cncf 21806  df-limc 22698  df-dv 22699  df-log 23371  df-cxp 23372  df-dchr 24024

This theorem is referenced by:  dchrisum0lem2  24219