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

Theorem dchrisumlem2 27780
Description: Lemma for dchrisum 27782. 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 13796 . . . . . . . . 9 ((1..^(𝐼 + 1)) ∩ ((𝐼 + 1)..^(𝐽 + 1))) = ∅
21a1i 11 . . . . . . . 8 (𝜑 → ((1..^(𝐼 + 1)) ∩ ((𝐼 + 1)..^(𝐽 + 1))) = ∅)
3 dchrisumlem2.4 . . . . . . . . . . . 12 (𝜑 → 𝐼 ∈ ℕ)
43peano2nnd 12321 . . . . . . . . . . 11 (𝜑 → (𝐼 + 1) ∈ ℕ)
5 nnuz 12973 . . . . . . . . . . 11 ℕ = (ℤ≥‘1)
64, 5eleqtrdi 2870 . . . . . . . . . 10 (𝜑 → (𝐼 + 1) ∈ (ℤ≥‘1))
7 dchrisumlem2.5 . . . . . . . . . . 11 (𝜑 → 𝐽 ∈ (ℤ≥‘𝐼))
8 eluzp1p1 12962 . . . . . . . . . . 11 (𝐽 ∈ (ℤ≥‘𝐼) → (𝐽 + 1) ∈ (ℤ≥‘(𝐼 + 1)))
97, 8syl 18 . . . . . . . . . 10 (𝜑 → (𝐽 + 1) ∈ (ℤ≥‘(𝐼 + 1)))
10 elfzuzb 13619 . . . . . . . . . 10 ((𝐼 + 1) ∈ (1...(𝐽 + 1)) ↔ ((𝐼 + 1) ∈ (ℤ≥‘1) ∧ (𝐽 + 1) ∈ (ℤ≥‘(𝐼 + 1))))
116, 9, 10sylanbrc 595 . . . . . . . . 9 (𝜑 → (𝐼 + 1) ∈ (1...(𝐽 + 1)))
12 fzosplit 13795 . . . . . . . . 9 ((𝐼 + 1) ∈ (1...(𝐽 + 1)) → (1..^(𝐽 + 1)) = ((1..^(𝐼 + 1)) ∪ ((𝐼 + 1)..^(𝐽 + 1))))
1311, 12syl 18 . . . . . . . 8 (𝜑 → (1..^(𝐽 + 1)) = ((1..^(𝐼 + 1)) ∪ ((𝐼 + 1)..^(𝐽 + 1))))
14 fzofi 14085 . . . . . . . . 9 (1..^(𝐽 + 1)) ∈ Fin
1514a1i 11 . . . . . . . 8 (𝜑 → (1..^(𝐽 + 1)) ∈ Fin)
16 elfzouz 13766 . . . . . . . . . 10 (𝑖 ∈ (1..^(𝐽 + 1)) → 𝑖 ∈ (ℤ≥‘1))
1716, 5eleqtrrdi 2871 . . . . . . . . 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 12683 . . . . . . . . . . . 12 (𝑖 ∈ ℕ → 𝑖 ∈ ℤ)
2524adantl 487 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ ℤ)
2618, 19, 20, 21, 23, 25dchrzrhcl 27535 . . . . . . . . . 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 27778 . . . . . . . . . . . . 13 (𝜑 → ((𝑖 ∈ ℝ+ → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ) ∧ (𝑖 ∈ (𝑀[,)+∞) → 0 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
3736simpld 500 . . . . . . . . . . . 12 (𝜑 → (𝑖 ∈ ℝ+ → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ))
38 nnrp 13101 . . . . . . . . . . . 12 (𝑖 ∈ ℕ → 𝑖 ∈ ℝ+)
3937, 38impel 515 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ℕ) → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ)
4039recnd 11308 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ℕ) → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℂ)
4126, 40mulcld 11300 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ℕ) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
4217, 41sylan2 605 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ (1..^(𝐽 + 1))) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
432, 13, 15, 42fsumsplit 15874 . . . . . . 7 (𝜑 → Σ𝑖 ∈ (1..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (Σ𝑖 ∈ (1..^(𝐼 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)))
44 eluzelz 12944 . . . . . . . . 9 (𝐽 ∈ (ℤ≥‘𝐼) → 𝐽 ∈ ℤ)
45 fzval3 13837 . . . . . . . . 9 (𝐽 ∈ ℤ → (1...𝐽) = (1..^(𝐽 + 1)))
467, 44, 453syl 19 . . . . . . . 8 (𝜑 → (1...𝐽) = (1..^(𝐽 + 1)))
4746sumeq1d 15834 . . . . . . 7 (𝜑 → Σ𝑖 ∈ (1...𝐽)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = Σ𝑖 ∈ (1..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
483nnzd 12688 . . . . . . . . . 10 (𝜑 → 𝐼 ∈ ℤ)
49 fzval3 13837 . . . . . . . . . 10 (𝐼 ∈ ℤ → (1...𝐼) = (1..^(𝐼 + 1)))
5048, 49syl 18 . . . . . . . . 9 (𝜑 → (1...𝐼) = (1..^(𝐼 + 1)))
5150sumeq1d 15834 . . . . . . . 8 (𝜑 → Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = Σ𝑖 ∈ (1..^(𝐼 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
5251oveq1d 7423 . . . . . . 7 (𝜑 → (Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) = (Σ𝑖 ∈ (1..^(𝐼 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)))
5343, 47, 523eqtr4d 2805 . . . . . 6 (𝜑 → Σ𝑖 ∈ (1...𝐽)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)))
54 elfznn 13655 . . . . . . . 8 (𝑖 ∈ (1...𝐽) → 𝑖 ∈ ℕ)
55 simpr 490 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ ℕ)
56 nfcv 2922 . . . . . . . . . 10 Ⅎ𝑛𝑖
57 nfcv 2922 . . . . . . . . . . 11 Ⅎ𝑛(𝑋‘(𝐿‘𝑖))
58 nfcv 2922 . . . . . . . . . . 11 Ⅎ𝑛 ·
59 nfcsb1v 3870 . . . . . . . . . . 11 Ⅎ𝑛⦋𝑖 / 𝑛⦌𝐴
6057, 58, 59nfov 7438 . . . . . . . . . 10 Ⅎ𝑛((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)
61 2fveq3 6878 . . . . . . . . . . 11 (𝑛 = 𝑖 → (𝑋‘(𝐿‘𝑛)) = (𝑋‘(𝐿‘𝑖)))
62 csbeq1a 3860 . . . . . . . . . . 11 (𝑛 = 𝑖 → 𝐴 = ⦋𝑖 / 𝑛⦌𝐴)
6361, 62oveq12d 7426 . . . . . . . . . 10 (𝑛 = 𝑖 → ((𝑋‘(𝐿‘𝑛)) · 𝐴) = ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
6456, 60, 63, 35fvmptf 7003 . . . . . . . . 9 ((𝑖 ∈ ℕ ∧ ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ) → (𝐹‘𝑖) = ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
6555, 41, 64syl2anc 596 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ ℕ) → (𝐹‘𝑖) = ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
6654, 65sylan2 605 . . . . . . 7 ((𝜑 ∧ 𝑖 ∈ (1...𝐽)) → (𝐹‘𝑖) = ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
673, 5eleqtrdi 2870 . . . . . . . 8 (𝜑 → 𝐼 ∈ (ℤ≥‘1))
68 uztrn 12952 . . . . . . . 8 ((𝐽 ∈ (ℤ≥‘𝐼) ∧ 𝐼 ∈ (ℤ≥‘1)) → 𝐽 ∈ (ℤ≥‘1))
697, 67, 68syl2anc 596 . . . . . . 7 (𝜑 → 𝐽 ∈ (ℤ≥‘1))
7054, 41sylan2 605 . . . . . . 7 ((𝜑 ∧ 𝑖 ∈ (1...𝐽)) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
7166, 69, 70fsumser 15863 . . . . . 6 (𝜑 → Σ𝑖 ∈ (1...𝐽)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (seq1( + , 𝐹)‘𝐽))
7253, 71eqtr3d 2797 . . . . 5 (𝜑 → (Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) = (seq1( + , 𝐹)‘𝐽))
73 elfznn 13655 . . . . . . 7 (𝑖 ∈ (1...𝐼) → 𝑖 ∈ ℕ)
7473, 65sylan2 605 . . . . . 6 ((𝜑 ∧ 𝑖 ∈ (1...𝐼)) → (𝐹‘𝑖) = ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
7573, 41sylan2 605 . . . . . 6 ((𝜑 ∧ 𝑖 ∈ (1...𝐼)) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
7674, 67, 75fsumser 15863 . . . . 5 (𝜑 → Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (seq1( + , 𝐹)‘𝐼))
7772, 76oveq12d 7426 . . . 4 (𝜑 → ((Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) − Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) = ((seq1( + , 𝐹)‘𝐽) − (seq1( + , 𝐹)‘𝐼)))
78 fzfid 14084 . . . . . 6 (𝜑 → (1...𝐼) ∈ Fin)
7978, 75fsumcl 15866 . . . . 5 (𝜑 → Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
80 fzofi 14085 . . . . . . 7 ((𝐼 + 1)..^(𝐽 + 1)) ∈ Fin
8180a1i 11 . . . . . 6 (𝜑 → ((𝐼 + 1)..^(𝐽 + 1)) ∈ Fin)
82 ssun2 4124 . . . . . . . . 9 ((𝐼 + 1)..^(𝐽 + 1)) ⊆ ((1..^(𝐼 + 1)) ∪ ((𝐼 + 1)..^(𝐽 + 1)))
8382, 13sseqtrrid 3973 . . . . . . . 8 (𝜑 → ((𝐼 + 1)..^(𝐽 + 1)) ⊆ (1..^(𝐽 + 1)))
8483sselda 3930 . . . . . . 7 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → 𝑖 ∈ (1..^(𝐽 + 1)))
8584, 42syldan 603 . . . . . 6 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
8681, 85fsumcl 15866 . . . . 5 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
8779, 86pncan2d 11642 . . . 4 (𝜑 → ((Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) + Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) − Σ𝑖 ∈ (1...𝐼)((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) = Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
8877, 87eqtr3d 2797 . . 3 (𝜑 → ((seq1( + , 𝐹)‘𝐽) − (seq1( + , 𝐹)‘𝐼)) = Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴))
8988fveq2d 6877 . 2 (𝜑 → (abs‘((seq1( + , 𝐹)‘𝐽) − (seq1( + , 𝐹)‘𝐼))) = (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)))
9086abscld 15573 . . 3 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) ∈ ℝ)
91 2re 12386 . . . . . 6 2 ∈ ℝ
9291a1i 11 . . . . 5 (𝜑 → 2 ∈ ℝ)
93 dchrisum.9 . . . . 5 (𝜑 → 𝑅 ∈ ℝ)
9492, 93remulcld 11310 . . . 4 (𝜑 → (2 · 𝑅) ∈ ℝ)
9539ralrimiva 3154 . . . . 5 (𝜑 → ∀𝑖 ∈ ℕ ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ)
96 csbeq1 3849 . . . . . . 7 (𝑖 = (𝐼 + 1) → ⦋𝑖 / 𝑛⦌𝐴 = ⦋(𝐼 + 1) / 𝑛⦌𝐴)
9796eleq1d 2845 . . . . . 6 (𝑖 = (𝐼 + 1) → (⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ ↔ ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∈ ℝ))
9897rspcv 3572 . . . . 5 ((𝐼 + 1) ∈ ℕ → (∀𝑖 ∈ ℕ ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∈ ℝ))
994, 95, 98sylc 66 . . . 4 (𝜑 → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∈ ℝ)
10094, 99remulcld 11310 . . 3 (𝜑 → ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴) ∈ ℝ)
101 dchrisumlem2.1 . . . . 5 (𝜑 → 𝑈 ∈ ℝ+)
10232ralrimiva 3154 . . . . 5 (𝜑 → ∀𝑛 ∈ ℝ+ 𝐴 ∈ ℝ)
103 nfcsb1v 3870 . . . . . . 7 Ⅎ𝑛⦋𝑈 / 𝑛⦌𝐴
104103nfel1 2938 . . . . . 6 Ⅎ𝑛⦋𝑈 / 𝑛⦌𝐴 ∈ ℝ
105 csbeq1a 3860 . . . . . . 7 (𝑛 = 𝑈 → 𝐴 = ⦋𝑈 / 𝑛⦌𝐴)
106105eleq1d 2845 . . . . . 6 (𝑛 = 𝑈 → (𝐴 ∈ ℝ ↔ ⦋𝑈 / 𝑛⦌𝐴 ∈ ℝ))
107104, 106rspc 3564 . . . . 5 (𝑈 ∈ ℝ+ → (∀𝑛 ∈ ℝ+ 𝐴 ∈ ℝ → ⦋𝑈 / 𝑛⦌𝐴 ∈ ℝ))
108101, 102, 107sylc 66 . . . 4 (𝜑 → ⦋𝑈 / 𝑛⦌𝐴 ∈ ℝ)
10994, 108remulcld 11310 . . 3 (𝜑 → ((2 · 𝑅) · ⦋𝑈 / 𝑛⦌𝐴) ∈ ℝ)
11069, 5eleqtrrdi 2871 . . . . . . . . . . . 12 (𝜑 → 𝐽 ∈ ℕ)
111110peano2nnd 12321 . . . . . . . . . . 11 (𝜑 → (𝐽 + 1) ∈ ℕ)
112111nnrpd 13131 . . . . . . . . . 10 (𝜑 → (𝐽 + 1) ∈ ℝ+)
11319, 21, 27, 18, 20, 28, 22, 29, 30, 31, 32, 33, 34, 35dchrisumlema 27778 . . . . . . . . . . 11 (𝜑 → (((𝐽 + 1) ∈ ℝ+ → ⦋(𝐽 + 1) / 𝑛⦌𝐴 ∈ ℝ) ∧ ((𝐽 + 1) ∈ (𝑀[,)+∞) → 0 ≤ ⦋(𝐽 + 1) / 𝑛⦌𝐴)))
114113simpld 500 . . . . . . . . . 10 (𝜑 → ((𝐽 + 1) ∈ ℝ+ → ⦋(𝐽 + 1) / 𝑛⦌𝐴 ∈ ℝ))
115112, 114mpd 16 . . . . . . . . 9 (𝜑 → ⦋(𝐽 + 1) / 𝑛⦌𝐴 ∈ ℝ)
116115recnd 11308 . . . . . . . 8 (𝜑 → ⦋(𝐽 + 1) / 𝑛⦌𝐴 ∈ ℂ)
117 fzofi 14085 . . . . . . . . . 10 (0..^(𝐽 + 1)) ∈ Fin
118117a1i 11 . . . . . . . . 9 (𝜑 → (0..^(𝐽 + 1)) ∈ Fin)
119 elfzoelz 13761 . . . . . . . . . 10 (𝑛 ∈ (0..^(𝐽 + 1)) → 𝑛 ∈ ℤ)
12022adantr 486 . . . . . . . . . . 11 ((𝜑 ∧ 𝑛 ∈ ℤ) → 𝑋 ∈ 𝐷)
121 simpr 490 . . . . . . . . . . 11 ((𝜑 ∧ 𝑛 ∈ ℤ) → 𝑛 ∈ ℤ)
12218, 19, 20, 21, 120, 121dchrzrhcl 27535 . . . . . . . . . 10 ((𝜑 ∧ 𝑛 ∈ ℤ) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
123119, 122sylan2 605 . . . . . . . . 9 ((𝜑 ∧ 𝑛 ∈ (0..^(𝐽 + 1))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
124118, 123fsumcl 15866 . . . . . . . 8 (𝜑 → Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
125116, 124mulcld 11300 . . . . . . 7 (𝜑 → (⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℂ)
12699recnd 11308 . . . . . . . 8 (𝜑 → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∈ ℂ)
127 fzofi 14085 . . . . . . . . . 10 (0..^(𝐼 + 1)) ∈ Fin
128127a1i 11 . . . . . . . . 9 (𝜑 → (0..^(𝐼 + 1)) ∈ Fin)
129 elfzoelz 13761 . . . . . . . . . 10 (𝑛 ∈ (0..^(𝐼 + 1)) → 𝑛 ∈ ℤ)
130129, 122sylan2 605 . . . . . . . . 9 ((𝜑 ∧ 𝑛 ∈ (0..^(𝐼 + 1))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
131128, 130fsumcl 15866 . . . . . . . 8 (𝜑 → Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
132126, 131mulcld 11300 . . . . . . 7 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℂ)
133125, 132subcld 11640 . . . . . 6 (𝜑 → ((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℂ)
134133abscld 15573 . . . . 5 (𝜑 → (abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ∈ ℝ)
13584, 17syl 18 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → 𝑖 ∈ ℕ)
136 peano2nn 12316 . . . . . . . . . . . . 13 (𝑖 ∈ ℕ → (𝑖 + 1) ∈ ℕ)
137136nnrpd 13131 . . . . . . . . . . . 12 (𝑖 ∈ ℕ → (𝑖 + 1) ∈ ℝ+)
138 nfcsb1v 3870 . . . . . . . . . . . . . . 15 Ⅎ𝑛⦋(𝑖 + 1) / 𝑛⦌𝐴
139138nfel1 2938 . . . . . . . . . . . . . 14 Ⅎ𝑛⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ
140 csbeq1a 3860 . . . . . . . . . . . . . . 15 (𝑛 = (𝑖 + 1) → 𝐴 = ⦋(𝑖 + 1) / 𝑛⦌𝐴)
141140eleq1d 2845 . . . . . . . . . . . . . 14 (𝑛 = (𝑖 + 1) → (𝐴 ∈ ℝ ↔ ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ))
142139, 141rspc 3564 . . . . . . . . . . . . 13 ((𝑖 + 1) ∈ ℝ+ → (∀𝑛 ∈ ℝ+ 𝐴 ∈ ℝ → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ))
143142impcom 413 . . . . . . . . . . . 12 ((∀𝑛 ∈ ℝ+ 𝐴 ∈ ℝ ∧ (𝑖 + 1) ∈ ℝ+) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ)
144102, 137, 143syl2an 608 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ℕ) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ)
145144, 39resubcld 11713 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ℕ) → (⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) ∈ ℝ)
146145recnd 11308 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ℕ) → (⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
147 fzofi 14085 . . . . . . . . . . . 12 (0..^(𝑖 + 1)) ∈ Fin
148147a1i 11 . . . . . . . . . . 11 (𝜑 → (0..^(𝑖 + 1)) ∈ Fin)
149 elfzoelz 13761 . . . . . . . . . . . 12 (𝑛 ∈ (0..^(𝑖 + 1)) → 𝑛 ∈ ℤ)
150149, 122sylan2 605 . . . . . . . . . . 11 ((𝜑 ∧ 𝑛 ∈ (0..^(𝑖 + 1))) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
151148, 150fsumcl 15866 . . . . . . . . . 10 (𝜑 → Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
152151adantr 486 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ℕ) → Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
153146, 152mulcld 11300 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ ℕ) → ((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℂ)
154135, 153syldan 603 . . . . . . 7 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℂ)
15581, 154fsumcl 15866 . . . . . 6 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℂ)
156155abscld 15573 . . . . 5 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℝ)
157134, 156readdcld 11309 . . . 4 (𝜑 → ((abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) + (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))) ∈ ℝ)
15826, 40mulcomd 11301 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ℕ) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (⦋𝑖 / 𝑛⦌𝐴 · (𝑋‘(𝐿‘𝑖))))
159 nnnn0 12582 . . . . . . . . . . . . . . . 16 (𝑖 ∈ ℕ → 𝑖 ∈ ℕ0)
160159adantl 487 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ ℕ0)
161 nn0uz 12972 . . . . . . . . . . . . . . 15 ℕ0 = (ℤ≥‘0)
162160, 161eleqtrdi 2870 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑖 ∈ ℕ) → 𝑖 ∈ (ℤ≥‘0))
163 elfzelz 13625 . . . . . . . . . . . . . . 15 (𝑛 ∈ (0...𝑖) → 𝑛 ∈ ℤ)
164122adantlr 728 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ 𝑛 ∈ ℤ) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
165163, 164sylan2 605 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ 𝑛 ∈ (0...𝑖)) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
166162, 165, 61fzosump1 15885 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑖 ∈ ℕ) → Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) = (Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)) + (𝑋‘(𝐿‘𝑖))))
167166oveq1d 7423 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ℕ) → (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛))) = ((Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)) + (𝑋‘(𝐿‘𝑖))) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛))))
168 fzofi 14085 . . . . . . . . . . . . . . 15 (0..^𝑖) ∈ Fin
169168a1i 11 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑖 ∈ ℕ) → (0..^𝑖) ∈ Fin)
170 elfzoelz 13761 . . . . . . . . . . . . . . 15 (𝑛 ∈ (0..^𝑖) → 𝑛 ∈ ℤ)
171170, 164sylan2 605 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑖 ∈ ℕ) ∧ 𝑛 ∈ (0..^𝑖)) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
172169, 171fsumcl 15866 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑖 ∈ ℕ) → Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
173172, 26pncan2d 11642 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ℕ) → ((Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)) + (𝑋‘(𝐿‘𝑖))) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛))) = (𝑋‘(𝐿‘𝑖)))
174167, 173eqtr2d 2796 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ℕ) → (𝑋‘(𝐿‘𝑖)) = (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛))))
175174oveq2d 7424 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ℕ) → (⦋𝑖 / 𝑛⦌𝐴 · (𝑋‘(𝐿‘𝑖))) = (⦋𝑖 / 𝑛⦌𝐴 · (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))))
176158, 175eqtrd 2795 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ℕ) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (⦋𝑖 / 𝑛⦌𝐴 · (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))))
177135, 176syldan 603 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (⦋𝑖 / 𝑛⦌𝐴 · (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))))
178177sumeq2dv 15836 . . . . . . 7 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 · (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))))
179 csbeq1 3849 . . . . . . . . 9 (𝑘 = 𝑖 → ⦋𝑘 / 𝑛⦌𝐴 = ⦋𝑖 / 𝑛⦌𝐴)
180 oveq2 7416 . . . . . . . . . 10 (𝑘 = 𝑖 → (0..^𝑘) = (0..^𝑖))
181180sumeq1d 15834 . . . . . . . . 9 (𝑘 = 𝑖 → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))
182179, 181jca 521 . . . . . . . 8 (𝑘 = 𝑖 → (⦋𝑘 / 𝑛⦌𝐴 = ⦋𝑖 / 𝑛⦌𝐴 ∧ Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛))))
183 csbeq1 3849 . . . . . . . . 9 (𝑘 = (𝑖 + 1) → ⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝑖 + 1) / 𝑛⦌𝐴)
184 oveq2 7416 . . . . . . . . . 10 (𝑘 = (𝑖 + 1) → (0..^𝑘) = (0..^(𝑖 + 1)))
185184sumeq1d 15834 . . . . . . . . 9 (𝑘 = (𝑖 + 1) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))
186183, 185jca 521 . . . . . . . 8 (𝑘 = (𝑖 + 1) → (⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∧ Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))
187 csbeq1 3849 . . . . . . . . 9 (𝑘 = (𝐼 + 1) → ⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝐼 + 1) / 𝑛⦌𝐴)
188 oveq2 7416 . . . . . . . . . 10 (𝑘 = (𝐼 + 1) → (0..^𝑘) = (0..^(𝐼 + 1)))
189188sumeq1d 15834 . . . . . . . . 9 (𝑘 = (𝐼 + 1) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))
190187, 189jca 521 . . . . . . . 8 (𝑘 = (𝐼 + 1) → (⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∧ Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))
191 csbeq1 3849 . . . . . . . . 9 (𝑘 = (𝐽 + 1) → ⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝐽 + 1) / 𝑛⦌𝐴)
192 oveq2 7416 . . . . . . . . . 10 (𝑘 = (𝐽 + 1) → (0..^𝑘) = (0..^(𝐽 + 1)))
193192sumeq1d 15834 . . . . . . . . 9 (𝑘 = (𝐽 + 1) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))
194191, 193jca 521 . . . . . . . 8 (𝑘 = (𝐽 + 1) → (⦋𝑘 / 𝑛⦌𝐴 = ⦋(𝐽 + 1) / 𝑛⦌𝐴 ∧ Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) = Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))))
19540ralrimiva 3154 . . . . . . . . 9 (𝜑 → ∀𝑖 ∈ ℕ ⦋𝑖 / 𝑛⦌𝐴 ∈ ℂ)
196 elfzuz 13621 . . . . . . . . . 10 (𝑘 ∈ ((𝐼 + 1)...(𝐽 + 1)) → 𝑘 ∈ (ℤ≥‘(𝐼 + 1)))
197 eluznn 13014 . . . . . . . . . 10 (((𝐼 + 1) ∈ ℕ ∧ 𝑘 ∈ (ℤ≥‘(𝐼 + 1))) → 𝑘 ∈ ℕ)
1984, 196, 197syl2an 608 . . . . . . . . 9 ((𝜑 ∧ 𝑘 ∈ ((𝐼 + 1)...(𝐽 + 1))) → 𝑘 ∈ ℕ)
199 csbeq1 3849 . . . . . . . . . . 11 (𝑖 = 𝑘 → ⦋𝑖 / 𝑛⦌𝐴 = ⦋𝑘 / 𝑛⦌𝐴)
200199eleq1d 2845 . . . . . . . . . 10 (𝑖 = 𝑘 → (⦋𝑖 / 𝑛⦌𝐴 ∈ ℂ ↔ ⦋𝑘 / 𝑛⦌𝐴 ∈ ℂ))
201200rspccva 3575 . . . . . . . . 9 ((∀𝑖 ∈ ℕ ⦋𝑖 / 𝑛⦌𝐴 ∈ ℂ ∧ 𝑘 ∈ ℕ) → ⦋𝑘 / 𝑛⦌𝐴 ∈ ℂ)
202195, 198, 201syl2an2r 698 . . . . . . . 8 ((𝜑 ∧ 𝑘 ∈ ((𝐼 + 1)...(𝐽 + 1))) → ⦋𝑘 / 𝑛⦌𝐴 ∈ ℂ)
203 fzofi 14085 . . . . . . . . . . 11 (0..^𝑘) ∈ Fin
204203a1i 11 . . . . . . . . . 10 (𝜑 → (0..^𝑘) ∈ Fin)
205 elfzoelz 13761 . . . . . . . . . . 11 (𝑛 ∈ (0..^𝑘) → 𝑛 ∈ ℤ)
206205, 122sylan2 605 . . . . . . . . . 10 ((𝜑 ∧ 𝑛 ∈ (0..^𝑘)) → (𝑋‘(𝐿‘𝑛)) ∈ ℂ)
207204, 206fsumcl 15866 . . . . . . . . 9 (𝜑 → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
208207adantr 486 . . . . . . . 8 ((𝜑 ∧ 𝑘 ∈ ((𝐼 + 1)...(𝐽 + 1))) → Σ𝑛 ∈ (0..^𝑘)(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
209182, 186, 190, 194, 9, 202, 208fsumparts 15940 . . . . . . 7 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 · (Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) − Σ𝑛 ∈ (0..^𝑖)(𝑋‘(𝐿‘𝑛)))) = (((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) − Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
210178, 209eqtrd 2795 . . . . . 6 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴) = (((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) − Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
211210fveq2d 6877 . . . . 5 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) = (abs‘(((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) − Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))))
212133, 155abs2dif2d 15595 . . . . 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 5126 . . . 4 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) ≤ ((abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) + (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))))
214115, 99readdcld 11309 . . . . . . 7 (𝜑 → (⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) ∈ ℝ)
215214, 93remulcld 11310 . . . . . 6 (𝜑 → ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) ∈ ℝ)
216179, 183, 187, 191, 9, 202telfsumo 15936 . . . . . . . 8 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) = (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴))
217135, 39syldan 603 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ⦋𝑖 / 𝑛⦌𝐴 ∈ ℝ)
218135, 144syldan 603 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ∈ ℝ)
219217, 218resubcld 11713 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) ∈ ℝ)
22081, 219fsumrecl 15867 . . . . . . . 8 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) ∈ ℝ)
221216, 220eqeltrrd 2861 . . . . . . 7 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) ∈ ℝ)
222221, 93remulcld 11310 . . . . . 6 (𝜑 → ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅) ∈ ℝ)
223125abscld 15573 . . . . . . . 8 (𝜑 → (abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℝ)
224132abscld 15573 . . . . . . . 8 (𝜑 → (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℝ)
225223, 224readdcld 11309 . . . . . . 7 (𝜑 → ((abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) + (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ∈ ℝ)
226125, 132abs2dif2d 15595 . . . . . . 7 (𝜑 → (abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ ((abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) + (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))))
227115, 93remulcld 11310 . . . . . . . . 9 (𝜑 → (⦋(𝐽 + 1) / 𝑛⦌𝐴 · 𝑅) ∈ ℝ)
22899, 93remulcld 11310 . . . . . . . . 9 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 · 𝑅) ∈ ℝ)
229116, 124absmuld 15591 . . . . . . . . . . 11 (𝜑 → (abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) = ((abs‘⦋(𝐽 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))))
230 eluzelre 12945 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (ℤ≥‘𝑀) → 𝑖 ∈ ℝ)
231230adantl 487 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ ℝ)
232 eluzle 12947 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (ℤ≥‘𝑀) → 𝑀 ≤ 𝑖)
233232adantl 487 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑀 ≤ 𝑖)
23431nnred 12319 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → 𝑀 ∈ ℝ)
235234adantr 486 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑀 ∈ ℝ)
236 elicopnf 13545 . . . . . . . . . . . . . . . . . . 19 (𝑀 ∈ ℝ → (𝑖 ∈ (𝑀[,)+∞) ↔ (𝑖 ∈ ℝ ∧ 𝑀 ≤ 𝑖)))
237235, 236syl 18 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → (𝑖 ∈ (𝑀[,)+∞) ↔ (𝑖 ∈ ℝ ∧ 𝑀 ≤ 𝑖)))
238231, 233, 237mpbir2and 726 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ (𝑀[,)+∞))
239238ex 418 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑖 ∈ (ℤ≥‘𝑀) → 𝑖 ∈ (𝑀[,)+∞)))
240239ssrdv 3936 . . . . . . . . . . . . . . 15 (𝜑 → (ℤ≥‘𝑀) ⊆ (𝑀[,)+∞))
24131nnzd 12688 . . . . . . . . . . . . . . . . 17 (𝜑 → 𝑀 ∈ ℤ)
24248peano2zd 12775 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐼 + 1) ∈ ℤ)
243101rpred 13133 . . . . . . . . . . . . . . . . . 18 (𝜑 → 𝑈 ∈ ℝ)
2444nnred 12319 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝐼 + 1) ∈ ℝ)
245 dchrisumlem2.2 . . . . . . . . . . . . . . . . . 18 (𝜑 → 𝑀 ≤ 𝑈)
246 dchrisumlem2.3 . . . . . . . . . . . . . . . . . 18 (𝜑 → 𝑈 ≤ (𝐼 + 1))
247234, 243, 244, 245, 246letrd 11438 . . . . . . . . . . . . . . . . 17 (𝜑 → 𝑀 ≤ (𝐼 + 1))
248 eluz2 12940 . . . . . . . . . . . . . . . . 17 ((𝐼 + 1) ∈ (ℤ≥‘𝑀) ↔ (𝑀 ∈ ℤ ∧ (𝐼 + 1) ∈ ℤ ∧ 𝑀 ≤ (𝐼 + 1)))
249241, 242, 247, 248syl3anbrc 1362 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐼 + 1) ∈ (ℤ≥‘𝑀))
250 uztrn 12952 . . . . . . . . . . . . . . . 16 (((𝐽 + 1) ∈ (ℤ≥‘(𝐼 + 1)) ∧ (𝐼 + 1) ∈ (ℤ≥‘𝑀)) → (𝐽 + 1) ∈ (ℤ≥‘𝑀))
2519, 249, 250syl2anc 596 . . . . . . . . . . . . . . 15 (𝜑 → (𝐽 + 1) ∈ (ℤ≥‘𝑀))
252240, 251sseldd 3931 . . . . . . . . . . . . . 14 (𝜑 → (𝐽 + 1) ∈ (𝑀[,)+∞))
253113simprd 501 . . . . . . . . . . . . . 14 (𝜑 → ((𝐽 + 1) ∈ (𝑀[,)+∞) → 0 ≤ ⦋(𝐽 + 1) / 𝑛⦌𝐴))
254252, 253mpd 16 . . . . . . . . . . . . 13 (𝜑 → 0 ≤ ⦋(𝐽 + 1) / 𝑛⦌𝐴)
255115, 254absidd 15557 . . . . . . . . . . . 12 (𝜑 → (abs‘⦋(𝐽 + 1) / 𝑛⦌𝐴) = ⦋(𝐽 + 1) / 𝑛⦌𝐴)
256255oveq1d 7423 . . . . . . . . . . 11 (𝜑 → ((abs‘⦋(𝐽 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) = (⦋(𝐽 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))))
257229, 256eqtrd 2795 . . . . . . . . . 10 (𝜑 → (abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) = (⦋(𝐽 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))))
258124abscld 15573 . . . . . . . . . . 11 (𝜑 → (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℝ)
259111nnnn0d 12636 . . . . . . . . . . . 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 27779 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐽 + 1) ∈ ℕ0) → (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
262259, 261mpdan 700 . . . . . . . . . . 11 (𝜑 → (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
263258, 93, 115, 254, 262lemul2ad 12226 . . . . . . . . . 10 (𝜑 → (⦋(𝐽 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ (⦋(𝐽 + 1) / 𝑛⦌𝐴 · 𝑅))
264257, 263eqbrtrd 5126 . . . . . . . . 9 (𝜑 → (abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ (⦋(𝐽 + 1) / 𝑛⦌𝐴 · 𝑅))
265126, 131absmuld 15591 . . . . . . . . . . 11 (𝜑 → (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) = ((abs‘⦋(𝐼 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))))
266240, 249sseldd 3931 . . . . . . . . . . . . . 14 (𝜑 → (𝐼 + 1) ∈ (𝑀[,)+∞))
26719, 21, 27, 18, 20, 28, 22, 29, 30, 31, 32, 33, 34, 35dchrisumlema 27778 . . . . . . . . . . . . . . 15 (𝜑 → (((𝐼 + 1) ∈ ℝ+ → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ∈ ℝ) ∧ ((𝐼 + 1) ∈ (𝑀[,)+∞) → 0 ≤ ⦋(𝐼 + 1) / 𝑛⦌𝐴)))
268267simprd 501 . . . . . . . . . . . . . 14 (𝜑 → ((𝐼 + 1) ∈ (𝑀[,)+∞) → 0 ≤ ⦋(𝐼 + 1) / 𝑛⦌𝐴))
269266, 268mpd 16 . . . . . . . . . . . . 13 (𝜑 → 0 ≤ ⦋(𝐼 + 1) / 𝑛⦌𝐴)
27099, 269absidd 15557 . . . . . . . . . . . 12 (𝜑 → (abs‘⦋(𝐼 + 1) / 𝑛⦌𝐴) = ⦋(𝐼 + 1) / 𝑛⦌𝐴)
271270oveq1d 7423 . . . . . . . . . . 11 (𝜑 → ((abs‘⦋(𝐼 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) = (⦋(𝐼 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))))
272265, 271eqtrd 2795 . . . . . . . . . 10 (𝜑 → (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) = (⦋(𝐼 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))))
273131abscld 15573 . . . . . . . . . . 11 (𝜑 → (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℝ)
2744nnnn0d 12636 . . . . . . . . . . . 12 (𝜑 → (𝐼 + 1) ∈ ℕ0)
27519, 21, 27, 18, 20, 28, 22, 29, 30, 31, 32, 33, 34, 35, 93, 260dchrisumlem1 27779 . . . . . . . . . . . 12 ((𝜑 ∧ (𝐼 + 1) ∈ ℕ0) → (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
276274, 275mpdan 700 . . . . . . . . . . 11 (𝜑 → (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
277273, 93, 99, 269, 276lemul2ad 12226 . . . . . . . . . 10 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 · (abs‘Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ (⦋(𝐼 + 1) / 𝑛⦌𝐴 · 𝑅))
278272, 277eqbrtrd 5126 . . . . . . . . 9 (𝜑 → (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ (⦋(𝐼 + 1) / 𝑛⦌𝐴 · 𝑅))
279223, 224, 227, 228, 264, 278le2addd 11904 . . . . . . . 8 (𝜑 → ((abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) + (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ ((⦋(𝐽 + 1) / 𝑛⦌𝐴 · 𝑅) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 · 𝑅)))
28093recnd 11308 . . . . . . . . 9 (𝜑 → 𝑅 ∈ ℂ)
281116, 126, 280adddird 11305 . . . . . . . 8 (𝜑 → ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) = ((⦋(𝐽 + 1) / 𝑛⦌𝐴 · 𝑅) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 · 𝑅)))
282279, 281breqtrrd 5132 . . . . . . 7 (𝜑 → ((abs‘(⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛)))) + (abs‘(⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅))
283134, 225, 215, 226, 282letrd 11438 . . . . . 6 (𝜑 → (abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅))
284154abscld 15573 . . . . . . . 8 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℝ)
28581, 284fsumrecl 15867 . . . . . . 7 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ∈ ℝ)
28681, 154fsumabs 15935 . . . . . . 7 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
28793adantr 486 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → 𝑅 ∈ ℝ)
288219, 287remulcld 11310 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅) ∈ ℝ)
289135, 146syldan 603 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) ∈ ℂ)
290151adantr 486 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)) ∈ ℂ)
291289, 290absmuld 15591 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) = ((abs‘(⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴)) · (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
292 elfzouz 13766 . . . . . . . . . . . . . . 15 (𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1)) → 𝑖 ∈ (ℤ≥‘(𝐼 + 1)))
293 uztrn 12952 . . . . . . . . . . . . . . 15 ((𝑖 ∈ (ℤ≥‘(𝐼 + 1)) ∧ (𝐼 + 1) ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ (ℤ≥‘𝑀))
294292, 249, 293syl2anr 609 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → 𝑖 ∈ (ℤ≥‘𝑀))
295 eluznn 13014 . . . . . . . . . . . . . . . . 17 ((𝑀 ∈ ℕ ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ ℕ)
29631, 295sylan 592 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ ℕ)
297296, 137syl 18 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → (𝑖 + 1) ∈ ℝ+)
298296nnrpd 13131 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ∈ ℝ+)
299333expia 1139 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ (𝑛 ∈ ℝ+ ∧ 𝑥 ∈ ℝ+)) → ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴))
300299ralrimivva 3205 . . . . . . . . . . . . . . . . 17 (𝜑 → ∀𝑛 ∈ ℝ+ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴))
301300adantr 486 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → ∀𝑛 ∈ ℝ+ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴))
302 nfcv 2922 . . . . . . . . . . . . . . . . . 18 Ⅎ𝑛ℝ+
303 nfv 1947 . . . . . . . . . . . . . . . . . . 19 Ⅎ𝑛(𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥)
304 nfcv 2922 . . . . . . . . . . . . . . . . . . . 20 Ⅎ𝑛𝐵
305 nfcv 2922 . . . . . . . . . . . . . . . . . . . 20 Ⅎ𝑛 ≤
306304, 305, 59nfbr 5151 . . . . . . . . . . . . . . . . . . 19 Ⅎ𝑛 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴
307303, 306nfim 1929 . . . . . . . . . . . . . . . . . 18 Ⅎ𝑛((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴)
308302, 307nfralw 3309 . . . . . . . . . . . . . . . . 17 Ⅎ𝑛∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴)
309 breq2 5106 . . . . . . . . . . . . . . . . . . . 20 (𝑛 = 𝑖 → (𝑀 ≤ 𝑛 ↔ 𝑀 ≤ 𝑖))
310 breq1 5105 . . . . . . . . . . . . . . . . . . . 20 (𝑛 = 𝑖 → (𝑛 ≤ 𝑥 ↔ 𝑖 ≤ 𝑥))
311309, 310anbi12d 644 . . . . . . . . . . . . . . . . . . 19 (𝑛 = 𝑖 → ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) ↔ (𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥)))
31262breq2d 5114 . . . . . . . . . . . . . . . . . . 19 (𝑛 = 𝑖 → (𝐵 ≤ 𝐴 ↔ 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴))
313311, 312imbi12d 347 . . . . . . . . . . . . . . . . . 18 (𝑛 = 𝑖 → (((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) ↔ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
314313ralbidv 3185 . . . . . . . . . . . . . . . . 17 (𝑛 = 𝑖 → (∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) ↔ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
315308, 314rspc 3564 . . . . . . . . . . . . . . . 16 (𝑖 ∈ ℝ+ → (∀𝑛 ∈ ℝ+ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) → ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
316298, 301, 315sylc 66 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴))
317231lep1d 12217 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → 𝑖 ≤ (𝑖 + 1))
318233, 317jca 521 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → (𝑀 ≤ 𝑖 ∧ 𝑖 ≤ (𝑖 + 1)))
319 breq2 5106 . . . . . . . . . . . . . . . . . 18 (𝑥 = (𝑖 + 1) → (𝑖 ≤ 𝑥 ↔ 𝑖 ≤ (𝑖 + 1)))
320319anbi2d 642 . . . . . . . . . . . . . . . . 17 (𝑥 = (𝑖 + 1) → ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) ↔ (𝑀 ≤ 𝑖 ∧ 𝑖 ≤ (𝑖 + 1))))
321 eqvisset 3470 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = (𝑖 + 1) → (𝑖 + 1) ∈ V)
322 eqtr3 2782 . . . . . . . . . . . . . . . . . . . . 21 ((𝑥 = (𝑖 + 1) ∧ 𝑛 = (𝑖 + 1)) → 𝑥 = 𝑛)
32330equcoms 2053 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = 𝑛 → 𝐴 = 𝐵)
324322, 323syl 18 . . . . . . . . . . . . . . . . . . . 20 ((𝑥 = (𝑖 + 1) ∧ 𝑛 = (𝑖 + 1)) → 𝐴 = 𝐵)
325321, 324csbied 3882 . . . . . . . . . . . . . . . . . . 19 (𝑥 = (𝑖 + 1) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 = 𝐵)
326325eqcomd 2766 . . . . . . . . . . . . . . . . . 18 (𝑥 = (𝑖 + 1) → 𝐵 = ⦋(𝑖 + 1) / 𝑛⦌𝐴)
327326breq1d 5112 . . . . . . . . . . . . . . . . 17 (𝑥 = (𝑖 + 1) → (𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴 ↔ ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴))
328320, 327imbi12d 347 . . . . . . . . . . . . . . . 16 (𝑥 = (𝑖 + 1) → (((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴) ↔ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ (𝑖 + 1)) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
329328rspcv 3572 . . . . . . . . . . . . . . 15 ((𝑖 + 1) ∈ ℝ+ → (∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ 𝑥) → 𝐵 ≤ ⦋𝑖 / 𝑛⦌𝐴) → ((𝑀 ≤ 𝑖 ∧ 𝑖 ≤ (𝑖 + 1)) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴)))
330297, 316, 318, 329syl3c 67 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑖 ∈ (ℤ≥‘𝑀)) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴)
331294, 330syldan 603 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴)
332218, 217, 331abssuble0d 15569 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘(⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴)) = (⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴))
333332oveq1d 7423 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((abs‘(⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴)) · (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) = ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
334291, 333eqtrd 2795 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) = ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))))
335290abscld 15573 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ∈ ℝ)
336217, 218subge0d 11875 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (0 ≤ (⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) ↔ ⦋(𝑖 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑖 / 𝑛⦌𝐴))
337331, 336mpbird 260 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → 0 ≤ (⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴))
338135peano2nnd 12321 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (𝑖 + 1) ∈ ℕ)
339338nnnn0d 12636 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (𝑖 + 1) ∈ ℕ0)
34019, 21, 27, 18, 20, 28, 22, 29, 30, 31, 32, 33, 34, 35, 93, 260dchrisumlem1 27779 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑖 + 1) ∈ ℕ0) → (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
341339, 340syldan 603 . . . . . . . . . . 11 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))) ≤ 𝑅)
342335, 287, 219, 337, 341lemul2ad 12226 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · (abs‘Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅))
343334, 342eqbrtrd 5126 . . . . . . . . 9 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ ((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅))
34481, 284, 288, 343fsumle 15933 . . . . . . . 8 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅))
345219recnd 11308 . . . . . . . . . 10 ((𝜑 ∧ 𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))) → (⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) ∈ ℂ)
34681, 280, 345fsummulc1 15918 . . . . . . . . 9 (𝜑 → (Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅) = Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅))
347216oveq1d 7423 . . . . . . . . 9 (𝜑 → (Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅) = ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅))
348346, 347eqtr3d 2797 . . . . . . . 8 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋𝑖 / 𝑛⦌𝐴 − ⦋(𝑖 + 1) / 𝑛⦌𝐴) · 𝑅) = ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅))
349344, 348breqtrd 5130 . . . . . . 7 (𝜑 → Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))(abs‘((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅))
350156, 285, 222, 286, 349letrd 11438 . . . . . 6 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛)))) ≤ ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅))
351134, 156, 215, 222, 283, 350le2addd 11904 . . . . 5 (𝜑 → ((abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) + (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ (((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) + ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅)))
3521262timesd 12558 . . . . . . . 8 (𝜑 → (2 · ⦋(𝐼 + 1) / 𝑛⦌𝐴) = (⦋(𝐼 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴))
353126, 116, 126ppncand 11680 . . . . . . . 8 (𝜑 → ((⦋(𝐼 + 1) / 𝑛⦌𝐴 + ⦋(𝐽 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)) = (⦋(𝐼 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴))
354126, 116addcomd 11483 . . . . . . . . 9 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 + ⦋(𝐽 + 1) / 𝑛⦌𝐴) = (⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴))
355354oveq1d 7423 . . . . . . . 8 (𝜑 → ((⦋(𝐼 + 1) / 𝑛⦌𝐴 + ⦋(𝐽 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)) = ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)))
356352, 353, 3553eqtr2d 2801 . . . . . . 7 (𝜑 → (2 · ⦋(𝐼 + 1) / 𝑛⦌𝐴) = ((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)))
357356oveq1d 7423 . . . . . 6 (𝜑 → ((2 · ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) = (((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)) · 𝑅))
358 2cnd 12390 . . . . . . 7 (𝜑 → 2 ∈ ℂ)
359358, 126, 280mul32d 11491 . . . . . 6 (𝜑 → ((2 · ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) = ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴))
360214recnd 11308 . . . . . . 7 (𝜑 → (⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) ∈ ℂ)
361221recnd 11308 . . . . . . 7 (𝜑 → (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) ∈ ℂ)
362360, 361, 280adddird 11305 . . . . . 6 (𝜑 → (((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) + (⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴)) · 𝑅) = (((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) + ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅)))
363357, 359, 3623eqtr3d 2803 . . . . 5 (𝜑 → ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴) = (((⦋(𝐽 + 1) / 𝑛⦌𝐴 + ⦋(𝐼 + 1) / 𝑛⦌𝐴) · 𝑅) + ((⦋(𝐼 + 1) / 𝑛⦌𝐴 − ⦋(𝐽 + 1) / 𝑛⦌𝐴) · 𝑅)))
364351, 363breqtrrd 5132 . . . 4 (𝜑 → ((abs‘((⦋(𝐽 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))) − (⦋(𝐼 + 1) / 𝑛⦌𝐴 · Σ𝑛 ∈ (0..^(𝐼 + 1))(𝑋‘(𝐿‘𝑛))))) + (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((⦋(𝑖 + 1) / 𝑛⦌𝐴 − ⦋𝑖 / 𝑛⦌𝐴) · Σ𝑛 ∈ (0..^(𝑖 + 1))(𝑋‘(𝐿‘𝑛))))) ≤ ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴))
36590, 157, 100, 213, 364letrd 11438 . . 3 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) ≤ ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴))
366 2nn0 12592 . . . . . 6 2 ∈ ℕ0
367 nn0ge0 12600 . . . . . 6 (2 ∈ ℕ0 → 0 ≤ 2)
368366, 367mp1i 14 . . . . 5 (𝜑 → 0 ≤ 2)
369 0red 11282 . . . . . 6 (𝜑 → 0 ∈ ℝ)
370124absge0d 15581 . . . . . 6 (𝜑 → 0 ≤ (abs‘Σ𝑛 ∈ (0..^(𝐽 + 1))(𝑋‘(𝐿‘𝑛))))
371369, 258, 93, 370, 262letrd 11438 . . . . 5 (𝜑 → 0 ≤ 𝑅)
37292, 93, 368, 371mulge0d 11862 . . . 4 (𝜑 → 0 ≤ (2 · 𝑅))
3734nnrpd 13131 . . . . 5 (𝜑 → (𝐼 + 1) ∈ ℝ+)
374 nfv 1947 . . . . . . . . 9 Ⅎ𝑛(𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥)
375304, 305, 103nfbr 5151 . . . . . . . . 9 Ⅎ𝑛 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴
376374, 375nfim 1929 . . . . . . . 8 Ⅎ𝑛((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴)
377302, 376nfralw 3309 . . . . . . 7 Ⅎ𝑛∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴)
378 breq2 5106 . . . . . . . . . 10 (𝑛 = 𝑈 → (𝑀 ≤ 𝑛 ↔ 𝑀 ≤ 𝑈))
379 breq1 5105 . . . . . . . . . 10 (𝑛 = 𝑈 → (𝑛 ≤ 𝑥 ↔ 𝑈 ≤ 𝑥))
380378, 379anbi12d 644 . . . . . . . . 9 (𝑛 = 𝑈 → ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) ↔ (𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥)))
381105breq2d 5114 . . . . . . . . 9 (𝑛 = 𝑈 → (𝐵 ≤ 𝐴 ↔ 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴))
382380, 381imbi12d 347 . . . . . . . 8 (𝑛 = 𝑈 → (((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) ↔ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴)))
383382ralbidv 3185 . . . . . . 7 (𝑛 = 𝑈 → (∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) ↔ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴)))
384377, 383rspc 3564 . . . . . 6 (𝑈 ∈ ℝ+ → (∀𝑛 ∈ ℝ+ ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑛 ∧ 𝑛 ≤ 𝑥) → 𝐵 ≤ 𝐴) → ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴)))
385101, 300, 384sylc 66 . . . . 5 (𝜑 → ∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴))
386245, 246jca 521 . . . . 5 (𝜑 → (𝑀 ≤ 𝑈 ∧ 𝑈 ≤ (𝐼 + 1)))
387 breq2 5106 . . . . . . . 8 (𝑥 = (𝐼 + 1) → (𝑈 ≤ 𝑥 ↔ 𝑈 ≤ (𝐼 + 1)))
388387anbi2d 642 . . . . . . 7 (𝑥 = (𝐼 + 1) → ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) ↔ (𝑀 ≤ 𝑈 ∧ 𝑈 ≤ (𝐼 + 1))))
389 eqvisset 3470 . . . . . . . . . 10 (𝑥 = (𝐼 + 1) → (𝐼 + 1) ∈ V)
390 eqtr3 2782 . . . . . . . . . . 11 ((𝑥 = (𝐼 + 1) ∧ 𝑛 = (𝐼 + 1)) → 𝑥 = 𝑛)
391390, 323syl 18 . . . . . . . . . 10 ((𝑥 = (𝐼 + 1) ∧ 𝑛 = (𝐼 + 1)) → 𝐴 = 𝐵)
392389, 391csbied 3882 . . . . . . . . 9 (𝑥 = (𝐼 + 1) → ⦋(𝐼 + 1) / 𝑛⦌𝐴 = 𝐵)
393392eqcomd 2766 . . . . . . . 8 (𝑥 = (𝐼 + 1) → 𝐵 = ⦋(𝐼 + 1) / 𝑛⦌𝐴)
394393breq1d 5112 . . . . . . 7 (𝑥 = (𝐼 + 1) → (𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴 ↔ ⦋(𝐼 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑈 / 𝑛⦌𝐴))
395388, 394imbi12d 347 . . . . . 6 (𝑥 = (𝐼 + 1) → (((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴) ↔ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ (𝐼 + 1)) → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑈 / 𝑛⦌𝐴)))
396395rspcv 3572 . . . . 5 ((𝐼 + 1) ∈ ℝ+ → (∀𝑥 ∈ ℝ+ ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ 𝑥) → 𝐵 ≤ ⦋𝑈 / 𝑛⦌𝐴) → ((𝑀 ≤ 𝑈 ∧ 𝑈 ≤ (𝐼 + 1)) → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑈 / 𝑛⦌𝐴)))
397373, 385, 386, 396syl3c 67 . . . 4 (𝜑 → ⦋(𝐼 + 1) / 𝑛⦌𝐴 ≤ ⦋𝑈 / 𝑛⦌𝐴)
39899, 108, 94, 372, 397lemul2ad 12226 . . 3 (𝜑 → ((2 · 𝑅) · ⦋(𝐼 + 1) / 𝑛⦌𝐴) ≤ ((2 · 𝑅) · ⦋𝑈 / 𝑛⦌𝐴))
39990, 100, 109, 365, 398letrd 11438 . 2 (𝜑 → (abs‘Σ𝑖 ∈ ((𝐼 + 1)..^(𝐽 + 1))((𝑋‘(𝐿‘𝑖)) · ⦋𝑖 / 𝑛⦌𝐴)) ≤ ((2 · 𝑅) · ⦋𝑈 / 𝑛⦌𝐴))
40089, 399eqbrtrd 5126 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 2145   ≠ wne 2955  ∀wral 3076  Vcvv 3450  ⦋csb 3846   ∪ cun 3896   ∩ cin 3897  ∅c0 4278   class class class wbr 5102   ↦ cmpt 5185  ‘cfv 6527  (class class class)co 7408  Fincfn 8951  ℂcc 11169  ℝcr 11170  0cc0 11171  1c1 11172   + caddc 11174   · cmul 11176  +∞cpnf 11311   ≤ cle 11315   − cmin 11512  ℕcn 12304  2c2 12366  ℕ0cn0 12575  ℤcz 12662  ℤ≥cuz 12934  ℝ+crp 13089  [,)cico 13447  ...cfz 13608  ..^cfzo 13756  seqcseq 14112  abscabs 15368   ⇝𝑟 crli 15619  Σcsu 15820  Basecbs 17348  0gc0g 17571  ℤRHomczrh 21766  ℤ/nℤczn 21769  DChrcdchr 27522
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 5231  ax-sep 5248  ax-nul 5259  ax-pow 5326  ax-pr 5390  ax-un 7734  ax-inf2 9620  ax-cnex 11227  ax-resscn 11228  ax-1cn 11229  ax-icn 11230  ax-addcl 11231  ax-addrcl 11232  ax-mulcl 11233  ax-mulrcl 11234  ax-mulcom 11235  ax-addass 11236  ax-mulass 11237  ax-distr 11238  ax-i2m1 11239  ax-1ne0 11240  ax-1rid 11241  ax-rnegex 11242  ax-rrecex 11243  ax-cnre 11244  ax-pre-lttri 11245  ax-pre-lttrn 11246  ax-pre-ltadd 11247  ax-pre-mulgt0 11248  ax-pre-sup 11249  ax-addf 11250  ax-mulf 11251
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 3739  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-pss 3918  df-nul 4279  df-if 4482  df-pw 4558  df-sn 4584  df-pr 4586  df-tp 4588  df-op 4590  df-uni 4867  df-int 4907  df-iun 4952  df-br 5103  df-opab 5167  df-mpt 5186  df-tr 5212  df-id 5542  df-eprel 5547  df-po 5555  df-so 5556  df-fr 5600  df-se 5601  df-we 5602  df-xp 5653  df-rel 5654  df-cnv 5655  df-co 5656  df-dm 5657  df-rn 5658  df-res 5659  df-ima 5660  df-pred 6293  df-ord 6354  df-on 6355  df-lim 6356  df-suc 6357  df-iota 6483  df-fun 6529  df-fn 6530  df-f 6531  df-f1 6532  df-fo 6533  df-f1o 6534  df-fv 6535  df-isom 6536  df-riota 7365  df-ov 7411  df-oprab 7412  df-mpo 7413  df-of 7676  df-om 7861  df-1st 7984  df-2nd 7985  df-tpos 8221  df-frecs 8277  df-wrecs 8308  df-recs 8357  df-rdg 8396  df-1o 8454  df-oadd 8458  df-er 8695  df-ec 8697  df-qs 8701  df-map 8827  df-pm 8828  df-en 8952  df-dom 8953  df-sdom 8954  df-fin 8955  df-sup 9412  df-inf 9413  df-oi 9482  df-card 9991  df-pnf 11316  df-mnf 11317  df-xr 11318  df-ltxr 11319  df-le 11320  df-sub 11514  df-neg 11515  df-div 11943  df-nn 12305  df-2 12374  df-3 12375  df-4 12376  df-5 12377  df-6 12378  df-7 12379  df-8 12380  df-9 12381  df-n0 12576  df-xnn0 12649  df-z 12663  df-dec 12784  df-uz 12935  df-rp 13090  df-ico 13451  df-fz 13609  df-fzo 13757  df-fl 13900  df-mod 13978  df-seq 14113  df-exp 14173  df-hash 14442  df-cj 15233  df-re 15234  df-im 15235  df-sqrt 15369  df-abs 15370  df-clim 15622  df-rlim 15623  df-sum 15821  df-dvds 16390  df-gcd 16632  df-phi 16904  df-struct 17286  df-sets 17303  df-slot 17321  df-ndx 17333  df-base 17349  df-ress 17370  df-plusg 17402  df-mulr 17403  df-starv 17404  df-sca 17405  df-vsca 17406  df-ip 17407  df-tset 17408  df-ple 17409  df-ds 17411  df-unif 17412  df-0g 17573  df-imas 17641  df-qus 17642  df-mgm 18777  df-sgrp 18869  df-mnd 18885  df-mhm 18939  df-grp 19108  df-minusg 19109  df-sbg 19110  df-mulg 19239  df-subg 19294  df-nsg 19295  df-eqg 19296  df-ghm 19389  df-cmn 19957  df-abl 19958  df-mgp 20322  df-rng 20336  df-ur 20369  df-ring 20422  df-cring 20423  df-oppr 20528  df-dvdsr 20548  df-unit 20549  df-invr 20579  df-rhm 20663  df-subrng 20759  df-subrg 20783  df-lmod 21098  df-lss 21168  df-lsp 21208  df-sra 21409  df-rgmod 21410  df-lidl 21447  df-rsp 21448  df-2idl 21504  df-cnfld 21640  df-zring 21714  df-zrh 21770  df-zn 21773  df-dchr 27523
This theorem is used by:  dchrisumlem3  27781
  Copyright terms: Public domain W3C validator