fsumharmonic - Metamath Proof Explorer

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

Theorem fsumharmonic 27248

Description: Bound a finite sum based on the harmonic series, where the "strong" bound 𝐶 only applies asymptotically, and there is a "weak" bound 𝑅 for the remaining values. (Contributed by Mario Carneiro, 18-May-2016.)

**Hypotheses**
Ref	Expression
fsumharmonic.a	⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
fsumharmonic.t	⊢ (𝜑 → (𝑇 ∈ ℝ ∧ 1 ≤ 𝑇))
fsumharmonic.r	⊢ (𝜑 → (𝑅 ∈ ℝ ∧ 0 ≤ 𝑅))
fsumharmonic.b	⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝐵 ∈ ℂ)
fsumharmonic.c	⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝐶 ∈ ℝ)
fsumharmonic.0	⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 0 ≤ 𝐶)
fsumharmonic.1	⊢ (((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) ∧ 𝑇 ≤ (𝐴 / 𝑛)) → (abs‘𝐵) ≤ (𝐶 · 𝑛))
fsumharmonic.2	⊢ (((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) ∧ (𝐴 / 𝑛) < 𝑇) → (abs‘𝐵) ≤ 𝑅)

**Assertion**
Ref	Expression
fsumharmonic	⊢ (𝜑 → (abs‘Σ𝑛 ∈ (1...(⌊‘𝐴))(𝐵 / 𝑛)) ≤ (Σ𝑛 ∈ (1...(⌊‘𝐴))𝐶 + (𝑅 · ((log‘𝑇) + 1))))

Distinct variable groups: 𝐴,𝑛 𝜑,𝑛 𝑅,𝑛 𝑇,𝑛 Allowed substitution hints: 𝐵(𝑛) 𝐶(𝑛)

