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

Theorem dchrisum0lem1 27873
Description: Lemma for dchrisum0 27877. (Contributed by Mario Carneiro, 12-May-2016.) (Revised by Mario Carneiro, 7-Jun-2016.)
Hypotheses
Ref Expression
rpvmasum.z 𝑍 = (ℤ/nℤ‘𝑁)
rpvmasum.l 𝐿 = (ℤRHom‘𝑍)
rpvmasum.a (𝜑 → 𝑁 ∈ ℕ)
rpvmasum2.g 𝐺 = (DChr‘𝑁)
rpvmasum2.d 𝐷 = (Base‘𝐺)
rpvmasum2.1 1 = (0g‘𝐺)
rpvmasum2.w 𝑊 = {𝑦 ∈ (𝐷 ∖ { 1 }) ∣ Σ𝑚 ∈ ℕ ((𝑦‘(𝐿‘𝑚)) / 𝑚) = 0}
dchrisum0.b (𝜑 → 𝑋 ∈ 𝑊)
dchrisum0lem1.f 𝐹 = (𝑎 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑎)) / (√‘𝑎)))
dchrisum0.c (𝜑 → 𝐶 ∈ (0[,)+∞))
dchrisum0.s (𝜑 → seq1( + , 𝐹) ⇝ 𝑆)
dchrisum0.1 (𝜑 → ∀𝑦 ∈ (1[,)+∞)(abs‘((seq1( + , 𝐹)‘(⌊‘𝑦)) − 𝑆)) ≤ (𝐶 / (√‘𝑦)))
Assertion
Ref Expression
dchrisum0lem1 (𝜑 → (𝑥 ∈ ℝ+ ↦ Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2)))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ∈ 𝑂(1))
Distinct variable groups:   𝑥,𝑚,𝑦, 1   𝑚,𝑑,𝑥,𝑦,𝐶   𝐹,𝑑,𝑥,𝑦   𝑎,𝑑,𝑚,𝑥,𝑦   𝑚,𝑁,𝑥,𝑦   𝜑,𝑑,𝑚,𝑥   𝑆,𝑑,𝑚,𝑥,𝑦   𝑥,𝑊   𝑚,𝑍,𝑥,𝑦   𝐷,𝑚,𝑥,𝑦   𝐿,𝑎,𝑑,𝑚,𝑥,𝑦   𝑋,𝑎,𝑑,𝑚,𝑥,𝑦   𝑚,𝐹
Allowed substitution hints:   𝜑(𝑦, 𝑎)   𝐶(𝑎)   𝐷(𝑎, 𝑑)   𝑆(𝑎)   1 (𝑎, 𝑑)   𝐹(𝑎)   𝐺(𝑥, 𝑦, 𝑚, 𝑎, 𝑑)   𝑁(𝑎, 𝑑)   𝑊(𝑦, 𝑚, 𝑎, 𝑑)   𝑍(𝑎, 𝑑)

