Theorem harmonicbnd4 23061

Description: The asymptotic behavior of sum_ m <_ A , 1 / m = log A + gamma + O ( 1 / A ). (Contributed by Mario Carneiro, 14-May-2016.)

Assertion

Ref	Expression
harmonicbnd4	|- ( A e. RR+ -> ( abs ` ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( ( log ` A ) + gamma ) ) ) <_ ( 1 / A ) )

Distinct variable group:   A, m

Proof of Theorem harmonicbnd4

Step	Hyp	Ref	Expression
1		fzfid 12039	. . . . . 6 |- ( A e. RR+ -> ( 1 ... ( |_ ` A ) ) e. Fin )
2		elfznn 11703	. . . . . . . 8 |- ( m e. ( 1 ... ( |_ ` A ) ) -> m e. NN )
3	2	adantl 466	. . . . . . 7 |- ( ( A e. RR+ /\ m e. ( 1 ... ( |_ ` A ) ) ) -> m e. NN )
4	3	nnrecred 10570	. . . . . 6 |- ( ( A e. RR+ /\ m e. ( 1 ... ( |_ ` A ) ) ) -> ( 1 / m ) e. RR )
5	1, 4	fsumrecl 13505	. . . . 5 |- ( A e. RR+ -> sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) e. RR )
6	5	recnd 9611	. . . 4 |- ( A e. RR+ -> sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) e. CC )
7		relogcl 22684	. . . . 5 |- ( A e. RR+ -> ( log ` A ) e. RR )
8	7	recnd 9611	. . . 4 |- ( A e. RR+ -> ( log ` A ) e. CC )
9		emre 23056	. . . . . 6 |- gamma e. RR
10	9	a1i 11	. . . . 5 |- ( A e. RR+ -> gamma e. RR )
11	10	recnd 9611	. . . 4 |- ( A e. RR+ -> gamma e. CC )
12	6, 8, 11	subsub4d 9950	. . 3 |- ( A e. RR+ -> ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) - gamma ) = ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( ( log ` A ) + gamma ) ) )
13	12	fveq2d 5861	. 2 |- ( A e. RR+ -> ( abs ` ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) - gamma ) ) = ( abs ` ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( ( log ` A ) + gamma ) ) ) )
14		rpreccl 11232	. . . . . 6 |- ( A e. RR+ -> ( 1 / A ) e. RR+ )
15	14	rpred 11245	. . . . 5 |- ( A e. RR+ -> ( 1 / A ) e. RR )
16		resubcl 9872	. . . . 5 |- ( ( gamma e. RR /\ ( 1 / A ) e. RR ) -> ( gamma - ( 1 / A ) ) e. RR )
17	9, 15, 16	sylancr 663	. . . 4 |- ( A e. RR+ -> ( gamma - ( 1 / A ) ) e. RR )
18		rprege0 11223	. . . . . . . . 9 |- ( A e. RR+ -> ( A e. RR /\ 0 <_ A ) )
19		flge0nn0 11910	. . . . . . . . 9 |- ( ( A e. RR /\ 0 <_ A ) -> ( |_ ` A ) e. NN0 )
20	18, 19	syl 16	. . . . . . . 8 |- ( A e. RR+ -> ( |_ ` A ) e. NN0 )
21		nn0p1nn 10824	. . . . . . . 8 |- ( ( |_ ` A ) e. NN0 -> ( ( |_ ` A ) + 1 ) e. NN )
22	20, 21	syl 16	. . . . . . 7 |- ( A e. RR+ -> ( ( |_ ` A ) + 1 ) e. NN )
23	22	nnrpd 11244	. . . . . 6 |- ( A e. RR+ -> ( ( |_ ` A ) + 1 ) e. RR+ )
24		relogcl 22684	. . . . . 6 |- ( ( ( |_ ` A ) + 1 ) e. RR+ -> ( log ` ( ( |_ ` A ) + 1 ) ) e. RR )
25	23, 24	syl 16	. . . . 5 |- ( A e. RR+ -> ( log ` ( ( |_ ` A ) + 1 ) ) e. RR )
26	5, 25	resubcld 9976	. . . 4 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. RR )
27	5, 7	resubcld 9976	. . . 4 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) e. RR )
28	22	nnrecred 10570	. . . . . 6 |- ( A e. RR+ -> ( 1 / ( ( |_ ` A ) + 1 ) ) e. RR )
29		fzfid 12039	. . . . . . . 8 |- ( A e. RR+ -> ( 1 ... ( ( |_ ` A ) + 1 ) ) e. Fin )
30		elfznn 11703	. . . . . . . . . 10 |- ( m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) -> m e. NN )
31	30	adantl 466	. . . . . . . . 9 |- ( ( A e. RR+ /\ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ) -> m e. NN )
32	31	nnrecred 10570	. . . . . . . 8 |- ( ( A e. RR+ /\ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ) -> ( 1 / m ) e. RR )
33	29, 32	fsumrecl 13505	. . . . . . 7 |- ( A e. RR+ -> sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) e. RR )
34	33, 25	resubcld 9976	. . . . . 6 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. RR )
35		harmonicbnd 23054	. . . . . . . 8 |- ( ( ( |_ ` A ) + 1 ) e. NN -> ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. ( gamma [,] 1 ) )
36	22, 35	syl 16	. . . . . . 7 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. ( gamma [,] 1 ) )
37		1re 9584	. . . . . . . . 9 |- 1 e. RR
38	9, 37	elicc2i 11579	. . . . . . . 8 |- ( ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. ( gamma [,] 1 ) <-> ( ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. RR /\ gamma <_ ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) /\ ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) <_ 1 ) )
39	38	simp2bi 1007	. . . . . . 7 |- ( ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. ( gamma [,] 1 ) -> gamma <_ ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) )
40	36, 39	syl 16	. . . . . 6 |- ( A e. RR+ -> gamma <_ ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) )
41		rpre 11215	. . . . . . . 8 |- ( A e. RR+ -> A e. RR )
42		fllep1 11895	. . . . . . . 8 |- ( A e. RR -> A <_ ( ( |_ ` A ) + 1 ) )
43	41, 42	syl 16	. . . . . . 7 |- ( A e. RR+ -> A <_ ( ( |_ ` A ) + 1 ) )
44		rpregt0 11222	. . . . . . . 8 |- ( A e. RR+ -> ( A e. RR /\ 0 < A ) )
45	22	nnred 10540	. . . . . . . 8 |- ( A e. RR+ -> ( ( |_ ` A ) + 1 ) e. RR )
46	22	nngt0d 10568	. . . . . . . 8 |- ( A e. RR+ -> 0 < ( ( |_ ` A ) + 1 ) )
47		lerec 10416	. . . . . . . 8 |- ( ( ( A e. RR /\ 0 < A ) /\ ( ( ( |_ ` A ) + 1 ) e. RR /\ 0 < ( ( |_ ` A ) + 1 ) ) ) -> ( A <_ ( ( |_ ` A ) + 1 ) <-> ( 1 / ( ( |_ ` A ) + 1 ) ) <_ ( 1 / A ) ) )
48	44, 45, 46, 47	syl12anc 1221	. . . . . . 7 |- ( A e. RR+ -> ( A <_ ( ( |_ ` A ) + 1 ) <-> ( 1 / ( ( |_ ` A ) + 1 ) ) <_ ( 1 / A ) ) )
49	43, 48	mpbid 210	. . . . . 6 |- ( A e. RR+ -> ( 1 / ( ( |_ ` A ) + 1 ) ) <_ ( 1 / A ) )
50	10, 28, 34, 15, 40, 49	le2subd 10160	. . . . 5 |- ( A e. RR+ -> ( gamma - ( 1 / A ) ) <_ ( ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) - ( 1 / ( ( |_ ` A ) + 1 ) ) ) )
51	33	recnd 9611	. . . . . . 7 |- ( A e. RR+ -> sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) e. CC )
52	25	recnd 9611	. . . . . . 7 |- ( A e. RR+ -> ( log ` ( ( |_ ` A ) + 1 ) ) e. CC )
53	28	recnd 9611	. . . . . . 7 |- ( A e. RR+ -> ( 1 / ( ( |_ ` A ) + 1 ) ) e. CC )
54	51, 52, 53	sub32d 9951	. . . . . 6 |- ( A e. RR+ -> ( ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) - ( 1 / ( ( |_ ` A ) + 1 ) ) ) = ( ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( 1 / ( ( |_ ` A ) + 1 ) ) ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) )
55		nnuz 11106	. . . . . . . . . . . 12 |- NN = ( ZZ>= ` 1 )
56	22, 55	syl6eleq 2558	. . . . . . . . . . 11 |- ( A e. RR+ -> ( ( |_ ` A ) + 1 ) e. ( ZZ>= ` 1 ) )
57	32	recnd 9611	. . . . . . . . . . 11 |- ( ( A e. RR+ /\ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ) -> ( 1 / m ) e. CC )
58		oveq2 6283	. . . . . . . . . . 11 |- ( m = ( ( |_ ` A ) + 1 ) -> ( 1 / m ) = ( 1 / ( ( |_ ` A ) + 1 ) ) )
59	56, 57, 58	fsumm1 13515	. . . . . . . . . 10 |- ( A e. RR+ -> sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) = ( sum_ m e. ( 1 ... ( ( ( |_ ` A ) + 1 ) - 1 ) ) ( 1 / m ) + ( 1 / ( ( |_ ` A ) + 1 ) ) ) )
60	20	nn0cnd 10843	. . . . . . . . . . . . . 14 |- ( A e. RR+ -> ( |_ ` A ) e. CC )
61		ax-1cn 9539	. . . . . . . . . . . . . 14 |- 1 e. CC
62		pncan 9815	. . . . . . . . . . . . . 14 |- ( ( ( |_ ` A ) e. CC /\ 1 e. CC ) -> ( ( ( |_ ` A ) + 1 ) - 1 ) = ( |_ ` A ) )
63	60, 61, 62	sylancl 662	. . . . . . . . . . . . 13 |- ( A e. RR+ -> ( ( ( |_ ` A ) + 1 ) - 1 ) = ( |_ ` A ) )
64	63	oveq2d 6291	. . . . . . . . . . . 12 |- ( A e. RR+ -> ( 1 ... ( ( ( |_ ` A ) + 1 ) - 1 ) ) = ( 1 ... ( |_ ` A ) ) )
65	64	sumeq1d 13472	. . . . . . . . . . 11 |- ( A e. RR+ -> sum_ m e. ( 1 ... ( ( ( |_ ` A ) + 1 ) - 1 ) ) ( 1 / m ) = sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) )
66	65	oveq1d 6290	. . . . . . . . . 10 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( ( ( |_ ` A ) + 1 ) - 1 ) ) ( 1 / m ) + ( 1 / ( ( |_ ` A ) + 1 ) ) ) = ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) + ( 1 / ( ( |_ ` A ) + 1 ) ) ) )
67	59, 66	eqtrd 2501	. . . . . . . . 9 |- ( A e. RR+ -> sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) = ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) + ( 1 / ( ( |_ ` A ) + 1 ) ) ) )
68	67	oveq1d 6290	. . . . . . . 8 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( 1 / ( ( |_ ` A ) + 1 ) ) ) = ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) + ( 1 / ( ( |_ ` A ) + 1 ) ) ) - ( 1 / ( ( |_ ` A ) + 1 ) ) ) )
69	6, 53	pncand 9920	. . . . . . . 8 |- ( A e. RR+ -> ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) + ( 1 / ( ( |_ ` A ) + 1 ) ) ) - ( 1 / ( ( |_ ` A ) + 1 ) ) ) = sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) )
70	68, 69	eqtrd 2501	. . . . . . 7 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( 1 / ( ( |_ ` A ) + 1 ) ) ) = sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) )
71	70	oveq1d 6290	. . . . . 6 |- ( A e. RR+ -> ( ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( 1 / ( ( |_ ` A ) + 1 ) ) ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) = ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) )
72	54, 71	eqtrd 2501	. . . . 5 |- ( A e. RR+ -> ( ( sum_ m e. ( 1 ... ( ( |_ ` A ) + 1 ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) - ( 1 / ( ( |_ ` A ) + 1 ) ) ) = ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) )
73	50, 72	breqtrd 4464	. . . 4 |- ( A e. RR+ -> ( gamma - ( 1 / A ) ) <_ ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) )
74		logleb 22709	. . . . . . 7 |- ( ( A e. RR+ /\ ( ( |_ ` A ) + 1 ) e. RR+ ) -> ( A <_ ( ( |_ ` A ) + 1 ) <-> ( log ` A ) <_ ( log ` ( ( |_ ` A ) + 1 ) ) ) )
75	23, 74	mpdan 668	. . . . . 6 |- ( A e. RR+ -> ( A <_ ( ( |_ ` A ) + 1 ) <-> ( log ` A ) <_ ( log ` ( ( |_ ` A ) + 1 ) ) ) )
76	43, 75	mpbid 210	. . . . 5 |- ( A e. RR+ -> ( log ` A ) <_ ( log ` ( ( |_ ` A ) + 1 ) ) )
77	7, 25, 5, 76	lesub2dd 10158	. . . 4 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) <_ ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) )
78	17, 26, 27, 73, 77	letrd 9727	. . 3 |- ( A e. RR+ -> ( gamma - ( 1 / A ) ) <_ ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) )
79	27, 15	resubcld 9976	. . . . 5 |- ( A e. RR+ -> ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) - ( 1 / A ) ) e. RR )
80	15	recnd 9611	. . . . . . 7 |- ( A e. RR+ -> ( 1 / A ) e. CC )
81	6, 8, 80	subsub4d 9950	. . . . . 6 |- ( A e. RR+ -> ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) - ( 1 / A ) ) = ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( ( log ` A ) + ( 1 / A ) ) ) )
82	7, 15	readdcld 9612	. . . . . . 7 |- ( A e. RR+ -> ( ( log ` A ) + ( 1 / A ) ) e. RR )
83		id 22	. . . . . . . . . 10 |- ( A e. RR+ -> A e. RR+ )
84	23, 83	relogdivd 22732	. . . . . . . . 9 |- ( A e. RR+ -> ( log ` ( ( ( |_ ` A ) + 1 ) / A ) ) = ( ( log ` ( ( |_ ` A ) + 1 ) ) - ( log ` A ) ) )
85		rerpdivcl 11236	. . . . . . . . . . . . 13 |- ( ( ( ( |_ ` A ) + 1 ) e. RR /\ A e. RR+ ) -> ( ( ( |_ ` A ) + 1 ) / A ) e. RR )
86	45, 85	mpancom 669	. . . . . . . . . . . 12 |- ( A e. RR+ -> ( ( ( |_ ` A ) + 1 ) / A ) e. RR )
87	37	a1i 11	. . . . . . . . . . . . 13 |- ( A e. RR+ -> 1 e. RR )
88	87, 15	readdcld 9612	. . . . . . . . . . . 12 |- ( A e. RR+ -> ( 1 + ( 1 / A ) ) e. RR )
89	15	reefcld 13674	. . . . . . . . . . . 12 |- ( A e. RR+ -> ( exp ` ( 1 / A ) ) e. RR )
90	61	a1i 11	. . . . . . . . . . . . . 14 |- ( A e. RR+ -> 1 e. CC )
91		rpcnne0 11226	. . . . . . . . . . . . . 14 |- ( A e. RR+ -> ( A e. CC /\ A =/= 0 ) )
92		divdir 10219	. . . . . . . . . . . . . 14 |- ( ( ( |_ ` A ) e. CC /\ 1 e. CC /\ ( A e. CC /\ A =/= 0 ) ) -> ( ( ( |_ ` A ) + 1 ) / A ) = ( ( ( |_ ` A ) / A ) + ( 1 / A ) ) )
93	60, 90, 91, 92	syl3anc 1223	. . . . . . . . . . . . 13 |- ( A e. RR+ -> ( ( ( |_ ` A ) + 1 ) / A ) = ( ( ( |_ ` A ) / A ) + ( 1 / A ) ) )
94		reflcl 11890	. . . . . . . . . . . . . . . 16 |- ( A e. RR -> ( |_ ` A ) e. RR )
95	41, 94	syl 16	. . . . . . . . . . . . . . 15 |- ( A e. RR+ -> ( |_ ` A ) e. RR )
96		rerpdivcl 11236	. . . . . . . . . . . . . . 15 |- ( ( ( |_ ` A ) e. RR /\ A e. RR+ ) -> ( ( |_ ` A ) / A ) e. RR )
97	95, 96	mpancom 669	. . . . . . . . . . . . . 14 |- ( A e. RR+ -> ( ( |_ ` A ) / A ) e. RR )
98		flle 11893	. . . . . . . . . . . . . . . . 17 |- ( A e. RR -> ( |_ ` A ) <_ A )
99	41, 98	syl 16	. . . . . . . . . . . . . . . 16 |- ( A e. RR+ -> ( |_ ` A ) <_ A )
100		rpcn 11217	. . . . . . . . . . . . . . . . 17 |- ( A e. RR+ -> A e. CC )
101	100	mulid1d 9602	. . . . . . . . . . . . . . . 16 |- ( A e. RR+ -> ( A x. 1 ) = A )
102	99, 101	breqtrrd 4466	. . . . . . . . . . . . . . 15 |- ( A e. RR+ -> ( |_ ` A ) <_ ( A x. 1 ) )
103		ledivmul 10407	. . . . . . . . . . . . . . . 16 |- ( ( ( |_ ` A ) e. RR /\ 1 e. RR /\ ( A e. RR /\ 0 < A ) ) -> ( ( ( |_ ` A ) / A ) <_ 1 <-> ( |_ ` A ) <_ ( A x. 1 ) ) )
104	95, 87, 44, 103	syl3anc 1223	. . . . . . . . . . . . . . 15 |- ( A e. RR+ -> ( ( ( |_ ` A ) / A ) <_ 1 <-> ( |_ ` A ) <_ ( A x. 1 ) ) )
105	102, 104	mpbird 232	. . . . . . . . . . . . . 14 |- ( A e. RR+ -> ( ( |_ ` A ) / A ) <_ 1 )
106	97, 87, 15, 105	leadd1dd 10155	. . . . . . . . . . . . 13 |- ( A e. RR+ -> ( ( ( |_ ` A ) / A ) + ( 1 / A ) ) <_ ( 1 + ( 1 / A ) ) )
107	93, 106	eqbrtrd 4460	. . . . . . . . . . . 12 |- ( A e. RR+ -> ( ( ( |_ ` A ) + 1 ) / A ) <_ ( 1 + ( 1 / A ) ) )
108		efgt1p 13700	. . . . . . . . . . . . . 14 |- ( ( 1 / A ) e. RR+ -> ( 1 + ( 1 / A ) ) < ( exp ` ( 1 / A ) ) )
109	14, 108	syl 16	. . . . . . . . . . . . 13 |- ( A e. RR+ -> ( 1 + ( 1 / A ) ) < ( exp ` ( 1 / A ) ) )
110	88, 89, 109	ltled 9721	. . . . . . . . . . . 12 |- ( A e. RR+ -> ( 1 + ( 1 / A ) ) <_ ( exp ` ( 1 / A ) ) )
111	86, 88, 89, 107, 110	letrd 9727	. . . . . . . . . . 11 |- ( A e. RR+ -> ( ( ( |_ ` A ) + 1 ) / A ) <_ ( exp ` ( 1 / A ) ) )
112		rpdivcl 11231	. . . . . . . . . . . . 13 |- ( ( ( ( |_ ` A ) + 1 ) e. RR+ /\ A e. RR+ ) -> ( ( ( |_ ` A ) + 1 ) / A ) e. RR+ )
113	23, 112	mpancom 669	. . . . . . . . . . . 12 |- ( A e. RR+ -> ( ( ( |_ ` A ) + 1 ) / A ) e. RR+ )
114	15	rpefcld 13690	. . . . . . . . . . . 12 |- ( A e. RR+ -> ( exp ` ( 1 / A ) ) e. RR+ )
115	113, 114	logled 22733	. . . . . . . . . . 11 |- ( A e. RR+ -> ( ( ( ( |_ ` A ) + 1 ) / A ) <_ ( exp ` ( 1 / A ) ) <-> ( log ` ( ( ( |_ ` A ) + 1 ) / A ) ) <_ ( log ` ( exp ` ( 1 / A ) ) ) ) )
116	111, 115	mpbid 210	. . . . . . . . . 10 |- ( A e. RR+ -> ( log ` ( ( ( |_ ` A ) + 1 ) / A ) ) <_ ( log ` ( exp ` ( 1 / A ) ) ) )
117	15	relogefd 22734	. . . . . . . . . 10 |- ( A e. RR+ -> ( log ` ( exp ` ( 1 / A ) ) ) = ( 1 / A ) )
118	116, 117	breqtrd 4464	. . . . . . . . 9 |- ( A e. RR+ -> ( log ` ( ( ( |_ ` A ) + 1 ) / A ) ) <_ ( 1 / A ) )
119	84, 118	eqbrtrrd 4462	. . . . . . . 8 |- ( A e. RR+ -> ( ( log ` ( ( |_ ` A ) + 1 ) ) - ( log ` A ) ) <_ ( 1 / A ) )
120	25, 7, 15	lesubadd2d 10140	. . . . . . . 8 |- ( A e. RR+ -> ( ( ( log ` ( ( |_ ` A ) + 1 ) ) - ( log ` A ) ) <_ ( 1 / A ) <-> ( log ` ( ( |_ ` A ) + 1 ) ) <_ ( ( log ` A ) + ( 1 / A ) ) ) )
121	119, 120	mpbid 210	. . . . . . 7 |- ( A e. RR+ -> ( log ` ( ( |_ ` A ) + 1 ) ) <_ ( ( log ` A ) + ( 1 / A ) ) )
122	25, 82, 5, 121	lesub2dd 10158	. . . . . 6 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( ( log ` A ) + ( 1 / A ) ) ) <_ ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) )
123	81, 122	eqbrtrd 4460	. . . . 5 |- ( A e. RR+ -> ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) - ( 1 / A ) ) <_ ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) )
124		harmonicbnd3 23058	. . . . . . 7 |- ( ( |_ ` A ) e. NN0 -> ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. ( 0 [,] gamma ) )
125	20, 124	syl 16	. . . . . 6 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. ( 0 [,] gamma ) )
126		0re 9585	. . . . . . . 8 |- 0 e. RR
127	126, 9	elicc2i 11579	. . . . . . 7 |- ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. ( 0 [,] gamma ) <-> ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. RR /\ 0 <_ ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) /\ ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) <_ gamma ) )
128	127	simp3bi 1008	. . . . . 6 |- ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) e. ( 0 [,] gamma ) -> ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) <_ gamma )
129	125, 128	syl 16	. . . . 5 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` ( ( |_ ` A ) + 1 ) ) ) <_ gamma )
130	79, 26, 10, 123, 129	letrd 9727	. . . 4 |- ( A e. RR+ -> ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) - ( 1 / A ) ) <_ gamma )
131	27, 15, 10	lesubaddd 10138	. . . 4 |- ( A e. RR+ -> ( ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) - ( 1 / A ) ) <_ gamma <-> ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) <_ ( gamma + ( 1 / A ) ) ) )
132	130, 131	mpbid 210	. . 3 |- ( A e. RR+ -> ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) <_ ( gamma + ( 1 / A ) ) )
133	27, 10, 15	absdifled 13215	. . 3 |- ( A e. RR+ -> ( ( abs ` ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) - gamma ) ) <_ ( 1 / A ) <-> ( ( gamma - ( 1 / A ) ) <_ ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) /\ ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) <_ ( gamma + ( 1 / A ) ) ) ) )
134	78, 132, 133	mpbir2and 915	. 2 |- ( A e. RR+ -> ( abs ` ( ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( log ` A ) ) - gamma ) ) <_ ( 1 / A ) )
135	13, 134	eqbrtrrd 4462	1 |- ( A e. RR+ -> ( abs ` ( sum_ m e. ( 1 ... ( |_ ` A ) ) ( 1 / m ) - ( ( log ` A ) + gamma ) ) ) <_ ( 1 / A ) )

Syntax hints:   -> wi 4   <-> wb 184   /\ wa 369   = wceq 1374   e. wcel 1762   =/= wne 2655   class class class wbr 4440   ` cfv 5579  (class class class)co 6275   CCcc 9479   RRcr 9480   0cc0 9481   1c1 9482   + caddc 9484   x. cmul 9486   < clt 9617   <_ cle 9618   - cmin 9794   / cdiv 10195   NNcn 10525   NN0cn0 10784   ZZ>=cuz 11071   RR+crp 11209   [,]cicc 11521   ...cfz 11661   |_cfl 11884   abscabs 13017   sum_csu 13457   expce 13648   logclog 22663   gammacem 23042

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 1714  ax-7 1734  ax-8 1764  ax-9 1766  ax-10 1781  ax-11 1786  ax-12 1798  ax-13 1961  ax-ext 2438  ax-rep 4551  ax-sep 4561  ax-nul 4569  ax-pow 4618  ax-pr 4679  ax-un 6567  ax-inf2 8047  ax-cnex 9537  ax-resscn 9538  ax-1cn 9539  ax-icn 9540  ax-addcl 9541  ax-addrcl 9542  ax-mulcl 9543  ax-mulrcl 9544  ax-mulcom 9545  ax-addass 9546  ax-mulass 9547  ax-distr 9548  ax-i2m1 9549  ax-1ne0 9550  ax-1rid 9551  ax-rnegex 9552  ax-rrecex 9553  ax-cnre 9554  ax-pre-lttri 9555  ax-pre-lttrn 9556  ax-pre-ltadd 9557  ax-pre-mulgt0 9558  ax-pre-sup 9559  ax-addf 9560  ax-mulf 9561

This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 969  df-3an 970  df-tru 1377  df-fal 1380  df-ex 1592  df-nf 1595  df-sb 1707  df-eu 2272  df-mo 2273  df-clab 2446  df-cleq 2452  df-clel 2455  df-nfc 2610  df-ne 2657  df-nel 2658  df-ral 2812  df-rex 2813  df-reu 2814  df-rmo 2815  df-rab 2816  df-v 3108  df-sbc 3325  df-csb 3429  df-dif 3472  df-un 3474  df-in 3476  df-ss 3483  df-pss 3485  df-nul 3779  df-if 3933  df-pw 4005  df-sn 4021  df-pr 4023  df-tp 4025  df-op 4027  df-uni 4239  df-int 4276  df-iun 4320  df-iin 4321  df-br 4441  df-opab 4499  df-mpt 4500  df-tr 4534  df-eprel 4784  df-id 4788  df-po 4793  df-so 4794  df-fr 4831  df-se 4832  df-we 4833  df-ord 4874  df-on 4875  df-lim 4876  df-suc 4877  df-xp 4998  df-rel 4999  df-cnv 5000  df-co 5001  df-dm 5002  df-rn 5003  df-res 5004  df-ima 5005  df-iota 5542  df-fun 5581  df-fn 5582  df-f 5583  df-f1 5584  df-fo 5585  df-f1o 5586  df-fv 5587  df-isom 5588  df-riota 6236  df-ov 6278  df-oprab 6279  df-mpt2 6280  df-of 6515  df-om 6672  df-1st 6774  df-2nd 6775  df-supp 6892  df-recs 7032  df-rdg 7066  df-1o 7120  df-2o 7121  df-oadd 7124  df-er 7301  df-map 7412  df-pm 7413  df-ixp 7460  df-en 7507  df-dom 7508  df-sdom 7509  df-fin 7510  df-fsupp 7819  df-fi 7860  df-sup 7890  df-oi 7924  df-card 8309  df-cda 8537  df-pnf 9619  df-mnf 9620  df-xr 9621  df-ltxr 9622  df-le 9623  df-sub 9796  df-neg 9797  df-div 10196  df-nn 10526  df-2 10583  df-3 10584  df-4 10585  df-5 10586  df-6 10587  df-7 10588  df-8 10589  df-9 10590  df-10 10591  df-n0 10785  df-z 10854  df-dec 10966  df-uz 11072  df-q 11172  df-rp 11210  df-xneg 11307  df-xadd 11308  df-xmul 11309  df-ioo 11522  df-ioc 11523  df-ico 11524  df-icc 11525  df-fz 11662  df-fzo 11782  df-fl 11886  df-mod 11953  df-seq 12064  df-exp 12123  df-fac 12309  df-bc 12336  df-hash 12361  df-shft 12850  df-cj 12882  df-re 12883  df-im 12884  df-sqr 13018  df-abs 13019  df-limsup 13243  df-clim 13260  df-rlim 13261  df-sum 13458  df-ef 13654  df-e 13655  df-sin 13656  df-cos 13657  df-pi 13659  df-struct 14481  df-ndx 14482  df-slot 14483  df-base 14484  df-sets 14485  df-ress 14486  df-plusg 14557  df-mulr 14558  df-starv 14559  df-sca 14560  df-vsca 14561  df-ip 14562  df-tset 14563  df-ple 14564  df-ds 14566  df-unif 14567  df-hom 14568  df-cco 14569  df-rest 14667  df-topn 14668  df-0g 14686  df-gsum 14687  df-topgen 14688  df-pt 14689  df-prds 14692  df-xrs 14746  df-qtop 14751  df-imas 14752  df-xps 14754  df-mre 14830  df-mrc 14831  df-acs 14833  df-mnd 15721  df-submnd 15771  df-mulg 15854  df-cntz 16143  df-cmn 16589  df-psmet 18175  df-xmet 18176  df-met 18177  df-bl 18178  df-mopn 18179  df-fbas 18180  df-fg 18181  df-cnfld 18185  df-top 19159  df-bases 19161  df-topon 19162  df-topsp 19163  df-cld 19279  df-ntr 19280  df-cls 19281  df-nei 19358  df-lp 19396  df-perf 19397  df-cn 19487  df-cnp 19488  df-haus 19575  df-tx 19791  df-hmeo 19984  df-fil 20075  df-fm 20167  df-flim 20168  df-flf 20169  df-xms 20551  df-ms 20552  df-tms 20553  df-cncf 21110  df-limc 21998  df-dv 21999  df-log 22665  df-em 23043

This theorem is referenced by:  mulogsumlem  23437  mulog2sumlem1  23440