**Proof of Theorem fsumharmonic**
Step	Hyp	Ref	Expression
1		fzfid 14037	. . . 4 ⊢ (𝜑 → (1...(⌊‘𝐴)) ∈ Fin)
2		fsumharmonic.b	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝐵 ∈ ℂ)
3		elfznn 13608	. . . . . . 7 ⊢ (𝑛 ∈ (1...(⌊‘𝐴)) → 𝑛 ∈ ℕ)
4	3	adantl 487	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝑛 ∈ ℕ)
5	4	nncnd 12273	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝑛 ∈ ℂ)
6	4	nnne0d 12310	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝑛 ≠ 0)
7	2, 5, 6	divcld 12015	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (𝐵 / 𝑛) ∈ ℂ)
8	1, 7	fsumcl 15819	. . 3 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘𝐴))(𝐵 / 𝑛) ∈ ℂ)
9	8	abscld 15526	. 2 ⊢ (𝜑 → (abs‘Σ𝑛 ∈ (1...(⌊‘𝐴))(𝐵 / 𝑛)) ∈ ℝ)
10	2	abscld 15526	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (abs‘𝐵) ∈ ℝ)
11	10, 4	nndivred 12314	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → ((abs‘𝐵) / 𝑛) ∈ ℝ)
12	1, 11	fsumrecl 15820	. 2 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘𝐴))((abs‘𝐵) / 𝑛) ∈ ℝ)
13		fsumharmonic.c	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝐶 ∈ ℝ)
14	1, 13	fsumrecl 15820	. . 3 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘𝐴))𝐶 ∈ ℝ)
15		fsumharmonic.r	. . . . 5 ⊢ (𝜑 → (𝑅 ∈ ℝ ∧ 0 ≤ 𝑅))
16	15	simpld 500	. . . 4 ⊢ (𝜑 → 𝑅 ∈ ℝ)
17		fsumharmonic.t	. . . . . . . 8 ⊢ (𝜑 → (𝑇 ∈ ℝ ∧ 1 ≤ 𝑇))
18	17	simpld 500	. . . . . . 7 ⊢ (𝜑 → 𝑇 ∈ ℝ)
19		0red 11235	. . . . . . . 8 ⊢ (𝜑 → 0 ∈ ℝ)
20		1red 11233	. . . . . . . 8 ⊢ (𝜑 → 1 ∈ ℝ)
21		0lt1 11760	. . . . . . . . 9 ⊢ 0 < 1
22	21	a1i 11	. . . . . . . 8 ⊢ (𝜑 → 0 < 1)
23	17	simprd 501	. . . . . . . 8 ⊢ (𝜑 → 1 ≤ 𝑇)
24	19, 20, 18, 22, 23	ltletrd 11394	. . . . . . 7 ⊢ (𝜑 → 0 < 𝑇)
25	18, 24	elrpd 13083	. . . . . 6 ⊢ (𝜑 → 𝑇 ∈ ℝ⁺)
26	25	relogcld 26860	. . . . 5 ⊢ (𝜑 → (log‘𝑇) ∈ ℝ)
27	26, 20	readdcld 11262	. . . 4 ⊢ (𝜑 → ((log‘𝑇) + 1) ∈ ℝ)
28	16, 27	remulcld 11263	. . 3 ⊢ (𝜑 → (𝑅 · ((log‘𝑇) + 1)) ∈ ℝ)
29	14, 28	readdcld 11262	. 2 ⊢ (𝜑 → (Σ𝑛 ∈ (1...(⌊‘𝐴))𝐶 + (𝑅 · ((log‘𝑇) + 1))) ∈ ℝ)
30	1, 7	fsumabs 15888	. . 3 ⊢ (𝜑 → (abs‘Σ𝑛 ∈ (1...(⌊‘𝐴))(𝐵 / 𝑛)) ≤ Σ𝑛 ∈ (1...(⌊‘𝐴))(abs‘(𝐵 / 𝑛)))
31	2, 5, 6	absdivd 15545	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (abs‘(𝐵 / 𝑛)) = ((abs‘𝐵) / (abs‘𝑛)))
32	4	nnrpd 13084	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝑛 ∈ ℝ⁺)
33	32	rprege0d 13093	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (𝑛 ∈ ℝ ∧ 0 ≤ 𝑛))
34		absid 15383	. . . . . . 7 ⊢ ((𝑛 ∈ ℝ ∧ 0 ≤ 𝑛) → (abs‘𝑛) = 𝑛)
35	33, 34	syl 18	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (abs‘𝑛) = 𝑛)
36	35	oveq2d 7429	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → ((abs‘𝐵) / (abs‘𝑛)) = ((abs‘𝐵) / 𝑛))
37	31, 36	eqtrd 2795	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (abs‘(𝐵 / 𝑛)) = ((abs‘𝐵) / 𝑛))
38	37	sumeq2dv 15789	. . 3 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘𝐴))(abs‘(𝐵 / 𝑛)) = Σ𝑛 ∈ (1...(⌊‘𝐴))((abs‘𝐵) / 𝑛))
39	30, 38	breqtrd 5131	. 2 ⊢ (𝜑 → (abs‘Σ𝑛 ∈ (1...(⌊‘𝐴))(𝐵 / 𝑛)) ≤ Σ𝑛 ∈ (1...(⌊‘𝐴))((abs‘𝐵) / 𝑛))
40		fsumharmonic.a	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ∈ ℝ⁺)
41	40, 25	rpdivcld 13103	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 / 𝑇) ∈ ℝ⁺)
42	41	rprege0d 13093	. . . . . . . 8 ⊢ (𝜑 → ((𝐴 / 𝑇) ∈ ℝ ∧ 0 ≤ (𝐴 / 𝑇)))
43		flge0nn0 13881	. . . . . . . 8 ⊢ (((𝐴 / 𝑇) ∈ ℝ ∧ 0 ≤ (𝐴 / 𝑇)) → (⌊‘(𝐴 / 𝑇)) ∈ ℕ₀)
44	42, 43	syl 18	. . . . . . 7 ⊢ (𝜑 → (⌊‘(𝐴 / 𝑇)) ∈ ℕ₀)
45	44	nn0red 12590	. . . . . 6 ⊢ (𝜑 → (⌊‘(𝐴 / 𝑇)) ∈ ℝ)
46	45	ltp1d 12169	. . . . 5 ⊢ (𝜑 → (⌊‘(𝐴 / 𝑇)) < ((⌊‘(𝐴 / 𝑇)) + 1))
47		fzdisj 13606	. . . . 5 ⊢ ((⌊‘(𝐴 / 𝑇)) < ((⌊‘(𝐴 / 𝑇)) + 1) → ((1...(⌊‘(𝐴 / 𝑇))) ∩ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) = ∅)
48	46, 47	syl 18	. . . 4 ⊢ (𝜑 → ((1...(⌊‘(𝐴 / 𝑇))) ∩ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) = ∅)
49		nn0p1nn 12567	. . . . . . 7 ⊢ ((⌊‘(𝐴 / 𝑇)) ∈ ℕ₀ → ((⌊‘(𝐴 / 𝑇)) + 1) ∈ ℕ)
50	44, 49	syl 18	. . . . . 6 ⊢ (𝜑 → ((⌊‘(𝐴 / 𝑇)) + 1) ∈ ℕ)
51		nnuz 12926	. . . . . 6 ⊢ ℕ = (ℤ_≥‘1)
52	50, 51	eleqtrdi 2870	. . . . 5 ⊢ (𝜑 → ((⌊‘(𝐴 / 𝑇)) + 1) ∈ (ℤ_≥‘1))
53	41	rpred 13086	. . . . . 6 ⊢ (𝜑 → (𝐴 / 𝑇) ∈ ℝ)
54	40	rpred 13086	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ ℝ)
55	18, 24	jca 521	. . . . . . . . 9 ⊢ (𝜑 → (𝑇 ∈ ℝ ∧ 0 < 𝑇))
56	40	rpregt0d 13092	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 ∈ ℝ ∧ 0 < 𝐴))
57		lediv2 12129	. . . . . . . . 9 ⊢ (((1 ∈ ℝ ∧ 0 < 1) ∧ (𝑇 ∈ ℝ ∧ 0 < 𝑇) ∧ (𝐴 ∈ ℝ ∧ 0 < 𝐴)) → (1 ≤ 𝑇 ↔ (𝐴 / 𝑇) ≤ (𝐴 / 1)))
58	20, 22, 55, 56, 57	syl211anc 1403	. . . . . . . 8 ⊢ (𝜑 → (1 ≤ 𝑇 ↔ (𝐴 / 𝑇) ≤ (𝐴 / 1)))
59	23, 58	mpbid 235	. . . . . . 7 ⊢ (𝜑 → (𝐴 / 𝑇) ≤ (𝐴 / 1))
60	54	recnd 11261	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ ℂ)
61	60	div1d 12007	. . . . . . 7 ⊢ (𝜑 → (𝐴 / 1) = 𝐴)
62	59, 61	breqtrd 5131	. . . . . 6 ⊢ (𝜑 → (𝐴 / 𝑇) ≤ 𝐴)
63		flword2 13874	. . . . . 6 ⊢ (((𝐴 / 𝑇) ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ (𝐴 / 𝑇) ≤ 𝐴) → (⌊‘𝐴) ∈ (ℤ_≥‘(⌊‘(𝐴 / 𝑇))))
64	53, 54, 62, 63	syl3anc 1398	. . . . 5 ⊢ (𝜑 → (⌊‘𝐴) ∈ (ℤ_≥‘(⌊‘(𝐴 / 𝑇))))
65		fzsplit2 13604	. . . . 5 ⊢ ((((⌊‘(𝐴 / 𝑇)) + 1) ∈ (ℤ_≥‘1) ∧ (⌊‘𝐴) ∈ (ℤ_≥‘(⌊‘(𝐴 / 𝑇)))) → (1...(⌊‘𝐴)) = ((1...(⌊‘(𝐴 / 𝑇))) ∪ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))))
66	52, 64, 65	syl2anc 596	. . . 4 ⊢ (𝜑 → (1...(⌊‘𝐴)) = ((1...(⌊‘(𝐴 / 𝑇))) ∪ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))))
67	11	recnd 11261	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → ((abs‘𝐵) / 𝑛) ∈ ℂ)
68	48, 66, 1, 67	fsumsplit 15827	. . 3 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘𝐴))((abs‘𝐵) / 𝑛) = (Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))((abs‘𝐵) / 𝑛) + Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))((abs‘𝐵) / 𝑛)))
69		fzfid 14037	. . . . 5 ⊢ (𝜑 → (1...(⌊‘(𝐴 / 𝑇))) ∈ Fin)
70		ssun1 4124	. . . . . . . 8 ⊢ (1...(⌊‘(𝐴 / 𝑇))) ⊆ ((1...(⌊‘(𝐴 / 𝑇))) ∪ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴)))
71	70, 66	sseqtrrid 3974	. . . . . . 7 ⊢ (𝜑 → (1...(⌊‘(𝐴 / 𝑇))) ⊆ (1...(⌊‘𝐴)))
72	71	sselda 3931	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → 𝑛 ∈ (1...(⌊‘𝐴)))
73	72, 11	syldan 603	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → ((abs‘𝐵) / 𝑛) ∈ ℝ)
74	69, 73	fsumrecl 15820	. . . 4 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))((abs‘𝐵) / 𝑛) ∈ ℝ)
75		fzfid 14037	. . . . 5 ⊢ (𝜑 → (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴)) ∈ Fin)
76		ssun2 4125	. . . . . . . 8 ⊢ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴)) ⊆ ((1...(⌊‘(𝐴 / 𝑇))) ∪ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴)))
77	76, 66	sseqtrrid 3974	. . . . . . 7 ⊢ (𝜑 → (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴)) ⊆ (1...(⌊‘𝐴)))
78	77	sselda 3931	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → 𝑛 ∈ (1...(⌊‘𝐴)))
79	78, 11	syldan 603	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → ((abs‘𝐵) / 𝑛) ∈ ℝ)
80	75, 79	fsumrecl 15820	. . . 4 ⊢ (𝜑 → Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))((abs‘𝐵) / 𝑛) ∈ ℝ)
81	72, 13	syldan 603	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → 𝐶 ∈ ℝ)
82	69, 81	fsumrecl 15820	. . . . 5 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))𝐶 ∈ ℝ)
83		fznnfl 13923	. . . . . . . . . . 11 ⊢ ((𝐴 / 𝑇) ∈ ℝ → (𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) ↔ (𝑛 ∈ ℕ ∧ 𝑛 ≤ (𝐴 / 𝑇))))
84	53, 83	syl 18	. . . . . . . . . 10 ⊢ (𝜑 → (𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) ↔ (𝑛 ∈ ℕ ∧ 𝑛 ≤ (𝐴 / 𝑇))))
85	84	simplbda 505	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → 𝑛 ≤ (𝐴 / 𝑇))
86	32	rpred 13086	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝑛 ∈ ℝ)
87	54	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝐴 ∈ ℝ)
88	55	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (𝑇 ∈ ℝ ∧ 0 < 𝑇))
89		lemuldiv2 12120	. . . . . . . . . . . 12 ⊢ ((𝑛 ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ (𝑇 ∈ ℝ ∧ 0 < 𝑇)) → ((𝑇 · 𝑛) ≤ 𝐴 ↔ 𝑛 ≤ (𝐴 / 𝑇)))
90	86, 87, 88, 89	syl3anc 1398	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → ((𝑇 · 𝑛) ≤ 𝐴 ↔ 𝑛 ≤ (𝐴 / 𝑇)))
91	18	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 𝑇 ∈ ℝ)
92	91, 87, 32	lemuldivd 13135	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → ((𝑇 · 𝑛) ≤ 𝐴 ↔ 𝑇 ≤ (𝐴 / 𝑛)))
93	90, 92	bitr3d 284	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (𝑛 ≤ (𝐴 / 𝑇) ↔ 𝑇 ≤ (𝐴 / 𝑛)))
94	72, 93	syldan 603	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → (𝑛 ≤ (𝐴 / 𝑇) ↔ 𝑇 ≤ (𝐴 / 𝑛)))
95	85, 94	mpbid 235	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → 𝑇 ≤ (𝐴 / 𝑛))
96		fsumharmonic.1	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) ∧ 𝑇 ≤ (𝐴 / 𝑛)) → (abs‘𝐵) ≤ (𝐶 · 𝑛))
97	96	ex 418	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (𝑇 ≤ (𝐴 / 𝑛) → (abs‘𝐵) ≤ (𝐶 · 𝑛)))
98	72, 97	syldan 603	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → (𝑇 ≤ (𝐴 / 𝑛) → (abs‘𝐵) ≤ (𝐶 · 𝑛)))
99	95, 98	mpd 16	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → (abs‘𝐵) ≤ (𝐶 · 𝑛))
100	72, 2	syldan 603	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → 𝐵 ∈ ℂ)
101	100	abscld 15526	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → (abs‘𝐵) ∈ ℝ)
102	72, 3	syl 18	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → 𝑛 ∈ ℕ)
103	102	nnrpd 13084	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → 𝑛 ∈ ℝ⁺)
104	101, 81, 103	ledivmul2d 13140	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → (((abs‘𝐵) / 𝑛) ≤ 𝐶 ↔ (abs‘𝐵) ≤ (𝐶 · 𝑛)))
105	99, 104	mpbird 260	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → ((abs‘𝐵) / 𝑛) ≤ 𝐶)
106	69, 73, 81, 105	fsumle 15886	. . . . 5 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))((abs‘𝐵) / 𝑛) ≤ Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))𝐶)
107		fsumharmonic.0	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → 0 ≤ 𝐶)
108	1, 13, 107, 71	fsumless 15883	. . . . 5 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))𝐶 ≤ Σ𝑛 ∈ (1...(⌊‘𝐴))𝐶)
109	74, 82, 14, 106, 108	letrd 11391	. . . 4 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))((abs‘𝐵) / 𝑛) ≤ Σ𝑛 ∈ (1...(⌊‘𝐴))𝐶)
110	78, 3	syl 18	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → 𝑛 ∈ ℕ)
111	110	nnrecred 12311	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → (1 / 𝑛) ∈ ℝ)
112	75, 111	fsumrecl 15820	. . . . . 6 ⊢ (𝜑 → Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛) ∈ ℝ)
113	16, 112	remulcld 11263	. . . . 5 ⊢ (𝜑 → (𝑅 · Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛)) ∈ ℝ)
114	16	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → 𝑅 ∈ ℝ)
115	114	recnd 11261	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → 𝑅 ∈ ℂ)
116	110	nncnd 12273	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → 𝑛 ∈ ℂ)
117	110	nnne0d 12310	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → 𝑛 ≠ 0)
118	115, 116, 117	divrecd 12018	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → (𝑅 / 𝑛) = (𝑅 · (1 / 𝑛)))
119	114, 110	nndivred 12314	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → (𝑅 / 𝑛) ∈ ℝ)
120	118, 119	eqeltrrd 2861	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → (𝑅 · (1 / 𝑛)) ∈ ℝ)
121	78, 10	syldan 603	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → (abs‘𝐵) ∈ ℝ)
122	78, 32	syldan 603	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → 𝑛 ∈ ℝ⁺)
123		noel 4284	. . . . . . . . . . . . . . . 16 ⊢ ¬ 𝑛 ∈ ∅
124		elin 3915	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ ((1...(⌊‘(𝐴 / 𝑇))) ∩ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) ↔ (𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))))
125	48	eleq2d 2846	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝑛 ∈ ((1...(⌊‘(𝐴 / 𝑇))) ∩ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) ↔ 𝑛 ∈ ∅))
126	124, 125	bitr3id 288	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) ↔ 𝑛 ∈ ∅))
127	123, 126	mtbiri 330	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ¬ (𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))))
128		imnan 405	. . . . . . . . . . . . . . 15 ⊢ ((𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) → ¬ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) ↔ ¬ (𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))))
129	127, 128	sylibr 237	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) → ¬ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))))
130	129	con2d 135	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴)) → ¬ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))))
131	130	imp 412	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → ¬ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))))
132	83	baibd 549	. . . . . . . . . . . . . . 15 ⊢ (((𝐴 / 𝑇) ∈ ℝ ∧ 𝑛 ∈ ℕ) → (𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) ↔ 𝑛 ≤ (𝐴 / 𝑇)))
133	53, 3, 132	syl2an 608	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) ↔ 𝑛 ≤ (𝐴 / 𝑇)))
134	133, 93	bitrd 282	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) ↔ 𝑇 ≤ (𝐴 / 𝑛)))
135	78, 134	syldan 603	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → (𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇))) ↔ 𝑇 ≤ (𝐴 / 𝑛)))
136	131, 135	mtbid 327	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → ¬ 𝑇 ≤ (𝐴 / 𝑛))
137	54	adantr 486	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → 𝐴 ∈ ℝ)
138	137, 110	nndivred 12314	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → (𝐴 / 𝑛) ∈ ℝ)
139	18	adantr 486	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → 𝑇 ∈ ℝ)
140	138, 139	ltnled 11381	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → ((𝐴 / 𝑛) < 𝑇 ↔ ¬ 𝑇 ≤ (𝐴 / 𝑛)))
141	136, 140	mpbird 260	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → (𝐴 / 𝑛) < 𝑇)
142		fsumharmonic.2	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) ∧ (𝐴 / 𝑛) < 𝑇) → (abs‘𝐵) ≤ 𝑅)
143	142	ex 418	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → ((𝐴 / 𝑛) < 𝑇 → (abs‘𝐵) ≤ 𝑅))
144	78, 143	syldan 603	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → ((𝐴 / 𝑛) < 𝑇 → (abs‘𝐵) ≤ 𝑅))
145	141, 144	mpd 16	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → (abs‘𝐵) ≤ 𝑅)
146	121, 114, 122, 145	lediv1dd 13144	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → ((abs‘𝐵) / 𝑛) ≤ (𝑅 / 𝑛))
147	146, 118	breqtrd 5131	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → ((abs‘𝐵) / 𝑛) ≤ (𝑅 · (1 / 𝑛)))
148	75, 79, 120, 147	fsumle 15886	. . . . . 6 ⊢ (𝜑 → Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))((abs‘𝐵) / 𝑛) ≤ Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(𝑅 · (1 / 𝑛)))
149	16	recnd 11261	. . . . . . 7 ⊢ (𝜑 → 𝑅 ∈ ℂ)
150	111	recnd 11261	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))) → (1 / 𝑛) ∈ ℂ)
151	75, 149, 150	fsummulc2 15870	. . . . . 6 ⊢ (𝜑 → (𝑅 · Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛)) = Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(𝑅 · (1 / 𝑛)))
152	148, 151	breqtrrd 5133	. . . . 5 ⊢ (𝜑 → Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))((abs‘𝐵) / 𝑛) ≤ (𝑅 · Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛)))
153	102	nnrecred 12311	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → (1 / 𝑛) ∈ ℝ)
154	69, 153	fsumrecl 15820	. . . . . . . . 9 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛) ∈ ℝ)
155	154	recnd 11261	. . . . . . . 8 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛) ∈ ℂ)
156	112	recnd 11261	. . . . . . . 8 ⊢ (𝜑 → Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛) ∈ ℂ)
157	4	nnrecred 12311	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (1 / 𝑛) ∈ ℝ)
158	157	recnd 11261	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...(⌊‘𝐴))) → (1 / 𝑛) ∈ ℂ)
159	48, 66, 1, 158	fsumsplit 15827	. . . . . . . 8 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) = (Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛) + Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛)))
160	155, 156, 159	mvrladdd 11651	. . . . . . 7 ⊢ (𝜑 → (Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) − Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) = Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛))
161	1, 157	fsumrecl 15820	. . . . . . . . . . 11 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) ∈ ℝ)
162	161	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐴 < 1) → Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) ∈ ℝ)
163	154	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐴 < 1) → Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛) ∈ ℝ)
164	162, 163	resubcld 11666	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐴 < 1) → (Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) − Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) ∈ ℝ)
165		0red 11235	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐴 < 1) → 0 ∈ ℝ)
166	27	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐴 < 1) → ((log‘𝑇) + 1) ∈ ℝ)
167		fzfid 14037	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝐴 < 1) → (1...(⌊‘(𝐴 / 𝑇))) ∈ Fin)
168	103	adantlr 728	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝐴 < 1) ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → 𝑛 ∈ ℝ⁺)
169	168	rpreccld 13096	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝐴 < 1) ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → (1 / 𝑛) ∈ ℝ⁺)
170	169	rpred 13086	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐴 < 1) ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → (1 / 𝑛) ∈ ℝ)
171	169	rpge0d 13090	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝐴 < 1) ∧ 𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))) → 0 ≤ (1 / 𝑛))
172	40	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝐴 < 1) → 𝐴 ∈ ℝ⁺)
173	172	rpge0d 13090	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝐴 < 1) → 0 ≤ 𝐴)
174		simpr 490	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝐴 < 1) → 𝐴 < 1)
175		0p1e1 12385	. . . . . . . . . . . . . . . 16 ⊢ (0 + 1) = 1
176	174, 175	breqtrrdi 5147	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝐴 < 1) → 𝐴 < (0 + 1))
177	54	adantr 486	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝐴 < 1) → 𝐴 ∈ ℝ)
178		0z 12626	. . . . . . . . . . . . . . . 16 ⊢ 0 ∈ ℤ
179		flbi 13877	. . . . . . . . . . . . . . . 16 ⊢ ((𝐴 ∈ ℝ ∧ 0 ∈ ℤ) → ((⌊‘𝐴) = 0 ↔ (0 ≤ 𝐴 ∧ 𝐴 < (0 + 1))))
180	177, 178, 179	sylancl 598	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝐴 < 1) → ((⌊‘𝐴) = 0 ↔ (0 ≤ 𝐴 ∧ 𝐴 < (0 + 1))))
181	173, 176, 180	mpbir2and 726	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝐴 < 1) → (⌊‘𝐴) = 0)
182	181	oveq2d 7429	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝐴 < 1) → (1...(⌊‘𝐴)) = (1...0))
183		fz10 13599	. . . . . . . . . . . . 13 ⊢ (1...0) = ∅
184	182, 183	eqtrdi 2811	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝐴 < 1) → (1...(⌊‘𝐴)) = ∅)
185		0ss 4350	. . . . . . . . . . . 12 ⊢ ∅ ⊆ (1...(⌊‘(𝐴 / 𝑇)))
186	184, 185	eqsstrdi 3975	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝐴 < 1) → (1...(⌊‘𝐴)) ⊆ (1...(⌊‘(𝐴 / 𝑇))))
187	167, 170, 171, 186	fsumless 15883	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐴 < 1) → Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) ≤ Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛))
188	162, 163	suble0d 11829	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝐴 < 1) → ((Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) − Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) ≤ 0 ↔ Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) ≤ Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)))
189	187, 188	mpbird 260	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐴 < 1) → (Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) − Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) ≤ 0)
190	18, 23	logge0d 26867	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ (log‘𝑇))
191		0le1 11761	. . . . . . . . . . . 12 ⊢ 0 ≤ 1
192	191	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → 0 ≤ 1)
193	26, 20, 190, 192	addge0d 11814	. . . . . . . . . 10 ⊢ (𝜑 → 0 ≤ ((log‘𝑇) + 1))
194	193	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝐴 < 1) → 0 ≤ ((log‘𝑇) + 1))
195	164, 165, 166, 189, 194	letrd 11391	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝐴 < 1) → (Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) − Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) ≤ ((log‘𝑇) + 1))
196		harmonicubnd 27246	. . . . . . . . . . 11 ⊢ ((𝐴 ∈ ℝ ∧ 1 ≤ 𝐴) → Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) ≤ ((log‘𝐴) + 1))
197	54, 196	sylan 592	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 1 ≤ 𝐴) → Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) ≤ ((log‘𝐴) + 1))
198		harmoniclbnd 27245	. . . . . . . . . . . 12 ⊢ ((𝐴 / 𝑇) ∈ ℝ⁺ → (log‘(𝐴 / 𝑇)) ≤ Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛))
199	41, 198	syl 18	. . . . . . . . . . 11 ⊢ (𝜑 → (log‘(𝐴 / 𝑇)) ≤ Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛))
200	199	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 1 ≤ 𝐴) → (log‘(𝐴 / 𝑇)) ≤ Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛))
201	40	relogcld 26860	. . . . . . . . . . . . 13 ⊢ (𝜑 → (log‘𝐴) ∈ ℝ)
202		peano2re 11407	. . . . . . . . . . . . 13 ⊢ ((log‘𝐴) ∈ ℝ → ((log‘𝐴) + 1) ∈ ℝ)
203	201, 202	syl 18	. . . . . . . . . . . 12 ⊢ (𝜑 → ((log‘𝐴) + 1) ∈ ℝ)
204	41	relogcld 26860	. . . . . . . . . . . 12 ⊢ (𝜑 → (log‘(𝐴 / 𝑇)) ∈ ℝ)
205		le2sub 11737	. . . . . . . . . . . 12 ⊢ (((Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) ∈ ℝ ∧ Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛) ∈ ℝ) ∧ (((log‘𝐴) + 1) ∈ ℝ ∧ (log‘(𝐴 / 𝑇)) ∈ ℝ)) → ((Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) ≤ ((log‘𝐴) + 1) ∧ (log‘(𝐴 / 𝑇)) ≤ Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) → (Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) − Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) ≤ (((log‘𝐴) + 1) − (log‘(𝐴 / 𝑇)))))
206	161, 154, 203, 204, 205	syl22anc 852	. . . . . . . . . . 11 ⊢ (𝜑 → ((Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) ≤ ((log‘𝐴) + 1) ∧ (log‘(𝐴 / 𝑇)) ≤ Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) → (Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) − Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) ≤ (((log‘𝐴) + 1) − (log‘(𝐴 / 𝑇)))))
207	206	adantr 486	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 1 ≤ 𝐴) → ((Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) ≤ ((log‘𝐴) + 1) ∧ (log‘(𝐴 / 𝑇)) ≤ Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) → (Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) − Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) ≤ (((log‘𝐴) + 1) − (log‘(𝐴 / 𝑇)))))
208	197, 200, 207	mp2and 712	. . . . . . . . 9 ⊢ ((𝜑 ∧ 1 ≤ 𝐴) → (Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) − Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) ≤ (((log‘𝐴) + 1) − (log‘(𝐴 / 𝑇))))
209	201	recnd 11261	. . . . . . . . . . . 12 ⊢ (𝜑 → (log‘𝐴) ∈ ℂ)
210	20	recnd 11261	. . . . . . . . . . . 12 ⊢ (𝜑 → 1 ∈ ℂ)
211	26	recnd 11261	. . . . . . . . . . . 12 ⊢ (𝜑 → (log‘𝑇) ∈ ℂ)
212	209, 210, 211	pnncand 11632	. . . . . . . . . . 11 ⊢ (𝜑 → (((log‘𝐴) + 1) − ((log‘𝐴) − (log‘𝑇))) = (1 + (log‘𝑇)))
213	40, 25	relogdivd 26863	. . . . . . . . . . . 12 ⊢ (𝜑 → (log‘(𝐴 / 𝑇)) = ((log‘𝐴) − (log‘𝑇)))
214	213	oveq2d 7429	. . . . . . . . . . 11 ⊢ (𝜑 → (((log‘𝐴) + 1) − (log‘(𝐴 / 𝑇))) = (((log‘𝐴) + 1) − ((log‘𝐴) − (log‘𝑇))))
215		ax-1cn 11182	. . . . . . . . . . . 12 ⊢ 1 ∈ ℂ
216		addcom 11420	. . . . . . . . . . . 12 ⊢ (((log‘𝑇) ∈ ℂ ∧ 1 ∈ ℂ) → ((log‘𝑇) + 1) = (1 + (log‘𝑇)))
217	211, 215, 216	sylancl 598	. . . . . . . . . . 11 ⊢ (𝜑 → ((log‘𝑇) + 1) = (1 + (log‘𝑇)))
218	212, 214, 217	3eqtr4d 2805	. . . . . . . . . 10 ⊢ (𝜑 → (((log‘𝐴) + 1) − (log‘(𝐴 / 𝑇))) = ((log‘𝑇) + 1))
219	218	adantr 486	. . . . . . . . 9 ⊢ ((𝜑 ∧ 1 ≤ 𝐴) → (((log‘𝐴) + 1) − (log‘(𝐴 / 𝑇))) = ((log‘𝑇) + 1))
220	208, 219	breqtrd 5131	. . . . . . . 8 ⊢ ((𝜑 ∧ 1 ≤ 𝐴) → (Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) − Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) ≤ ((log‘𝑇) + 1))
221	195, 220, 54, 20	ltlecasei 11342	. . . . . . 7 ⊢ (𝜑 → (Σ𝑛 ∈ (1...(⌊‘𝐴))(1 / 𝑛) − Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))(1 / 𝑛)) ≤ ((log‘𝑇) + 1))
222	160, 221	eqbrtrrd 5129	. . . . . 6 ⊢ (𝜑 → Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛) ≤ ((log‘𝑇) + 1))
223		lemul2a 12094	. . . . . 6 ⊢ (((Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛) ∈ ℝ ∧ ((log‘𝑇) + 1) ∈ ℝ ∧ (𝑅 ∈ ℝ ∧ 0 ≤ 𝑅)) ∧ Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛) ≤ ((log‘𝑇) + 1)) → (𝑅 · Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛)) ≤ (𝑅 · ((log‘𝑇) + 1)))
224	112, 27, 15, 222, 223	syl31anc 1400	. . . . 5 ⊢ (𝜑 → (𝑅 · Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))(1 / 𝑛)) ≤ (𝑅 · ((log‘𝑇) + 1)))
225	80, 113, 28, 152, 224	letrd 11391	. . . 4 ⊢ (𝜑 → Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))((abs‘𝐵) / 𝑛) ≤ (𝑅 · ((log‘𝑇) + 1)))
226	74, 80, 14, 28, 109, 225	le2addd 11857	. . 3 ⊢ (𝜑 → (Σ𝑛 ∈ (1...(⌊‘(𝐴 / 𝑇)))((abs‘𝐵) / 𝑛) + Σ𝑛 ∈ (((⌊‘(𝐴 / 𝑇)) + 1)...(⌊‘𝐴))((abs‘𝐵) / 𝑛)) ≤ (Σ𝑛 ∈ (1...(⌊‘𝐴))𝐶 + (𝑅 · ((log‘𝑇) + 1))))
227	68, 226	eqbrtrd 5127	. 2 ⊢ (𝜑 → Σ𝑛 ∈ (1...(⌊‘𝐴))((abs‘𝐵) / 𝑛) ≤ (Σ𝑛 ∈ (1...(⌊‘𝐴))𝐶 + (𝑅 · ((log‘𝑇) + 1))))
228	9, 12, 29, 39, 227	letrd 11391	1 ⊢ (𝜑 → (abs‘Σ𝑛 ∈ (1...(⌊‘𝐴))(𝐵 / 𝑛)) ≤ (Σ𝑛 ∈ (1...(⌊‘𝐴))𝐶 + (𝑅 · ((log‘𝑇) + 1))))