Proof of Theorem dchrisum0lem1
StepHypRef Expression
1 fzfid 14143 . . . 4 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (1...(⌊‘𝑥)) ∈ Fin)
2 fzfid 14143 . . . 4 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2))) ∈ Fin)
3 fzfid 14143 . . . 4 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑))) ∈ Fin)
4 elfznn 13714 . . . . . . 7 (𝑑 ∈ (1...(⌊‘𝑥)) → 𝑑 ∈ ℕ)
5 elfzuz 13679 . . . . . . 7 (𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑))) → 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))
64, 5anim12i 625 . . . . . 6 ((𝑑 ∈ (1...(⌊‘𝑥)) ∧ 𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))) → (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1))))
76a1i 11 . . . . 5 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((𝑑 ∈ (1...(⌊‘𝑥)) ∧ 𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))) → (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))))
8 elfzuz 13679 . . . . . . 7 (𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2))) → 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))
9 elfznn 13714 . . . . . . 7 (𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚))) → 𝑑 ∈ ℕ)
108, 9anim12ci 626 . . . . . 6 ((𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1))))
1110a1i 11 . . . . 5 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))))
12 eluzelz 13002 . . . . . . . . . . . 12 (𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)) → 𝑚 ∈ ℤ)
1312ad2antll 742 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑚 ∈ ℤ)
1413zred 12830 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑚 ∈ ℝ)
15 simpr 490 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑥 ∈ ℝ+) → 𝑥 ∈ ℝ+)
16 2z 12755 . . . . . . . . . . . . 13 2 ∈ ℤ
17 rpexpcl 14250 . . . . . . . . . . . . 13 ((𝑥 ∈ ℝ+ ∧ 2 ∈ ℤ) → (𝑥↑2) ∈ ℝ+)
1815, 16, 17sylancl 598 . . . . . . . . . . . 12 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (𝑥↑2) ∈ ℝ+)
1918rpred 13191 . . . . . . . . . . 11 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (𝑥↑2) ∈ ℝ)
2019adantr 486 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑥↑2) ∈ ℝ)
21 simprl 783 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑑 ∈ ℕ)
2221nnrpd 13189 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑑 ∈ ℝ+)
2314, 20, 22lemuldivd 13240 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑚 · 𝑑) ≤ (𝑥↑2) ↔ 𝑚 ≤ ((𝑥↑2) / 𝑑)))
2421nnred 12377 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑑 ∈ ℝ)
2515rprege0d 13198 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥))
26 flge0nn0 13987 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → (⌊‘𝑥) ∈ ℕ0)
27 nn0p1nn 12672 . . . . . . . . . . . . . 14 ((⌊‘𝑥) ∈ ℕ0 → ((⌊‘𝑥) + 1) ∈ ℕ)
2825, 26, 273syl 19 . . . . . . . . . . . . 13 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((⌊‘𝑥) + 1) ∈ ℕ)
2928adantr 486 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((⌊‘𝑥) + 1) ∈ ℕ)
30 simprr 785 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))
31 eluznn 13072 . . . . . . . . . . . 12 ((((⌊‘𝑥) + 1) ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1))) → 𝑚 ∈ ℕ)
3229, 30, 31syl2anc 596 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑚 ∈ ℕ)
3332nnrpd 13189 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑚 ∈ ℝ+)
3424, 20, 33lemuldiv2d 13241 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑚 · 𝑑) ≤ (𝑥↑2) ↔ 𝑑 ≤ ((𝑥↑2) / 𝑚)))
3523, 34bitr3d 284 . . . . . . . 8 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑚 ≤ ((𝑥↑2) / 𝑑) ↔ 𝑑 ≤ ((𝑥↑2) / 𝑚)))
36 rpcn 13158 . . . . . . . . . . . . . . . 16 (𝑥 ∈ ℝ+ → 𝑥 ∈ ℂ)
3736adantl 487 . . . . . . . . . . . . . . 15 ((𝜑 ∧ 𝑥 ∈ ℝ+) → 𝑥 ∈ ℂ)
3837sqvald 14313 . . . . . . . . . . . . . 14 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (𝑥↑2) = (𝑥 · 𝑥))
3938adantr 486 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑥↑2) = (𝑥 · 𝑥))
40 simplr 781 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑥 ∈ ℝ+)
4140rpred 13191 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑥 ∈ ℝ)
42 reflcl 13963 . . . . . . . . . . . . . . . 16 (𝑥 ∈ ℝ → (⌊‘𝑥) ∈ ℝ)
43 peano2re 11510 . . . . . . . . . . . . . . . 16 ((⌊‘𝑥) ∈ ℝ → ((⌊‘𝑥) + 1) ∈ ℝ)
4441, 42, 433syl 19 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((⌊‘𝑥) + 1) ∈ ℝ)
45 fllep1 13968 . . . . . . . . . . . . . . . 16 (𝑥 ∈ ℝ → 𝑥 ≤ ((⌊‘𝑥) + 1))
4641, 45syl 18 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑥 ≤ ((⌊‘𝑥) + 1))
47 eluzle 13005 . . . . . . . . . . . . . . . 16 (𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)) → ((⌊‘𝑥) + 1) ≤ 𝑚)
4847ad2antll 742 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((⌊‘𝑥) + 1) ≤ 𝑚)
4941, 44, 14, 46, 48letrd 11494 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑥 ≤ 𝑚)
5041, 14, 40lemul1d 13234 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑥 ≤ 𝑚 ↔ (𝑥 · 𝑥) ≤ (𝑚 · 𝑥)))
5149, 50mpbid 235 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑥 · 𝑥) ≤ (𝑚 · 𝑥))
5239, 51eqbrtrd 5130 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑥↑2) ≤ (𝑚 · 𝑥))
5320, 41, 33ledivmuld 13244 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (((𝑥↑2) / 𝑚) ≤ 𝑥 ↔ (𝑥↑2) ≤ (𝑚 · 𝑥)))
5452, 53mpbird 260 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑥↑2) / 𝑚) ≤ 𝑥)
55 nnre 12369 . . . . . . . . . . . . 13 (𝑑 ∈ ℕ → 𝑑 ∈ ℝ)
5655ad2antrl 741 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 𝑑 ∈ ℝ)
5720, 32nndivred 12419 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑥↑2) / 𝑚) ∈ ℝ)
58 letr 11431 . . . . . . . . . . . 12 ((𝑑 ∈ ℝ ∧ ((𝑥↑2) / 𝑚) ∈ ℝ ∧ 𝑥 ∈ ℝ) → ((𝑑 ≤ ((𝑥↑2) / 𝑚) ∧ ((𝑥↑2) / 𝑚) ≤ 𝑥) → 𝑑 ≤ 𝑥))
5956, 57, 41, 58syl3anc 1399 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑑 ≤ ((𝑥↑2) / 𝑚) ∧ ((𝑥↑2) / 𝑚) ≤ 𝑥) → 𝑑 ≤ 𝑥))
6054, 59mpan2d 707 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑑 ≤ ((𝑥↑2) / 𝑚) → 𝑑 ≤ 𝑥))
6135, 60sylbid 243 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑚 ≤ ((𝑥↑2) / 𝑑) → 𝑑 ≤ 𝑥))
6261pm4.71rd 572 . . . . . . . 8 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑚 ≤ ((𝑥↑2) / 𝑑) ↔ (𝑑 ≤ 𝑥 ∧ 𝑚 ≤ ((𝑥↑2) / 𝑑))))
63 nnge1 12393 . . . . . . . . . . . . . 14 (𝑑 ∈ ℕ → 1 ≤ 𝑑)
6463ad2antrl 741 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → 1 ≤ 𝑑)
65 1re 11335 . . . . . . . . . . . . . . 15 1 ∈ ℝ
66 0lt1 11865 . . . . . . . . . . . . . . 15 0 < 1
6765, 66pm3.2i 476 . . . . . . . . . . . . . 14 (1 ∈ ℝ ∧ 0 < 1)
6822rpregt0d 13197 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑑 ∈ ℝ ∧ 0 < 𝑑))
6918adantr 486 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑥↑2) ∈ ℝ+)
7069rpregt0d 13197 . . . . . . . . . . . . . 14 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑥↑2) ∈ ℝ ∧ 0 < (𝑥↑2)))
71 lediv2 12234 . . . . . . . . . . . . . 14 (((1 ∈ ℝ ∧ 0 < 1) ∧ (𝑑 ∈ ℝ ∧ 0 < 𝑑) ∧ ((𝑥↑2) ∈ ℝ ∧ 0 < (𝑥↑2))) → (1 ≤ 𝑑 ↔ ((𝑥↑2) / 𝑑) ≤ ((𝑥↑2) / 1)))
7267, 68, 70, 71mp3an2i 1496 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (1 ≤ 𝑑 ↔ ((𝑥↑2) / 𝑑) ≤ ((𝑥↑2) / 1)))
7364, 72mpbid 235 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑥↑2) / 𝑑) ≤ ((𝑥↑2) / 1))
7420recnd 11364 . . . . . . . . . . . . 13 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑥↑2) ∈ ℂ)
7574div1d 12112 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑥↑2) / 1) = (𝑥↑2))
7673, 75breqtrd 5134 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑥↑2) / 𝑑) ≤ (𝑥↑2))
77 simpl 488 . . . . . . . . . . . . 13 ((𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1))) → 𝑑 ∈ ℕ)
78 nndivre 12406 . . . . . . . . . . . . 13 (((𝑥↑2) ∈ ℝ ∧ 𝑑 ∈ ℕ) → ((𝑥↑2) / 𝑑) ∈ ℝ)
7919, 77, 78syl2an 608 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑥↑2) / 𝑑) ∈ ℝ)
80 letr 11431 . . . . . . . . . . . 12 ((𝑚 ∈ ℝ ∧ ((𝑥↑2) / 𝑑) ∈ ℝ ∧ (𝑥↑2) ∈ ℝ) → ((𝑚 ≤ ((𝑥↑2) / 𝑑) ∧ ((𝑥↑2) / 𝑑) ≤ (𝑥↑2)) → 𝑚 ≤ (𝑥↑2)))
8114, 79, 20, 80syl3anc 1399 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑚 ≤ ((𝑥↑2) / 𝑑) ∧ ((𝑥↑2) / 𝑑) ≤ (𝑥↑2)) → 𝑚 ≤ (𝑥↑2)))
8276, 81mpan2d 707 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑚 ≤ ((𝑥↑2) / 𝑑) → 𝑚 ≤ (𝑥↑2)))
8335, 82sylbird 263 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑑 ≤ ((𝑥↑2) / 𝑚) → 𝑚 ≤ (𝑥↑2)))
8483pm4.71rd 572 . . . . . . . 8 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑑 ≤ ((𝑥↑2) / 𝑚) ↔ (𝑚 ≤ (𝑥↑2) ∧ 𝑑 ≤ ((𝑥↑2) / 𝑚))))
8535, 62, 843bitr3d 312 . . . . . . 7 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑑 ≤ 𝑥 ∧ 𝑚 ≤ ((𝑥↑2) / 𝑑)) ↔ (𝑚 ≤ (𝑥↑2) ∧ 𝑑 ≤ ((𝑥↑2) / 𝑚))))
86 fznnfl 14029 . . . . . . . . . 10 (𝑥 ∈ ℝ → (𝑑 ∈ (1...(⌊‘𝑥)) ↔ (𝑑 ∈ ℕ ∧ 𝑑 ≤ 𝑥)))
8786baibd 549 . . . . . . . . 9 ((𝑥 ∈ ℝ ∧ 𝑑 ∈ ℕ) → (𝑑 ∈ (1...(⌊‘𝑥)) ↔ 𝑑 ≤ 𝑥))
8841, 21, 87syl2anc 596 . . . . . . . 8 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑑 ∈ (1...(⌊‘𝑥)) ↔ 𝑑 ≤ 𝑥))
8979flcld 13965 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (⌊‘((𝑥↑2) / 𝑑)) ∈ ℤ)
90 elfz5 13675 . . . . . . . . . 10 ((𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)) ∧ (⌊‘((𝑥↑2) / 𝑑)) ∈ ℤ) → (𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑))) ↔ 𝑚 ≤ (⌊‘((𝑥↑2) / 𝑑))))
9130, 89, 90syl2anc 596 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑))) ↔ 𝑚 ≤ (⌊‘((𝑥↑2) / 𝑑))))
92 flge 13972 . . . . . . . . . 10 ((((𝑥↑2) / 𝑑) ∈ ℝ ∧ 𝑚 ∈ ℤ) → (𝑚 ≤ ((𝑥↑2) / 𝑑) ↔ 𝑚 ≤ (⌊‘((𝑥↑2) / 𝑑))))
9379, 13, 92syl2anc 596 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑚 ≤ ((𝑥↑2) / 𝑑) ↔ 𝑚 ≤ (⌊‘((𝑥↑2) / 𝑑))))
9491, 93bitr4d 285 . . . . . . . 8 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑))) ↔ 𝑚 ≤ ((𝑥↑2) / 𝑑)))
9588, 94anbi12d 644 . . . . . . 7 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑑 ∈ (1...(⌊‘𝑥)) ∧ 𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))) ↔ (𝑑 ≤ 𝑥 ∧ 𝑚 ≤ ((𝑥↑2) / 𝑑))))
9620flcld 13965 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (⌊‘(𝑥↑2)) ∈ ℤ)
97 elfz5 13675 . . . . . . . . . 10 ((𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)) ∧ (⌊‘(𝑥↑2)) ∈ ℤ) → (𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2))) ↔ 𝑚 ≤ (⌊‘(𝑥↑2))))
9830, 96, 97syl2anc 596 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2))) ↔ 𝑚 ≤ (⌊‘(𝑥↑2))))
99 flge 13972 . . . . . . . . . 10 (((𝑥↑2) ∈ ℝ ∧ 𝑚 ∈ ℤ) → (𝑚 ≤ (𝑥↑2) ↔ 𝑚 ≤ (⌊‘(𝑥↑2))))
10020, 13, 99syl2anc 596 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑚 ≤ (𝑥↑2) ↔ 𝑚 ≤ (⌊‘(𝑥↑2))))
10198, 100bitr4d 285 . . . . . . . 8 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2))) ↔ 𝑚 ≤ (𝑥↑2)))
102 fznnfl 14029 . . . . . . . . . 10 (((𝑥↑2) / 𝑚) ∈ ℝ → (𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚))) ↔ (𝑑 ∈ ℕ ∧ 𝑑 ≤ ((𝑥↑2) / 𝑚))))
103102baibd 549 . . . . . . . . 9 ((((𝑥↑2) / 𝑚) ∈ ℝ ∧ 𝑑 ∈ ℕ) → (𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚))) ↔ 𝑑 ≤ ((𝑥↑2) / 𝑚)))
10457, 21, 103syl2anc 596 . . . . . . . 8 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → (𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚))) ↔ 𝑑 ≤ ((𝑥↑2) / 𝑚)))
105101, 104anbi12d 644 . . . . . . 7 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) ↔ (𝑚 ≤ (𝑥↑2) ∧ 𝑑 ≤ ((𝑥↑2) / 𝑚))))
10685, 95, 1053bitr4d 314 . . . . . 6 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1)))) → ((𝑑 ∈ (1...(⌊‘𝑥)) ∧ 𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))) ↔ (𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚))))))
107106ex 418 . . . . 5 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((𝑑 ∈ ℕ ∧ 𝑚 ∈ (ℤ≥‘((⌊‘𝑥) + 1))) → ((𝑑 ∈ (1...(⌊‘𝑥)) ∧ 𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))) ↔ (𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))))))
1087, 11, 107pm5.21ndd 382 . . . 4 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((𝑑 ∈ (1...(⌊‘𝑥)) ∧ 𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))) ↔ (𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚))))))
109 ssun2 4180 . . . . . . . 8 (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑))) ⊆ ((1...(⌊‘𝑥)) ∪ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑))))
11028adantr 486 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → ((⌊‘𝑥) + 1) ∈ ℕ)
111 nnuz 13031 . . . . . . . . . 10 ℕ = (ℤ≥‘1)
112110, 111eleqtrdi 2874 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → ((⌊‘𝑥) + 1) ∈ (ℤ≥‘1))
113 dchrisum0lem1a 27843 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (𝑥 ≤ ((𝑥↑2) / 𝑑) ∧ (⌊‘((𝑥↑2) / 𝑑)) ∈ (ℤ≥‘(⌊‘𝑥))))
114113simprd 501 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (⌊‘((𝑥↑2) / 𝑑)) ∈ (ℤ≥‘(⌊‘𝑥)))
115 fzsplit2 13710 . . . . . . . . 9 ((((⌊‘𝑥) + 1) ∈ (ℤ≥‘1) ∧ (⌊‘((𝑥↑2) / 𝑑)) ∈ (ℤ≥‘(⌊‘𝑥))) → (1...(⌊‘((𝑥↑2) / 𝑑))) = ((1...(⌊‘𝑥)) ∪ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))))
116112, 114, 115syl2anc 596 . . . . . . . 8 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (1...(⌊‘((𝑥↑2) / 𝑑))) = ((1...(⌊‘𝑥)) ∪ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))))
117109, 116sseqtrrid 3956 . . . . . . 7 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑))) ⊆ (1...(⌊‘((𝑥↑2) / 𝑑))))
118117sselda 3913 . . . . . 6 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))) → 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑))))
119 rpvmasum2.g . . . . . . . . 9 𝐺 = (DChr‘𝑁)
120 rpvmasum.z . . . . . . . . 9 𝑍 = (ℤ/nℤ‘𝑁)
121 rpvmasum2.d . . . . . . . . 9 𝐷 = (Base‘𝐺)
122 rpvmasum.l . . . . . . . . 9 𝐿 = (ℤRHom‘𝑍)
123 rpvmasum2.w . . . . . . . . . . . . 13 𝑊 = {𝑦 ∈ (𝐷 ∖ { 1 }) ∣ Σ𝑚 ∈ ℕ ((𝑦‘(𝐿‘𝑚)) / 𝑚) = 0}
124123ssrab3 4010 . . . . . . . . . . . 12 𝑊 ⊆ (𝐷 ∖ { 1 })
125 dchrisum0.b . . . . . . . . . . . 12 (𝜑 → 𝑋 ∈ 𝑊)
126124, 125sselid 3911 . . . . . . . . . . 11 (𝜑 → 𝑋 ∈ (𝐷 ∖ { 1 }))
127126eldifad 4054 . . . . . . . . . 10 (𝜑 → 𝑋 ∈ 𝐷)
128127ad3antrrr 743 . . . . . . . . 9 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → 𝑋 ∈ 𝐷)
129 elfzelz 13683 . . . . . . . . . 10 (𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑))) → 𝑚 ∈ ℤ)
130129adantl 487 . . . . . . . . 9 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → 𝑚 ∈ ℤ)
131119, 120, 121, 122, 128, 130dchrzrhcl 27602 . . . . . . . 8 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → (𝑋‘(𝐿‘𝑚)) ∈ ℂ)
132 elfznn 13714 . . . . . . . . . . . 12 (𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑))) → 𝑚 ∈ ℕ)
133132adantl 487 . . . . . . . . . . 11 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → 𝑚 ∈ ℕ)
134133nnrpd 13189 . . . . . . . . . 10 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → 𝑚 ∈ ℝ+)
135134rpsqrtcld 15608 . . . . . . . . 9 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → (√‘𝑚) ∈ ℝ+)
136135rpcnd 13193 . . . . . . . 8 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → (√‘𝑚) ∈ ℂ)
137135rpne0d 13196 . . . . . . . 8 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → (√‘𝑚) ≠ 0)
138131, 136, 137divcld 12120 . . . . . . 7 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → ((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) ∈ ℂ)
1394adantl 487 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → 𝑑 ∈ ℕ)
140139nnrpd 13189 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → 𝑑 ∈ ℝ+)
141140rpsqrtcld 15608 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (√‘𝑑) ∈ ℝ+)
142141rpcnne0d 13200 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → ((√‘𝑑) ∈ ℂ ∧ (√‘𝑑) ≠ 0))
143142adantr 486 . . . . . . . 8 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → ((√‘𝑑) ∈ ℂ ∧ (√‘𝑑) ≠ 0))
144143simpld 500 . . . . . . 7 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → (√‘𝑑) ∈ ℂ)
145143simprd 501 . . . . . . 7 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → (√‘𝑑) ≠ 0)
146138, 144, 145divcld 12120 . . . . . 6 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (1...(⌊‘((𝑥↑2) / 𝑑)))) → (((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑)) ∈ ℂ)
147118, 146syldan 603 . . . . 5 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))) → (((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑)) ∈ ℂ)
148147anasss 472 . . . 4 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ (𝑑 ∈ (1...(⌊‘𝑥)) ∧ 𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑))))) → (((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑)) ∈ ℂ)
1491, 2, 3, 108, 148fsumcom2 15969 . . 3 ((𝜑 ∧ 𝑥 ∈ ℝ+) → Σ𝑑 ∈ (1...(⌊‘𝑥))Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑)) = Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2)))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑)))
150149mpteq2dva 5201 . 2 (𝜑 → (𝑥 ∈ ℝ+ ↦ Σ𝑑 ∈ (1...(⌊‘𝑥))Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) = (𝑥 ∈ ℝ+ ↦ Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2)))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))))
15165a1i 11 . . 3 (𝜑 → 1 ∈ ℝ)
152 2cn 12445 . . . . . . . 8 2 ∈ ℂ
15315rpsqrtcld 15608 . . . . . . . . 9 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (√‘𝑥) ∈ ℝ+)
154153rpcnd 13193 . . . . . . . 8 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (√‘𝑥) ∈ ℂ)
155 mulcl 11311 . . . . . . . 8 ((2 ∈ ℂ ∧ (√‘𝑥) ∈ ℂ) → (2 · (√‘𝑥)) ∈ ℂ)
156152, 154, 155sylancr 599 . . . . . . 7 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (2 · (√‘𝑥)) ∈ ℂ)
157141rprecred 13202 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (1 / (√‘𝑑)) ∈ ℝ)
1581, 157fsumrecl 15929 . . . . . . . . 9 ((𝜑 ∧ 𝑥 ∈ ℝ+) → Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) ∈ ℝ)
159158recnd 11364 . . . . . . . 8 ((𝜑 ∧ 𝑥 ∈ ℝ+) → Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) ∈ ℂ)
160159, 156subcld 11696 . . . . . . 7 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥))) ∈ ℂ)
161 2re 12444 . . . . . . . . . . 11 2 ∈ ℝ
162 dchrisum0.c . . . . . . . . . . . . 13 (𝜑 → 𝐶 ∈ (0[,)+∞))
163 elrege0 13612 . . . . . . . . . . . . 13 (𝐶 ∈ (0[,)+∞) ↔ (𝐶 ∈ ℝ ∧ 0 ≤ 𝐶))
164162, 163sylib 221 . . . . . . . . . . . 12 (𝜑 → (𝐶 ∈ ℝ ∧ 0 ≤ 𝐶))
165164simpld 500 . . . . . . . . . . 11 (𝜑 → 𝐶 ∈ ℝ)
166 remulcl 11312 . . . . . . . . . . 11 ((2 ∈ ℝ ∧ 𝐶 ∈ ℝ) → (2 · 𝐶) ∈ ℝ)
167161, 165, 166sylancr 599 . . . . . . . . . 10 (𝜑 → (2 · 𝐶) ∈ ℝ)
168167adantr 486 . . . . . . . . 9 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (2 · 𝐶) ∈ ℝ)
169168, 153rerpdivcld 13222 . . . . . . . 8 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((2 · 𝐶) / (√‘𝑥)) ∈ ℝ)
170169recnd 11364 . . . . . . 7 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((2 · 𝐶) / (√‘𝑥)) ∈ ℂ)
171156, 160, 170adddird 11361 . . . . . 6 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (((2 · (√‘𝑥)) + (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥)))) · ((2 · 𝐶) / (√‘𝑥))) = (((2 · (√‘𝑥)) · ((2 · 𝐶) / (√‘𝑥))) + ((Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥))) · ((2 · 𝐶) / (√‘𝑥)))))
172156, 159pncan3d 11699 . . . . . . 7 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((2 · (√‘𝑥)) + (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥)))) = Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)))
173172oveq1d 7458 . . . . . 6 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (((2 · (√‘𝑥)) + (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥)))) · ((2 · 𝐶) / (√‘𝑥))) = (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))))
174 2cnd 12448 . . . . . . . . 9 ((𝜑 ∧ 𝑥 ∈ ℝ+) → 2 ∈ ℂ)
175174, 154, 170mulassd 11359 . . . . . . . 8 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((2 · (√‘𝑥)) · ((2 · 𝐶) / (√‘𝑥))) = (2 · ((√‘𝑥) · ((2 · 𝐶) / (√‘𝑥)))))
176168recnd 11364 . . . . . . . . . 10 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (2 · 𝐶) ∈ ℂ)
177153rpne0d 13196 . . . . . . . . . 10 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (√‘𝑥) ≠ 0)
178176, 154, 177divcan2d 12122 . . . . . . . . 9 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((√‘𝑥) · ((2 · 𝐶) / (√‘𝑥))) = (2 · 𝐶))
179178oveq2d 7459 . . . . . . . 8 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (2 · ((√‘𝑥) · ((2 · 𝐶) / (√‘𝑥)))) = (2 · (2 · 𝐶)))
180175, 179eqtrd 2798 . . . . . . 7 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((2 · (√‘𝑥)) · ((2 · 𝐶) / (√‘𝑥))) = (2 · (2 · 𝐶)))
181180oveq1d 7458 . . . . . 6 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (((2 · (√‘𝑥)) · ((2 · 𝐶) / (√‘𝑥))) + ((Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥))) · ((2 · 𝐶) / (√‘𝑥)))) = ((2 · (2 · 𝐶)) + ((Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥))) · ((2 · 𝐶) / (√‘𝑥)))))
182171, 173, 1813eqtr3d 2806 . . . . 5 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))) = ((2 · (2 · 𝐶)) + ((Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥))) · ((2 · 𝐶) / (√‘𝑥)))))
183182mpteq2dva 5201 . . . 4 (𝜑 → (𝑥 ∈ ℝ+ ↦ (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥)))) = (𝑥 ∈ ℝ+ ↦ ((2 · (2 · 𝐶)) + ((Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥))) · ((2 · 𝐶) / (√‘𝑥))))))
184 remulcl 11312 . . . . . . . 8 ((2 ∈ ℝ ∧ (2 · 𝐶) ∈ ℝ) → (2 · (2 · 𝐶)) ∈ ℝ)
185161, 167, 184sylancr 599 . . . . . . 7 (𝜑 → (2 · (2 · 𝐶)) ∈ ℝ)
186185recnd 11364 . . . . . 6 (𝜑 → (2 · (2 · 𝐶)) ∈ ℂ)
187186adantr 486 . . . . 5 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (2 · (2 · 𝐶)) ∈ ℂ)
188160, 170mulcld 11356 . . . . 5 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥))) · ((2 · 𝐶) / (√‘𝑥))) ∈ ℂ)
189 rpssre 13155 . . . . . 6 ℝ+ ⊆ ℝ
190 o1const 15816 . . . . . 6 ((ℝ+ ⊆ ℝ ∧ (2 · (2 · 𝐶)) ∈ ℂ) → (𝑥 ∈ ℝ+ ↦ (2 · (2 · 𝐶))) ∈ 𝑂(1))
191189, 186, 190sylancr 599 . . . . 5 (𝜑 → (𝑥 ∈ ℝ+ ↦ (2 · (2 · 𝐶))) ∈ 𝑂(1))
192 eqid 2763 . . . . . . . 8 (𝑥 ∈ ℝ+ ↦ (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥)))) = (𝑥 ∈ ℝ+ ↦ (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥))))
193192divsqrsum 27339 . . . . . . 7 (𝑥 ∈ ℝ+ ↦ (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥)))) ∈ dom ⇝𝑟
194 rlimdmo1 15814 . . . . . . 7 ((𝑥 ∈ ℝ+ ↦ (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥)))) ∈ dom ⇝𝑟 → (𝑥 ∈ ℝ+ ↦ (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥)))) ∈ 𝑂(1))
195193, 194mp1i 14 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ+ ↦ (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥)))) ∈ 𝑂(1))
196176, 154, 177divrecd 12123 . . . . . . . . 9 ((𝜑 ∧ 𝑥 ∈ ℝ+) → ((2 · 𝐶) / (√‘𝑥)) = ((2 · 𝐶) · (1 / (√‘𝑥))))
197196mpteq2dva 5201 . . . . . . . 8 (𝜑 → (𝑥 ∈ ℝ+ ↦ ((2 · 𝐶) / (√‘𝑥))) = (𝑥 ∈ ℝ+ ↦ ((2 · 𝐶) · (1 / (√‘𝑥)))))
198153rprecred 13202 . . . . . . . . 9 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (1 / (√‘𝑥)) ∈ ℝ)
199167recnd 11364 . . . . . . . . . 10 (𝜑 → (2 · 𝐶) ∈ ℂ)
200 rlimconst 15740 . . . . . . . . . 10 ((ℝ+ ⊆ ℝ ∧ (2 · 𝐶) ∈ ℂ) → (𝑥 ∈ ℝ+ ↦ (2 · 𝐶)) ⇝𝑟 (2 · 𝐶))
201189, 199, 200sylancr 599 . . . . . . . . 9 (𝜑 → (𝑥 ∈ ℝ+ ↦ (2 · 𝐶)) ⇝𝑟 (2 · 𝐶))
202 sqrtlim 27330 . . . . . . . . . 10 (𝑥 ∈ ℝ+ ↦ (1 / (√‘𝑥))) ⇝𝑟 0
203202a1i 11 . . . . . . . . 9 (𝜑 → (𝑥 ∈ ℝ+ ↦ (1 / (√‘𝑥))) ⇝𝑟 0)
204168, 198, 201, 203rlimmul 15841 . . . . . . . 8 (𝜑 → (𝑥 ∈ ℝ+ ↦ ((2 · 𝐶) · (1 / (√‘𝑥)))) ⇝𝑟 ((2 · 𝐶) · 0))
205197, 204eqbrtrd 5130 . . . . . . 7 (𝜑 → (𝑥 ∈ ℝ+ ↦ ((2 · 𝐶) / (√‘𝑥))) ⇝𝑟 ((2 · 𝐶) · 0))
206 rlimo1 15813 . . . . . . 7 ((𝑥 ∈ ℝ+ ↦ ((2 · 𝐶) / (√‘𝑥))) ⇝𝑟 ((2 · 𝐶) · 0) → (𝑥 ∈ ℝ+ ↦ ((2 · 𝐶) / (√‘𝑥))) ∈ 𝑂(1))
207205, 206syl 18 . . . . . 6 (𝜑 → (𝑥 ∈ ℝ+ ↦ ((2 · 𝐶) / (√‘𝑥))) ∈ 𝑂(1))
208160, 170, 195, 207o1mul2 15821 . . . . 5 (𝜑 → (𝑥 ∈ ℝ+ ↦ ((Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥))) · ((2 · 𝐶) / (√‘𝑥)))) ∈ 𝑂(1))
209187, 188, 191, 208o1add2 15820 . . . 4 (𝜑 → (𝑥 ∈ ℝ+ ↦ ((2 · (2 · 𝐶)) + ((Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) − (2 · (√‘𝑥))) · ((2 · 𝐶) / (√‘𝑥))))) ∈ 𝑂(1))
210183, 209eqeltrd 2864 . . 3 (𝜑 → (𝑥 ∈ ℝ+ ↦ (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥)))) ∈ 𝑂(1))
211158, 169remulcld 11366 . . 3 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))) ∈ ℝ)
2123, 147fsumcl 15928 . . . 4 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑)) ∈ ℂ)
2131, 212fsumcl 15928 . . 3 ((𝜑 ∧ 𝑥 ∈ ℝ+) → Σ𝑑 ∈ (1...(⌊‘𝑥))Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑)) ∈ ℂ)
214213abscld 15635 . . . . 5 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (abs‘Σ𝑑 ∈ (1...(⌊‘𝑥))Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ∈ ℝ)
215211recnd 11364 . . . . . 6 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))) ∈ ℂ)
216215abscld 15635 . . . . 5 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (abs‘(Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥)))) ∈ ℝ)
217212abscld 15635 . . . . . . 7 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ∈ ℝ)
2181, 217fsumrecl 15929 . . . . . 6 ((𝜑 ∧ 𝑥 ∈ ℝ+) → Σ𝑑 ∈ (1...(⌊‘𝑥))(abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ∈ ℝ)
2191, 212fsumabs 15997 . . . . . 6 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (abs‘Σ𝑑 ∈ (1...(⌊‘𝑥))Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ≤ Σ𝑑 ∈ (1...(⌊‘𝑥))(abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))))
220169adantr 486 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → ((2 · 𝐶) / (√‘𝑥)) ∈ ℝ)
221157, 220remulcld 11366 . . . . . . . 8 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → ((1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))) ∈ ℝ)
222118, 138syldan 603 . . . . . . . . . . . 12 ((((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) ∧ 𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))) → ((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) ∈ ℂ)
2233, 222fsumcl 15928 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) ∈ ℂ)
224223abscld 15635 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))((𝑋‘(𝐿‘𝑚)) / (√‘𝑚))) ∈ ℝ)
225 rpvmasum.a . . . . . . . . . . 11 (𝜑 → 𝑁 ∈ ℕ)
226 rpvmasum2.1 . . . . . . . . . . 11 1 = (0g‘𝐺)
227 dchrisum0lem1.f . . . . . . . . . . 11 𝐹 = (𝑎 ∈ ℕ ↦ ((𝑋‘(𝐿‘𝑎)) / (√‘𝑎)))
228 dchrisum0.s . . . . . . . . . . 11 (𝜑 → seq1( + , 𝐹) ⇝ 𝑆)
229 dchrisum0.1 . . . . . . . . . . 11 (𝜑 → ∀𝑦 ∈ (1[,)+∞)(abs‘((seq1( + , 𝐹)‘(⌊‘𝑦)) − 𝑆)) ≤ (𝐶 / (√‘𝑦)))
230120, 122, 225, 119, 121, 226, 123, 125, 227, 162, 228, 229dchrisum0lem1b 27872 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))((𝑋‘(𝐿‘𝑚)) / (√‘𝑚))) ≤ ((2 · 𝐶) / (√‘𝑥)))
231224, 220, 141, 230lediv1dd 13249 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → ((abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))((𝑋‘(𝐿‘𝑚)) / (√‘𝑚))) / (√‘𝑑)) ≤ (((2 · 𝐶) / (√‘𝑥)) / (√‘𝑑)))
232141rpcnd 13193 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (√‘𝑑) ∈ ℂ)
233141rpne0d 13196 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (√‘𝑑) ≠ 0)
234223, 232, 233absdivd 15654 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (abs‘(Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) = ((abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))((𝑋‘(𝐿‘𝑚)) / (√‘𝑚))) / (abs‘(√‘𝑑))))
2353, 232, 222, 233fsumdivc 15981 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑)) = Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑)))
236235fveq2d 6912 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (abs‘(Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) = (abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))))
237141rprege0d 13198 . . . . . . . . . . . 12 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → ((√‘𝑑) ∈ ℝ ∧ 0 ≤ (√‘𝑑)))
238 absid 15492 . . . . . . . . . . . 12 (((√‘𝑑) ∈ ℝ ∧ 0 ≤ (√‘𝑑)) → (abs‘(√‘𝑑)) = (√‘𝑑))
239237, 238syl 18 . . . . . . . . . . 11 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (abs‘(√‘𝑑)) = (√‘𝑑))
240239oveq2d 7459 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → ((abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))((𝑋‘(𝐿‘𝑚)) / (√‘𝑚))) / (abs‘(√‘𝑑))) = ((abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))((𝑋‘(𝐿‘𝑚)) / (√‘𝑚))) / (√‘𝑑)))
241234, 236, 2403eqtr3rd 2807 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → ((abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))((𝑋‘(𝐿‘𝑚)) / (√‘𝑚))) / (√‘𝑑)) = (abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))))
242170adantr 486 . . . . . . . . . 10 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → ((2 · 𝐶) / (√‘𝑥)) ∈ ℂ)
243242, 232, 233divrec2d 12124 . . . . . . . . 9 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (((2 · 𝐶) / (√‘𝑥)) / (√‘𝑑)) = ((1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))))
244231, 241, 2433brtr3d 5139 . . . . . . . 8 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ≤ ((1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))))
2451, 217, 221, 244fsumle 15995 . . . . . . 7 ((𝜑 ∧ 𝑥 ∈ ℝ+) → Σ𝑑 ∈ (1...(⌊‘𝑥))(abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ≤ Σ𝑑 ∈ (1...(⌊‘𝑥))((1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))))
246157recnd 11364 . . . . . . . 8 (((𝜑 ∧ 𝑥 ∈ ℝ+) ∧ 𝑑 ∈ (1...(⌊‘𝑥))) → (1 / (√‘𝑑)) ∈ ℂ)
2471, 170, 246fsummulc1 15980 . . . . . . 7 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))) = Σ𝑑 ∈ (1...(⌊‘𝑥))((1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))))
248245, 247breqtrrd 5136 . . . . . 6 ((𝜑 ∧ 𝑥 ∈ ℝ+) → Σ𝑑 ∈ (1...(⌊‘𝑥))(abs‘Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ≤ (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))))
249214, 218, 211, 219, 248letrd 11494 . . . . 5 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (abs‘Σ𝑑 ∈ (1...(⌊‘𝑥))Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ≤ (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))))
250211leabsd 15611 . . . . 5 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥))) ≤ (abs‘(Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥)))))
251214, 211, 216, 249, 250letrd 11494 . . . 4 ((𝜑 ∧ 𝑥 ∈ ℝ+) → (abs‘Σ𝑑 ∈ (1...(⌊‘𝑥))Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ≤ (abs‘(Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥)))))
252251adantrr 730 . . 3 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (abs‘Σ𝑑 ∈ (1...(⌊‘𝑥))Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ≤ (abs‘(Σ𝑑 ∈ (1...(⌊‘𝑥))(1 / (√‘𝑑)) · ((2 · 𝐶) / (√‘𝑥)))))
253151, 210, 211, 213, 252o1le 15849 . 2 (𝜑 → (𝑥 ∈ ℝ+ ↦ Σ𝑑 ∈ (1...(⌊‘𝑥))Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘((𝑥↑2) / 𝑑)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ∈ 𝑂(1))
254150, 253eqeltrrd 2865 1 (𝜑 → (𝑥 ∈ ℝ+ ↦ Σ𝑚 ∈ (((⌊‘𝑥) + 1)...(⌊‘(𝑥↑2)))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿‘𝑚)) / (√‘𝑚)) / (√‘𝑑))) ∈ 𝑂(1))
Colors of variables:    wff setvar class
This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2147   ≠ wne 2959  ∀wral 3080  {crab 3416   ⊆ wss 3900   ∖ cdif 4048   ∪ cun 4152  {csn 4588   class class class wbr 5106   ↦ cmpt 5189  dom cdm 5655  ‘cfv 6558  (class class class)co 7443  ℂcc 11225  ℝcr 11226  0cc0 11227  1c1 11228   + caddc 11230   · cmul 11232  +∞cpnf 11367   < clt 11370   ≤ cle 11371   − cmin 11568   / cdiv 12000  ℕcn 12362  2c2 12424  ℕ0cn0 12633  ℤcz 12720  ℤ≥cuz 12992  ℝ+crp 13147  [,)cico 13505  ...cfz 13666  ⌊cfl 13957  seqcseq 14171  ↑cexp 14231  √csqrt 15429  abscabs 15430   ⇝ cli 15680   ⇝𝑟 crli 15681  𝑂(1)co1 15682  Σ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-iin 4957  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-supp 8205  df-tpos 8271  df-frecs 8327  df-wrecs 8358  df-recs 8407  df-rdg 8446  df-1o 8504  df-2o 8505  df-er 8745  df-ec 8747  df-qs 8751  df-map 8877  df-pm 8878  df-ixp 8954  df-en 9002  df-dom 9003  df-sdom 9004  df-fin 9005  df-fsupp 9382  df-fi 9430  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-z 12721  df-dec 12842  df-uz 12993  df-q 13103  df-rp 13148  df-xneg 13268  df-xadd 13269  df-xmul 13270  df-ioo 13507  df-ioc 13508  df-ico 13509  df-icc 13510  df-fz 13667  df-fzo 13816  df-fl 13959  df-mod 14037  df-seq 14172  df-exp 14232  df-fac 14445  df-bc 14474  df-hash 14502  df-shft 15249  df-cj 15295  df-re 15296  df-im 15297  df-sqrt 15431  df-abs 15432  df-limsup 15667  df-clim 15684  df-rlim 15685  df-o1 15686  df-lo1 15687  df-sum 15883  df-ef 16262  df-sin 16264  df-cos 16265  df-pi 16267  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-hom 17481  df-cco 17482  df-rest 17622  df-topn 17623  df-0g 17641  df-gsum 17642  df-topgen 17643  df-pt 17644  df-prds 17647  df-xrs 17703  df-qtop 17708  df-imas 17709  df-qus 17710  df-xps 17711  df-mre 17785  df-mrc 17786  df-acs 17788  df-mgm 18845  df-sgrp 18937  df-mnd 18953  df-mhm 19007  df-submnd 19008  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-cntz 19561  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-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-psmet 21700  df-xmet 21701  df-met 21702  df-bl 21703  df-mopn 21704  df-fbas 21705  df-fg 21706  df-cnfld 21709  df-zring 21783  df-zrh 21839  df-zn 21842  df-top 23242  df-topon 23259  df-topsp 23281  df-bases 23294  df-cld 23367  df-ntr 23368  df-cls 23369  df-nei 23446  df-lp 23484  df-perf 23485  df-cn 23575  df-cnp 23576  df-haus 23663  df-cmp 23735  df-tx 23911  df-hmeo 24104  df-fil 24195  df-fm 24287  df-flim 24288  df-flf 24289  df-xms 24669  df-ms 24670  df-tms 24671  df-cncf 25229  df-limc 26216  df-dv 26217  df-log 26914  df-cxp 26915  df-dchr 27590
This theorem is used by:  dchrisum0lem3  27876
  Copyright terms: Public domain W3C validator