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

Theorem dchrisumlem2 27847
Description: Lemma for dchrisum 27849. Lemma 9.4.1 of [Shapiro], p. 377. (Contributed by Mario Carneiro, 2-May-2016.)
Hypotheses
Ref Expression
rpvmasum.z 𝑍 = (ℤ/nℤ‘𝑁)
rpvmasum.l 𝐿 = (ℤRHom‘𝑍)
rpvmasum.a (𝜑 → 𝑁 ∈ ℕ)
rpvmasum.g 𝐺 = (DChr‘𝑁)
rpvmasum.d 𝐷 = (Base‘𝐺)
rpvmasum.1 1 = (0g‘𝐺)
dchrisum.b (𝜑 → 𝑋 ∈ 𝐷)
dchrisum.n1 (𝜑 → 𝑋 ≠ 1 )
dchrisum.2 (𝑛 = 𝑥 → 𝐴 = 𝐵)
dchrisum.3 (𝜑 → 𝑀 ∈ ℕ)
dchrisum.4 ((𝜑 ∧ 𝑛 ∈ ℝ+) → 𝐴 ∈ ℝ)
dchrisum.5 ((𝜑 ∧ (𝑛 ∈ ℝ+ ∧ 𝑥 ∈ ℝ+) ∧ (𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥)) → 𝐵 ≤ 𝐴)
dchrisum.6 (𝜑 → (𝑛 ∈ ℝ+ ↦ 𝐴) ⇝𝑟 0)
dchrisum.7 𝐹 = (𝑛 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑛)) · 𝐴))
dchrisum.9 (𝜑 → 𝑅 ∈ ℝ)
dchrisum.10 (𝜑 → ∀𝑢 ∈ (0..^𝑁)(abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
dchrisumlem2.1 (𝜑 → 𝑈 ∈ ℝ+)
dchrisumlem2.2 (𝜑 → 𝑀 ≤ 𝑈)
dchrisumlem2.3 (𝜑 → 𝑈 ≤ (𝐼 + 1))
dchrisumlem2.4 (𝜑 → 𝐼 ∈ ℕ)
dchrisumlem2.5 (𝜑 → 𝐽 ∈ (ℤ≥‘𝐼))
Assertion
Ref Expression
dchrisumlem2 (𝜑 → (abs‘((seq1( + , 𝐹)‘𝐽) − (seq1( + , 𝐹)‘𝐼))) ≤ ((2 · 𝑅) · ⦋𝑈 / 𝑛⦌𝐴))
Distinct variable groups:   𝑢,𝑛,𝑥   1 ,𝑛,𝑥   𝑛,𝐹,𝑢,𝑥   𝑛,𝐼,𝑢,𝑥   𝑛,𝐽,𝑢,𝑥   𝑥,𝐴   𝑛,𝑁,𝑢,𝑥   𝜑,𝑛,𝑢,𝑥   𝑅,𝑛,𝑢,𝑥   𝑈,𝑛,𝑢,𝑥   𝐵,𝑛   𝑛,𝑍,𝑥   𝐷,𝑛,𝑥   𝑛,𝐿,𝑢,𝑥   𝑛,𝑀,𝑢,𝑥   𝑛,𝑋,𝑢,𝑥
Allowed substitution hints:   𝐴(𝑢, 𝑛)   𝐵(𝑥, 𝑢)   𝐷(𝑢)   1 (𝑢)   𝐺(𝑥, 𝑢, 𝑛)   𝑍(𝑢)

Proof of Theorem dchrisumlem2
Dummy variables 𝑘 𝑖 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fzodisj 13855 . . . . . . . . 9 ((1..^(𝐼 + 1)) ∩ ((𝐼 + 1)..^(𝐽 + 1))) = ∅
21a1i 11 . . . . . . . 8 (𝜑 → ((1..^(𝐼 + 1)) ∩ ((𝐼 + 1)..^(𝐽 + 1))) = ∅)
3 dchrisumlem2.4 . . . . . . . . . . . 12 (𝜑 → 𝐼 ∈ ℕ)
43peano2nnd 12379 . . . . . . . . . . 11 (𝜑 → (𝐼 + 1) ∈ ℕ)
5 nnuz 13031 . . . . . . . . . . 11 ℕ = (ℤ≥‘1)
64, 5eleqtrdi 2874 . . . . . . . . . 10 (𝜑 → (𝐼 + 1) ∈ (ℤ≥‘1))
7 dchrisumlem2.5 . . . . . . . . . . 11 (𝜑 → 𝐽 ∈ (ℤ≥‘𝐼))
8 eluzp1p1 13020 . . . . . . . . . . 11 (𝐽 ∈ (ℤ≥‘𝐼) → (𝐽 + 1) ∈ (ℤ≥‘(𝐼 + 1)))
97, 8syl 18 . . . . . . . . . 10 (𝜑 → (𝐽 + 1) ∈ (ℤ≥‘(𝐼 + 1)))
10 elfzuzb 13677 . . . . . . . . . 10 ((𝐼 + 1) ∈ (1...(𝐽 + 1)) ↔ ((𝐼 + 1) ∈ (ℤ≥‘1) ∧ (𝐽 + 1) ∈ (ℤ≥‘(𝐼 + 1))))
116, 9, 10sylanbrc 595 . . . . . . . . 9 (𝜑 → (𝐼 + 1) ∈ (1...(𝐽 + 1)))
12 fzosplit 13854 . . . . . . . . 9 ((𝐼 + 1) ∈ (1...(𝐽 + 1)) → (1..^(𝐽 + 1)) = ((1..^(𝐼 + 1)) ∪ ((𝐼 + 1)..^(𝐽 + 1))))
1311, 12syl 18 . . . . . . . 8 (𝜑 → (1..^(𝐽 + 1)) = ((1..^(𝐼 + 1)) ∪ ((𝐼 + 1)..^(𝐽 + 1))))
14 fzofi 14144 . . . . . . . . 9 (1..^(𝐽 + 1)) ∈ Fin
1514a1i 11 . . . . . . . 8 (𝜑 → (1..^(𝐽 + 1)) ∈ Fin)
16 elfzouz 13825 . . . . . . . . . 10 (𝑖 ∈ (1..^(𝐽 + 1)) → 𝑖 ∈ (ℤ≥‘1))
1716, 5eleqtrrdi 2875 . . . . . . . . 9 (𝑖 ∈ (1..^(𝐽 + 1)) → 𝑖 ∈ ℕ)
18 rpvmasum.g . . . . . . . . . . 11 𝐺 = (DChr‘𝑁)
19 rpvmasum.z . . . . . . . . . . 11 𝑍 = (ℤ/nℤ‘𝑁)
20 rpvmasum.d . . . . . . . . . . 11 𝐷 = (Base‘𝐺)
21 rpvmasum.l . . . . . . . . . . 11 𝐿 = (ℤRHom‘𝑍)
22 dchrisum.b . . . . . . . . . . . 12 (𝜑 → 𝑋 ∈ 𝐷)
2322adantr 486 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ℕ) → 𝑋 ∈ 𝐷)
24 nnz 12741 . . . . . . . . . . . 12 (𝑖 ∈ ℕ → 𝑖 ∈ ℤ)
2524adantl 487 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ ℤ)
2618, 19, 20, 21, 23, 25dchrzrhcl 27602 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ℕ) → (𝑋‘(𝐿‘𝑖)) ∈ ℂ)
27 rpvmasum.a . . . . . . . . . . . . . 14 (𝜑 → 𝑁 ∈ ℕ)
28 rpvmasum.1 . . . . . . . . . . . . . 14 1 = (0g‘𝐺)
29 dchrisum.n1 . . . . . . . . . . . . . 14 (𝜑 → 𝑋 ≠ 1 )
30 dchrisum.2 . . . . . . . . . . . . . 14 (𝑛 = 𝑥 → 𝐴 = 𝐵)
31 dchrisum.3 . . . . . . . . . . . . . 14 (𝜑 → 𝑀 ∈ ℕ)
32 dchrisum.4 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑛 ∈ ℝ+) → 𝐴 ∈ ℝ)
33 dchrisum.5 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑛 ∈ ℝ+ ∧ 𝑥 ∈ ℝ+) ∧ (𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥)) → 𝐵 ≤ 𝐴)
34 dchrisum.6 . . . . . . . . . . . . . 14 (𝜑 → (𝑛 ∈ ℝ+ ↦ 𝐴) ⇝𝑟 0)
35 dchrisum.7 . . . . . . . . . . . . . 14 𝐹 = (𝑛 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑛)) · 𝐴))
3619, 21, 27, 18, 20, 28, 22, 29, 30, 31, 32, 33, 34, 35dchrisumlema 27845 . . . . . . . . . . . . 13 (𝜑 → ((𝑖 ∈ ℝ+ → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ) ∧ (𝑖 ∈ (𝑀[,)+∞) → 0 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
3736simpld 500 . . . . . . . . . . . 12 (𝜑 → (𝑖 ∈ ℝ+ → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ))
38 nnrp 13159 . . . . . . . . . . . 12 (𝑖 ∈ ℕ → 𝑖 ∈ ℝ+)
3937, 38impel 515 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ℕ) → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ)
4039recnd 11364 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ℕ) → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℂ)
4126, 40mulcld 11356 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ℕ) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
4217, 41sylan2 605 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ (1..^(𝐽 + 1))) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
432, 13, 15, 42fsumsplit 15936 . . . . . . 7 (𝜑 → Σ𝑖 ∈ (1..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (Σ𝑖 ∈ (1..^(𝐼 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)))
44 eluzelz 13002 . . . . . . . . 9 (𝐽 ∈ (ℤ≥‘𝐼) → 𝐽 ∈ ℤ)
45 fzval3 13896 . . . . . . . . 9 (𝐽 ∈ ℤ → (1...𝐽) = (1..^(𝐽 + 1)))
467, 44, 453syl 19 . . . . . . . 8 (𝜑 → (1...𝐽) = (1..^(𝐽 + 1)))
4746sumeq1d 15896 . . . . . . 7 (𝜑 → Σ𝑖 ∈ (1...𝐽)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = Σ𝑖 ∈ (1..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
483nnzd 12746 . . . . . . . . . 10 (𝜑 → 𝐼 ∈ ℤ)
49 fzval3 13896 . . . . . . . . . 10 (𝐼 ∈ ℤ → (1...𝐼) = (1..^(𝐼 + 1)))
5048, 49syl 18 . . . . . . . . 9 (𝜑 → (1...𝐼) = (1..^(𝐼 + 1)))
5150sumeq1d 15896 . . . . . . . 8 (𝜑 → Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = Σ𝑖 ∈ (1..^(𝐼 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
5251oveq1d 7458 . . . . . . 7 (𝜑 → (Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) = (Σ𝑖 ∈ (1..^(𝐼 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)))
5343, 47, 523eqtr4d 2808 . . . . . 6 (𝜑 → Σ𝑖 ∈ (1...𝐽)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)))
54 elfznn 13714 . . . . . . . 8 (𝑖 ∈ (1...𝐽) → 𝑖 ∈ ℕ)
55 simpr 490 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ ℕ)
56 nfcv 2926 . . . . . . . . . 10 Ⅎ𝑛𝑖
57 nfcv 2926 . . . . . . . . . . 11 Ⅎ𝑛(𝑋‘(𝐿‘𝑖))
58 nfcv 2926 . . . . . . . . . . 11 Ⅎ𝑛 ·
59 nfcsb1v 3875 . . . . . . . . . . 11 Ⅎ𝑛⦋𝑖 / 𝑛⦌𝐴
6057, 58, 59nfov 7473 . . . . . . . . . 10 Ⅎ𝑛((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)
61 2fveq3 6913 . . . . . . . . . . 11 (𝑛 = 𝑖 → (𝑋‘(𝐿‘𝑛)) = (𝑋‘(𝐿‘𝑖)))
62 csbeq1a 3865 . . . . . . . . . . 11 (𝑛 = 𝑖 → 𝐴 = ⦋𝑖 / 𝑛⦌𝐴)
6361, 62oveq12d 7461 . . . . . . . . . 10 (𝑛 = 𝑖 → ((𝑋‘(𝐿‘𝑛)) · 𝐴) = ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
6456, 60, 63, 35fvmptf 7038 . . . . . . . . 9 ((𝑖 ∈ ℕ ∧ ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ) → (𝐹‘𝑖) = ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
6555, 41, 64syl2anc 596 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ ℕ) → (𝐹‘𝑖) = ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
6654, 65sylan2 605 . . . . . . 7 ((𝜑 ∧ 𝑖 ∈ (1...𝐽)) → (𝐹‘𝑖) = ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
673, 5eleqtrdi 2874 . . . . . . . 8 (𝜑 → 𝐼 ∈ (ℤ≥‘1))
68 uztrn 13010 . . . . . . . 8 ((𝐽 ∈ (ℤ≥‘𝐼) ∧ 𝐼 ∈ (ℤ≥‘1)) → 𝐽 ∈ (ℤ≥‘1))
697, 67, 68syl2anc 596 . . . . . . 7 (𝜑 → 𝐽 ∈ (ℤ≥‘1))
7054, 41sylan2 605 . . . . . . 7 ((𝜑 ∧ 𝑖 ∈ (1...𝐽)) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
7166, 69, 70fsumser 15925 . . . . . 6 (𝜑 → Σ𝑖 ∈ (1...𝐽)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (seq1( + , 𝐹)‘𝐽))
7253, 71eqtr3d 2800 . . . . 5 (𝜑 → (Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) = (seq1( + , 𝐹)‘𝐽))
73 elfznn 13714 . . . . . . 7 (𝑖 ∈ (1...𝐼) → 𝑖 ∈ ℕ)
7473, 65sylan2 605 . . . . . 6 ((𝜑 ∧ 𝑖 ∈ (1...𝐼)) → (𝐹‘𝑖) = ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
7573, 41sylan2 605 . . . . . 6 ((𝜑 ∧ 𝑖 ∈ (1...𝐼)) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
7674, 67, 75fsumser 15925 . . . . 5 (𝜑 → Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (seq1( + , 𝐹)‘𝐼))
7772, 76oveq12d 7461 . . . 4 (𝜑 → ((Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) − Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) = ((seq1( + , 𝐹)‘𝐽) − (seq1( + , 𝐹)‘𝐼)))
78 fzfid 14143 . . . . . 6 (𝜑 → (1...𝐼) ∈ Fin)
7978, 75fsumcl 15928 . . . . 5 (𝜑 → Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
80 fzofi 14144 . . . . . . 7 ((𝐼 + 1)..^(𝐽 + 1)) ∈ Fin
8180a1i 11 . . . . . 6 (𝜑 → ((𝐼 + 1)..^(𝐽 + 1)) ∈ Fin)
82 ssun2 4180 . . . . . . . . 9 ((𝐼 + 1)..^(𝐽 + 1)) ⊆ ((1..^(𝐼 + 1)) ∪ ((𝐼 + 1)..^(𝐽 + 1)))
8382, 13sseqtrrid 3956 . . . . . . . 8 (𝜑 → ((𝐼 + 1)..^(𝐽 + 1)) ⊆ (1..^(𝐽 + 1)))
8483sselda 3913 . . . . . . 7 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → 𝑖 ∈ (1..^(𝐽 + 1)))
8584, 42syldan 603 . . . . . 6 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
8681, 85fsumcl 15928 . . . . 5 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
8779, 86pncan2d 11698 . . . 4 (𝜑 → ((Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) − Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) = Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
8877, 87eqtr3d 2800 . . 3 (𝜑 → ((seq1( + , 𝐹)‘𝐽) − (seq1( + , 𝐹)‘𝐼)) = Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
8988fveq2d 6912 . 2 (𝜑 → (abs‘((seq1( + , 𝐹)‘𝐽) − (seq1( + , 𝐹)‘𝐼))) = (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)))
9086abscld 15635 . . 3 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) ∈ ℝ)
91 2re 12444 . . . . . 6 2 ∈ ℝ
9291a1i 11 . . . . 5 (𝜑 → 2 ∈ ℝ)
93 dchrisum.9 . . . . 5 (𝜑 → 𝑅 ∈ ℝ)
9492, 93remulcld 11366 . . . 4 (𝜑 → (2 · 𝑅) ∈ ℝ)
9539ralrimiva 3158 . . . . 5 (𝜑 → ∀𝑖 ∈ ℕ ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ)
96 csbeq1 3854 . . . . . . 7 (𝑖 = (𝐼 + 1) → ⦋𝑖 / 𝑛⦌𝐴 = ⦋(𝐼 + 1) / 𝑛⦌𝐴)
9796eleq1d 2849 . . . . . 6 (𝑖 = (𝐼 + 1) → (⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ ↔ ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∈ ℝ))
9897rspcv 3576 . . . . 5 ((𝐼 + 1) ∈ ℕ → (∀𝑖 ∈ ℕ ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∈ ℝ))
994, 95, 98sylc 66 . . . 4 (𝜑 → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∈ ℝ)
10094, 99remulcld 11366 . . 3 (𝜑 → ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴) ∈ ℝ)
101 dchrisumlem2.1 . . . . 5 (𝜑 → 𝑈 ∈ ℝ+)
10232ralrimiva 3158 . . . . 5 (𝜑 → ∀𝑛 ∈ ℝ+ 𝐴 ∈ ℝ)
103 nfcsb1v 3875 . . . . . . 7 Ⅎ𝑛⦋𝑈 / 𝑛⦌𝐴
104103nfel1 2942 . . . . . 6 Ⅎ𝑛⦋𝑈 / 𝑛⦌𝐴 ∈ ℝ
105 csbeq1a 3865 . . . . . . 7 (𝑛 = 𝑈 → 𝐴 = ⦋𝑈 / 𝑛⦌𝐴)
106105eleq1d 2849 . . . . . 6 (𝑛 = 𝑈 → (𝐴 ∈ ℝ ↔ ⦋𝑈 / 𝑛⦌𝐴 ∈ ℝ))
107104, 106rspc 3568 . . . . 5 (𝑈 ∈ ℝ+ → (∀𝑛 ∈ ℝ+ 𝐴 ∈ ℝ → ⦋𝑈 / 𝑛⦌𝐴 ∈ ℝ))
108101, 102, 107sylc 66 . . . 4 (𝜑 → ⦋𝑈 / 𝑛⦌𝐴 ∈ ℝ)
10994, 108remulcld 11366 . . 3 (𝜑 → ((2 · 𝑅) · ⦋𝑈 / 𝑛⦌𝐴) ∈ ℝ)
11069, 5eleqtrrdi 2875 . . . . . . . . . . . 12 (𝜑 → 𝐽 ∈ ℕ)
111110peano2nnd 12379 . . . . . . . . . . 11 (𝜑 → (𝐽 + 1) ∈ ℕ)
112111nnrpd 13189 . . . . . . . . . 10 (𝜑 → (𝐽 + 1) ∈ ℝ+)
11319, 21, 27, 18, 20, 28, 22, 29, 30, 31, 32, 33, 34, 35dchrisumlema 27845 . . . . . . . . . . 11 (𝜑 → (((𝐽 + 1) ∈ ℝ+ → ⦋(𝐽 + 1) / 𝑛⦌𝐴 ∈ ℝ) ∧ ((𝐽 + 1) ∈ (𝑀[,)+∞) → 0 ≤ ⦋(𝐽 + 1) / 𝑛⦌𝐴)))
114113simpld 500 . . . . . . . . . 10 (𝜑 → ((𝐽 + 1) ∈ ℝ+ → ⦋(𝐽 + 1) / 𝑛⦌𝐴 ∈ ℝ))
115112, 114mpd 16 . . . . . . . . 9 (𝜑 → ⦋(𝐽 + 1) / 𝑛⦌𝐴 ∈ ℝ)
116115recnd 11364 . . . . . . . 8 (𝜑 → ⦋(𝐽 + 1) / 𝑛⦌𝐴 ∈ ℂ)
117 fzofi 14144 . . . . . . . . . 10 (0..^(𝐽 + 1)) ∈ Fin
118117a1i 11 . . . . . . . . 9 (𝜑 → (0..^(𝐽 + 1)) ∈ Fin)
119 elfzoelz 13820 . . . . . . . . . 10 (𝑛 ∈ (0..^(𝐽 + 1)) → 𝑛 ∈ ℤ)
12022adantr 486 . . . . . . . . . . 11 ((𝜑 ∧ 𝑛 ∈ ℤ) → 𝑋 ∈ 𝐷)
121 simpr 490 . . . . . . . . . . 11 ((𝜑 ∧ 𝑛 ∈ ℤ) → 𝑛 ∈ ℤ)
12218, 19, 20, 21, 120, 121dchrzrhcl 27602 . . . . . . . . . 10 ((𝜑 ∧ 𝑛 ∈ ℤ) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
123119, 122sylan2 605 . . . . . . . . 9 ((𝜑 ∧ 𝑛 ∈ (0..^(𝐽 + 1))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
124118, 123fsumcl 15928 . . . . . . . 8 (𝜑 → Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
125116, 124mulcld 11356 . . . . . . 7 (𝜑 → (⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℂ)
12699recnd 11364 . . . . . . . 8 (𝜑 → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∈ ℂ)
127 fzofi 14144 . . . . . . . . . 10 (0..^(𝐼 + 1)) ∈ Fin
128127a1i 11 . . . . . . . . 9 (𝜑 → (0..^(𝐼 + 1)) ∈ Fin)
129 elfzoelz 13820 . . . . . . . . . 10 (𝑛 ∈ (0..^(𝐼 + 1)) → 𝑛 ∈ ℤ)
130129, 122sylan2 605 . . . . . . . . 9 ((𝜑 ∧ 𝑛 ∈ (0..^(𝐼 + 1))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
131128, 130fsumcl 15928 . . . . . . . 8 (𝜑 → Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
132126, 131mulcld 11356 . . . . . . 7 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℂ)
133125, 132subcld 11696 . . . . . 6 (𝜑 → ((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℂ)
134133abscld 15635 . . . . 5 (𝜑 → (abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ∈ ℝ)
13584, 17syl 18 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → 𝑖 ∈ ℕ)
136 peano2nn 12374 . . . . . . . . . . . . 13 (𝑖 ∈ ℕ → (𝑖 + 1) ∈ ℕ)
137136nnrpd 13189 . . . . . . . . . . . 12 (𝑖 ∈ ℕ → (𝑖 + 1) ∈ ℝ+)
138 nfcsb1v 3875 . . . . . . . . . . . . . . 15 Ⅎ𝑛⦋(𝑖 + 1) / 𝑛⦌𝐴
139138nfel1 2942 . . . . . . . . . . . . . 14 Ⅎ𝑛⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ
140 csbeq1a 3865 . . . . . . . . . . . . . . 15 (𝑛 = (𝑖 + 1) → 𝐴 = ⦋(𝑖 + 1) / 𝑛⦌𝐴)
141140eleq1d 2849 . . . . . . . . . . . . . 14 (𝑛 = (𝑖 + 1) → (𝐴 ∈ ℝ ↔ ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ))
142139, 141rspc 3568 . . . . . . . . . . . . 13 ((𝑖 + 1) ∈ ℝ+ → (∀𝑛 ∈ ℝ+ 𝐴 ∈ ℝ → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ))
143142impcom 413 . . . . . . . . . . . 12 ((∀𝑛 ∈ ℝ+ 𝐴 ∈ ℝ ∧ (𝑖 + 1) ∈ ℝ+) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ)
144102, 137, 143syl2an 608 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ℕ) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ)
145144, 39resubcld 11771 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ℕ) → (⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) ∈ ℝ)
146145recnd 11364 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ℕ) → (⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
147 fzofi 14144 . . . . . . . . . . . 12 (0..^(𝑖 + 1)) ∈ Fin
148147a1i 11 . . . . . . . . . . 11 (𝜑 → (0..^(𝑖 + 1)) ∈ Fin)
149 elfzoelz 13820 . . . . . . . . . . . 12 (𝑛 ∈ (0..^(𝑖 + 1)) → 𝑛 ∈ ℤ)
150149, 122sylan2 605 . . . . . . . . . . 11 ((𝜑 ∧ 𝑛 ∈ (0..^(𝑖 + 1))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
151148, 150fsumcl 15928 . . . . . . . . . 10 (𝜑 → Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
152151adantr 486 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ℕ) → Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
153146, 152mulcld 11356 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ ℕ) → ((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℂ)
154135, 153syldan 603 . . . . . . 7 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℂ)
15581, 154fsumcl 15928 . . . . . 6 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℂ)
156155abscld 15635 . . . . 5 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℝ)
157134, 156readdcld 11365 . . . 4 (𝜑 → ((abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) + (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))) ∈ ℝ)
15826, 40mulcomd 11357 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ℕ) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (⦋𝑖 / 𝑛⦌𝐴 · (𝑋‘(𝐿‘𝑖))))
159 nnnn0 12640 . . . . . . . . . . . . . . . 16 (𝑖 ∈ ℕ → 𝑖 ∈ ℕ0)
160159adantl 487 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ ℕ0)
161 nn0uz 13030 . . . . . . . . . . . . . . 15 ℕ0 = (ℤ≥‘0)
162160, 161eleqtrdi 2874 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ (ℤ≥‘0))
163 elfzelz 13683 . . . . . . . . . . . . . . 15 (𝑛 ∈ (0...𝑖) → 𝑛 ∈ ℤ)
164122adantlr 728 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ 𝑛 ∈ ℤ) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
165163, 164sylan2 605 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ 𝑛 ∈ (0...𝑖)) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
166162, 165, 61fzosump1 15947 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑖 ∈ ℕ) → Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) = (Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)) + (𝑋‘(𝐿‘𝑖))))
167166oveq1d 7458 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ℕ) → (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛))) = ((Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)) + (𝑋‘(𝐿‘𝑖))) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛))))
168 fzofi 14144 . . . . . . . . . . . . . . 15 (0..^𝑖) ∈ Fin
169168a1i 11 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑖 ∈ ℕ) → (0..^𝑖) ∈ Fin)
170 elfzoelz 13820 . . . . . . . . . . . . . . 15 (𝑛 ∈ (0..^𝑖) → 𝑛 ∈ ℤ)
171170, 164sylan2 605 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ 𝑛 ∈ (0..^𝑖)) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
172169, 171fsumcl 15928 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑖 ∈ ℕ) → Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
173172, 26pncan2d 11698 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ℕ) → ((Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)) + (𝑋‘(𝐿‘𝑖))) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛))) = (𝑋‘(𝐿‘𝑖)))
174167, 173eqtr2d 2799 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ℕ) → (𝑋‘(𝐿‘𝑖)) = (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛))))
175174oveq2d 7459 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ℕ) → (⦋𝑖 / 𝑛⦌𝐴 · (𝑋‘(𝐿‘𝑖))) = (⦋𝑖 / 𝑛⦌𝐴 · (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))))
176158, 175eqtrd 2798 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ℕ) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (⦋𝑖 / 𝑛⦌𝐴 · (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))))
177135, 176syldan 603 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (⦋𝑖 / 𝑛⦌𝐴 · (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))))
178177sumeq2dv 15898 . . . . . . 7 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 · (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))))
179 csbeq1 3854 . . . . . . . . 9 (𝑘 = 𝑖 → ⦋𝑘 / 𝑛⦌𝐴 = ⦋𝑖 / 𝑛⦌𝐴)
180 oveq2 7451 . . . . . . . . . 10 (𝑘 = 𝑖 → (0..^𝑘) = (0..^𝑖))
181180sumeq1d 15896 . . . . . . . . 9 (𝑘 = 𝑖 → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))
182179, 181jca 521 . . . . . . . 8 (𝑘 = 𝑖 → (⦋𝑘 / 𝑛⦌𝐴 = ⦋𝑖 / 𝑛⦌𝐴 ∧ Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛))))
183 csbeq1 3854 . . . . . . . . 9 (𝑘 = (𝑖 + 1) → ⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝑖 + 1) / 𝑛⦌𝐴)
184 oveq2 7451 . . . . . . . . . 10 (𝑘 = (𝑖 + 1) → (0..^𝑘) = (0..^(𝑖 + 1)))
185184sumeq1d 15896 . . . . . . . . 9 (𝑘 = (𝑖 + 1) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))
186183, 185jca 521 . . . . . . . 8 (𝑘 = (𝑖 + 1) → (⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∧ Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))
187 csbeq1 3854 . . . . . . . . 9 (𝑘 = (𝐼 + 1) → ⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝐼 + 1) / 𝑛⦌𝐴)
188 oveq2 7451 . . . . . . . . . 10 (𝑘 = (𝐼 + 1) → (0..^𝑘) = (0..^(𝐼 + 1)))
189188sumeq1d 15896 . . . . . . . . 9 (𝑘 = (𝐼 + 1) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))
190187, 189jca 521 . . . . . . . 8 (𝑘 = (𝐼 + 1) → (⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∧ Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))
191 csbeq1 3854 . . . . . . . . 9 (𝑘 = (𝐽 + 1) → ⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝐽 + 1) / 𝑛⦌𝐴)
192 oveq2 7451 . . . . . . . . . 10 (𝑘 = (𝐽 + 1) → (0..^𝑘) = (0..^(𝐽 + 1)))
193192sumeq1d 15896 . . . . . . . . 9 (𝑘 = (𝐽 + 1) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))
194191, 193jca 521 . . . . . . . 8 (𝑘 = (𝐽 + 1) → (⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝐽 + 1) / 𝑛⦌𝐴 ∧ Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))))
19540ralrimiva 3158 . . . . . . . . 9 (𝜑 → ∀𝑖 ∈ ℕ ⦋𝑖 / 𝑛⦌𝐴 ∈ ℂ)
196 elfzuz 13679 . . . . . . . . . 10 (𝑘 ∈ ((𝐼 + 1)...(𝐽 + 1)) → 𝑘 ∈ (ℤ≥‘(𝐼 + 1)))
197 eluznn 13072 . . . . . . . . . 10 (((𝐼 + 1) ∈ ℕ ∧ 𝑘 ∈ (ℤ≥‘(𝐼 + 1))) → 𝑘 ∈ ℕ)
1984, 196, 197syl2an 608 . . . . . . . . 9 ((𝜑 ∧ 𝑘 ∈ ((𝐼 + 1)...(𝐽 + 1))) → 𝑘 ∈ ℕ)
199 csbeq1 3854 . . . . . . . . . . 11 (𝑖 = 𝑘 → ⦋𝑖 / 𝑛⦌𝐴 = ⦋𝑘 / 𝑛⦌𝐴)
200199eleq1d 2849 . . . . . . . . . 10 (𝑖 = 𝑘 → (⦋𝑖 / 𝑛⦌𝐴 ∈ ℂ ↔ ⦋𝑘 / 𝑛⦌𝐴 ∈ ℂ))
201200rspccva 3579 . . . . . . . . 9 ((∀𝑖 ∈ ℕ ⦋𝑖 / 𝑛⦌𝐴 ∈ ℂ ∧ 𝑘 ∈ ℕ) → ⦋𝑘 / 𝑛⦌𝐴 ∈ ℂ)
202195, 198, 201syl2an2r 698 . . . . . . . 8 ((𝜑 ∧ 𝑘 ∈ ((𝐼 + 1)...(𝐽 + 1))) → ⦋𝑘 / 𝑛⦌𝐴 ∈ ℂ)
203 fzofi 14144 . . . . . . . . . . 11 (0..^𝑘) ∈ Fin
204203a1i 11 . . . . . . . . . 10 (𝜑 → (0..^𝑘) ∈ Fin)
205 elfzoelz 13820 . . . . . . . . . . 11 (𝑛 ∈ (0..^𝑘) → 𝑛 ∈ ℤ)
206205, 122sylan2 605 . . . . . . . . . 10 ((𝜑 ∧ 𝑛 ∈ (0..^𝑘)) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
207204, 206fsumcl 15928 . . . . . . . . 9 (𝜑 → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
208207adantr 486 . . . . . . . 8 ((𝜑 ∧ 𝑘 ∈ ((𝐼 + 1)...(𝐽 + 1))) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
209182, 186, 190, 194, 9, 202, 208fsumparts 16002 . . . . . . 7 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 · (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))) = (((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) − Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
210178, 209eqtrd 2798 . . . . . 6 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) − Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
211210fveq2d 6912 . . . . 5 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) = (abs‘(((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) − Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))))
212133, 155abs2dif2d 15657 . . . . 5 (𝜑 → (abs‘(((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) − Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ ((abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) + (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))))
213211, 212eqbrtrd 5130 . . . 4 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) ≤ ((abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) + (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))))
214115, 99readdcld 11365 . . . . . . 7 (𝜑 → (⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) ∈ ℝ)
215214, 93remulcld 11366 . . . . . 6 (𝜑 → ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) ∈ ℝ)
216179, 183, 187, 191, 9, 202telfsumo 15998 . . . . . . . 8 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) = (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴))
217135, 39syldan 603 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ)
218135, 144syldan 603 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ)
219217, 218resubcld 11771 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) ∈ ℝ)
22081, 219fsumrecl 15929 . . . . . . . 8 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) ∈ ℝ)
221216, 220eqeltrrd 2865 . . . . . . 7 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) ∈ ℝ)
222221, 93remulcld 11366 . . . . . 6 (𝜑 → ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅) ∈ ℝ)
223125abscld 15635 . . . . . . . 8 (𝜑 → (abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℝ)
224132abscld 15635 . . . . . . . 8 (𝜑 → (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℝ)
225223, 224readdcld 11365 . . . . . . 7 (𝜑 → ((abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) + (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ∈ ℝ)
226125, 132abs2dif2d 15657 . . . . . . 7 (𝜑 → (abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ ((abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) + (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))))
227115, 93remulcld 11366 . . . . . . . . 9 (𝜑 → (⦋(𝐽 + 1) / 𝑛⦌𝐴 · 𝑅) ∈ ℝ)
22899, 93remulcld 11366 . . . . . . . . 9 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 · 𝑅) ∈ ℝ)
229116, 124absmuld 15653 . . . . . . . . . . 11 (𝜑 → (abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) = ((abs‘⦋(𝐽 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))))
230 eluzelre 13003 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (ℤ≥‘𝑀) → 𝑖 ∈ ℝ)
231230adantl 487 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ ℝ)
232 eluzle 13005 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (ℤ≥‘𝑀) → 𝑀 ≤ 𝑖)
233232adantl 487 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑀 ≤ 𝑖)
23431nnred 12377 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → 𝑀 ∈ ℝ)
235234adantr 486 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑀 ∈ ℝ)
236 elicopnf 13603 . . . . . . . . . . . . . . . . . . 19 (𝑀 ∈ ℝ → (𝑖 ∈ (𝑀[,)+∞) ↔ (𝑖 ∈ ℝ ∧ 𝑀 ≤ 𝑖)))
237235, 236syl 18 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → (𝑖 ∈ (𝑀[,)+∞) ↔ (𝑖 ∈ ℝ ∧ 𝑀 ≤ 𝑖)))
238231, 233, 237mpbir2and 726 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ (𝑀[,)+∞))
239238ex 418 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑖 ∈ (ℤ≥‘𝑀) → 𝑖 ∈ (𝑀[,)+∞)))
240239ssrdv 3919 . . . . . . . . . . . . . . 15 (𝜑 → (ℤ≥‘𝑀) ⊆ (𝑀[,)+∞))
24131nnzd 12746 . . . . . . . . . . . . . . . . 17 (𝜑 → 𝑀 ∈ ℤ)
24248peano2zd 12833 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐼 + 1) ∈ ℤ)
243101rpred 13191 . . . . . . . . . . . . . . . . . 18 (𝜑 → 𝑈 ∈ ℝ)
2444nnred 12377 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝐼 + 1) ∈ ℝ)
245 dchrisumlem2.2 . . . . . . . . . . . . . . . . . 18 (𝜑 → 𝑀 ≤ 𝑈)
246 dchrisumlem2.3 . . . . . . . . . . . . . . . . . 18 (𝜑 → 𝑈 ≤ (𝐼 + 1))
247234, 243, 244, 245, 246letrd 11494 . . . . . . . . . . . . . . . . 17 (𝜑 → 𝑀 ≤ (𝐼 + 1))
248 eluz2 12998 . . . . . . . . . . . . . . . . 17 ((𝐼 + 1) ∈ (ℤ≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ (𝐼 + 1) ∈ ℤ ∧ 𝑀 ≤ (𝐼 + 1)))
249241, 242, 247, 248syl3anbrc 1362 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐼 + 1) ∈ (ℤ≥‘𝑀))
250 uztrn 13010 . . . . . . . . . . . . . . . 16 (((𝐽 + 1) ∈ (ℤ≥‘(𝐼 + 1)) ∧ (𝐼 + 1) ∈ (ℤ≥‘𝑀)) → (𝐽 + 1) ∈ (ℤ≥‘𝑀))
2519, 249, 250syl2anc 596 . . . . . . . . . . . . . . 15 (𝜑 → (𝐽 + 1) ∈ (ℤ≥‘𝑀))
252240, 251sseldd 3914 . . . . . . . . . . . . . 14 (𝜑 → (𝐽 + 1) ∈ (𝑀[,)+∞))
253113simprd 501 . . . . . . . . . . . . . 14 (𝜑 → ((𝐽 + 1) ∈ (𝑀[,)+∞) → 0 ≤ ⦋(𝐽 + 1) / 𝑛⦌𝐴))
254252, 253mpd 16 . . . . . . . . . . . . 13 (𝜑 → 0 ≤ ⦋(𝐽 + 1) / 𝑛⦌𝐴)
255115, 254absidd 15619 . . . . . . . . . . . 12 (𝜑 → (abs‘⦋(𝐽 + 1) / 𝑛⦌𝐴) = ⦋(𝐽 + 1) / 𝑛⦌𝐴)
256255oveq1d 7458 . . . . . . . . . . 11 (𝜑 → ((abs‘⦋(𝐽 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) = (⦋(𝐽 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))))
257229, 256eqtrd 2798 . . . . . . . . . 10 (𝜑 → (abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) = (⦋(𝐽 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))))
258124abscld 15635 . . . . . . . . . . 11 (𝜑 → (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℝ)
259111nnnn0d 12694 . . . . . . . . . . . 12 (𝜑 → (𝐽 + 1) ∈ ℕ0)
260 dchrisum.10 . . . . . . . . . . . . 13 (𝜑 → ∀𝑢 ∈ (0..^𝑁)(abs‘Σ𝑛 ∈ (0..^𝑢)(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
26119, 21, 27, 18, 20, 28, 22, 29, 30, 31, 32, 33, 34, 35, 93, 260dchrisumlem1 27846 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐽 + 1) ∈ ℕ0) → (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
262259, 261mpdan 700 . . . . . . . . . . 11 (𝜑 → (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
263258, 93, 115, 254, 262lemul2ad 12284 . . . . . . . . . 10 (𝜑 → (⦋(𝐽 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ (⦋(𝐽 + 1) / 𝑛⦌𝐴 · 𝑅))
264257, 263eqbrtrd 5130 . . . . . . . . 9 (𝜑 → (abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ (⦋(𝐽 + 1) / 𝑛⦌𝐴 · 𝑅))
265126, 131absmuld 15653 . . . . . . . . . . 11 (𝜑 → (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) = ((abs‘⦋(𝐼 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))))
266240, 249sseldd 3914 . . . . . . . . . . . . . 14 (𝜑 → (𝐼 + 1) ∈ (𝑀[,)+∞))
26719, 21, 27, 18, 20, 28, 22, 29, 30, 31, 32, 33, 34, 35dchrisumlema 27845 . . . . . . . . . . . . . . 15 (𝜑 → (((𝐼 + 1) ∈ ℝ+ → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∈ ℝ) ∧ ((𝐼 + 1) ∈ (𝑀[,)+∞) → 0 ≤ ⦋(𝐼 + 1) / 𝑛⦌𝐴)))
268267simprd 501 . . . . . . . . . . . . . 14 (𝜑 → ((𝐼 + 1) ∈ (𝑀[,)+∞) → 0 ≤ ⦋(𝐼 + 1) / 𝑛⦌𝐴))
269266, 268mpd 16 . . . . . . . . . . . . 13 (𝜑 → 0 ≤ ⦋(𝐼 + 1) / 𝑛⦌𝐴)
27099, 269absidd 15619 . . . . . . . . . . . 12 (𝜑 → (abs‘⦋(𝐼 + 1) / 𝑛⦌𝐴) = ⦋(𝐼 + 1) / 𝑛⦌𝐴)
271270oveq1d 7458 . . . . . . . . . . 11 (𝜑 → ((abs‘⦋(𝐼 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) = (⦋(𝐼 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))))
272265, 271eqtrd 2798 . . . . . . . . . 10 (𝜑 → (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) = (⦋(𝐼 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))))
273131abscld 15635 . . . . . . . . . . 11 (𝜑 → (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℝ)
2744nnnn0d 12694 . . . . . . . . . . . 12 (𝜑 → (𝐼 + 1) ∈ ℕ0)
27519, 21, 27, 18, 20, 28, 22, 29, 30, 31, 32, 33, 34, 35, 93, 260dchrisumlem1 27846 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐼 + 1) ∈ ℕ0) → (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
276274, 275mpdan 700 . . . . . . . . . . 11 (𝜑 → (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
277273, 93, 99, 269, 276lemul2ad 12284 . . . . . . . . . 10 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ (⦋(𝐼 + 1) / 𝑛⦌𝐴 · 𝑅))
278272, 277eqbrtrd 5130 . . . . . . . . 9 (𝜑 → (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ (⦋(𝐼 + 1) / 𝑛⦌𝐴 · 𝑅))
279223, 224, 227, 228, 264, 278le2addd 11962 . . . . . . . 8 (𝜑 → ((abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) + (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ ((⦋(𝐽 + 1) / 𝑛⦌𝐴 · 𝑅) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 · 𝑅)))
28093recnd 11364 . . . . . . . . 9 (𝜑 → 𝑅 ∈ ℂ)
281116, 126, 280adddird 11361 . . . . . . . 8 (𝜑 → ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) = ((⦋(𝐽 + 1) / 𝑛⦌𝐴 · 𝑅) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 · 𝑅)))
282279, 281breqtrrd 5136 . . . . . . 7 (𝜑 → ((abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) + (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅))
283134, 225, 215, 226, 282letrd 11494 . . . . . 6 (𝜑 → (abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅))
284154abscld 15635 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℝ)
28581, 284fsumrecl 15929 . . . . . . 7 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℝ)
28681, 154fsumabs 15997 . . . . . . 7 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
28793adantr 486 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → 𝑅 ∈ ℝ)
288219, 287remulcld 11366 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅) ∈ ℝ)
289135, 146syldan 603 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
290151adantr 486 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
291289, 290absmuld 15653 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) = ((abs‘(⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴)) · (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
292 elfzouz 13825 . . . . . . . . . . . . . . 15 (𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1)) → 𝑖 ∈ (ℤ≥‘(𝐼 + 1)))
293 uztrn 13010 . . . . . . . . . . . . . . 15 ((𝑖 ∈ (ℤ≥‘(𝐼 + 1)) ∧ (𝐼 + 1) ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ (ℤ≥‘𝑀))
294292, 249, 293syl2anr 609 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → 𝑖 ∈ (ℤ≥‘𝑀))
295 eluznn 13072 . . . . . . . . . . . . . . . . 17 ((𝑀 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ ℕ)
29631, 295sylan 592 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ ℕ)
297296, 137syl 18 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → (𝑖 + 1) ∈ ℝ+)
298296nnrpd 13189 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ ℝ+)
299333expia 1139 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝑛 ∈ ℝ+ ∧ 𝑥 ∈ ℝ+)) → ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴))
300299ralrimivva 3209 . . . . . . . . . . . . . . . . 17 (𝜑 → ∀𝑛 ∈ ℝ+ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴))
301300adantr 486 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → ∀𝑛 ∈ ℝ+ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴))
302 nfcv 2926 . . . . . . . . . . . . . . . . . 18 Ⅎ𝑛ℝ+
303 nfv 1949 . . . . . . . . . . . . . . . . . . 19 Ⅎ𝑛(𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥)
304 nfcv 2926 . . . . . . . . . . . . . . . . . . . 20 Ⅎ𝑛𝐵
305 nfcv 2926 . . . . . . . . . . . . . . . . . . . 20 Ⅎ𝑛 ≤
306304, 305, 59nfbr 5155 . . . . . . . . . . . . . . . . . . 19 Ⅎ𝑛 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴
307303, 306nfim 1931 . . . . . . . . . . . . . . . . . 18 Ⅎ𝑛((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴)
308302, 307nfralw 3313 . . . . . . . . . . . . . . . . 17 Ⅎ𝑛∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴)
309 breq2 5110 . . . . . . . . . . . . . . . . . . . 20 (𝑛 = 𝑖 → (𝑀 ≤ 𝑛 ↔ 𝑀 ≤ 𝑖))
310 breq1 5109 . . . . . . . . . . . . . . . . . . . 20 (𝑛 = 𝑖 → (𝑛 ≤ 𝑥 ↔ 𝑖 ≤ 𝑥))
311309, 310anbi12d 644 . . . . . . . . . . . . . . . . . . 19 (𝑛 = 𝑖 → ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) ↔ (𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥)))
31262breq2d 5118 . . . . . . . . . . . . . . . . . . 19 (𝑛 = 𝑖 → (𝐵 ≤ 𝐴 ↔ 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴))
313311, 312imbi12d 347 . . . . . . . . . . . . . . . . . 18 (𝑛 = 𝑖 → (((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) ↔ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
314313ralbidv 3189 . . . . . . . . . . . . . . . . 17 (𝑛 = 𝑖 → (∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) ↔ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
315308, 314rspc 3568 . . . . . . . . . . . . . . . 16 (𝑖 ∈ ℝ+ → (∀𝑛 ∈ ℝ+ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) → ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
316298, 301, 315sylc 66 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴))
317231lep1d 12275 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ≤ (𝑖 + 1))
318233, 317jca 521 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → (𝑀 ≤ 𝑖 ∧ 𝑖 ≤ (𝑖 + 1)))
319 breq2 5110 . . . . . . . . . . . . . . . . . 18 (𝑥 = (𝑖 + 1) → (𝑖 ≤ 𝑥 ↔ 𝑖 ≤ (𝑖 + 1)))
320319anbi2d 642 . . . . . . . . . . . . . . . . 17 (𝑥 = (𝑖 + 1) → ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) ↔ (𝑀 ≤ 𝑖 ∧ 𝑖 ≤ (𝑖 + 1))))
321 eqvisset 3474 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = (𝑖 + 1) → (𝑖 + 1) ∈ V)
322 eqtr3 2785 . . . . . . . . . . . . . . . . . . . . 21 ((𝑥 = (𝑖 + 1) ∧ 𝑛 = (𝑖 + 1)) → 𝑥 = 𝑛)
32330equcoms 2055 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 𝑛 → 𝐴 = 𝐵)
324322, 323syl 18 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 = (𝑖 + 1) ∧ 𝑛 = (𝑖 + 1)) → 𝐴 = 𝐵)
325321, 324csbied 3887 . . . . . . . . . . . . . . . . . . 19 (𝑥 = (𝑖 + 1) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 = 𝐵)
326325eqcomd 2769 . . . . . . . . . . . . . . . . . 18 (𝑥 = (𝑖 + 1) → 𝐵 = ⦋(𝑖 + 1) / 𝑛⦌𝐴)
327326breq1d 5116 . . . . . . . . . . . . . . . . 17 (𝑥 = (𝑖 + 1) → (𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴 ↔ ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴))
328320, 327imbi12d 347 . . . . . . . . . . . . . . . 16 (𝑥 = (𝑖 + 1) → (((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴) ↔ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ (𝑖 + 1)) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
329328rspcv 3576 . . . . . . . . . . . . . . 15 ((𝑖 + 1) ∈ ℝ+ → (∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴) → ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ (𝑖 + 1)) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
330297, 316, 318, 329syl3c 67 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴)
331294, 330syldan 603 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴)
332218, 217, 331abssuble0d 15631 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘(⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴)) = (⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴))
333332oveq1d 7458 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((abs‘(⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴)) · (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) = ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
334291, 333eqtrd 2798 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) = ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
335290abscld 15635 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℝ)
336217, 218subge0d 11933 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (0 ≤ (⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) ↔ ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴))
337331, 336mpbird 260 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → 0 ≤ (⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴))
338135peano2nnd 12379 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (𝑖 + 1) ∈ ℕ)
339338nnnn0d 12694 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (𝑖 + 1) ∈ ℕ0)
34019, 21, 27, 18, 20, 28, 22, 29, 30, 31, 32, 33, 34, 35, 93, 260dchrisumlem1 27846 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 + 1) ∈ ℕ0) → (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
341339, 340syldan 603 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
342335, 287, 219, 337, 341lemul2ad 12284 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅))
343334, 342eqbrtrd 5130 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅))
34481, 284, 288, 343fsumle 15995 . . . . . . . 8 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅))
345219recnd 11364 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) ∈ ℂ)
34681, 280, 345fsummulc1 15980 . . . . . . . . 9 (𝜑 → (Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅) = Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅))
347216oveq1d 7458 . . . . . . . . 9 (𝜑 → (Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅) = ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅))
348346, 347eqtr3d 2800 . . . . . . . 8 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅) = ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅))
349344, 348breqtrd 5134 . . . . . . 7 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅))
350156, 285, 222, 286, 349letrd 11494 . . . . . 6 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅))
351134, 156, 215, 222, 283, 350le2addd 11962 . . . . 5 (𝜑 → ((abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) + (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ (((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) + ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅)))
3521262timesd 12616 . . . . . . . 8 (𝜑 → (2 · ⦋(𝐼 + 1) / 𝑛⦌𝐴) = (⦋(𝐼 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴))
353126, 116, 126ppncand 11736 . . . . . . . 8 (𝜑 → ((⦋(𝐼 + 1) / 𝑛⦌𝐴 + ⦋(𝐽 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)) = (⦋(𝐼 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴))
354126, 116addcomd 11539 . . . . . . . . 9 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 + ⦋(𝐽 + 1) / 𝑛⦌𝐴) = (⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴))
355354oveq1d 7458 . . . . . . . 8 (𝜑 → ((⦋(𝐼 + 1) / 𝑛⦌𝐴 + ⦋(𝐽 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)) = ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)))
356352, 353, 3553eqtr2d 2804 . . . . . . 7 (𝜑 → (2 · ⦋(𝐼 + 1) / 𝑛⦌𝐴) = ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)))
357356oveq1d 7458 . . . . . 6 (𝜑 → ((2 · ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) = (((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)) · 𝑅))
358 2cnd 12448 . . . . . . 7 (𝜑 → 2 ∈ ℂ)
359358, 126, 280mul32d 11547 . . . . . 6 (𝜑 → ((2 · ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) = ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴))
360214recnd 11364 . . . . . . 7 (𝜑 → (⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) ∈ ℂ)
361221recnd 11364 . . . . . . 7 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) ∈ ℂ)
362360, 361, 280adddird 11361 . . . . . 6 (𝜑 → (((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)) · 𝑅) = (((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) + ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅)))
363357, 359, 3623eqtr3d 2806 . . . . 5 (𝜑 → ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴) = (((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) + ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅)))
364351, 363breqtrrd 5136 . . . 4 (𝜑 → ((abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) + (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴))
36590, 157, 100, 213, 364letrd 11494 . . 3 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) ≤ ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴))
366 2nn0 12650 . . . . . 6 2 ∈ ℕ0
367 nn0ge0 12658 . . . . . 6 (2 ∈ ℕ0 → 0 ≤ 2)
368366, 367mp1i 14 . . . . 5 (𝜑 → 0 ≤ 2)
369 0red 11338 . . . . . 6 (𝜑 → 0 ∈ ℝ)
370124absge0d 15643 . . . . . 6 (𝜑 → 0 ≤ (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))))
371369, 258, 93, 370, 262letrd 11494 . . . . 5 (𝜑 → 0 ≤ 𝑅)
37292, 93, 368, 371mulge0d 11920 . . . 4 (𝜑 → 0 ≤ (2 · 𝑅))
3734nnrpd 13189 . . . . 5 (𝜑 → (𝐼 + 1) ∈ ℝ+)
374 nfv 1949 . . . . . . . . 9 Ⅎ𝑛(𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥)
375304, 305, 103nfbr 5155 . . . . . . . . 9 Ⅎ𝑛 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴
376374, 375nfim 1931 . . . . . . . 8 Ⅎ𝑛((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴)
377302, 376nfralw 3313 . . . . . . 7 Ⅎ𝑛∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴)
378 breq2 5110 . . . . . . . . . 10 (𝑛 = 𝑈 → (𝑀 ≤ 𝑛 ↔ 𝑀 ≤ 𝑈))
379 breq1 5109 . . . . . . . . . 10 (𝑛 = 𝑈 → (𝑛 ≤ 𝑥 ↔ 𝑈 ≤ 𝑥))
380378, 379anbi12d 644 . . . . . . . . 9 (𝑛 = 𝑈 → ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) ↔ (𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥)))
381105breq2d 5118 . . . . . . . . 9 (𝑛 = 𝑈 → (𝐵 ≤ 𝐴 ↔ 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴))
382380, 381imbi12d 347 . . . . . . . 8 (𝑛 = 𝑈 → (((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) ↔ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴)))
383382ralbidv 3189 . . . . . . 7 (𝑛 = 𝑈 → (∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) ↔ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴)))
384377, 383rspc 3568 . . . . . 6 (𝑈 ∈ ℝ+ → (∀𝑛 ∈ ℝ+ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) → ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴)))
385101, 300, 384sylc 66 . . . . 5 (𝜑 → ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴))
386245, 246jca 521 . . . . 5 (𝜑 → (𝑀 ≤ 𝑈 ∧ 𝑈 ≤ (𝐼 + 1)))
387 breq2 5110 . . . . . . . 8 (𝑥 = (𝐼 + 1) → (𝑈 ≤ 𝑥 ↔ 𝑈 ≤ (𝐼 + 1)))
388387anbi2d 642 . . . . . . 7 (𝑥 = (𝐼 + 1) → ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) ↔ (𝑀 ≤ 𝑈 ∧ 𝑈 ≤ (𝐼 + 1))))
389 eqvisset 3474 . . . . . . . . . 10 (𝑥 = (𝐼 + 1) → (𝐼 + 1) ∈ V)
390 eqtr3 2785 . . . . . . . . . . 11 ((𝑥 = (𝐼 + 1) ∧ 𝑛 = (𝐼 + 1)) → 𝑥 = 𝑛)
391390, 323syl 18 . . . . . . . . . 10 ((𝑥 = (𝐼 + 1) ∧ 𝑛 = (𝐼 + 1)) → 𝐴 = 𝐵)
392389, 391csbied 3887 . . . . . . . . 9 (𝑥 = (𝐼 + 1) → ⦋(𝐼 + 1) / 𝑛⦌𝐴 = 𝐵)
393392eqcomd 2769 . . . . . . . 8 (𝑥 = (𝐼 + 1) → 𝐵 = ⦋(𝐼 + 1) / 𝑛⦌𝐴)
394393breq1d 5116 . . . . . . 7 (𝑥 = (𝐼 + 1) → (𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴 ↔ ⦋(𝐼 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑈 / 𝑛⦌𝐴))
395388, 394imbi12d 347 . . . . . 6 (𝑥 = (𝐼 + 1) → (((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴) ↔ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ (𝐼 + 1)) → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑈 / 𝑛⦌𝐴)))
396395rspcv 3576 . . . . 5 ((𝐼 + 1) ∈ ℝ+ → (∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴) → ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ (𝐼 + 1)) → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑈 / 𝑛⦌𝐴)))
397373, 385, 386, 396syl3c 67 . . . 4 (𝜑 → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑈 / 𝑛⦌𝐴)
39899, 108, 94, 372, 397lemul2ad 12284 . . 3 (𝜑 → ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴) ≤ ((2 · 𝑅) · ⦋𝑈 / 𝑛⦌𝐴))
39990, 100, 109, 365, 398letrd 11494 . 2 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) ≤ ((2 · 𝑅) · ⦋𝑈 / 𝑛⦌𝐴))
40089, 399eqbrtrd 5130 1 (𝜑 → (abs‘((seq1( + , 𝐹)‘𝐽) − (seq1( + , 𝐹)‘𝐼))) ≤ ((2 · 𝑅) · ⦋𝑈 / 𝑛⦌𝐴))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   ∧ w3a 1103   = wceq 1570   ∈ wcel 2147   ≠ wne 2959  ∀wral 3080  Vcvv 3454  ⦋csb 3851   ∩ cin 4092   ∪ cun 4152  ∅c0 4281   class class class wbr 5106   ↦ cmpt 5189  ‘cfv 6558  (class class class)co 7443  Fincfn 9001  ℂcc 11225  ℝcr 11226  0cc0 11227  1c1 11228   + caddc 11230   · cmul 11232  +∞cpnf 11367   ≤ cle 11371   − cmin 11568  ℕcn 12362  2c2 12424  ℕ0cn0 12633  ℤcz 12720  ℤ≥cuz 12992  ℝ+crp 13147  [,)cico 13505  ...cfz 13666  ..^cfzo 13815  seqcseq 14171  abscabs 15430   ⇝𝑟 crli 15681  Σcsu 15882  Basecbs 17416  0gc0g 17639  ℤRHomczrh 21835  ℤ/nℤczn 21838  DChrcdchr 27589
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 1945  ax-6 2002  ax-7 2043  ax-8 2149  ax-9 2157  ax-10 2180  ax-11 2197  ax-12 2216  ax-ext 2735  ax-rep 5235  ax-sep 5252  ax-nul 5263  ax-pow 5331  ax-pr 5395  ax-un 7775  ax-inf2 9669  ax-cnex 11283  ax-resscn 11284  ax-1cn 11285  ax-icn 11286  ax-addcl 11287  ax-addrcl 11288  ax-mulcl 11289  ax-mulrcl 11290  ax-mulcom 11291  ax-addass 11292  ax-mulass 11293  ax-distr 11294  ax-i2m1 11295  ax-1ne0 11296  ax-1rid 11297  ax-rnegex 11298  ax-rrecex 11299  ax-cnre 11300  ax-pre-lttri 11301  ax-pre-lttrn 11302  ax-pre-ltadd 11303  ax-pre-mulgt0 11304  ax-pre-sup 11305  ax-addf 11306  ax-mulf 11307
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 2102  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2839  df-nfc 2913  df-ne 2960  df-nel 3066  df-ral 3081  df-rex 3091  df-rmo 3369  df-reu 3370  df-rab 3417  df-v 3456  df-sbc 3743  df-csb 3852  df-ss 3901  df-pss 4017  df-dif 4050  df-in 4094  df-un 4154  df-nul 4282  df-if 4486  df-pw 4562  df-sn 4589  df-pr 4591  df-tp 4593  df-op 4839  df-uni 4871  df-int 4911  df-iun 4956  df-br 5107  df-opab 5171  df-mpt 5190  df-tr 5216  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 6322  df-ord 6383  df-on 6384  df-lim 6385  df-suc 6386  df-iota 6512  df-fun 6560  df-fn 6561  df-f 6562  df-f1 6563  df-fo 6564  df-f1o 6565  df-fv 6566  df-isom 6567  df-riota 7400  df-ov 7446  df-oprab 7447  df-mpo 7448  df-of 7717  df-om 7902  df-1st 8025  df-2nd 8026  df-tpos 8271  df-frecs 8327  df-wrecs 8358  df-recs 8407  df-rdg 8446  df-1o 8504  df-oadd 8508  df-er 8745  df-ec 8747  df-qs 8751  df-map 8877  df-pm 8878  df-en 9002  df-dom 9003  df-sdom 9004  df-fin 9005  df-sup 9461  df-inf 9462  df-oi 9531  df-card 10047  df-pnf 11372  df-mnf 11373  df-xr 11374  df-ltxr 11375  df-le 11376  df-sub 11570  df-neg 11571  df-div 12001  df-nn 12363  df-2 12432  df-3 12433  df-4 12434  df-5 12435  df-6 12436  df-7 12437  df-8 12438  df-9 12439  df-n0 12634  df-xnn0 12707  df-z 12721  df-dec 12842  df-uz 12993  df-rp 13148  df-ico 13509  df-fz 13667  df-fzo 13816  df-fl 13959  df-mod 14037  df-seq 14172  df-exp 14232  df-hash 14502  df-cj 15295  df-re 15296  df-im 15297  df-sqrt 15431  df-abs 15432  df-clim 15684  df-rlim 15685  df-sum 15883  df-dvds 16452  df-gcd 16694  df-phi 16972  df-struct 17354  df-sets 17371  df-slot 17389  df-ndx 17401  df-base 17417  df-ress 17438  df-plusg 17470  df-mulr 17471  df-starv 17472  df-sca 17473  df-vsca 17474  df-ip 17475  df-tset 17476  df-ple 17477  df-ds 17479  df-unif 17480  df-0g 17641  df-imas 17709  df-qus 17710  df-mgm 18845  df-sgrp 18937  df-mnd 18953  df-mhm 19007  df-grp 19176  df-minusg 19177  df-sbg 19178  df-mulg 19307  df-subg 19362  df-nsg 19363  df-eqg 19364  df-ghm 19457  df-cmn 20026  df-abl 20027  df-mgp 20391  df-rng 20405  df-ur 20438  df-ring 20491  df-cring 20492  df-oppr 20597  df-dvdsr 20617  df-unit 20618  df-invr 20648  df-rhm 20732  df-subrng 20828  df-subrg 20852  df-lmod 21167  df-lss 21237  df-lsp 21277  df-sra 21478  df-rgmod 21479  df-lidl 21516  df-rsp 21517  df-2idl 21573  df-cnfld 21709  df-zring 21783  df-zrh 21839  df-zn 21842  df-dchr 27590
This theorem is used by:  dchrisumlem3  27848
  Copyright terms: Public domain W3C validator