dchrvmasumiflem1 - Metamath Proof Explorer

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

Theorem dchrvmasumiflem1 25190

Description: Lemma for dchrvmasumif 25192. (Contributed by Mario Carneiro, 5-May-2016.)

**Hypotheses**
Ref	Expression
rpvmasum.z	⊢ 𝑍 = (ℤ/nℤ‘𝑁)
rpvmasum.l	⊢ 𝐿 = (ℤRHom‘𝑍)
rpvmasum.a	⊢ (𝜑 → 𝑁 ∈ ℕ)
rpvmasum.g	⊢ 𝐺 = (DChr‘𝑁)
rpvmasum.d	⊢ 𝐷 = (Base‘𝐺)
rpvmasum.1	⊢ 1 = (0_g‘𝐺)
dchrisum.b	⊢ (𝜑 → 𝑋 ∈ 𝐷)
dchrisum.n1	⊢ (𝜑 → 𝑋 ≠ 1 )
dchrvmasumif.f	⊢ 𝐹 = (𝑎 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑎)) / 𝑎))
dchrvmasumif.c	⊢ (𝜑 → 𝐶 ∈ (0[,)+∞))
dchrvmasumif.s	⊢ (𝜑 → seq1( + , 𝐹) ⇝ 𝑆)
dchrvmasumif.1	⊢ (𝜑 → ∀𝑦 ∈ (1[,)+∞)(abs‘((seq1( + , 𝐹)‘(⌊‘𝑦)) − 𝑆)) ≤ (𝐶 / 𝑦))
dchrvmasumif.g	⊢ 𝐾 = (𝑎 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑎)) · ((log‘𝑎) / 𝑎)))
dchrvmasumif.e	⊢ (𝜑 → 𝐸 ∈ (0[,)+∞))
dchrvmasumif.t	⊢ (𝜑 → seq1( + , 𝐾) ⇝ 𝑇)
dchrvmasumif.2	⊢ (𝜑 → ∀𝑦 ∈ (3[,)+∞)(abs‘((seq1( + , 𝐾)‘(⌊‘𝑦)) − 𝑇)) ≤ (𝐸 · ((log‘𝑦) / 𝑦)))

**Assertion**
Ref	Expression
dchrvmasumiflem1	⊢ (𝜑 → (𝑥 ∈ ℝ⁺ ↦ Σ𝑑 ∈ (1...(⌊‘𝑥))(((𝑋‘(𝐿‘𝑑)) · ((μ‘𝑑) / 𝑑)) · (Σ𝑘 ∈ (1...(⌊‘(𝑥 / 𝑑)))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, (𝑥 / 𝑑), 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇)))) ∈ 𝑂(1))

Distinct variable groups: 𝑥,𝑘,𝑦, 1 𝑥,𝑑,𝑦,𝐶 𝑘,𝑑,𝐹,𝑥,𝑦 𝑎,𝑑,𝑘,𝑥,𝑦 𝐸,𝑑,𝑥,𝑦 𝑘,𝐾,𝑦 𝑘,𝑁,𝑥,𝑦 𝜑,𝑑,𝑘,𝑥 𝑇,𝑑,𝑥,𝑦 𝑆,𝑑,𝑘,𝑥,𝑦 𝑘,𝑍,𝑥,𝑦 𝐷,𝑘,𝑥,𝑦 𝐿,𝑎,𝑑,𝑘,𝑥,𝑦 𝑋,𝑎,𝑑,𝑘,𝑥,𝑦 Allowed substitution hints: 𝜑(𝑦,𝑎) 𝐶(𝑘,𝑎) 𝐷(𝑎,𝑑) 𝑆(𝑎) 𝑇(𝑘,𝑎) 1 (𝑎,𝑑) 𝐸(𝑘,𝑎) 𝐹(𝑎) 𝐺(𝑥,𝑦,𝑘,𝑎,𝑑) 𝐾(𝑥,𝑎,𝑑) 𝑁(𝑎,𝑑) 𝑍(𝑎,𝑑)