Colors of variables: wff setvar class

This proof depends on syntax axioms: ¬ wn 3 → wi 4 ↔ wb 209 ∧ wa 401 = wceq 1570 ∈ wcel 2145 ∪ cun 3897 ∩ cin 3898 ∅c0 4279 class class class wbr 5103 ‘cfv 6533 (class class class)co 7413 ℂcc 11122 ℝcr 11123 0cc0 11124 1c1 11125 + caddc 11127 · cmul 11129 < clt 11267 ≤ cle 11268 − cmin 11465 / cdiv 11895 ℕcn 12257 ℕ₀cn0 12528 ℤcz 12615 ℤ_≥cuz 12887 ℝ⁺crp 13042 ...cfz 13561 ⌊cfl 13851 abscabs 15321 Σcsu 15773 logclog 26791

This proof depends on axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1828 ax-4 1842 ax-5 1943 ax-6 2000 ax-7 2041 ax-8 2147 ax-9 2155 ax-10 2178 ax-11 2194 ax-12 2213 ax-ext 2732 ax-rep 5232 ax-sep 5251 ax-nul 5263 ax-pow 5330 ax-pr 5398 ax-un 7736 ax-inf2 9620 ax-cnex 11180 ax-resscn 11181 ax-1cn 11182 ax-icn 11183 ax-addcl 11184 ax-addrcl 11185 ax-mulcl 11186 ax-mulrcl 11187 ax-mulcom 11188 ax-addass 11189 ax-mulass 11190 ax-distr 11191 ax-i2m1 11192 ax-1ne0 11193 ax-1rid 11194 ax-rnegex 11195 ax-rrecex 11196 ax-cnre 11197 ax-pre-lttri 11198 ax-pre-lttrn 11199 ax-pre-ltadd 11200 ax-pre-mulgt0 11201 ax-pre-sup 11202 ax-addf 11203

