Theorem rplogsumlem2 22693

Description: Lemma for rplogsum 22735. 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.

Step	Hyp	Ref	Expression
1		flid 11653	. . . . 5 |- ( A e. ZZ -> ( |_ ` A ) = A )
2	1	oveq2d 6106	. . . 4 |- ( A e. ZZ -> ( 1 ... ( |_ ` A ) ) = ( 1 ... A ) )
3	2	sumeq1d 13174	. . 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 5688	. . . . . 6 |- ( n = ( p ^ k ) -> (Λ ` n ) = (Λ ` ( p ^ k ) ) )
5		eleq1 2501	. . . . . . 7 |- ( n = ( p ^ k ) -> ( n e. Prime <-> ( p ^ k ) e. Prime ) )
6		fveq2 5688	. . . . . . 7 |- ( n = ( p ^ k ) -> ( log ` n ) = ( log ` ( p ^ k ) ) )
7	5, 6	ifbieq1d 3809	. . . . . 6 |- ( n = ( p ^ k ) -> if ( n e. Prime , ( log ` n ) , 0 ) = if ( ( p ^ k ) e. Prime , ( log ` ( p ^ k ) ) , 0 ) )
8	4, 7	oveq12d 6108	. . . . 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 ) )
10	8, 9	oveq12d 6108	. . . 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 10646	. . . 4 |- ( A e. ZZ -> A e. RR )
12		elfznn 11474	. . . . . . . . 9 |- ( n e. ( 1 ... ( |_ ` A ) ) -> n e. NN )
13	12	adantl 463	. . . . . . . 8 |- ( ( A e. ZZ /\ n e. ( 1 ... ( |_ ` A ) ) ) -> n e. NN )
14		vmacl 22415	. . . . . . . 8 |- ( n e. NN -> (Λ ` n ) e. RR )
15	13, 14	syl 16	. . . . . . 7 |- ( ( A e. ZZ /\ n e. ( 1 ... ( |_ ` A ) ) ) -> (Λ ` n ) e. RR )
16	13	nnrpd 11022	. . . . . . . . 9 |- ( ( A e. ZZ /\ n e. ( 1 ... ( |_ ` A ) ) ) -> n e. RR+ )
17	16	relogcld 22031	. . . . . . . 8 |- ( ( A e. ZZ /\ n e. ( 1 ... ( |_ ` A ) ) ) -> ( log ` n ) e. RR )
18		0re 9382	. . . . . . . 8 |- 0 e. RR
19		ifcl 3828	. . . . . . . 8 |- ( ( ( log ` n ) e. RR /\ 0 e. RR ) -> if ( n e. Prime , ( log ` n ) , 0 ) e. RR )
20	17, 18, 19	sylancl 657	. . . . . . 7 |- ( ( A e. ZZ /\ n e. ( 1 ... ( |_ ` A ) ) ) -> if ( n e. Prime , ( log ` n ) , 0 ) e. RR )
21	15, 20	resubcld 9772	. . . . . 6 |- ( ( A e. ZZ /\ n e. ( 1 ... ( |_ ` A ) ) ) -> ( (Λ ` n ) - if ( n e. Prime , ( log ` n ) , 0 ) ) e. RR )
22	21, 13	nndivred 10366	. . . . 5 |- ( ( A e. ZZ /\ n e. ( 1 ... ( |_ ` A ) ) ) -> ( ( (Λ ` n ) - if ( n e. Prime , ( log ` n ) , 0 ) ) / n ) e. RR )
23	22	recnd 9408	. . . 4 |- ( ( A e. ZZ /\ n e. ( 1 ... ( |_ ` A ) ) ) -> ( ( (Λ ` n ) - if ( n e. Prime , ( log ` n ) , 0 ) ) / n ) e. CC )
24		simprr 751	. . . . . . . 8 |- ( ( A e. ZZ /\ ( n e. ( 1 ... ( |_ ` A ) ) /\ (Λ ` n ) = 0 ) ) -> (Λ ` n ) = 0 )
25		vmaprm 22414	. . . . . . . . . . . . 13 |- ( n e. Prime -> (Λ ` n ) = ( log ` n ) )
26		prmnn 13762	. . . . . . . . . . . . . . 15 |- ( n e. Prime -> n e. NN )
27	26	nnred 10333	. . . . . . . . . . . . . 14 |- ( n e. Prime -> n e. RR )
28		prmuz2 13777	. . . . . . . . . . . . . . 15 |- ( n e. Prime -> n e. ( ZZ>= ` 2 ) )
29		eluz2b2 10923	. . . . . . . . . . . . . . . 16 |- ( n e. ( ZZ>= ` 2 ) <-> ( n e. NN /\ 1 < n ) )
30	29	simprbi 461	. . . . . . . . . . . . . . 15 |- ( n e. ( ZZ>= ` 2 ) -> 1 < n )
31	28, 30	syl 16	. . . . . . . . . . . . . 14 |- ( n e. Prime -> 1 < n )
32	27, 31	rplogcld 22037	. . . . . . . . . . . . 13 |- ( n e. Prime -> ( log ` n ) e. RR+ )
33	25, 32	eqeltrd 2515	. . . . . . . . . . . 12 |- ( n e. Prime -> (Λ ` n ) e. RR+ )
34	33	rpne0d 11028	. . . . . . . . . . 11 |- ( n e. Prime -> (Λ ` n ) =/= 0 )
35	34	necon2bi 2655	. . . . . . . . . 10 |- ( (Λ ` n ) = 0 -> -. n e. Prime )
36	35	ad2antll 723	. . . . . . . . 9 |- ( ( A e. ZZ /\ ( n e. ( 1 ... ( |_ ` A ) ) /\ (Λ ` n ) = 0 ) ) -> -. n e. Prime )
37		iffalse 3796	. . . . . . . . 9 |- ( -. n e. Prime -> if ( n e. Prime , ( log ` n ) , 0 ) = 0 )
38	36, 37	syl 16	. . . . . . . 8 |- ( ( A e. ZZ /\ ( n e. ( 1 ... ( |_ ` A ) ) /\ (Λ ` n ) = 0 ) ) -> if ( n e. Prime , ( log ` n ) , 0 ) = 0 )
39	24, 38	oveq12d 6108	. . . . . . 7 |- ( ( A e. ZZ /\ ( n e. ( 1 ... ( |_ ` A ) ) /\ (Λ ` n ) = 0 ) ) -> ( (Λ ` n ) - if ( n e. Prime , ( log ` n ) , 0 ) ) = ( 0 - 0 ) )
40		0m0e0 10427	. . . . . . 7 |- ( 0 - 0 ) = 0
41	39, 40	syl6eq 2489	. . . . . 6 |- ( ( A e. ZZ /\ ( n e. ( 1 ... ( |_ ` A ) ) /\ (Λ ` n ) = 0 ) ) -> ( (Λ ` n ) - if ( n e. Prime , ( log ` n ) , 0 ) ) = 0 )
42	41	oveq1d 6105	. . . . 5 |- ( ( A e. ZZ /\ ( n e. ( 1 ... ( |_ ` A ) ) /\ (Λ ` n ) = 0 ) ) -> ( ( (Λ ` n ) - if ( n e. Prime , ( log ` n ) , 0 ) ) / n ) = ( 0 / n ) )
43	12	ad2antrl 722	. . . . . . . 8 |- ( ( A e. ZZ /\ ( n e. ( 1 ... ( |_ ` A ) ) /\ (Λ ` n ) = 0 ) ) -> n e. NN )
44	43	nnrpd 11022	. . . . . . 7 |- ( ( A e. ZZ /\ ( n e. ( 1 ... ( |_ ` A ) ) /\ (Λ ` n ) = 0 ) ) -> n e. RR+ )
45	44	rpcnne0d 11032	. . . . . 6 |- ( ( A e. ZZ /\ ( n e. ( 1 ... ( |_ ` A ) ) /\ (Λ ` n ) = 0 ) ) -> ( n e. CC /\ n =/= 0 ) )
46		div0 10018	. . . . . 6 |- ( ( n e. CC /\ n =/= 0 ) -> ( 0 / n ) = 0 )
47	45, 46	syl 16	. . . . 5 |- ( ( A e. ZZ /\ ( n e. ( 1 ... ( |_ ` A ) ) /\ (Λ ` n ) = 0 ) ) -> ( 0 / n ) = 0 )
48	42, 47	eqtrd 2473	. . . 4 |- ( ( A e. ZZ /\ ( n e. ( 1 ... ( |_ ` A ) ) /\ (Λ ` n ) = 0 ) ) -> ( ( (Λ ` n ) - if ( n e. Prime , ( log ` n ) , 0 ) ) / n ) = 0 )
49	10, 11, 23, 48	fsumvma2 22512	. . 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 ) ) )
50	3, 49	eqtr3d 2475	. 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 ) ) )
51		fzfid 11791	. . . . 5 |- ( A e. ZZ -> ( 2 ... ( ( abs ` A ) + 1 ) ) e. Fin )
52		inss2 3568	. . . . . . . . . . . 12 |- ( ( 0 [,] A ) i^i Prime ) C_ Prime
53		simpr 458	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> p e. ( ( 0 [,] A ) i^i Prime ) )
54	52, 53	sseldi 3351	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> p e. Prime )
55		prmnn 13762	. . . . . . . . . . 11 |- ( p e. Prime -> p e. NN )
56	54, 55	syl 16	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> p e. NN )
57	56	nnred 10333	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> p e. RR )
58	11	adantr 462	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> A e. RR )
59		zcn 10647	. . . . . . . . . . . 12 |- ( A e. ZZ -> A e. CC )
60	59	abscld 12918	. . . . . . . . . . 11 |- ( A e. ZZ -> ( abs ` A ) e. RR )
61		peano2re 9538	. . . . . . . . . . 11 |- ( ( abs ` A ) e. RR -> ( ( abs ` A ) + 1 ) e. RR )
62	60, 61	syl 16	. . . . . . . . . 10 |- ( A e. ZZ -> ( ( abs ` A ) + 1 ) e. RR )
63	62	adantr 462	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( abs ` A ) + 1 ) e. RR )
64		inss1 3567	. . . . . . . . . . . . 13 |- ( ( 0 [,] A ) i^i Prime ) C_ ( 0 [,] A )
65	64	sseli 3349	. . . . . . . . . . . 12 |- ( p e. ( ( 0 [,] A ) i^i Prime ) -> p e. ( 0 [,] A ) )
66		elicc2 11356	. . . . . . . . . . . . 13 |- ( ( 0 e. RR /\ A e. RR ) -> ( p e. ( 0 [,] A ) <-> ( p e. RR /\ 0 <_ p /\ p <_ A ) ) )
67	18, 11, 66	sylancr 658	. . . . . . . . . . . 12 |- ( A e. ZZ -> ( p e. ( 0 [,] A ) <-> ( p e. RR /\ 0 <_ p /\ p <_ A ) ) )
68	65, 67	syl5ib 219	. . . . . . . . . . 11 |- ( A e. ZZ -> ( p e. ( ( 0 [,] A ) i^i Prime ) -> ( p e. RR /\ 0 <_ p /\ p <_ A ) ) )
69	68	imp 429	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p e. RR /\ 0 <_ p /\ p <_ A ) )
70	69	simp3d 997	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> p <_ A )
71	59	adantr 462	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> A e. CC )
72	71	abscld 12918	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( abs ` A ) e. RR )
73	58	leabsd 12897	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> A <_ ( abs ` A ) )
74	72	lep1d 10260	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( abs ` A ) <_ ( ( abs ` A ) + 1 ) )
75	58, 72, 63, 73, 74	letrd 9524	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> A <_ ( ( abs ` A ) + 1 ) )
76	57, 58, 63, 70, 75	letrd 9524	. . . . . . . 8 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> p <_ ( ( abs ` A ) + 1 ) )
77		prmuz2 13777	. . . . . . . . . 10 |- ( p e. Prime -> p e. ( ZZ>= ` 2 ) )
78	54, 77	syl 16	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> p e. ( ZZ>= ` 2 ) )
79		nn0abscl 12797	. . . . . . . . . . . 12 |- ( A e. ZZ -> ( abs ` A ) e. NN0 )
80		nn0p1nn 10615	. . . . . . . . . . . 12 |- ( ( abs ` A ) e. NN0 -> ( ( abs ` A ) + 1 ) e. NN )
81	79, 80	syl 16	. . . . . . . . . . 11 |- ( A e. ZZ -> ( ( abs ` A ) + 1 ) e. NN )
82	81	nnzd 10742	. . . . . . . . . 10 |- ( A e. ZZ -> ( ( abs ` A ) + 1 ) e. ZZ )
83	82	adantr 462	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( abs ` A ) + 1 ) e. ZZ )
84		elfz5 11441	. . . . . . . . 9 |- ( ( p e. ( ZZ>= ` 2 ) /\ ( ( abs ` A ) + 1 ) e. ZZ ) -> ( p e. ( 2 ... ( ( abs ` A ) + 1 ) ) <-> p <_ ( ( abs ` A ) + 1 ) ) )
85	78, 83, 84	syl2anc 656	. . . . . . . 8 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p e. ( 2 ... ( ( abs ` A ) + 1 ) ) <-> p <_ ( ( abs ` A ) + 1 ) ) )
86	76, 85	mpbird 232	. . . . . . 7 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> p e. ( 2 ... ( ( abs ` A ) + 1 ) ) )
87	86	ex 434	. . . . . 6 |- ( A e. ZZ -> ( p e. ( ( 0 [,] A ) i^i Prime ) -> p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) )
88	87	ssrdv 3359	. . . . 5 |- ( A e. ZZ -> ( ( 0 [,] A ) i^i Prime ) C_ ( 2 ... ( ( abs ` A ) + 1 ) ) )
89		ssfi 7529	. . . . 5 |- ( ( ( 2 ... ( ( abs ` A ) + 1 ) ) e. Fin /\ ( ( 0 [,] A ) i^i Prime ) C_ ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> ( ( 0 [,] A ) i^i Prime ) e. Fin )
90	51, 88, 89	syl2anc 656	. . . 4 |- ( A e. ZZ -> ( ( 0 [,] A ) i^i Prime ) e. Fin )
91		fzfid 11791	. . . . 5 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) e. Fin )
92		simprl 750	. . . . . . . . . . 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 ) )
93	52, 92	sseldi 3351	. . . . . . . . . 10 |- ( ( A e. ZZ /\ ( p e. ( ( 0 [,] A ) i^i Prime ) /\ k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) ) -> p e. Prime )
94		elfznn 11474	. . . . . . . . . . 11 |- ( k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) -> k e. NN )
95	94	ad2antll 723	. . . . . . . . . 10 |- ( ( A e. ZZ /\ ( p e. ( ( 0 [,] A ) i^i Prime ) /\ k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) ) -> k e. NN )
96		vmappw 22413	. . . . . . . . . 10 |- ( ( p e. Prime /\ k e. NN ) -> (Λ ` ( p ^ k ) ) = ( log ` p ) )
97	93, 95, 96	syl2anc 656	. . . . . . . . 9 |- ( ( A e. ZZ /\ ( p e. ( ( 0 [,] A ) i^i Prime ) /\ k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) ) -> (Λ ` ( p ^ k ) ) = ( log ` p ) )
98	56	adantrr 711	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ ( p e. ( ( 0 [,] A ) i^i Prime ) /\ k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) ) -> p e. NN )
99	98	nnrpd 11022	. . . . . . . . . 10 |- ( ( A e. ZZ /\ ( p e. ( ( 0 [,] A ) i^i Prime ) /\ k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) ) -> p e. RR+ )
100	99	relogcld 22031	. . . . . . . . 9 |- ( ( A e. ZZ /\ ( p e. ( ( 0 [,] A ) i^i Prime ) /\ k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) ) -> ( log ` p ) e. RR )
101	97, 100	eqeltrd 2515	. . . . . . . 8 |- ( ( A e. ZZ /\ ( p e. ( ( 0 [,] A ) i^i Prime ) /\ k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) ) -> (Λ ` ( p ^ k ) ) e. RR )
102	95	nnnn0d 10632	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ ( p e. ( ( 0 [,] A ) i^i Prime ) /\ k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) ) -> k e. NN0 )
103		nnexpcl 11874	. . . . . . . . . . . 12 |- ( ( p e. NN /\ k e. NN0 ) -> ( p ^ k ) e. NN )
104	98, 102, 103	syl2anc 656	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ ( p e. ( ( 0 [,] A ) i^i Prime ) /\ k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) ) -> ( p ^ k ) e. NN )
105	104	nnrpd 11022	. . . . . . . . . 10 |- ( ( A e. ZZ /\ ( p e. ( ( 0 [,] A ) i^i Prime ) /\ k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) ) -> ( p ^ k ) e. RR+ )
106	105	relogcld 22031	. . . . . . . . 9 |- ( ( A e. ZZ /\ ( p e. ( ( 0 [,] A ) i^i Prime ) /\ k e. ( 1 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) ) -> ( log ` ( p ^ k ) ) e. RR )
107		ifcl 3828	. . . . . . . . 9 |- ( ( ( log ` ( p ^ k ) ) e. RR /\ 0 e. RR ) -> if ( ( p ^ k ) e. Prime , ( log ` ( p ^ k ) ) , 0 ) e. RR )
108	106, 18, 107	sylancl 657	. . . . . . . 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 )
109	101, 108	resubcld 9772	. . . . . . 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 )
110	109, 104	nndivred 10366	. . . . . 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 )
111	110	anassrs 643	. . . . 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 )
112	91, 111	fsumrecl 13207	. . . 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 )
113	90, 112	fsumrecl 13207	. . 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 )
114	56	nnrpd 11022	. . . . . 6 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> p e. RR+ )
115	114	relogcld 22031	. . . . 5 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( log ` p ) e. RR )
116		uz2m1nn 10925	. . . . . . 7 |- ( p e. ( ZZ>= ` 2 ) -> ( p - 1 ) e. NN )
117	78, 116	syl 16	. . . . . 6 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p - 1 ) e. NN )
118	56, 117	nnmulcld 10365	. . . . 5 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p x. ( p - 1 ) ) e. NN )
119	115, 118	nndivred 10366	. . . 4 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( log ` p ) / ( p x. ( p - 1 ) ) ) e. RR )
120	90, 119	fsumrecl 13207	. . 3 |- ( A e. ZZ -> sum_ p e. ( ( 0 [,] A ) i^i Prime ) ( ( log ` p ) / ( p x. ( p - 1 ) ) ) e. RR )
121		2re 10387	. . . 4 |- 2 e. RR
122	121	a1i 11	. . 3 |- ( A e. ZZ -> 2 e. RR )
123	18	a1i 11	. . . . . . . . . . . . 13 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> 0 e. RR )
124	56	nngt0d 10361	. . . . . . . . . . . . 13 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> 0 < p )
125	123, 57, 58, 124, 70	ltletrd 9527	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> 0 < A )
126	58, 125	elrpd 11021	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> A e. RR+ )
127	126	relogcld 22031	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( log ` A ) e. RR )
128		eluz2b2 10923	. . . . . . . . . . . . . 14 |- ( p e. ( ZZ>= ` 2 ) <-> ( p e. NN /\ 1 < p ) )
129	128	simprbi 461	. . . . . . . . . . . . 13 |- ( p e. ( ZZ>= ` 2 ) -> 1 < p )
130	77, 129	syl 16	. . . . . . . . . . . 12 |- ( p e. Prime -> 1 < p )
131	54, 130	syl 16	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> 1 < p )
132	57, 131	rplogcld 22037	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( log ` p ) e. RR+ )
133	127, 132	rerpdivcld 11050	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( log ` A ) / ( log ` p ) ) e. RR )
134	132	rpcnd 11025	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( log ` p ) e. CC )
135	134	mulid2d 9400	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 x. ( log ` p ) ) = ( log ` p ) )
136	114, 126	logled 22035	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p <_ A <-> ( log ` p ) <_ ( log ` A ) ) )
137	70, 136	mpbid 210	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( log ` p ) <_ ( log ` A ) )
138	135, 137	eqbrtrd 4309	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 x. ( log ` p ) ) <_ ( log ` A ) )
139		1re 9381	. . . . . . . . . . . 12 |- 1 e. RR
140	139	a1i 11	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> 1 e. RR )
141	140, 127, 132	lemuldivd 11068	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( 1 x. ( log ` p ) ) <_ ( log ` A ) <-> 1 <_ ( ( log ` A ) / ( log ` p ) ) ) )
142	138, 141	mpbid 210	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> 1 <_ ( ( log ` A ) / ( log ` p ) ) )
143		flge1nn 11663	. . . . . . . . 9 |- ( ( ( ( log ` A ) / ( log ` p ) ) e. RR /\ 1 <_ ( ( log ` A ) / ( log ` p ) ) ) -> ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) e. NN )
144	133, 142, 143	syl2anc 656	. . . . . . . 8 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) e. NN )
145		nnuz 10892	. . . . . . . 8 |- NN = ( ZZ>= ` 1 )
146	144, 145	syl6eleq 2531	. . . . . . 7 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) e. ( ZZ>= ` 1 ) )
147	110	recnd 9408	. . . . . . . 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 )
148	147	anassrs 643	. . . . . . 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 )
149		oveq2 6098	. . . . . . . . . 10 |- ( k = 1 -> ( p ^ k ) = ( p ^ 1 ) )
150	149	fveq2d 5692	. . . . . . . . 9 |- ( k = 1 -> (Λ ` ( p ^ k ) ) = (Λ ` ( p ^ 1 ) ) )
151	149	eleq1d 2507	. . . . . . . . . 10 |- ( k = 1 -> ( ( p ^ k ) e. Prime <-> ( p ^ 1 ) e. Prime ) )
152	149	fveq2d 5692	. . . . . . . . . 10 |- ( k = 1 -> ( log ` ( p ^ k ) ) = ( log ` ( p ^ 1 ) ) )
153	151, 152	ifbieq1d 3809	. . . . . . . . 9 |- ( k = 1 -> if ( ( p ^ k ) e. Prime , ( log ` ( p ^ k ) ) , 0 ) = if ( ( p ^ 1 ) e. Prime , ( log ` ( p ^ 1 ) ) , 0 ) )
154	150, 153	oveq12d 6108	. . . . . . . 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 ) ) )
155	154, 149	oveq12d 6108	. . . . . . 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 ) ) )
156	146, 148, 155	fsum1p 13218	. . . . . 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 ) ) ) )
157	56	nncnd 10334	. . . . . . . . . . . . . 14 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> p e. CC )
158	157	exp1d 11999	. . . . . . . . . . . . 13 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p ^ 1 ) = p )
159	158	fveq2d 5692	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> (Λ ` ( p ^ 1 ) ) = (Λ ` p ) )
160		vmaprm 22414	. . . . . . . . . . . . 13 |- ( p e. Prime -> (Λ ` p ) = ( log ` p ) )
161	54, 160	syl 16	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> (Λ ` p ) = ( log ` p ) )
162	159, 161	eqtrd 2473	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> (Λ ` ( p ^ 1 ) ) = ( log ` p ) )
163	158, 54	eqeltrd 2515	. . . . . . . . . . . . 13 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p ^ 1 ) e. Prime )
164		iftrue 3794	. . . . . . . . . . . . 13 |- ( ( p ^ 1 ) e. Prime -> if ( ( p ^ 1 ) e. Prime , ( log ` ( p ^ 1 ) ) , 0 ) = ( log ` ( p ^ 1 ) ) )
165	163, 164	syl 16	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> if ( ( p ^ 1 ) e. Prime , ( log ` ( p ^ 1 ) ) , 0 ) = ( log ` ( p ^ 1 ) ) )
166	158	fveq2d 5692	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( log ` ( p ^ 1 ) ) = ( log ` p ) )
167	165, 166	eqtrd 2473	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> if ( ( p ^ 1 ) e. Prime , ( log ` ( p ^ 1 ) ) , 0 ) = ( log ` p ) )
168	162, 167	oveq12d 6108	. . . . . . . . . 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 ) ) )
169	134	subidd 9703	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( log ` p ) - ( log ` p ) ) = 0 )
170	168, 169	eqtrd 2473	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( (Λ ` ( p ^ 1 ) ) - if ( ( p ^ 1 ) e. Prime , ( log ` ( p ^ 1 ) ) , 0 ) ) = 0 )
171	170, 158	oveq12d 6108	. . . . . . . 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 ) )
172	114	rpcnne0d 11032	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p e. CC /\ p =/= 0 ) )
173		div0 10018	. . . . . . . . 9 |- ( ( p e. CC /\ p =/= 0 ) -> ( 0 / p ) = 0 )
174	172, 173	syl 16	. . . . . . . 8 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 0 / p ) = 0 )
175	171, 174	eqtrd 2473	. . . . . . 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 )
176		1p1e2 10431	. . . . . . . . . 10 |- ( 1 + 1 ) = 2
177	176	oveq1i 6100	. . . . . . . . 9 |- ( ( 1 + 1 ) ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) = ( 2 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) )
178	177	a1i 11	. . . . . . . 8 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( 1 + 1 ) ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) = ( 2 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) )
179		elfzuz 11445	. . . . . . . . . . . . . 14 |- ( k e. ( 2 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) -> k e. ( ZZ>= ` 2 ) )
180		eluz2b2 10923	. . . . . . . . . . . . . . 15 |- ( k e. ( ZZ>= ` 2 ) <-> ( k e. NN /\ 1 < k ) )
181	180	simplbi 457	. . . . . . . . . . . . . 14 |- ( k e. ( ZZ>= ` 2 ) -> k e. NN )
182	179, 181	syl 16	. . . . . . . . . . . . 13 |- ( k e. ( 2 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) -> k e. NN )
183	182, 177	eleq2s 2533	. . . . . . . . . . . 12 |- ( k e. ( ( 1 + 1 ) ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) -> k e. NN )
184	54, 183, 96	syl2an 474	. . . . . . . . . . 11 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. ( ( 1 + 1 ) ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) -> (Λ ` ( p ^ k ) ) = ( log ` p ) )
185	56	adantr 462	. . . . . . . . . . . . . 14 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. ( ( 1 + 1 ) ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) -> p e. NN )
186		nnq 10962	. . . . . . . . . . . . . 14 |- ( p e. NN -> p e. QQ )
187	185, 186	syl 16	. . . . . . . . . . . . 13 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. ( ( 1 + 1 ) ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) -> p e. QQ )
188	179, 177	eleq2s 2533	. . . . . . . . . . . . . 14 |- ( k e. ( ( 1 + 1 ) ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) -> k e. ( ZZ>= ` 2 ) )
189	188	adantl 463	. . . . . . . . . . . . 13 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. ( ( 1 + 1 ) ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) -> k e. ( ZZ>= ` 2 ) )
190		expnprm 13960	. . . . . . . . . . . . 13 |- ( ( p e. QQ /\ k e. ( ZZ>= ` 2 ) ) -> -. ( p ^ k ) e. Prime )
191	187, 189, 190	syl2anc 656	. . . . . . . . . . . 12 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. ( ( 1 + 1 ) ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) -> -. ( p ^ k ) e. Prime )
192		iffalse 3796	. . . . . . . . . . . 12 |- ( -. ( p ^ k ) e. Prime -> if ( ( p ^ k ) e. Prime , ( log ` ( p ^ k ) ) , 0 ) = 0 )
193	191, 192	syl 16	. . . . . . . . . . 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 )
194	184, 193	oveq12d 6108	. . . . . . . . . 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 ) )
195	134	subid1d 9704	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( log ` p ) - 0 ) = ( log ` p ) )
196	195	adantr 462	. . . . . . . . . 10 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. ( ( 1 + 1 ) ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) -> ( ( log ` p ) - 0 ) = ( log ` p ) )
197	194, 196	eqtrd 2473	. . . . . . . . 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 ) )
198	197	oveq1d 6105	. . . . . . . 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 ) ) )
199	178, 198	sumeq12dv 13179	. . . . . . 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 ) ) )
200	175, 199	oveq12d 6108	. . . . . 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 ) ) ) )
201		fzfid 11791	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 2 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) e. Fin )
202	115	adantr 462	. . . . . . . . . . 11 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> ( log ` p ) e. RR )
203		nnnn0 10582	. . . . . . . . . . . 12 |- ( k e. NN -> k e. NN0 )
204	56, 203, 103	syl2an 474	. . . . . . . . . . 11 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> ( p ^ k ) e. NN )
205	202, 204	nndivred 10366	. . . . . . . . . 10 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> ( ( log ` p ) / ( p ^ k ) ) e. RR )
206	182, 205	sylan2 471	. . . . . . . . 9 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. ( 2 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) -> ( ( log ` p ) / ( p ^ k ) ) e. RR )
207	201, 206	fsumrecl 13207	. . . . . . . 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 )
208	207	recnd 9408	. . . . . . 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 )
209	208	addid2d 9566	. . . . . 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 ) ) )
210	156, 200, 209	3eqtrd 2477	. . . . 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 ) ) )
211	114	rpreccld 11033	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 / p ) e. RR+ )
212	133	flcld 11644	. . . . . . . . . . . . 13 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) e. ZZ )
213	212	peano2zd 10746	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) e. ZZ )
214	211, 213	rpexpcld 12027	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( 1 / p ) ^ ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) ) e. RR+ )
215	214	rpge0d 11027	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> 0 <_ ( ( 1 / p ) ^ ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) ) )
216	56	nnrecred 10363	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 / p ) e. RR )
217	216	resqcld 12030	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( 1 / p ) ^ 2 ) e. RR )
218	144	peano2nnd 10335	. . . . . . . . . . . . 13 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) e. NN )
219	218	nnnn0d 10632	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) e. NN0 )
220	216, 219	reexpcld 12021	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( 1 / p ) ^ ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) ) e. RR )
221	217, 220	subge02d 9927	. . . . . . . . . 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 ) ) )
222	215, 221	mpbid 210	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( ( 1 / p ) ^ 2 ) - ( ( 1 / p ) ^ ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) ) ) <_ ( ( 1 / p ) ^ 2 ) )
223	117	nnrpd 11022	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p - 1 ) e. RR+ )
224	223	rpcnne0d 11032	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( p - 1 ) e. CC /\ ( p - 1 ) =/= 0 ) )
225	211	rpcnd 11025	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 / p ) e. CC )
226		dmdcan 10037	. . . . . . . . . . 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 ) )
227	224, 172, 225, 226	syl3anc 1213	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( ( p - 1 ) / p ) x. ( ( 1 / p ) / ( p - 1 ) ) ) = ( ( 1 / p ) / p ) )
228	140	recnd 9408	. . . . . . . . . . . . 13 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> 1 e. CC )
229		divsubdir 10023	. . . . . . . . . . . . 13 |- ( ( p e. CC /\ 1 e. CC /\ ( p e. CC /\ p =/= 0 ) ) -> ( ( p - 1 ) / p ) = ( ( p / p ) - ( 1 / p ) ) )
230	157, 228, 172, 229	syl3anc 1213	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( p - 1 ) / p ) = ( ( p / p ) - ( 1 / p ) ) )
231		divid 10017	. . . . . . . . . . . . . 14 |- ( ( p e. CC /\ p =/= 0 ) -> ( p / p ) = 1 )
232	172, 231	syl 16	. . . . . . . . . . . . 13 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p / p ) = 1 )
233	232	oveq1d 6105	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( p / p ) - ( 1 / p ) ) = ( 1 - ( 1 / p ) ) )
234	230, 233	eqtrd 2473	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( p - 1 ) / p ) = ( 1 - ( 1 / p ) ) )
235		divdiv1 10038	. . . . . . . . . . . 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 ) ) ) )
236	228, 172, 224, 235	syl3anc 1213	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( 1 / p ) / ( p - 1 ) ) = ( 1 / ( p x. ( p - 1 ) ) ) )
237	234, 236	oveq12d 6108	. . . . . . . . . 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 ) ) ) ) )
238	56	nnne0d 10362	. . . . . . . . . . . 12 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> p =/= 0 )
239	225, 157, 238	divrecd 10106	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( 1 / p ) / p ) = ( ( 1 / p ) x. ( 1 / p ) ) )
240	225	sqvald 12001	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( 1 / p ) ^ 2 ) = ( ( 1 / p ) x. ( 1 / p ) ) )
241	239, 240	eqtr4d 2476	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( 1 / p ) / p ) = ( ( 1 / p ) ^ 2 ) )
242	227, 237, 241	3eqtr3d 2481	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( 1 - ( 1 / p ) ) x. ( 1 / ( p x. ( p - 1 ) ) ) ) = ( ( 1 / p ) ^ 2 ) )
243	222, 242	breqtrrd 4315	. . . . . . . 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 ) ) ) ) )
244	217, 220	resubcld 9772	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( ( 1 / p ) ^ 2 ) - ( ( 1 / p ) ^ ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) ) ) e. RR )
245	118	nnrecred 10363	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 / ( p x. ( p - 1 ) ) ) e. RR )
246		resubcl 9669	. . . . . . . . . 10 |- ( ( 1 e. RR /\ ( 1 / p ) e. RR ) -> ( 1 - ( 1 / p ) ) e. RR )
247	139, 216, 246	sylancr 658	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 - ( 1 / p ) ) e. RR )
248		recgt1 10224	. . . . . . . . . . . 12 |- ( ( p e. RR /\ 0 < p ) -> ( 1 < p <-> ( 1 / p ) < 1 ) )
249	57, 124, 248	syl2anc 656	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 < p <-> ( 1 / p ) < 1 ) )
250	131, 249	mpbid 210	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 / p ) < 1 )
251		posdif 9828	. . . . . . . . . . 11 |- ( ( ( 1 / p ) e. RR /\ 1 e. RR ) -> ( ( 1 / p ) < 1 <-> 0 < ( 1 - ( 1 / p ) ) ) )
252	216, 139, 251	sylancl 657	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( 1 / p ) < 1 <-> 0 < ( 1 - ( 1 / p ) ) ) )
253	250, 252	mpbid 210	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> 0 < ( 1 - ( 1 / p ) ) )
254		ledivmul 10201	. . . . . . . . 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 ) ) ) ) ) )
255	244, 245, 247, 253, 254	syl112anc 1217	. . . . . . . 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 ) ) ) ) ) )
256	243, 255	mpbird 232	. . . . . . 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 ) ) ) )
257	247, 253	elrpd 11021	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 - ( 1 / p ) ) e. RR+ )
258	244, 257	rerpdivcld 11050	. . . . . . . 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 )
259	258, 245, 132	lemul2d 11063	. . . . . . 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 ) ) ) ) ) )
260	256, 259	mpbid 210	. . . . . 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 ) ) ) ) )
261	134	adantr 462	. . . . . . . . . . 11 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> ( log ` p ) e. CC )
262	204	nncnd 10334	. . . . . . . . . . 11 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> ( p ^ k ) e. CC )
263	204	nnne0d 10362	. . . . . . . . . . 11 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> ( p ^ k ) =/= 0 )
264	261, 262, 263	divrecd 10106	. . . . . . . . . 10 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> ( ( log ` p ) / ( p ^ k ) ) = ( ( log ` p ) x. ( 1 / ( p ^ k ) ) ) )
265	157	adantr 462	. . . . . . . . . . . 12 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> p e. CC )
266	56	adantr 462	. . . . . . . . . . . . 13 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> p e. NN )
267	266	nnne0d 10362	. . . . . . . . . . . 12 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> p =/= 0 )
268		nnz 10664	. . . . . . . . . . . . 13 |- ( k e. NN -> k e. ZZ )
269	268	adantl 463	. . . . . . . . . . . 12 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> k e. ZZ )
270	265, 267, 269	exprecd 12012	. . . . . . . . . . 11 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> ( ( 1 / p ) ^ k ) = ( 1 / ( p ^ k ) ) )
271	270	oveq2d 6106	. . . . . . . . . 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 ) ) ) )
272	264, 271	eqtr4d 2476	. . . . . . . . 9 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. NN ) -> ( ( log ` p ) / ( p ^ k ) ) = ( ( log ` p ) x. ( ( 1 / p ) ^ k ) ) )
273	182, 272	sylan2 471	. . . . . . . 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 ) ) )
274	273	sumeq2dv 13176	. . . . . . 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 ) ) )
275	182	nnnn0d 10632	. . . . . . . . 9 |- ( k e. ( 2 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) -> k e. NN0 )
276		expcl 11879	. . . . . . . . 9 |- ( ( ( 1 / p ) e. CC /\ k e. NN0 ) -> ( ( 1 / p ) ^ k ) e. CC )
277	225, 275, 276	syl2an 474	. . . . . . . 8 |- ( ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) /\ k e. ( 2 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) ) -> ( ( 1 / p ) ^ k ) e. CC )
278	201, 134, 277	fsummulc2 13247	. . . . . . 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 ) ) )
279		fzval3 11601	. . . . . . . . . . 11 |- ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) e. ZZ -> ( 2 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) = ( 2..^ ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) ) )
280	212, 279	syl 16	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 2 ... ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) ) = ( 2..^ ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) ) )
281	280	sumeq1d 13174	. . . . . . . . 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 ) )
282	216, 250	ltned 9506	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( 1 / p ) =/= 1 )
283		2nn0 10592	. . . . . . . . . . 11 |- 2 e. NN0
284	283	a1i 11	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> 2 e. NN0 )
285		eluzp1p1 10882	. . . . . . . . . . . 12 |- ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) e. ( ZZ>= ` 1 ) -> ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) e. ( ZZ>= ` ( 1 + 1 ) ) )
286	146, 285	syl 16	. . . . . . . . . . 11 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) e. ( ZZ>= ` ( 1 + 1 ) ) )
287		df-2 10376	. . . . . . . . . . . 12 |- 2 = ( 1 + 1 )
288	287	fveq2i 5691	. . . . . . . . . . 11 |- ( ZZ>= ` 2 ) = ( ZZ>= ` ( 1 + 1 ) )
289	286, 288	syl6eleqr 2532	. . . . . . . . . 10 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( ( |_ ` ( ( log ` A ) / ( log ` p ) ) ) + 1 ) e. ( ZZ>= ` 2 ) )
290	225, 282, 284, 289	geoserg 13324	. . . . . . . . 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 ) ) ) )
291	281, 290	eqtrd 2473	. . . . . . . 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 ) ) ) )
292	291	oveq2d 6106	. . . . . . 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 ) ) ) ) )
293	274, 278, 292	3eqtr2d 2479	. . . . . 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 ) ) ) ) )
294	118	nncnd 10334	. . . . . . 7 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p x. ( p - 1 ) ) e. CC )
295	118	nnne0d 10362	. . . . . . 7 |- ( ( A e. ZZ /\ p e. ( ( 0 [,] A ) i^i Prime ) ) -> ( p x. ( p - 1 ) ) =/= 0 )
296	134, 294, 295	divrecd 10106	. . . . . 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 ) ) ) ) )
297	260, 293, 296	3brtr4d 4319	. . . . 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 ) ) ) )
298	210, 297	eqbrtrd 4309	. . . 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 ) ) ) )
299	90, 112, 119, 298	fsumle 13258	. . 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 ) ) ) )
300		elfzuz 11445	. . . . . . . . . . 11 |- ( p e. ( 2 ... ( ( abs ` A ) + 1 ) ) -> p e. ( ZZ>= ` 2 ) )
301	128	simplbi 457	. . . . . . . . . . 11 |- ( p e. ( ZZ>= ` 2 ) -> p e. NN )
302	300, 301	syl 16	. . . . . . . . . 10 |- ( p e. ( 2 ... ( ( abs ` A ) + 1 ) ) -> p e. NN )
303	302	adantl 463	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> p e. NN )
304	303	nnred 10333	. . . . . . . 8 |- ( ( A e. ZZ /\ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> p e. RR )
305	300	adantl 463	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> p e. ( ZZ>= ` 2 ) )
306	305, 129	syl 16	. . . . . . . 8 |- ( ( A e. ZZ /\ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> 1 < p )
307	304, 306	rplogcld 22037	. . . . . . 7 |- ( ( A e. ZZ /\ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> ( log ` p ) e. RR+ )
308	305, 116	syl 16	. . . . . . . . 9 |- ( ( A e. ZZ /\ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> ( p - 1 ) e. NN )
309	303, 308	nnmulcld 10365	. . . . . . . 8 |- ( ( A e. ZZ /\ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> ( p x. ( p - 1 ) ) e. NN )
310	309	nnrpd 11022	. . . . . . 7 |- ( ( A e. ZZ /\ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> ( p x. ( p - 1 ) ) e. RR+ )
311	307, 310	rpdivcld 11040	. . . . . 6 |- ( ( A e. ZZ /\ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> ( ( log ` p ) / ( p x. ( p - 1 ) ) ) e. RR+ )
312	311	rpred 11023	. . . . 5 |- ( ( A e. ZZ /\ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> ( ( log ` p ) / ( p x. ( p - 1 ) ) ) e. RR )
313	51, 312	fsumrecl 13207	. . . 4 |- ( A e. ZZ -> sum_ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ( ( log ` p ) / ( p x. ( p - 1 ) ) ) e. RR )
314	311	rpge0d 11027	. . . . 5 |- ( ( A e. ZZ /\ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ) -> 0 <_ ( ( log ` p ) / ( p x. ( p - 1 ) ) ) )
315	51, 312, 314, 88	fsumless 13255	. . . 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 ) ) ) )
316		rplogsumlem1 22692	. . . . 5 |- ( ( ( abs ` A ) + 1 ) e. NN -> sum_ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ( ( log ` p ) / ( p x. ( p - 1 ) ) ) <_ 2 )
317	81, 316	syl 16	. . . 4 |- ( A e. ZZ -> sum_ p e. ( 2 ... ( ( abs ` A ) + 1 ) ) ( ( log ` p ) / ( p x. ( p - 1 ) ) ) <_ 2 )
318	120, 313, 122, 315, 317	letrd 9524	. . 3 |- ( A e. ZZ -> sum_ p e. ( ( 0 [,] A ) i^i Prime ) ( ( log ` p ) / ( p x. ( p - 1 ) ) ) <_ 2 )
319	113, 120, 122, 299, 318	letrd 9524	. 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 )
320	50, 319	eqbrtrd 4309	1 |- ( A e. ZZ -> sum_ n e. ( 1 ... A ) ( ( (Λ ` n ) - if ( n e. Prime , ( log ` n ) , 0 ) ) / n ) <_ 2 )

Syntax hints:   -. wn 3   -> wi 4   <-> wb 184   /\ wa 369   /\ w3a 960   = wceq 1364   e. wcel 1761   =/= wne 2604   i^i cin 3324   C_ wss 3325   ifcif 3788   class class class wbr 4289   ` cfv 5415  (class class class)co 6090   Fincfn 7306   CCcc 9276   RRcr 9277   0cc0 9278   1c1 9279   + caddc 9281   x. cmul 9283   < clt 9414   <_ cle 9415   - cmin 9591   / cdiv 9989   NNcn 10318   2c2 10367   NN0cn0 10575   ZZcz 10642   ZZ>=cuz 10857   QQcq 10949   RR+crp 10987   [,]cicc 11299   ...cfz 11433  ..^cfzo 11544   |_cfl 11636   ^cexp 11861   abscabs 12719   sum_csu 13159   Primecprime 13759   logclog 21965  Λcvma 22388

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1596  ax-4 1607  ax-5 1675  ax-6 1713  ax-7 1733  ax-8 1763  ax-9 1765  ax-10 1780  ax-11 1785  ax-12 1797  ax-13 1948  ax-ext 2422  ax-rep 4400  ax-sep 4410  ax-nul 4418  ax-pow 4467  ax-pr 4528  ax-un 6371  ax-inf2 7843  ax-cnex 9334  ax-resscn 9335  ax-1cn 9336  ax-icn 9337  ax-addcl 9338  ax-addrcl 9339  ax-mulcl 9340  ax-mulrcl 9341  ax-mulcom 9342  ax-addass 9343  ax-mulass 9344  ax-distr 9345  ax-i2m1 9346  ax-1ne0 9347  ax-1rid 9348  ax-rnegex 9349  ax-rrecex 9350  ax-cnre 9351  ax-pre-lttri 9352  ax-pre-lttrn 9353  ax-pre-ltadd 9354  ax-pre-mulgt0 9355  ax-pre-sup 9356  ax-addf 9357  ax-mulf 9358

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 961  df-3an 962  df-tru 1367  df-fal 1370  df-ex 1592  df-nf 1595  df-sb 1706  df-eu 2261  df-mo 2262  df-clab 2428  df-cleq 2434  df-clel 2437  df-nfc 2566  df-ne 2606  df-nel 2607  df-ral 2718  df-rex 2719  df-reu 2720  df-rmo 2721  df-rab 2722  df-v 2972  df-sbc 3184  df-csb 3286  df-dif 3328  df-un 3330  df-in 3332  df-ss 3339  df-pss 3341  df-nul 3635  df-if 3789  df-pw 3859  df-sn 3875  df-pr 3877  df-tp 3879  df-op 3881  df-uni 4089  df-int 4126  df-iun 4170  df-iin 4171  df-br 4290  df-opab 4348  df-mpt 4349  df-tr 4383  df-eprel 4628  df-id 4632  df-po 4637  df-so 4638  df-fr 4675  df-se 4676  df-we 4677  df-ord 4718  df-on 4719  df-lim 4720  df-suc 4721  df-xp 4842  df-rel 4843  df-cnv 4844  df-co 4845  df-dm 4846  df-rn 4847  df-res 4848  df-ima 4849  df-iota 5378  df-fun 5417  df-fn 5418  df-f 5419  df-f1 5420  df-fo 5421  df-f1o 5422  df-fv 5423  df-isom 5424  df-riota 6049  df-ov 6093  df-oprab 6094  df-mpt2 6095  df-of 6319  df-om 6476  df-1st 6576  df-2nd 6577  df-supp 6690  df-recs 6828  df-rdg 6862  df-1o 6916  df-2o 6917  df-oadd 6920  df-er 7097  df-map 7212  df-pm 7213  df-ixp 7260  df-en 7307  df-dom 7308  df-sdom 7309  df-fin 7310  df-fsupp 7617  df-fi 7657  df-sup 7687  df-oi 7720  df-card 8105  df-cda 8333  df-pnf 9416  df-mnf 9417  df-xr 9418  df-ltxr 9419  df-le 9420  df-sub 9593  df-neg 9594  df-div 9990  df-nn 10319  df-2 10376  df-3 10377  df-4 10378  df-5 10379  df-6 10380  df-7 10381  df-8 10382  df-9 10383  df-10 10384  df-n0 10576  df-z 10643  df-dec 10752  df-uz 10858  df-q 10950  df-rp 10988  df-xneg 11085  df-xadd 11086  df-xmul 11087  df-ioo 11300  df-ioc 11301  df-ico 11302  df-icc 11303  df-fz 11434  df-fzo 11545  df-fl 11638  df-mod 11705  df-seq 11803  df-exp 11862  df-fac 12048  df-bc 12075  df-hash 12100  df-shft 12552  df-cj 12584  df-re 12585  df-im 12586  df-sqr 12720  df-abs 12721  df-limsup 12945  df-clim 12962  df-rlim 12963  df-sum 13160  df-ef 13349  df-sin 13351  df-cos 13352  df-tan 13353  df-pi 13354  df-dvds 13532  df-gcd 13687  df-prm 13760  df-pc 13900  df-struct 14172  df-ndx 14173  df-slot 14174  df-base 14175  df-sets 14176  df-ress 14177  df-plusg 14247  df-mulr 14248  df-starv 14249  df-sca 14250  df-vsca 14251  df-ip 14252  df-tset 14253  df-ple 14254  df-ds 14256  df-unif 14257  df-hom 14258  df-cco 14259  df-rest 14357  df-topn 14358  df-0g 14376  df-gsum 14377  df-topgen 14378  df-pt 14379  df-prds 14382  df-xrs 14436  df-qtop 14441  df-imas 14442  df-xps 14444  df-mre 14520  df-mrc 14521  df-acs 14523  df-mnd 15411  df-submnd 15461  df-mulg 15541  df-cntz 15828  df-cmn 16272  df-psmet 17768  df-xmet 17769  df-met 17770  df-bl 17771  df-mopn 17772  df-fbas 17773  df-fg 17774  df-cnfld 17778  df-top 18462  df-bases 18464  df-topon 18465  df-topsp 18466  df-cld 18582  df-ntr 18583  df-cls 18584  df-nei 18661  df-lp 18699  df-perf 18700  df-cn 18790  df-cnp 18791  df-haus 18878  df-cmp 18949  df-tx 19094  df-hmeo 19287  df-fil 19378  df-fm 19470  df-flim 19471  df-flf 19472  df-xms 19854  df-ms 19855  df-tms 19856  df-cncf 20413  df-limc 21300  df-dv 21301  df-log 21967  df-cxp 21968  df-vma 22394

This theorem is referenced by:  rplogsum  22735