Proof of Theorem dchrvmasumiflem1 Dummy variable 𝑚 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		rpvmasum.z	. 2 ⊢ 𝑍 = (ℤ/nℤ‘𝑁)
2		rpvmasum.l	. 2 ⊢ 𝐿 = (ℤRHom‘𝑍)
3		rpvmasum.a	. 2 ⊢ (𝜑 → 𝑁 ∈ ℕ)
4		rpvmasum.g	. 2 ⊢ 𝐺 = (DChr‘𝑁)
5		rpvmasum.d	. 2 ⊢ 𝐷 = (Base‘𝐺)
6		rpvmasum.1	. 2 ⊢ 1 = (0_g‘𝐺)
7		dchrisum.b	. 2 ⊢ (𝜑 → 𝑋 ∈ 𝐷)
8		dchrisum.n1	. 2 ⊢ (𝜑 → 𝑋 ≠ 1 )
9		fzfid 12772	. . 3 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (1...(⌊‘𝑚)) ∈ Fin)
10		simpl 473	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → 𝜑)
11		elfznn 12370	. . . . 5 ⊢ (𝑘 ∈ (1...(⌊‘𝑚)) → 𝑘 ∈ ℕ)
12	7	adantr 481	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑋 ∈ 𝐷)
13		nnz 11399	. . . . . . 7 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℤ)
14	13	adantl 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℤ)
15	4, 1, 5, 2, 12, 14	dchrzrhcl 24970	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝑋‘(𝐿‘𝑘)) ∈ ℂ)
16	10, 11, 15	syl2an 494	. . . 4 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → (𝑋‘(𝐿‘𝑘)) ∈ ℂ)
17		simpr 477	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → 𝑚 ∈ ℝ⁺)
18	11	nnrpd 11870	. . . . . . . 8 ⊢ (𝑘 ∈ (1...(⌊‘𝑚)) → 𝑘 ∈ ℝ⁺)
19		ifcl 4130	. . . . . . . 8 ⊢ ((𝑚 ∈ ℝ⁺ ∧ 𝑘 ∈ ℝ⁺) → if(𝑆 = 0, 𝑚, 𝑘) ∈ ℝ⁺)
20	17, 18, 19	syl2an 494	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → if(𝑆 = 0, 𝑚, 𝑘) ∈ ℝ⁺)
21	20	relogcld 24369	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → (log‘if(𝑆 = 0, 𝑚, 𝑘)) ∈ ℝ)
22	11	adantl 482	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → 𝑘 ∈ ℕ)
23	21, 22	nndivred 11069	. . . . 5 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) ∈ ℝ)
24	23	recnd 10068	. . . 4 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) ∈ ℂ)
25	16, 24	mulcld 10060	. . 3 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) ∈ ℂ)
26	9, 25	fsumcl 14464	. 2 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) ∈ ℂ)
27		fveq2 6191	. . . 4 ⊢ (𝑚 = (𝑥 / 𝑑) → (⌊‘𝑚) = (⌊‘(𝑥 / 𝑑)))
28	27	oveq2d 6666	. . 3 ⊢ (𝑚 = (𝑥 / 𝑑) → (1...(⌊‘𝑚)) = (1...(⌊‘(𝑥 / 𝑑))))
29		ifeq1 4090	. . . . . . 7 ⊢ (𝑚 = (𝑥 / 𝑑) → if(𝑆 = 0, 𝑚, 𝑘) = if(𝑆 = 0, (𝑥 / 𝑑), 𝑘))
30	29	fveq2d 6195	. . . . . 6 ⊢ (𝑚 = (𝑥 / 𝑑) → (log‘if(𝑆 = 0, 𝑚, 𝑘)) = (log‘if(𝑆 = 0, (𝑥 / 𝑑), 𝑘)))
31	30	oveq1d 6665	. . . . 5 ⊢ (𝑚 = (𝑥 / 𝑑) → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) = ((log‘if(𝑆 = 0, (𝑥 / 𝑑), 𝑘)) / 𝑘))
32	31	oveq2d 6666	. . . 4 ⊢ (𝑚 = (𝑥 / 𝑑) → ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) = ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, (𝑥 / 𝑑), 𝑘)) / 𝑘)))
33	32	adantr 481	. . 3 ⊢ ((𝑚 = (𝑥 / 𝑑) ∧ 𝑘 ∈ (1...(⌊‘(𝑥 / 𝑑)))) → ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) = ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, (𝑥 / 𝑑), 𝑘)) / 𝑘)))
34	28, 33	sumeq12rdv 14438	. 2 ⊢ (𝑚 = (𝑥 / 𝑑) → Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) = Σ𝑘 ∈ (1...(⌊‘(𝑥 / 𝑑)))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, (𝑥 / 𝑑), 𝑘)) / 𝑘)))
35		dchrvmasumif.c	. . 3 ⊢ (𝜑 → 𝐶 ∈ (0[,)+∞))
36		dchrvmasumif.e	. . 3 ⊢ (𝜑 → 𝐸 ∈ (0[,)+∞))
37	35, 36	ifcld 4131	. 2 ⊢ (𝜑 → if(𝑆 = 0, 𝐶, 𝐸) ∈ (0[,)+∞))
38		0cn 10032	. . 3 ⊢ 0 ∈ ℂ
39		dchrvmasumif.t	. . . 4 ⊢ (𝜑 → seq1( + , 𝐾) ⇝ 𝑇)
40		climcl 14230	. . . 4 ⊢ (seq1( + , 𝐾) ⇝ 𝑇 → 𝑇 ∈ ℂ)
41	39, 40	syl 17	. . 3 ⊢ (𝜑 → 𝑇 ∈ ℂ)
42		ifcl 4130	. . 3 ⊢ ((0 ∈ ℂ ∧ 𝑇 ∈ ℂ) → if(𝑆 = 0, 0, 𝑇) ∈ ℂ)
43	38, 41, 42	sylancr 695	. 2 ⊢ (𝜑 → if(𝑆 = 0, 0, 𝑇) ∈ ℂ)
44		nnuz 11723	. . . . . . . . 9 ⊢ ℕ = (ℤ_≥‘1)
45		1zzd 11408	. . . . . . . . 9 ⊢ (𝜑 → 1 ∈ ℤ)
46		nncn 11028	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℂ)
47	46	adantl 482	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℂ)
48		nnne0 11053	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → 𝑘 ≠ 0)
49	48	adantl 482	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ≠ 0)
50	15, 47, 49	divcld 10801	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑋‘(𝐿‘𝑘)) / 𝑘) ∈ ℂ)
51		dchrvmasumif.f	. . . . . . . . . . . 12 ⊢ 𝐹 = (𝑎 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑎)) / 𝑎))
52		fveq2 6191	. . . . . . . . . . . . . . 15 ⊢ (𝑎 = 𝑘 → (𝐿‘𝑎) = (𝐿‘𝑘))
53	52	fveq2d 6195	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑘 → (𝑋‘(𝐿‘𝑎)) = (𝑋‘(𝐿‘𝑘)))
54		id 22	. . . . . . . . . . . . . 14 ⊢ (𝑎 = 𝑘 → 𝑎 = 𝑘)
55	53, 54	oveq12d 6668	. . . . . . . . . . . . 13 ⊢ (𝑎 = 𝑘 → ((𝑋‘(𝐿‘𝑎)) / 𝑎) = ((𝑋‘(𝐿‘𝑘)) / 𝑘))
56	55	cbvmptv 4750	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑎)) / 𝑎)) = (𝑘 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑘)) / 𝑘))
57	51, 56	eqtri 2644	. . . . . . . . . . 11 ⊢ 𝐹 = (𝑘 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑘)) / 𝑘))
58	50, 57	fmptd 6385	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹:ℕ⟶ℂ)
59		ffvelrn 6357	. . . . . . . . . 10 ⊢ ((𝐹:ℕ⟶ℂ ∧ 𝑘 ∈ ℕ) → (𝐹‘𝑘) ∈ ℂ)
60	58, 59	sylan 488	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (𝐹‘𝑘) ∈ ℂ)
61	44, 45, 60	serf 12829	. . . . . . . 8 ⊢ (𝜑 → seq1( + , 𝐹):ℕ⟶ℂ)
62	61	ad2antrr 762	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → seq1( + , 𝐹):ℕ⟶ℂ)
63		3re 11094	. . . . . . . . . . 11 ⊢ 3 ∈ ℝ
64		elicopnf 12269	. . . . . . . . . . 11 ⊢ (3 ∈ ℝ → (𝑚 ∈ (3[,)+∞) ↔ (𝑚 ∈ ℝ ∧ 3 ≤ 𝑚)))
65	63, 64	mp1i 13	. . . . . . . . . 10 ⊢ (𝜑 → (𝑚 ∈ (3[,)+∞) ↔ (𝑚 ∈ ℝ ∧ 3 ≤ 𝑚)))
66	65	simprbda 653	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 𝑚 ∈ ℝ)
67		1red 10055	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 1 ∈ ℝ)
68	63	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 3 ∈ ℝ)
69		1le3 11244	. . . . . . . . . . 11 ⊢ 1 ≤ 3
70	69	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 1 ≤ 3)
71	65	simplbda 654	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 3 ≤ 𝑚)
72	67, 68, 66, 70, 71	letrd 10194	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 1 ≤ 𝑚)
73		flge1nn 12622	. . . . . . . . 9 ⊢ ((𝑚 ∈ ℝ ∧ 1 ≤ 𝑚) → (⌊‘𝑚) ∈ ℕ)
74	66, 72, 73	syl2anc 693	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → (⌊‘𝑚) ∈ ℕ)
75	74	adantr 481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (⌊‘𝑚) ∈ ℕ)
76	62, 75	ffvelrnd 6360	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (seq1( + , 𝐹)‘(⌊‘𝑚)) ∈ ℂ)
77	76	abscld 14175	. . . . 5 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚))) ∈ ℝ)
78		simpl 473	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 𝜑)
79		0red 10041	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 0 ∈ ℝ)
80		3pos 11114	. . . . . . . . . . 11 ⊢ 0 < 3
81	80	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 0 < 3)
82	79, 68, 66, 81, 71	ltletrd 10197	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 0 < 𝑚)
83	66, 82	elrpd 11869	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 𝑚 ∈ ℝ⁺)
84	78, 83	jca 554	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → (𝜑 ∧ 𝑚 ∈ ℝ⁺))
85		elrege0 12278	. . . . . . . . . 10 ⊢ (𝐶 ∈ (0[,)+∞) ↔ (𝐶 ∈ ℝ ∧ 0 ≤ 𝐶))
86	85	simplbi 476	. . . . . . . . 9 ⊢ (𝐶 ∈ (0[,)+∞) → 𝐶 ∈ ℝ)
87	35, 86	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ ℝ)
88		rerpdivcl 11861	. . . . . . . 8 ⊢ ((𝐶 ∈ ℝ ∧ 𝑚 ∈ ℝ⁺) → (𝐶 / 𝑚) ∈ ℝ)
89	87, 88	sylan 488	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (𝐶 / 𝑚) ∈ ℝ)
90	84, 89	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → (𝐶 / 𝑚) ∈ ℝ)
91	90	adantr 481	. . . . 5 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (𝐶 / 𝑚) ∈ ℝ)
92	83	relogcld 24369	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → (log‘𝑚) ∈ ℝ)
93	66, 72	logge0d 24376	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 0 ≤ (log‘𝑚))
94	92, 93	jca 554	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → ((log‘𝑚) ∈ ℝ ∧ 0 ≤ (log‘𝑚)))
95	94	adantr 481	. . . . 5 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → ((log‘𝑚) ∈ ℝ ∧ 0 ≤ (log‘𝑚)))
96		oveq2 6658	. . . . . . . 8 ⊢ (𝑆 = 0 → ((seq1( + , 𝐹)‘(⌊‘𝑚)) − 𝑆) = ((seq1( + , 𝐹)‘(⌊‘𝑚)) − 0))
97	61	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → seq1( + , 𝐹):ℕ⟶ℂ)
98	97, 74	ffvelrnd 6360	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → (seq1( + , 𝐹)‘(⌊‘𝑚)) ∈ ℂ)
99	98	subid1d 10381	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → ((seq1( + , 𝐹)‘(⌊‘𝑚)) − 0) = (seq1( + , 𝐹)‘(⌊‘𝑚)))
100	96, 99	sylan9eqr 2678	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → ((seq1( + , 𝐹)‘(⌊‘𝑚)) − 𝑆) = (seq1( + , 𝐹)‘(⌊‘𝑚)))
101	100	fveq2d 6195	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (abs‘((seq1( + , 𝐹)‘(⌊‘𝑚)) − 𝑆)) = (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚))))
102		1re 10039	. . . . . . . . . 10 ⊢ 1 ∈ ℝ
103		elicopnf 12269	. . . . . . . . . 10 ⊢ (1 ∈ ℝ → (𝑚 ∈ (1[,)+∞) ↔ (𝑚 ∈ ℝ ∧ 1 ≤ 𝑚)))
104	102, 103	ax-mp 5	. . . . . . . . 9 ⊢ (𝑚 ∈ (1[,)+∞) ↔ (𝑚 ∈ ℝ ∧ 1 ≤ 𝑚))
105	66, 72, 104	sylanbrc 698	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → 𝑚 ∈ (1[,)+∞))
106		dchrvmasumif.1	. . . . . . . . 9 ⊢ (𝜑 → ∀𝑦 ∈ (1[,)+∞)(abs‘((seq1( + , 𝐹)‘(⌊‘𝑦)) − 𝑆)) ≤ (𝐶 / 𝑦))
107	106	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → ∀𝑦 ∈ (1[,)+∞)(abs‘((seq1( + , 𝐹)‘(⌊‘𝑦)) − 𝑆)) ≤ (𝐶 / 𝑦))
108		fveq2 6191	. . . . . . . . . . . . 13 ⊢ (𝑦 = 𝑚 → (⌊‘𝑦) = (⌊‘𝑚))
109	108	fveq2d 6195	. . . . . . . . . . . 12 ⊢ (𝑦 = 𝑚 → (seq1( + , 𝐹)‘(⌊‘𝑦)) = (seq1( + , 𝐹)‘(⌊‘𝑚)))
110	109	oveq1d 6665	. . . . . . . . . . 11 ⊢ (𝑦 = 𝑚 → ((seq1( + , 𝐹)‘(⌊‘𝑦)) − 𝑆) = ((seq1( + , 𝐹)‘(⌊‘𝑚)) − 𝑆))
111	110	fveq2d 6195	. . . . . . . . . 10 ⊢ (𝑦 = 𝑚 → (abs‘((seq1( + , 𝐹)‘(⌊‘𝑦)) − 𝑆)) = (abs‘((seq1( + , 𝐹)‘(⌊‘𝑚)) − 𝑆)))
112		oveq2 6658	. . . . . . . . . 10 ⊢ (𝑦 = 𝑚 → (𝐶 / 𝑦) = (𝐶 / 𝑚))
113	111, 112	breq12d 4666	. . . . . . . . 9 ⊢ (𝑦 = 𝑚 → ((abs‘((seq1( + , 𝐹)‘(⌊‘𝑦)) − 𝑆)) ≤ (𝐶 / 𝑦) ↔ (abs‘((seq1( + , 𝐹)‘(⌊‘𝑚)) − 𝑆)) ≤ (𝐶 / 𝑚)))
114	113	rspcv 3305	. . . . . . . 8 ⊢ (𝑚 ∈ (1[,)+∞) → (∀𝑦 ∈ (1[,)+∞)(abs‘((seq1( + , 𝐹)‘(⌊‘𝑦)) − 𝑆)) ≤ (𝐶 / 𝑦) → (abs‘((seq1( + , 𝐹)‘(⌊‘𝑚)) − 𝑆)) ≤ (𝐶 / 𝑚)))
115	105, 107, 114	sylc 65	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → (abs‘((seq1( + , 𝐹)‘(⌊‘𝑚)) − 𝑆)) ≤ (𝐶 / 𝑚))
116	115	adantr 481	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (abs‘((seq1( + , 𝐹)‘(⌊‘𝑚)) − 𝑆)) ≤ (𝐶 / 𝑚))
117	101, 116	eqbrtrrd 4677	. . . . 5 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚))) ≤ (𝐶 / 𝑚))
118		lemul2a 10878	. . . . 5 ⊢ ((((abs‘(seq1( + , 𝐹)‘(⌊‘𝑚))) ∈ ℝ ∧ (𝐶 / 𝑚) ∈ ℝ ∧ ((log‘𝑚) ∈ ℝ ∧ 0 ≤ (log‘𝑚))) ∧ (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚))) ≤ (𝐶 / 𝑚)) → ((log‘𝑚) · (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚)))) ≤ ((log‘𝑚) · (𝐶 / 𝑚)))
119	77, 91, 95, 117, 118	syl31anc 1329	. . . 4 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → ((log‘𝑚) · (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚)))) ≤ ((log‘𝑚) · (𝐶 / 𝑚)))
120		iftrue 4092	. . . . . . . . . . . . . . 15 ⊢ (𝑆 = 0 → if(𝑆 = 0, 𝑚, 𝑘) = 𝑚)
121	120	fveq2d 6195	. . . . . . . . . . . . . 14 ⊢ (𝑆 = 0 → (log‘if(𝑆 = 0, 𝑚, 𝑘)) = (log‘𝑚))
122	121	oveq1d 6665	. . . . . . . . . . . . 13 ⊢ (𝑆 = 0 → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) = ((log‘𝑚) / 𝑘))
123	122	ad2antlr 763	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) = ((log‘𝑚) / 𝑘))
124	123	oveq2d 6666	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) = ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑚) / 𝑘)))
125	16	adantlr 751	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → (𝑋‘(𝐿‘𝑘)) ∈ ℂ)
126		relogcl 24322	. . . . . . . . . . . . . . 15 ⊢ (𝑚 ∈ ℝ⁺ → (log‘𝑚) ∈ ℝ)
127	126	adantl 482	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (log‘𝑚) ∈ ℝ)
128	127	recnd 10068	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (log‘𝑚) ∈ ℂ)
129	128	ad2antrr 762	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → (log‘𝑚) ∈ ℂ)
130	11	adantl 482	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → 𝑘 ∈ ℕ)
131	130	nncnd 11036	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → 𝑘 ∈ ℂ)
132	130	nnne0d 11065	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → 𝑘 ≠ 0)
133	125, 129, 131, 132	div12d 10837	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑚) / 𝑘)) = ((log‘𝑚) · ((𝑋‘(𝐿‘𝑘)) / 𝑘)))
134	124, 133	eqtrd 2656	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) = ((log‘𝑚) · ((𝑋‘(𝐿‘𝑘)) / 𝑘)))
135	134	sumeq2dv 14433	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) = Σ𝑘 ∈ (1...(⌊‘𝑚))((log‘𝑚) · ((𝑋‘(𝐿‘𝑘)) / 𝑘)))
136		iftrue 4092	. . . . . . . . . . 11 ⊢ (𝑆 = 0 → if(𝑆 = 0, 0, 𝑇) = 0)
137	136	oveq2d 6666	. . . . . . . . . 10 ⊢ (𝑆 = 0 → (Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇)) = (Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − 0))
138	26	subid1d 10381	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − 0) = Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)))
139	137, 138	sylan9eqr 2678	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → (Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇)) = Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)))
140		ovex 6678	. . . . . . . . . . . . . 14 ⊢ ((𝑋‘(𝐿‘𝑘)) / 𝑘) ∈ V
141	55, 51, 140	fvmpt 6282	. . . . . . . . . . . . 13 ⊢ (𝑘 ∈ ℕ → (𝐹‘𝑘) = ((𝑋‘(𝐿‘𝑘)) / 𝑘))
142	22, 141	syl 17	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → (𝐹‘𝑘) = ((𝑋‘(𝐿‘𝑘)) / 𝑘))
143	58	adantr 481	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → 𝐹:ℕ⟶ℂ)
144	143, 11, 59	syl2an 494	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → (𝐹‘𝑘) ∈ ℂ)
145	142, 144	eqeltrrd 2702	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → ((𝑋‘(𝐿‘𝑘)) / 𝑘) ∈ ℂ)
146	9, 128, 145	fsummulc2 14516	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → ((log‘𝑚) · Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) / 𝑘)) = Σ𝑘 ∈ (1...(⌊‘𝑚))((log‘𝑚) · ((𝑋‘(𝐿‘𝑘)) / 𝑘)))
147	146	adantr 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → ((log‘𝑚) · Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) / 𝑘)) = Σ𝑘 ∈ (1...(⌊‘𝑚))((log‘𝑚) · ((𝑋‘(𝐿‘𝑘)) / 𝑘)))
148	135, 139, 147	3eqtr4d 2666	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → (Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇)) = ((log‘𝑚) · Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) / 𝑘)))
149	84, 148	sylan 488	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇)) = ((log‘𝑚) · Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) / 𝑘)))
150	84, 142	sylan 488	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → (𝐹‘𝑘) = ((𝑋‘(𝐿‘𝑘)) / 𝑘))
151	74, 44	syl6eleq 2711	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → (⌊‘𝑚) ∈ (ℤ_≥‘1))
152	78, 11, 50	syl2an 494	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → ((𝑋‘(𝐿‘𝑘)) / 𝑘) ∈ ℂ)
153	150, 151, 152	fsumser 14461	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) / 𝑘) = (seq1( + , 𝐹)‘(⌊‘𝑚)))
154	153	adantr 481	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) / 𝑘) = (seq1( + , 𝐹)‘(⌊‘𝑚)))
155	154	oveq2d 6666	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → ((log‘𝑚) · Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) / 𝑘)) = ((log‘𝑚) · (seq1( + , 𝐹)‘(⌊‘𝑚))))
156	149, 155	eqtrd 2656	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇)) = ((log‘𝑚) · (seq1( + , 𝐹)‘(⌊‘𝑚))))
157	156	fveq2d 6195	. . . . 5 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (abs‘(Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇))) = (abs‘((log‘𝑚) · (seq1( + , 𝐹)‘(⌊‘𝑚)))))
158	126	ad2antlr 763	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → (log‘𝑚) ∈ ℝ)
159	158	recnd 10068	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → (log‘𝑚) ∈ ℂ)
160	84, 159	sylan 488	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (log‘𝑚) ∈ ℂ)
161	160, 76	absmuld 14193	. . . . 5 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (abs‘((log‘𝑚) · (seq1( + , 𝐹)‘(⌊‘𝑚)))) = ((abs‘(log‘𝑚)) · (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚)))))
162	92, 93	absidd 14161	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → (abs‘(log‘𝑚)) = (log‘𝑚))
163	162	oveq1d 6665	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → ((abs‘(log‘𝑚)) · (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚)))) = ((log‘𝑚) · (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚)))))
164	163	adantr 481	. . . . 5 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → ((abs‘(log‘𝑚)) · (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚)))) = ((log‘𝑚) · (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚)))))
165	157, 161, 164	3eqtrd 2660	. . . 4 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (abs‘(Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇))) = ((log‘𝑚) · (abs‘(seq1( + , 𝐹)‘(⌊‘𝑚)))))
166		iftrue 4092	. . . . . . . 8 ⊢ (𝑆 = 0 → if(𝑆 = 0, 𝐶, 𝐸) = 𝐶)
167	166	adantl 482	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → if(𝑆 = 0, 𝐶, 𝐸) = 𝐶)
168	167	oveq1d 6665	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → (if(𝑆 = 0, 𝐶, 𝐸) · ((log‘𝑚) / 𝑚)) = (𝐶 · ((log‘𝑚) / 𝑚)))
169	87	recnd 10068	. . . . . . . 8 ⊢ (𝜑 → 𝐶 ∈ ℂ)
170	169	ad2antrr 762	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → 𝐶 ∈ ℂ)
171		rpcnne0 11850	. . . . . . . 8 ⊢ (𝑚 ∈ ℝ⁺ → (𝑚 ∈ ℂ ∧ 𝑚 ≠ 0))
172	171	ad2antlr 763	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → (𝑚 ∈ ℂ ∧ 𝑚 ≠ 0))
173		div12 10707	. . . . . . 7 ⊢ ((𝐶 ∈ ℂ ∧ (log‘𝑚) ∈ ℂ ∧ (𝑚 ∈ ℂ ∧ 𝑚 ≠ 0)) → (𝐶 · ((log‘𝑚) / 𝑚)) = ((log‘𝑚) · (𝐶 / 𝑚)))
174	170, 159, 172, 173	syl3anc 1326	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → (𝐶 · ((log‘𝑚) / 𝑚)) = ((log‘𝑚) · (𝐶 / 𝑚)))
175	168, 174	eqtrd 2656	. . . . 5 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑆 = 0) → (if(𝑆 = 0, 𝐶, 𝐸) · ((log‘𝑚) / 𝑚)) = ((log‘𝑚) · (𝐶 / 𝑚)))
176	84, 175	sylan 488	. . . 4 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (if(𝑆 = 0, 𝐶, 𝐸) · ((log‘𝑚) / 𝑚)) = ((log‘𝑚) · (𝐶 / 𝑚)))
177	119, 165, 176	3brtr4d 4685	. . 3 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 = 0) → (abs‘(Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇))) ≤ (if(𝑆 = 0, 𝐶, 𝐸) · ((log‘𝑚) / 𝑚)))
178		dchrvmasumif.2	. . . . . 6 ⊢ (𝜑 → ∀𝑦 ∈ (3[,)+∞)(abs‘((seq1( + , 𝐾)‘(⌊‘𝑦)) − 𝑇)) ≤ (𝐸 · ((log‘𝑦) / 𝑦)))
179	108	fveq2d 6195	. . . . . . . . . 10 ⊢ (𝑦 = 𝑚 → (seq1( + , 𝐾)‘(⌊‘𝑦)) = (seq1( + , 𝐾)‘(⌊‘𝑚)))
180	179	oveq1d 6665	. . . . . . . . 9 ⊢ (𝑦 = 𝑚 → ((seq1( + , 𝐾)‘(⌊‘𝑦)) − 𝑇) = ((seq1( + , 𝐾)‘(⌊‘𝑚)) − 𝑇))
181	180	fveq2d 6195	. . . . . . . 8 ⊢ (𝑦 = 𝑚 → (abs‘((seq1( + , 𝐾)‘(⌊‘𝑦)) − 𝑇)) = (abs‘((seq1( + , 𝐾)‘(⌊‘𝑚)) − 𝑇)))
182		fveq2 6191	. . . . . . . . . 10 ⊢ (𝑦 = 𝑚 → (log‘𝑦) = (log‘𝑚))
183		id 22	. . . . . . . . . 10 ⊢ (𝑦 = 𝑚 → 𝑦 = 𝑚)
184	182, 183	oveq12d 6668	. . . . . . . . 9 ⊢ (𝑦 = 𝑚 → ((log‘𝑦) / 𝑦) = ((log‘𝑚) / 𝑚))
185	184	oveq2d 6666	. . . . . . . 8 ⊢ (𝑦 = 𝑚 → (𝐸 · ((log‘𝑦) / 𝑦)) = (𝐸 · ((log‘𝑚) / 𝑚)))
186	181, 185	breq12d 4666	. . . . . . 7 ⊢ (𝑦 = 𝑚 → ((abs‘((seq1( + , 𝐾)‘(⌊‘𝑦)) − 𝑇)) ≤ (𝐸 · ((log‘𝑦) / 𝑦)) ↔ (abs‘((seq1( + , 𝐾)‘(⌊‘𝑚)) − 𝑇)) ≤ (𝐸 · ((log‘𝑚) / 𝑚))))
187	186	rspccva 3308	. . . . . 6 ⊢ ((∀𝑦 ∈ (3[,)+∞)(abs‘((seq1( + , 𝐾)‘(⌊‘𝑦)) − 𝑇)) ≤ (𝐸 · ((log‘𝑦) / 𝑦)) ∧ 𝑚 ∈ (3[,)+∞)) → (abs‘((seq1( + , 𝐾)‘(⌊‘𝑚)) − 𝑇)) ≤ (𝐸 · ((log‘𝑚) / 𝑚)))
188	178, 187	sylan 488	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → (abs‘((seq1( + , 𝐾)‘(⌊‘𝑚)) − 𝑇)) ≤ (𝐸 · ((log‘𝑚) / 𝑚)))
189	188	adantr 481	. . . 4 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → (abs‘((seq1( + , 𝐾)‘(⌊‘𝑚)) − 𝑇)) ≤ (𝐸 · ((log‘𝑚) / 𝑚)))
190		fveq2 6191	. . . . . . . . . . . 12 ⊢ (𝑎 = 𝑘 → (log‘𝑎) = (log‘𝑘))
191	190, 54	oveq12d 6668	. . . . . . . . . . 11 ⊢ (𝑎 = 𝑘 → ((log‘𝑎) / 𝑎) = ((log‘𝑘) / 𝑘))
192	53, 191	oveq12d 6668	. . . . . . . . . 10 ⊢ (𝑎 = 𝑘 → ((𝑋‘(𝐿‘𝑎)) · ((log‘𝑎) / 𝑎)) = ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑘) / 𝑘)))
193		dchrvmasumif.g	. . . . . . . . . 10 ⊢ 𝐾 = (𝑎 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑎)) · ((log‘𝑎) / 𝑎)))
194		ovex 6678	. . . . . . . . . 10 ⊢ ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑘) / 𝑘)) ∈ V
195	192, 193, 194	fvmpt 6282	. . . . . . . . 9 ⊢ (𝑘 ∈ ℕ → (𝐾‘𝑘) = ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑘) / 𝑘)))
196	11, 195	syl 17	. . . . . . . 8 ⊢ (𝑘 ∈ (1...(⌊‘𝑚)) → (𝐾‘𝑘) = ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑘) / 𝑘)))
197		ifnefalse 4098	. . . . . . . . . . . . 13 ⊢ (𝑆 ≠ 0 → if(𝑆 = 0, 𝑚, 𝑘) = 𝑘)
198	197	fveq2d 6195	. . . . . . . . . . . 12 ⊢ (𝑆 ≠ 0 → (log‘if(𝑆 = 0, 𝑚, 𝑘)) = (log‘𝑘))
199	198	oveq1d 6665	. . . . . . . . . . 11 ⊢ (𝑆 ≠ 0 → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) = ((log‘𝑘) / 𝑘))
200	199	oveq2d 6666	. . . . . . . . . 10 ⊢ (𝑆 ≠ 0 → ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) = ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑘) / 𝑘)))
201	200	adantl 482	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) = ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑘) / 𝑘)))
202	201	eqcomd 2628	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑘) / 𝑘)) = ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)))
203	196, 202	sylan9eqr 2678	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → (𝐾‘𝑘) = ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)))
204	151	adantr 481	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → (⌊‘𝑚) ∈ (ℤ_≥‘1))
205		nnrp 11842	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ ℕ → 𝑘 ∈ ℝ⁺)
206	205	adantl 482	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → 𝑘 ∈ ℝ⁺)
207	206	relogcld 24369	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (log‘𝑘) ∈ ℝ)
208	207	recnd 10068	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → (log‘𝑘) ∈ ℂ)
209	208, 47, 49	divcld 10801	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((log‘𝑘) / 𝑘) ∈ ℂ)
210	15, 209	mulcld 10060	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑘 ∈ ℕ) → ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑘) / 𝑘)) ∈ ℂ)
211	192	cbvmptv 4750	. . . . . . . . . . . 12 ⊢ (𝑎 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑎)) · ((log‘𝑎) / 𝑎))) = (𝑘 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑘) / 𝑘)))
212	193, 211	eqtri 2644	. . . . . . . . . . 11 ⊢ 𝐾 = (𝑘 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑘)) · ((log‘𝑘) / 𝑘)))
213	210, 212	fmptd 6385	. . . . . . . . . 10 ⊢ (𝜑 → 𝐾:ℕ⟶ℂ)
214	213	ad2antrr 762	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → 𝐾:ℕ⟶ℂ)
215		ffvelrn 6357	. . . . . . . . 9 ⊢ ((𝐾:ℕ⟶ℂ ∧ 𝑘 ∈ ℕ) → (𝐾‘𝑘) ∈ ℂ)
216	214, 11, 215	syl2an 494	. . . . . . . 8 ⊢ ((((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → (𝐾‘𝑘) ∈ ℂ)
217	203, 216	eqeltrrd 2702	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) ∈ ℂ)
218	203, 204, 217	fsumser 14461	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) = (seq1( + , 𝐾)‘(⌊‘𝑚)))
219		ifnefalse 4098	. . . . . . 7 ⊢ (𝑆 ≠ 0 → if(𝑆 = 0, 0, 𝑇) = 𝑇)
220	219	adantl 482	. . . . . 6 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → if(𝑆 = 0, 0, 𝑇) = 𝑇)
221	218, 220	oveq12d 6668	. . . . 5 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → (Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇)) = ((seq1( + , 𝐾)‘(⌊‘𝑚)) − 𝑇))
222	221	fveq2d 6195	. . . 4 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → (abs‘(Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇))) = (abs‘((seq1( + , 𝐾)‘(⌊‘𝑚)) − 𝑇)))
223		ifnefalse 4098	. . . . . 6 ⊢ (𝑆 ≠ 0 → if(𝑆 = 0, 𝐶, 𝐸) = 𝐸)
224	223	adantl 482	. . . . 5 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → if(𝑆 = 0, 𝐶, 𝐸) = 𝐸)
225	224	oveq1d 6665	. . . 4 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → (if(𝑆 = 0, 𝐶, 𝐸) · ((log‘𝑚) / 𝑚)) = (𝐸 · ((log‘𝑚) / 𝑚)))
226	189, 222, 225	3brtr4d 4685	. . 3 ⊢ (((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) ∧ 𝑆 ≠ 0) → (abs‘(Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇))) ≤ (if(𝑆 = 0, 𝐶, 𝐸) · ((log‘𝑚) / 𝑚)))
227	177, 226	pm2.61dane 2881	. 2 ⊢ ((𝜑 ∧ 𝑚 ∈ (3[,)+∞)) → (abs‘(Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇))) ≤ (if(𝑆 = 0, 𝐶, 𝐸) · ((log‘𝑚) / 𝑚)))
228		fzfid 12772	. . . 4 ⊢ (𝜑 → (1...2) ∈ Fin)
229	7	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...2)) → 𝑋 ∈ 𝐷)
230		elfzelz 12342	. . . . . . . 8 ⊢ (𝑘 ∈ (1...2) → 𝑘 ∈ ℤ)
231	230	adantl 482	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...2)) → 𝑘 ∈ ℤ)
232	4, 1, 5, 2, 229, 231	dchrzrhcl 24970	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...2)) → (𝑋‘(𝐿‘𝑘)) ∈ ℂ)
233	232	abscld 14175	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...2)) → (abs‘(𝑋‘(𝐿‘𝑘))) ∈ ℝ)
234	63, 80	elrpii 11835	. . . . . . 7 ⊢ 3 ∈ ℝ⁺
235		relogcl 24322	. . . . . . 7 ⊢ (3 ∈ ℝ⁺ → (log‘3) ∈ ℝ)
236	234, 235	ax-mp 5	. . . . . 6 ⊢ (log‘3) ∈ ℝ
237		elfznn 12370	. . . . . . 7 ⊢ (𝑘 ∈ (1...2) → 𝑘 ∈ ℕ)
238	237	adantl 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...2)) → 𝑘 ∈ ℕ)
239		nndivre 11056	. . . . . 6 ⊢ (((log‘3) ∈ ℝ ∧ 𝑘 ∈ ℕ) → ((log‘3) / 𝑘) ∈ ℝ)
240	236, 238, 239	sylancr 695	. . . . 5 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...2)) → ((log‘3) / 𝑘) ∈ ℝ)
241	233, 240	remulcld 10070	. . . 4 ⊢ ((𝜑 ∧ 𝑘 ∈ (1...2)) → ((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) ∈ ℝ)
242	228, 241	fsumrecl 14465	. . 3 ⊢ (𝜑 → Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) ∈ ℝ)
243	43	abscld 14175	. . 3 ⊢ (𝜑 → (abs‘if(𝑆 = 0, 0, 𝑇)) ∈ ℝ)
244	242, 243	readdcld 10069	. 2 ⊢ (𝜑 → (Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) + (abs‘if(𝑆 = 0, 0, 𝑇))) ∈ ℝ)
245		simpl 473	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → 𝜑)
246	63	rexri 10097	. . . . . . . . . . 11 ⊢ 3 ∈ ℝ^*
247		elico2 12237	. . . . . . . . . . 11 ⊢ ((1 ∈ ℝ ∧ 3 ∈ ℝ^*) → (𝑚 ∈ (1[,)3) ↔ (𝑚 ∈ ℝ ∧ 1 ≤ 𝑚 ∧ 𝑚 < 3)))
248	102, 246, 247	mp2an 708	. . . . . . . . . 10 ⊢ (𝑚 ∈ (1[,)3) ↔ (𝑚 ∈ ℝ ∧ 1 ≤ 𝑚 ∧ 𝑚 < 3))
249	248	simp1bi 1076	. . . . . . . . 9 ⊢ (𝑚 ∈ (1[,)3) → 𝑚 ∈ ℝ)
250	249	adantl 482	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → 𝑚 ∈ ℝ)
251		0red 10041	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → 0 ∈ ℝ)
252		1red 10055	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → 1 ∈ ℝ)
253		0lt1 10550	. . . . . . . . . 10 ⊢ 0 < 1
254	253	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → 0 < 1)
255	248	simp2bi 1077	. . . . . . . . . 10 ⊢ (𝑚 ∈ (1[,)3) → 1 ≤ 𝑚)
256	255	adantl 482	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → 1 ≤ 𝑚)
257	251, 252, 250, 254, 256	ltletrd 10197	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → 0 < 𝑚)
258	250, 257	elrpd 11869	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → 𝑚 ∈ ℝ⁺)
259	245, 258	jca 554	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (𝜑 ∧ 𝑚 ∈ ℝ⁺))
260	43	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → if(𝑆 = 0, 0, 𝑇) ∈ ℂ)
261	26, 260	subcld 10392	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇)) ∈ ℂ)
262	259, 261	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇)) ∈ ℂ)
263	262	abscld 14175	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (abs‘(Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇))) ∈ ℝ)
264	259, 26	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) ∈ ℂ)
265	264	abscld 14175	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ∈ ℝ)
266	243	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (abs‘if(𝑆 = 0, 0, 𝑇)) ∈ ℝ)
267	265, 266	readdcld 10069	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → ((abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) + (abs‘if(𝑆 = 0, 0, 𝑇))) ∈ ℝ)
268	242	adantr 481	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) ∈ ℝ)
269	268, 266	readdcld 10069	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) + (abs‘if(𝑆 = 0, 0, 𝑇))) ∈ ℝ)
270	26, 260	abs2dif2d 14197	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (abs‘(Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇))) ≤ ((abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) + (abs‘if(𝑆 = 0, 0, 𝑇))))
271	259, 270	syl 17	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (abs‘(Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇))) ≤ ((abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) + (abs‘if(𝑆 = 0, 0, 𝑇))))
272	25	abscld 14175	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...(⌊‘𝑚))) → (abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ∈ ℝ)
273	9, 272	fsumrecl 14465	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → Σ𝑘 ∈ (1...(⌊‘𝑚))(abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ∈ ℝ)
274	259, 273	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → Σ𝑘 ∈ (1...(⌊‘𝑚))(abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ∈ ℝ)
275	9, 25	fsumabs 14533	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ≤ Σ𝑘 ∈ (1...(⌊‘𝑚))(abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))))
276	259, 275	syl 17	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ≤ Σ𝑘 ∈ (1...(⌊‘𝑚))(abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))))
277		fzfid 12772	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (1...2) ∈ Fin)
278	232	adantlr 751	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → (𝑋‘(𝐿‘𝑘)) ∈ ℂ)
279	17	adantr 481	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → 𝑚 ∈ ℝ⁺)
280	237	adantl 482	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → 𝑘 ∈ ℕ)
281	280	nnrpd 11870	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → 𝑘 ∈ ℝ⁺)
282	279, 281	ifcld 4131	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → if(𝑆 = 0, 𝑚, 𝑘) ∈ ℝ⁺)
283	282	relogcld 24369	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → (log‘if(𝑆 = 0, 𝑚, 𝑘)) ∈ ℝ)
284	283, 280	nndivred 11069	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) ∈ ℝ)
285	284	recnd 10068	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) ∈ ℂ)
286	278, 285	mulcld 10060	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) ∈ ℂ)
287	286	abscld 14175	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → (abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ∈ ℝ)
288	277, 287	fsumrecl 14465	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → Σ𝑘 ∈ (1...2)(abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ∈ ℝ)
289	259, 288	syl 17	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → Σ𝑘 ∈ (1...2)(abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ∈ ℝ)
290		fzfid 12772	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (1...2) ∈ Fin)
291	259, 286	sylan 488	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → ((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) ∈ ℂ)
292	291	abscld 14175	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ∈ ℝ)
293	291	absge0d 14183	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → 0 ≤ (abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))))
294	250	flcld 12599	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (⌊‘𝑚) ∈ ℤ)
295		2z 11409	. . . . . . . . . . 11 ⊢ 2 ∈ ℤ
296	295	a1i 11	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → 2 ∈ ℤ)
297	248	simp3bi 1078	. . . . . . . . . . . . . 14 ⊢ (𝑚 ∈ (1[,)3) → 𝑚 < 3)
298	297	adantl 482	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → 𝑚 < 3)
299		3z 11410	. . . . . . . . . . . . . 14 ⊢ 3 ∈ ℤ
300		fllt 12607	. . . . . . . . . . . . . 14 ⊢ ((𝑚 ∈ ℝ ∧ 3 ∈ ℤ) → (𝑚 < 3 ↔ (⌊‘𝑚) < 3))
301	250, 299, 300	sylancl 694	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (𝑚 < 3 ↔ (⌊‘𝑚) < 3))
302	298, 301	mpbid 222	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (⌊‘𝑚) < 3)
303		df-3 11080	. . . . . . . . . . . 12 ⊢ 3 = (2 + 1)
304	302, 303	syl6breq 4694	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (⌊‘𝑚) < (2 + 1))
305		rpre 11839	. . . . . . . . . . . . . . 15 ⊢ (𝑚 ∈ ℝ⁺ → 𝑚 ∈ ℝ)
306	305	adantl 482	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → 𝑚 ∈ ℝ)
307	306	flcld 12599	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (⌊‘𝑚) ∈ ℤ)
308		zleltp1 11428	. . . . . . . . . . . . 13 ⊢ (((⌊‘𝑚) ∈ ℤ ∧ 2 ∈ ℤ) → ((⌊‘𝑚) ≤ 2 ↔ (⌊‘𝑚) < (2 + 1)))
309	307, 295, 308	sylancl 694	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → ((⌊‘𝑚) ≤ 2 ↔ (⌊‘𝑚) < (2 + 1)))
310	259, 309	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → ((⌊‘𝑚) ≤ 2 ↔ (⌊‘𝑚) < (2 + 1)))
311	304, 310	mpbird 247	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (⌊‘𝑚) ≤ 2)
312		eluz2 11693	. . . . . . . . . 10 ⊢ (2 ∈ (ℤ_≥‘(⌊‘𝑚)) ↔ ((⌊‘𝑚) ∈ ℤ ∧ 2 ∈ ℤ ∧ (⌊‘𝑚) ≤ 2))
313	294, 296, 311, 312	syl3anbrc 1246	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → 2 ∈ (ℤ_≥‘(⌊‘𝑚)))
314		fzss2 12381	. . . . . . . . 9 ⊢ (2 ∈ (ℤ_≥‘(⌊‘𝑚)) → (1...(⌊‘𝑚)) ⊆ (1...2))
315	313, 314	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (1...(⌊‘𝑚)) ⊆ (1...2))
316	290, 292, 293, 315	fsumless 14528	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → Σ𝑘 ∈ (1...(⌊‘𝑚))(abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ≤ Σ𝑘 ∈ (1...2)(abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))))
317	241	adantlr 751	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → ((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) ∈ ℝ)
318	278, 285	absmuld 14193	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → (abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) = ((abs‘(𝑋‘(𝐿‘𝑘))) · (abs‘((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))))
319	259, 318	sylan 488	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) = ((abs‘(𝑋‘(𝐿‘𝑘))) · (abs‘((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))))
320	259, 284	sylan 488	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) ∈ ℝ)
321	259, 283	sylan 488	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (log‘if(𝑆 = 0, 𝑚, 𝑘)) ∈ ℝ)
322		log1 24332	. . . . . . . . . . . . . 14 ⊢ (log‘1) = 0
323		elfzle1 12344	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 ∈ (1...2) → 1 ≤ 𝑘)
324		breq2 4657	. . . . . . . . . . . . . . . . 17 ⊢ (𝑚 = if(𝑆 = 0, 𝑚, 𝑘) → (1 ≤ 𝑚 ↔ 1 ≤ if(𝑆 = 0, 𝑚, 𝑘)))
325		breq2 4657	. . . . . . . . . . . . . . . . 17 ⊢ (𝑘 = if(𝑆 = 0, 𝑚, 𝑘) → (1 ≤ 𝑘 ↔ 1 ≤ if(𝑆 = 0, 𝑚, 𝑘)))
326	324, 325	ifboth 4124	. . . . . . . . . . . . . . . 16 ⊢ ((1 ≤ 𝑚 ∧ 1 ≤ 𝑘) → 1 ≤ if(𝑆 = 0, 𝑚, 𝑘))
327	256, 323, 326	syl2an 494	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → 1 ≤ if(𝑆 = 0, 𝑚, 𝑘))
328		1rp 11836	. . . . . . . . . . . . . . . . 17 ⊢ 1 ∈ ℝ⁺
329		logleb 24349	. . . . . . . . . . . . . . . . 17 ⊢ ((1 ∈ ℝ⁺ ∧ if(𝑆 = 0, 𝑚, 𝑘) ∈ ℝ⁺) → (1 ≤ if(𝑆 = 0, 𝑚, 𝑘) ↔ (log‘1) ≤ (log‘if(𝑆 = 0, 𝑚, 𝑘))))
330	328, 282, 329	sylancr 695	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → (1 ≤ if(𝑆 = 0, 𝑚, 𝑘) ↔ (log‘1) ≤ (log‘if(𝑆 = 0, 𝑚, 𝑘))))
331	259, 330	sylan 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (1 ≤ if(𝑆 = 0, 𝑚, 𝑘) ↔ (log‘1) ≤ (log‘if(𝑆 = 0, 𝑚, 𝑘))))
332	327, 331	mpbid 222	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (log‘1) ≤ (log‘if(𝑆 = 0, 𝑚, 𝑘)))
333	322, 332	syl5eqbrr 4689	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → 0 ≤ (log‘if(𝑆 = 0, 𝑚, 𝑘)))
334	281	rpregt0d 11878	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → (𝑘 ∈ ℝ ∧ 0 < 𝑘))
335	259, 334	sylan 488	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (𝑘 ∈ ℝ ∧ 0 < 𝑘))
336		divge0 10892	. . . . . . . . . . . . 13 ⊢ ((((log‘if(𝑆 = 0, 𝑚, 𝑘)) ∈ ℝ ∧ 0 ≤ (log‘if(𝑆 = 0, 𝑚, 𝑘))) ∧ (𝑘 ∈ ℝ ∧ 0 < 𝑘)) → 0 ≤ ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))
337	321, 333, 335, 336	syl21anc 1325	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → 0 ≤ ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))
338	320, 337	absidd 14161	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (abs‘((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) = ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))
339	338, 320	eqeltrd 2701	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (abs‘((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) ∈ ℝ)
340	240	adantlr 751	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → ((log‘3) / 𝑘) ∈ ℝ)
341	233	adantlr 751	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → (abs‘(𝑋‘(𝐿‘𝑘))) ∈ ℝ)
342	278	absge0d 14183	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → 0 ≤ (abs‘(𝑋‘(𝐿‘𝑘))))
343	341, 342	jca 554	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → ((abs‘(𝑋‘(𝐿‘𝑘))) ∈ ℝ ∧ 0 ≤ (abs‘(𝑋‘(𝐿‘𝑘)))))
344	259, 343	sylan 488	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → ((abs‘(𝑋‘(𝐿‘𝑘))) ∈ ℝ ∧ 0 ≤ (abs‘(𝑋‘(𝐿‘𝑘)))))
345	297	ad2antlr 763	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → 𝑚 < 3)
346	280	nnred 11035	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → 𝑘 ∈ ℝ)
347		2re 11090	. . . . . . . . . . . . . . . . . 18 ⊢ 2 ∈ ℝ
348	347	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → 2 ∈ ℝ)
349	63	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → 3 ∈ ℝ)
350		elfzle2 12345	. . . . . . . . . . . . . . . . . 18 ⊢ (𝑘 ∈ (1...2) → 𝑘 ≤ 2)
351	350	adantl 482	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → 𝑘 ≤ 2)
352		2lt3 11195	. . . . . . . . . . . . . . . . . 18 ⊢ 2 < 3
353	352	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → 2 < 3)
354	346, 348, 349, 351, 353	lelttrd 10195	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → 𝑘 < 3)
355	259, 354	sylan 488	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → 𝑘 < 3)
356		breq1 4656	. . . . . . . . . . . . . . . 16 ⊢ (𝑚 = if(𝑆 = 0, 𝑚, 𝑘) → (𝑚 < 3 ↔ if(𝑆 = 0, 𝑚, 𝑘) < 3))
357		breq1 4656	. . . . . . . . . . . . . . . 16 ⊢ (𝑘 = if(𝑆 = 0, 𝑚, 𝑘) → (𝑘 < 3 ↔ if(𝑆 = 0, 𝑚, 𝑘) < 3))
358	356, 357	ifboth 4124	. . . . . . . . . . . . . . 15 ⊢ ((𝑚 < 3 ∧ 𝑘 < 3) → if(𝑆 = 0, 𝑚, 𝑘) < 3)
359	345, 355, 358	syl2anc 693	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → if(𝑆 = 0, 𝑚, 𝑘) < 3)
360	282	rpred 11872	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → if(𝑆 = 0, 𝑚, 𝑘) ∈ ℝ)
361		ltle 10126	. . . . . . . . . . . . . . . 16 ⊢ ((if(𝑆 = 0, 𝑚, 𝑘) ∈ ℝ ∧ 3 ∈ ℝ) → (if(𝑆 = 0, 𝑚, 𝑘) < 3 → if(𝑆 = 0, 𝑚, 𝑘) ≤ 3))
362	360, 63, 361	sylancl 694	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → (if(𝑆 = 0, 𝑚, 𝑘) < 3 → if(𝑆 = 0, 𝑚, 𝑘) ≤ 3))
363	259, 362	sylan 488	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (if(𝑆 = 0, 𝑚, 𝑘) < 3 → if(𝑆 = 0, 𝑚, 𝑘) ≤ 3))
364	359, 363	mpd 15	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → if(𝑆 = 0, 𝑚, 𝑘) ≤ 3)
365		logleb 24349	. . . . . . . . . . . . . . 15 ⊢ ((if(𝑆 = 0, 𝑚, 𝑘) ∈ ℝ⁺ ∧ 3 ∈ ℝ⁺) → (if(𝑆 = 0, 𝑚, 𝑘) ≤ 3 ↔ (log‘if(𝑆 = 0, 𝑚, 𝑘)) ≤ (log‘3)))
366	282, 234, 365	sylancl 694	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → (if(𝑆 = 0, 𝑚, 𝑘) ≤ 3 ↔ (log‘if(𝑆 = 0, 𝑚, 𝑘)) ≤ (log‘3)))
367	259, 366	sylan 488	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (if(𝑆 = 0, 𝑚, 𝑘) ≤ 3 ↔ (log‘if(𝑆 = 0, 𝑚, 𝑘)) ≤ (log‘3)))
368	364, 367	mpbid 222	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (log‘if(𝑆 = 0, 𝑚, 𝑘)) ≤ (log‘3))
369	236	a1i 11	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → (log‘3) ∈ ℝ)
370	283, 369, 281	lediv1d 11918	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑚 ∈ ℝ⁺) ∧ 𝑘 ∈ (1...2)) → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) ≤ (log‘3) ↔ ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) ≤ ((log‘3) / 𝑘)))
371	259, 370	sylan 488	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) ≤ (log‘3) ↔ ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) ≤ ((log‘3) / 𝑘)))
372	368, 371	mpbid 222	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘) ≤ ((log‘3) / 𝑘))
373	338, 372	eqbrtrd 4675	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (abs‘((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) ≤ ((log‘3) / 𝑘))
374		lemul2a 10878	. . . . . . . . . 10 ⊢ ((((abs‘((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) ∈ ℝ ∧ ((log‘3) / 𝑘) ∈ ℝ ∧ ((abs‘(𝑋‘(𝐿‘𝑘))) ∈ ℝ ∧ 0 ≤ (abs‘(𝑋‘(𝐿‘𝑘))))) ∧ (abs‘((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) ≤ ((log‘3) / 𝑘)) → ((abs‘(𝑋‘(𝐿‘𝑘))) · (abs‘((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ≤ ((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)))
375	339, 340, 344, 373, 374	syl31anc 1329	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → ((abs‘(𝑋‘(𝐿‘𝑘))) · (abs‘((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ≤ ((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)))
376	319, 375	eqbrtrd 4675	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑚 ∈ (1[,)3)) ∧ 𝑘 ∈ (1...2)) → (abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ≤ ((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)))
377	290, 292, 317, 376	fsumle 14531	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → Σ𝑘 ∈ (1...2)(abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ≤ Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)))
378	274, 289, 268, 316, 377	letrd 10194	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → Σ𝑘 ∈ (1...(⌊‘𝑚))(abs‘((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ≤ Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)))
379	265, 274, 268, 276, 378	letrd 10194	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ≤ Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)))
380	26	abscld 14175	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ∈ ℝ)
381	242	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) ∈ ℝ)
382	260	abscld 14175	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → (abs‘if(𝑆 = 0, 0, 𝑇)) ∈ ℝ)
383	380, 381, 382	leadd1d 10621	. . . . . 6 ⊢ ((𝜑 ∧ 𝑚 ∈ ℝ⁺) → ((abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ≤ Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) ↔ ((abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) + (abs‘if(𝑆 = 0, 0, 𝑇))) ≤ (Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) + (abs‘if(𝑆 = 0, 0, 𝑇)))))
384	259, 383	syl 17	. . . . 5 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → ((abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) ≤ Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) ↔ ((abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) + (abs‘if(𝑆 = 0, 0, 𝑇))) ≤ (Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) + (abs‘if(𝑆 = 0, 0, 𝑇)))))
385	379, 384	mpbid 222	. . . 4 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → ((abs‘Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘))) + (abs‘if(𝑆 = 0, 0, 𝑇))) ≤ (Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) + (abs‘if(𝑆 = 0, 0, 𝑇))))
386	263, 267, 269, 271, 385	letrd 10194	. . 3 ⊢ ((𝜑 ∧ 𝑚 ∈ (1[,)3)) → (abs‘(Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇))) ≤ (Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) + (abs‘if(𝑆 = 0, 0, 𝑇))))
387	386	ralrimiva 2966	. 2 ⊢ (𝜑 → ∀𝑚 ∈ (1[,)3)(abs‘(Σ𝑘 ∈ (1...(⌊‘𝑚))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, 𝑚, 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇))) ≤ (Σ𝑘 ∈ (1...2)((abs‘(𝑋‘(𝐿‘𝑘))) · ((log‘3) / 𝑘)) + (abs‘if(𝑆 = 0, 0, 𝑇))))
388	1, 2, 3, 4, 5, 6, 7, 8, 26, 34, 37, 43, 227, 244, 387	dchrvmasumlem3 25188	1 ⊢ (𝜑 → (𝑥 ∈ ℝ⁺ ↦ Σ𝑑 ∈ (1...(⌊‘𝑥))(((𝑋‘(𝐿‘𝑑)) · ((μ‘𝑑) / 𝑑)) · (Σ𝑘 ∈ (1...(⌊‘(𝑥 / 𝑑)))((𝑋‘(𝐿‘𝑘)) · ((log‘if(𝑆 = 0, (𝑥 / 𝑑), 𝑘)) / 𝑘)) − if(𝑆 = 0, 0, 𝑇)))) ∈ 𝑂(1))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 196 ∧ wa 384 ∧ w3a 1037 = wceq 1483 ∈ wcel 1990 ≠ wne 2794 ∀wral 2912 ⊆ wss 3574 ifcif 4086 class class class wbr 4653 ↦ cmpt 4729 ⟶wf 5884 ‘cfv 5888 (class class class)co 6650 ℂcc 9934 ℝcr 9935 0cc0 9936 1c1 9937 + caddc 9939 · cmul 9941 +∞cpnf 10071 ℝ^*cxr 10073 < clt 10074 ≤ cle 10075 − cmin 10266 / cdiv 10684 ℕcn 11020 2c2 11070 3c3 11071 ℤcz 11377 ℤ_≥cuz 11687 ℝ⁺crp 11832 [,)cico 12177 ...cfz 12326 ⌊cfl 12591 seqcseq 12801 abscabs 13974 ⇝ cli 14215 𝑂(1)co1 14217 Σcsu 14416 Basecbs 15857 0_gc0g 16100 ℤRHomczrh 19848 ℤ/nℤczn 19851 logclog 24301 μcmu 24821 DChrcdchr 24957

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1722 ax-4 1737 ax-5 1839 ax-6 1888 ax-7 1935 ax-8 1992 ax-9 1999 ax-10 2019 ax-11 2034 ax-12 2047 ax-13 2246 ax-ext 2602 ax-rep 4771 ax-sep 4781 ax-nul 4789 ax-pow 4843 ax-pr 4906 ax-un 6949 ax-inf2 8538 ax-cnex 9992 ax-resscn 9993 ax-1cn 9994 ax-icn 9995 ax-addcl 9996 ax-addrcl 9997 ax-mulcl 9998 ax-mulrcl 9999 ax-mulcom 10000 ax-addass 10001 ax-mulass 10002 ax-distr 10003 ax-i2m1 10004 ax-1ne0 10005 ax-1rid 10006 ax-rnegex 10007 ax-rrecex 10008 ax-cnre 10009 ax-pre-lttri 10010 ax-pre-lttrn 10011 ax-pre-ltadd 10012 ax-pre-mulgt0 10013 ax-pre-sup 10014 ax-addf 10015 ax-mulf 10016