This proof depends on definitions: df-bi 210 df-an 402 df-or 862 df-3or 1104 df-3an 1105 df-tru 1573 df-fal 1583 df-ex 1813 df-nf 1817 df-sb 2100 df-mo 2564 df-eu 2594 df-clab 2739 df-cleq 2752 df-clel 2835 df-nfc 2909 df-ne 2956 df-nel 3062 df-ral 3077 df-rex 3087 df-rmo 3365 df-reu 3366 df-rab 3413 df-v 3452 df-sbc 3740 df-csb 3848 df-dif 3902 df-un 3904 df-in 3906 df-ss 3916 df-pss 3919 df-nul 4280 df-if 4483 df-pw 4559 df-sn 4585 df-pr 4587 df-tp 4589 df-op 4591 df-uni 4868 df-int 4908 df-iun 4953 df-iin 4954 df-br 5104 df-opab 5168 df-mpt 5187 df-tr 5213 df-id 5550 df-eprel 5555 df-po 5563 df-so 5564 df-fr 5608 df-se 5609 df-we 5610 df-xp 5661 df-rel 5662 df-cnv 5663 df-co 5664 df-dm 5665 df-rn 5666 df-res 5667 df-ima 5668 df-pred 6299 df-ord 6360 df-on 6361 df-lim 6362 df-suc 6363 df-iota 6489 df-fun 6535 df-fn 6536 df-f 6537 df-f1 6538 df-fo 6539 df-f1o 6540 df-fv 6541 df-isom 6542 df-riota 7370 df-ov 7416 df-oprab 7417 df-mpo 7418 df-of 7678 df-om 7863 df-1st 7986 df-2nd 7987 df-supp 8159 df-frecs 8280 df-wrecs 8311 df-recs 8360 df-rdg 8399 df-1o 8455 df-2o 8456 df-oadd 8459 df-er 8696 df-map 8828 df-pm 8829 df-ixp 8905 df-en 8953 df-dom 8954 df-sdom 8955 df-fin 8956 df-fsupp 9332 df-fi 9381 df-sup 9412 df-inf 9413 df-oi 9482 df-card 9944 df-pnf 11269 df-mnf 11270 df-xr 11271 df-ltxr 11272 df-le 11273 df-sub 11467 df-neg 11468 df-div 11896 df-nn 12258 df-2 12327 df-3 12328 df-4 12329 df-5 12330 df-6 12331 df-7 12332 df-8 12333 df-9 12334 df-n0 12529 df-xnn0 12602 df-z 12616 df-dec 12737 df-uz 12888 df-q 12998 df-rp 13043 df-xneg 13163 df-xadd 13164 df-xmul 13165 df-ioo 13402 df-ioc 13403 df-ico 13404 df-icc 13405 df-fz 13562 df-fzo 13710 df-fl 13853 df-mod 13931 df-seq 14066 df-exp 14126 df-fac 14338 df-bc 14367 df-hash 14395 df-shft 15140 df-cj 15186 df-re 15187 df-im 15188 df-sqrt 15322 df-abs 15323 df-limsup 15558 df-clim 15575 df-rlim 15576 df-sum 15774 df-ef 16153 df-e 16154 df-sin 16155 df-cos 16156 df-tan 16157 df-pi 16158 df-dvds 16343 df-struct 17239 df-sets 17256 df-slot 17274 df-ndx 17286 df-base 17302 df-ress 17323 df-plusg 17355 df-mulr 17356 df-starv 17357 df-sca 17358 df-vsca 17359 df-ip 17360 df-tset 17361 df-ple 17362 df-ds 17364 df-unif 17365 df-hom 17366 df-cco 17367 df-rest 17507 df-topn 17508 df-0g 17526 df-gsum 17527 df-topgen 17528 df-pt 17529 df-prds 17532 df-xrs 17588 df-qtop 17593 df-imas 17594 df-xps 17596 df-mre 17670 df-mrc 17671 df-acs 17673 df-mgm 18730 df-sgrp 18821 df-mnd 18837 df-submnd 18892 df-mulg 19191 df-cntz 19444 df-cmn 19909 df-psmet 21577 df-xmet 21578 df-met 21579 df-bl 21580 df-mopn 21581 df-fbas 21582 df-fg 21583 df-cnfld 21586 df-top 23119 df-topon 23136 df-topsp 23158 df-bases 23171 df-cld 23244 df-ntr 23245 df-cls 23246 df-nei 23323 df-lp 23361 df-perf 23362 df-cn 23452 df-cnp 23453 df-haus 23540 df-cmp 23612 df-tx 23788 df-hmeo 23981 df-fil 24072 df-fm 24164 df-flim 24165 df-flf 24166 df-xms 24546 df-ms 24547 df-tms 24548 df-cncf 25106 df-limc 26093 df-dv 26094 df-ulm 26613 df-log 26793 df-atan 27104 df-em 27229

This theorem is used by: dchrvmasumlem2 27734 mulog2sumlem2 27771

W3C validator