This theorem depends on definitions: df-bi 197 df-or 385 df-an 386 df-3or 1038 df-3an 1039 df-tru 1486 df-fal 1489 df-ex 1705 df-nf 1710 df-sb 1881 df-eu 2474 df-mo 2475 df-clab 2609 df-cleq 2615 df-clel 2618 df-nfc 2753 df-ne 2795 df-nel 2898 df-ral 2917 df-rex 2918 df-reu 2919 df-rmo 2920 df-rab 2921 df-v 3202 df-sbc 3436 df-csb 3534 df-dif 3577 df-un 3579 df-in 3581 df-ss 3588 df-pss 3590 df-nul 3916 df-if 4087 df-pw 4160 df-sn 4178 df-pr 4180 df-tp 4182 df-op 4184 df-uni 4437 df-int 4476 df-iun 4522 df-iin 4523 df-disj 4621 df-br 4654 df-opab 4713 df-mpt 4730 df-tr 4753 df-id 5024 df-eprel 5029 df-po 5035 df-so 5036 df-fr 5073 df-se 5074 df-we 5075 df-xp 5120 df-rel 5121 df-cnv 5122 df-co 5123 df-dm 5124 df-rn 5125 df-res 5126 df-ima 5127 df-pred 5680 df-ord 5726 df-on 5727 df-lim 5728 df-suc 5729 df-iota 5851 df-fun 5890 df-fn 5891 df-f 5892 df-f1 5893 df-fo 5894 df-f1o 5895 df-fv 5896 df-isom 5897 df-riota 6611 df-ov 6653 df-oprab 6654 df-mpt2 6655 df-of 6897 df-om 7066 df-1st 7168 df-2nd 7169 df-supp 7296 df-tpos 7352 df-wrecs 7407 df-recs 7468 df-rdg 7506 df-1o 7560 df-2o 7561 df-oadd 7564 df-omul 7565 df-er 7742 df-ec 7744 df-qs 7748 df-map 7859 df-pm 7860 df-ixp 7909 df-en 7956 df-dom 7957 df-sdom 7958 df-fin 7959 df-fsupp 8276 df-fi 8317 df-sup 8348 df-inf 8349 df-oi 8415 df-card 8765 df-acn 8768 df-cda 8990 df-pnf 10076 df-mnf 10077 df-xr 10078 df-ltxr 10079 df-le 10080 df-sub 10268 df-neg 10269 df-div 10685 df-nn 11021 df-2 11079 df-3 11080 df-4 11081 df-5 11082 df-6 11083 df-7 11084 df-8 11085 df-9 11086 df-n0 11293 df-z 11378 df-dec 11494 df-uz 11688 df-q 11789 df-rp 11833 df-xneg 11946 df-xadd 11947 df-xmul 11948 df-ioo 12179 df-ioc 12180 df-ico 12181 df-icc 12182 df-fz 12327 df-fzo 12466 df-fl 12593 df-mod 12669 df-seq 12802 df-exp 12861 df-fac 13061 df-bc 13090 df-hash 13118 df-shft 13807 df-cj 13839 df-re 13840 df-im 13841 df-sqrt 13975 df-abs 13976 df-limsup 14202 df-clim 14219 df-rlim 14220 df-o1 14221 df-lo1 14222 df-sum 14417 df-ef 14798 df-e 14799 df-sin 14800 df-cos 14801 df-pi 14803 df-dvds 14984 df-prm 15386 df-struct 15859 df-ndx 15860 df-slot 15861 df-base 15863 df-sets 15864 df-ress 15865 df-plusg 15954 df-mulr 15955 df-starv 15956 df-sca 15957 df-vsca 15958 df-ip 15959 df-tset 15960 df-ple 15961 df-ds 15964 df-unif 15965 df-hom 15966 df-cco 15967 df-rest 16083 df-topn 16084 df-0g 16102 df-gsum 16103 df-topgen 16104 df-pt 16105 df-prds 16108 df-xrs 16162 df-qtop 16167 df-imas 16168 df-qus 16169 df-xps 16170 df-mre 16246 df-mrc 16247 df-acs 16249 df-mgm 17242 df-sgrp 17284 df-mnd 17295 df-mhm 17335 df-submnd 17336 df-grp 17425 df-minusg 17426 df-sbg 17427 df-mulg 17541 df-subg 17591 df-nsg 17592 df-eqg 17593 df-ghm 17658 df-cntz 17750 df-od 17948 df-cmn 18195 df-abl 18196 df-mgp 18490 df-ur 18502 df-ring 18549 df-cring 18550 df-oppr 18623 df-dvdsr 18641 df-unit 18642 df-invr 18672 df-dvr 18683 df-rnghom 18715 df-drng 18749 df-subrg 18778 df-lmod 18865 df-lss 18933 df-lsp 18972 df-sra 19172 df-rgmod 19173 df-lidl 19174 df-rsp 19175 df-2idl 19232 df-psmet 19738 df-xmet 19739 df-met 19740 df-bl 19741 df-mopn 19742 df-fbas 19743 df-fg 19744 df-cnfld 19747 df-zring 19819 df-zrh 19852 df-zn 19855 df-top 20699 df-topon 20716 df-topsp 20737 df-bases 20750 df-cld 20823 df-ntr 20824 df-cls 20825 df-nei 20902 df-lp 20940 df-perf 20941 df-cn 21031 df-cnp 21032 df-haus 21119 df-cmp 21190 df-tx 21365 df-hmeo 21558 df-fil 21650 df-fm 21742 df-flim 21743 df-flf 21744 df-xms 22125 df-ms 22126 df-tms 22127 df-cncf 22681 df-limc 23630 df-dv 23631 df-log 24303 df-cxp 24304 df-em 24719 df-mu 24827 df-dchr 24958

This theorem is referenced by: dchrvmasumiflem2 25191

W3C validator