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

Theorem dchrisum0lem2 27469
Description: Lemma for dchrisum0 27471. (Contributed by Mario Carneiro, 12-May-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( + , 𝐹)‘(⌊‘𝑦)) − 𝑆)) ≤ (𝐶 / (√‘𝑦)))
dchrisum0lem2.h 𝐻 = (𝑦 ∈ ℝ+ ↦ (Σ𝑑 ∈ (1...(⌊‘𝑦))(1 / (√‘𝑑)) − (2 · (√‘𝑦))))
dchrisum0lem2.u (𝜑𝐻𝑟 𝑈)
dchrisum0lem2.k 𝐾 = (𝑎 ∈ ℕ ↦ ((𝑋‘(𝐿𝑎)) / 𝑎))
dchrisum0lem2.e (𝜑𝐸 ∈ (0[,)+∞))
dchrisum0lem2.t (𝜑 → seq1( + , 𝐾) ⇝ 𝑇)
dchrisum0lem2.3 (𝜑 → ∀𝑦 ∈ (1[,)+∞)(abs‘((seq1( + , 𝐾)‘(⌊‘𝑦)) − 𝑇)) ≤ (𝐸 / 𝑦))
Assertion
Ref Expression
dchrisum0lem2 (𝜑 → (𝑥 ∈ ℝ+ ↦ Σ𝑚 ∈ (1...(⌊‘𝑥))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑))) ∈ 𝑂(1))
Distinct variable groups:   𝑥,𝑚,𝑦, 1   𝑚,𝑑,𝑥,𝑦,𝐶   𝐹,𝑑,𝑥,𝑦   𝑎,𝑑,𝑚,𝑥,𝑦   𝐸,𝑑,𝑚,𝑥,𝑦   𝑚,𝐾,𝑦   𝑚,𝑁,𝑥,𝑦   𝜑,𝑑,𝑚,𝑥   𝑇,𝑑,𝑚,𝑥,𝑦   𝑆,𝑑,𝑚,𝑥,𝑦   𝑈,𝑚,𝑥   𝑥,𝑊   𝑚,𝑍,𝑥,𝑦   𝐷,𝑚,𝑥,𝑦   𝐿,𝑎,𝑑,𝑚,𝑥,𝑦   𝑋,𝑎,𝑑,𝑚,𝑥,𝑦   𝑚,𝐹
Allowed substitution hints:   𝜑(𝑦,𝑎)   𝐶(𝑎)   𝐷(𝑎,𝑑)   𝑆(𝑎)   𝑇(𝑎)   𝑈(𝑦,𝑎,𝑑)   1 (𝑎,𝑑)   𝐸(𝑎)   𝐹(𝑎)   𝐺(𝑥,𝑦,𝑚,𝑎,𝑑)   𝐻(𝑥,𝑦,𝑚,𝑎,𝑑)   𝐾(𝑥,𝑎,𝑑)   𝑁(𝑎,𝑑)   𝑊(𝑦,𝑚,𝑎,𝑑)   𝑍(𝑎,𝑑)

Proof of Theorem dchrisum0lem2
StepHypRef Expression
1 2cnd 12224 . . 3 ((𝜑𝑥 ∈ ℝ+) → 2 ∈ ℂ)
2 rpcn 12917 . . . . 5 (𝑥 ∈ ℝ+𝑥 ∈ ℂ)
32adantl 481 . . . 4 ((𝜑𝑥 ∈ ℝ+) → 𝑥 ∈ ℂ)
4 fzfid 13897 . . . . 5 ((𝜑𝑥 ∈ ℝ+) → (1...(⌊‘𝑥)) ∈ Fin)
5 rpvmasum2.g . . . . . . 7 𝐺 = (DChr‘𝑁)
6 rpvmasum.z . . . . . . 7 𝑍 = (ℤ/nℤ‘𝑁)
7 rpvmasum2.d . . . . . . 7 𝐷 = (Base‘𝐺)
8 rpvmasum.l . . . . . . 7 𝐿 = (ℤRHom‘𝑍)
9 rpvmasum2.w . . . . . . . . . . 11 𝑊 = {𝑦 ∈ (𝐷 ∖ { 1 }) ∣ Σ𝑚 ∈ ℕ ((𝑦‘(𝐿𝑚)) / 𝑚) = 0}
109ssrab3 4023 . . . . . . . . . 10 𝑊 ⊆ (𝐷 ∖ { 1 })
11 dchrisum0.b . . . . . . . . . 10 (𝜑𝑋𝑊)
1210, 11sselid 3920 . . . . . . . . 9 (𝜑𝑋 ∈ (𝐷 ∖ { 1 }))
1312eldifad 3902 . . . . . . . 8 (𝜑𝑋𝐷)
1413ad2antrr 727 . . . . . . 7 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → 𝑋𝐷)
15 elfzelz 13441 . . . . . . . 8 (𝑚 ∈ (1...(⌊‘𝑥)) → 𝑚 ∈ ℤ)
1615adantl 481 . . . . . . 7 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → 𝑚 ∈ ℤ)
175, 6, 7, 8, 14, 16dchrzrhcl 27196 . . . . . 6 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (𝑋‘(𝐿𝑚)) ∈ ℂ)
18 elfznn 13470 . . . . . . . . 9 (𝑚 ∈ (1...(⌊‘𝑥)) → 𝑚 ∈ ℕ)
1918nnrpd 12948 . . . . . . . 8 (𝑚 ∈ (1...(⌊‘𝑥)) → 𝑚 ∈ ℝ+)
2019adantl 481 . . . . . . 7 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → 𝑚 ∈ ℝ+)
2120rpcnd 12952 . . . . . 6 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → 𝑚 ∈ ℂ)
2220rpne0d 12955 . . . . . 6 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → 𝑚 ≠ 0)
2317, 21, 22divcld 11918 . . . . 5 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((𝑋‘(𝐿𝑚)) / 𝑚) ∈ ℂ)
244, 23fsumcl 15657 . . . 4 ((𝜑𝑥 ∈ ℝ+) → Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚) ∈ ℂ)
253, 24mulcld 11153 . . 3 ((𝜑𝑥 ∈ ℝ+) → (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)) ∈ ℂ)
26 rpssre 12914 . . . . 5 + ⊆ ℝ
27 2cn 12221 . . . . 5 2 ∈ ℂ
28 o1const 15544 . . . . 5 ((ℝ+ ⊆ ℝ ∧ 2 ∈ ℂ) → (𝑥 ∈ ℝ+ ↦ 2) ∈ 𝑂(1))
2926, 27, 28mp2an 693 . . . 4 (𝑥 ∈ ℝ+ ↦ 2) ∈ 𝑂(1)
3029a1i 11 . . 3 (𝜑 → (𝑥 ∈ ℝ+ ↦ 2) ∈ 𝑂(1))
3126a1i 11 . . . 4 (𝜑 → ℝ+ ⊆ ℝ)
32 1red 11134 . . . 4 (𝜑 → 1 ∈ ℝ)
33 dchrisum0lem2.e . . . . 5 (𝜑𝐸 ∈ (0[,)+∞))
34 elrege0 13371 . . . . . 6 (𝐸 ∈ (0[,)+∞) ↔ (𝐸 ∈ ℝ ∧ 0 ≤ 𝐸))
3534simplbi 496 . . . . 5 (𝐸 ∈ (0[,)+∞) → 𝐸 ∈ ℝ)
3633, 35syl 17 . . . 4 (𝜑𝐸 ∈ ℝ)
373, 24absmuld 15381 . . . . . . 7 ((𝜑𝑥 ∈ ℝ+) → (abs‘(𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) = ((abs‘𝑥) · (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))))
38 rprege0 12922 . . . . . . . . . 10 (𝑥 ∈ ℝ+ → (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥))
3938adantl 481 . . . . . . . . 9 ((𝜑𝑥 ∈ ℝ+) → (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥))
40 absid 15220 . . . . . . . . 9 ((𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → (abs‘𝑥) = 𝑥)
4139, 40syl 17 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ+) → (abs‘𝑥) = 𝑥)
4241oveq1d 7373 . . . . . . 7 ((𝜑𝑥 ∈ ℝ+) → ((abs‘𝑥) · (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) = (𝑥 · (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))))
4337, 42eqtrd 2772 . . . . . 6 ((𝜑𝑥 ∈ ℝ+) → (abs‘(𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) = (𝑥 · (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))))
4443adantrr 718 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (abs‘(𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) = (𝑥 · (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))))
4524adantrr 718 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚) ∈ ℂ)
4645subid1d 11482 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚) − 0) = Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))
4718adantl 481 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → 𝑚 ∈ ℕ)
48 2fveq3 6837 . . . . . . . . . . . . . . 15 (𝑎 = 𝑚 → (𝑋‘(𝐿𝑎)) = (𝑋‘(𝐿𝑚)))
49 id 22 . . . . . . . . . . . . . . 15 (𝑎 = 𝑚𝑎 = 𝑚)
5048, 49oveq12d 7376 . . . . . . . . . . . . . 14 (𝑎 = 𝑚 → ((𝑋‘(𝐿𝑎)) / 𝑎) = ((𝑋‘(𝐿𝑚)) / 𝑚))
51 dchrisum0lem2.k . . . . . . . . . . . . . 14 𝐾 = (𝑎 ∈ ℕ ↦ ((𝑋‘(𝐿𝑎)) / 𝑎))
52 ovex 7391 . . . . . . . . . . . . . 14 ((𝑋‘(𝐿𝑎)) / 𝑎) ∈ V
5350, 51, 52fvmpt3i 6945 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ → (𝐾𝑚) = ((𝑋‘(𝐿𝑚)) / 𝑚))
5447, 53syl 17 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (𝐾𝑚) = ((𝑋‘(𝐿𝑚)) / 𝑚))
5554adantlrr 722 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (𝐾𝑚) = ((𝑋‘(𝐿𝑚)) / 𝑚))
56 rpregt0 12921 . . . . . . . . . . . . . . 15 (𝑥 ∈ ℝ+ → (𝑥 ∈ ℝ ∧ 0 < 𝑥))
5756ad2antrl 729 . . . . . . . . . . . . . 14 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (𝑥 ∈ ℝ ∧ 0 < 𝑥))
5857simpld 494 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → 𝑥 ∈ ℝ)
59 simprr 773 . . . . . . . . . . . . 13 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → 1 ≤ 𝑥)
60 flge1nn 13742 . . . . . . . . . . . . 13 ((𝑥 ∈ ℝ ∧ 1 ≤ 𝑥) → (⌊‘𝑥) ∈ ℕ)
6158, 59, 60syl2anc 585 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (⌊‘𝑥) ∈ ℕ)
62 nnuz 12791 . . . . . . . . . . . 12 ℕ = (ℤ‘1)
6361, 62eleqtrdi 2847 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (⌊‘𝑥) ∈ (ℤ‘1))
6423adantlrr 722 . . . . . . . . . . 11 (((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((𝑋‘(𝐿𝑚)) / 𝑚) ∈ ℂ)
6555, 63, 64fsumser 15654 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚) = (seq1( + , 𝐾)‘(⌊‘𝑥)))
66 rpvmasum.a . . . . . . . . . . . . . 14 (𝜑𝑁 ∈ ℕ)
67 rpvmasum2.1 . . . . . . . . . . . . . 14 1 = (0g𝐺)
68 eldifsni 4734 . . . . . . . . . . . . . . 15 (𝑋 ∈ (𝐷 ∖ { 1 }) → 𝑋1 )
6912, 68syl 17 . . . . . . . . . . . . . 14 (𝜑𝑋1 )
70 dchrisum0lem2.t . . . . . . . . . . . . . 14 (𝜑 → seq1( + , 𝐾) ⇝ 𝑇)
71 dchrisum0lem2.3 . . . . . . . . . . . . . 14 (𝜑 → ∀𝑦 ∈ (1[,)+∞)(abs‘((seq1( + , 𝐾)‘(⌊‘𝑦)) − 𝑇)) ≤ (𝐸 / 𝑦))
726, 8, 66, 5, 7, 67, 13, 69, 51, 33, 70, 71, 9dchrvmaeq0 27455 . . . . . . . . . . . . 13 (𝜑 → (𝑋𝑊𝑇 = 0))
7311, 72mpbid 232 . . . . . . . . . . . 12 (𝜑𝑇 = 0)
7473adantr 480 . . . . . . . . . . 11 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → 𝑇 = 0)
7574eqcomd 2743 . . . . . . . . . 10 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → 0 = 𝑇)
7665, 75oveq12d 7376 . . . . . . . . 9 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚) − 0) = ((seq1( + , 𝐾)‘(⌊‘𝑥)) − 𝑇))
7746, 76eqtr3d 2774 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚) = ((seq1( + , 𝐾)‘(⌊‘𝑥)) − 𝑇))
7877fveq2d 6836 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)) = (abs‘((seq1( + , 𝐾)‘(⌊‘𝑥)) − 𝑇)))
79 2fveq3 6837 . . . . . . . . . 10 (𝑦 = 𝑥 → (seq1( + , 𝐾)‘(⌊‘𝑦)) = (seq1( + , 𝐾)‘(⌊‘𝑥)))
8079fvoveq1d 7380 . . . . . . . . 9 (𝑦 = 𝑥 → (abs‘((seq1( + , 𝐾)‘(⌊‘𝑦)) − 𝑇)) = (abs‘((seq1( + , 𝐾)‘(⌊‘𝑥)) − 𝑇)))
81 oveq2 7366 . . . . . . . . 9 (𝑦 = 𝑥 → (𝐸 / 𝑦) = (𝐸 / 𝑥))
8280, 81breq12d 5099 . . . . . . . 8 (𝑦 = 𝑥 → ((abs‘((seq1( + , 𝐾)‘(⌊‘𝑦)) − 𝑇)) ≤ (𝐸 / 𝑦) ↔ (abs‘((seq1( + , 𝐾)‘(⌊‘𝑥)) − 𝑇)) ≤ (𝐸 / 𝑥)))
8371adantr 480 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → ∀𝑦 ∈ (1[,)+∞)(abs‘((seq1( + , 𝐾)‘(⌊‘𝑦)) − 𝑇)) ≤ (𝐸 / 𝑦))
84 1re 11133 . . . . . . . . . 10 1 ∈ ℝ
85 elicopnf 13362 . . . . . . . . . 10 (1 ∈ ℝ → (𝑥 ∈ (1[,)+∞) ↔ (𝑥 ∈ ℝ ∧ 1 ≤ 𝑥)))
8684, 85ax-mp 5 . . . . . . . . 9 (𝑥 ∈ (1[,)+∞) ↔ (𝑥 ∈ ℝ ∧ 1 ≤ 𝑥))
8758, 59, 86sylanbrc 584 . . . . . . . 8 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → 𝑥 ∈ (1[,)+∞))
8882, 83, 87rspcdva 3566 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (abs‘((seq1( + , 𝐾)‘(⌊‘𝑥)) − 𝑇)) ≤ (𝐸 / 𝑥))
8978, 88eqbrtrd 5108 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)) ≤ (𝐸 / 𝑥))
9045abscld 15363 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)) ∈ ℝ)
9136adantr 480 . . . . . . 7 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → 𝐸 ∈ ℝ)
92 lemuldiv2 12024 . . . . . . 7 (((abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)) ∈ ℝ ∧ 𝐸 ∈ ℝ ∧ (𝑥 ∈ ℝ ∧ 0 < 𝑥)) → ((𝑥 · (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) ≤ 𝐸 ↔ (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)) ≤ (𝐸 / 𝑥)))
9390, 91, 57, 92syl3anc 1374 . . . . . 6 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → ((𝑥 · (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) ≤ 𝐸 ↔ (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)) ≤ (𝐸 / 𝑥)))
9489, 93mpbird 257 . . . . 5 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (𝑥 · (abs‘Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) ≤ 𝐸)
9544, 94eqbrtrd 5108 . . . 4 ((𝜑 ∧ (𝑥 ∈ ℝ+ ∧ 1 ≤ 𝑥)) → (abs‘(𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) ≤ 𝐸)
9631, 25, 32, 36, 95elo1d 15460 . . 3 (𝜑 → (𝑥 ∈ ℝ+ ↦ (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) ∈ 𝑂(1))
971, 25, 30, 96o1mul2 15549 . 2 (𝜑 → (𝑥 ∈ ℝ+ ↦ (2 · (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)))) ∈ 𝑂(1))
98 fzfid 13897 . . . . 5 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (1...(⌊‘((𝑥↑2) / 𝑚))) ∈ Fin)
9920rpsqrtcld 15336 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (√‘𝑚) ∈ ℝ+)
10099rpcnd 12952 . . . . . . . 8 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (√‘𝑚) ∈ ℂ)
10199rpne0d 12955 . . . . . . . 8 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (√‘𝑚) ≠ 0)
10217, 100, 101divcld 11918 . . . . . . 7 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((𝑋‘(𝐿𝑚)) / (√‘𝑚)) ∈ ℂ)
103102adantr 480 . . . . . 6 ((((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → ((𝑋‘(𝐿𝑚)) / (√‘𝑚)) ∈ ℂ)
104 elfznn 13470 . . . . . . . . . 10 (𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚))) → 𝑑 ∈ ℕ)
105104adantl 481 . . . . . . . . 9 ((((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → 𝑑 ∈ ℕ)
106105nnrpd 12948 . . . . . . . 8 ((((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → 𝑑 ∈ ℝ+)
107106rpsqrtcld 15336 . . . . . . 7 ((((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → (√‘𝑑) ∈ ℝ+)
108107rpcnd 12952 . . . . . 6 ((((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → (√‘𝑑) ∈ ℂ)
109107rpne0d 12955 . . . . . 6 ((((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → (√‘𝑑) ≠ 0)
110103, 108, 109divcld 11918 . . . . 5 ((((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) ∈ ℂ)
11198, 110fsumcl 15657 . . . 4 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) ∈ ℂ)
1124, 111fsumcl 15657 . . 3 ((𝜑𝑥 ∈ ℝ+) → Σ𝑚 ∈ (1...(⌊‘𝑥))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) ∈ ℂ)
113 mulcl 11111 . . . 4 ((2 ∈ ℂ ∧ (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)) ∈ ℂ) → (2 · (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) ∈ ℂ)
11427, 25, 113sylancr 588 . . 3 ((𝜑𝑥 ∈ ℝ+) → (2 · (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) ∈ ℂ)
115 2re 12220 . . . . . . . . . 10 2 ∈ ℝ
116 simpr 484 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ℝ+) → 𝑥 ∈ ℝ+)
117 2z 12524 . . . . . . . . . . . . . 14 2 ∈ ℤ
118 rpexpcl 14004 . . . . . . . . . . . . . 14 ((𝑥 ∈ ℝ+ ∧ 2 ∈ ℤ) → (𝑥↑2) ∈ ℝ+)
119116, 117, 118sylancl 587 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ℝ+) → (𝑥↑2) ∈ ℝ+)
120 rpdivcl 12933 . . . . . . . . . . . . 13 (((𝑥↑2) ∈ ℝ+𝑚 ∈ ℝ+) → ((𝑥↑2) / 𝑚) ∈ ℝ+)
121119, 19, 120syl2an 597 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((𝑥↑2) / 𝑚) ∈ ℝ+)
122121rpsqrtcld 15336 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (√‘((𝑥↑2) / 𝑚)) ∈ ℝ+)
123122rpred 12950 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (√‘((𝑥↑2) / 𝑚)) ∈ ℝ)
124 remulcl 11112 . . . . . . . . . 10 ((2 ∈ ℝ ∧ (√‘((𝑥↑2) / 𝑚)) ∈ ℝ) → (2 · (√‘((𝑥↑2) / 𝑚))) ∈ ℝ)
125115, 123, 124sylancr 588 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (2 · (√‘((𝑥↑2) / 𝑚))) ∈ ℝ)
126125recnd 11161 . . . . . . . 8 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (2 · (√‘((𝑥↑2) / 𝑚))) ∈ ℂ)
127102, 126mulcld 11153 . . . . . . 7 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚)))) ∈ ℂ)
1284, 111, 127fsumsub 15712 . . . . . 6 ((𝜑𝑥 ∈ ℝ+) → Σ𝑚 ∈ (1...(⌊‘𝑥))(Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) − (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚))))) = (Σ𝑚 ∈ (1...(⌊‘𝑥))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) − Σ𝑚 ∈ (1...(⌊‘𝑥))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚))))))
129107rpcnne0d 12959 . . . . . . . . . . 11 ((((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → ((√‘𝑑) ∈ ℂ ∧ (√‘𝑑) ≠ 0))
130 reccl 11804 . . . . . . . . . . 11 (((√‘𝑑) ∈ ℂ ∧ (√‘𝑑) ≠ 0) → (1 / (√‘𝑑)) ∈ ℂ)
131129, 130syl 17 . . . . . . . . . 10 ((((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → (1 / (√‘𝑑)) ∈ ℂ)
13298, 131fsumcl 15657 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(1 / (√‘𝑑)) ∈ ℂ)
133102, 132, 126subdid 11594 . . . . . . . 8 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(1 / (√‘𝑑)) − (2 · (√‘((𝑥↑2) / 𝑚))))) = ((((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(1 / (√‘𝑑))) − (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚))))))
134 fveq2 6832 . . . . . . . . . . . . . 14 (𝑦 = ((𝑥↑2) / 𝑚) → (⌊‘𝑦) = (⌊‘((𝑥↑2) / 𝑚)))
135134oveq2d 7374 . . . . . . . . . . . . 13 (𝑦 = ((𝑥↑2) / 𝑚) → (1...(⌊‘𝑦)) = (1...(⌊‘((𝑥↑2) / 𝑚))))
136135sumeq1d 15624 . . . . . . . . . . . 12 (𝑦 = ((𝑥↑2) / 𝑚) → Σ𝑑 ∈ (1...(⌊‘𝑦))(1 / (√‘𝑑)) = Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(1 / (√‘𝑑)))
137 fveq2 6832 . . . . . . . . . . . . 13 (𝑦 = ((𝑥↑2) / 𝑚) → (√‘𝑦) = (√‘((𝑥↑2) / 𝑚)))
138137oveq2d 7374 . . . . . . . . . . . 12 (𝑦 = ((𝑥↑2) / 𝑚) → (2 · (√‘𝑦)) = (2 · (√‘((𝑥↑2) / 𝑚))))
139136, 138oveq12d 7376 . . . . . . . . . . 11 (𝑦 = ((𝑥↑2) / 𝑚) → (Σ𝑑 ∈ (1...(⌊‘𝑦))(1 / (√‘𝑑)) − (2 · (√‘𝑦))) = (Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(1 / (√‘𝑑)) − (2 · (√‘((𝑥↑2) / 𝑚)))))
140 dchrisum0lem2.h . . . . . . . . . . 11 𝐻 = (𝑦 ∈ ℝ+ ↦ (Σ𝑑 ∈ (1...(⌊‘𝑦))(1 / (√‘𝑑)) − (2 · (√‘𝑦))))
141 ovex 7391 . . . . . . . . . . 11 𝑑 ∈ (1...(⌊‘𝑦))(1 / (√‘𝑑)) − (2 · (√‘𝑦))) ∈ V
142139, 140, 141fvmpt3i 6945 . . . . . . . . . 10 (((𝑥↑2) / 𝑚) ∈ ℝ+ → (𝐻‘((𝑥↑2) / 𝑚)) = (Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(1 / (√‘𝑑)) − (2 · (√‘((𝑥↑2) / 𝑚)))))
143121, 142syl 17 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (𝐻‘((𝑥↑2) / 𝑚)) = (Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(1 / (√‘𝑑)) − (2 · (√‘((𝑥↑2) / 𝑚)))))
144143oveq2d 7374 . . . . . . . 8 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (𝐻‘((𝑥↑2) / 𝑚))) = (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(1 / (√‘𝑑)) − (2 · (√‘((𝑥↑2) / 𝑚))))))
145103, 108, 109divrecd 11921 . . . . . . . . . . 11 ((((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) ∧ 𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))) → (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) = (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (1 / (√‘𝑑))))
146145sumeq2dv 15626 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) = Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (1 / (√‘𝑑))))
14798, 102, 131fsummulc2 15708 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(1 / (√‘𝑑))) = Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (1 / (√‘𝑑))))
148146, 147eqtr4d 2775 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) = (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(1 / (√‘𝑑))))
149148oveq1d 7373 . . . . . . . 8 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) − (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚))))) = ((((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(1 / (√‘𝑑))) − (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚))))))
150133, 144, 1493eqtr4d 2782 . . . . . . 7 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (𝐻‘((𝑥↑2) / 𝑚))) = (Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) − (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚))))))
151150sumeq2dv 15626 . . . . . 6 ((𝜑𝑥 ∈ ℝ+) → Σ𝑚 ∈ (1...(⌊‘𝑥))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (𝐻‘((𝑥↑2) / 𝑚))) = Σ𝑚 ∈ (1...(⌊‘𝑥))(Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) − (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚))))))
152 mulcl 11111 . . . . . . . . . 10 ((2 ∈ ℂ ∧ 𝑥 ∈ ℂ) → (2 · 𝑥) ∈ ℂ)
15327, 3, 152sylancr 588 . . . . . . . . 9 ((𝜑𝑥 ∈ ℝ+) → (2 · 𝑥) ∈ ℂ)
1544, 153, 23fsummulc2 15708 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ+) → ((2 · 𝑥) · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)) = Σ𝑚 ∈ (1...(⌊‘𝑥))((2 · 𝑥) · ((𝑋‘(𝐿𝑚)) / 𝑚)))
1551, 3, 24mulassd 11156 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ+) → ((2 · 𝑥) · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)) = (2 · (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))))
156153adantr 480 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (2 · 𝑥) ∈ ℂ)
157156, 102, 100, 101div12d 11954 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((2 · 𝑥) · (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑚))) = (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · ((2 · 𝑥) / (√‘𝑚))))
15899rpcnne0d 12959 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((√‘𝑚) ∈ ℂ ∧ (√‘𝑚) ≠ 0))
159 divdiv1 11853 . . . . . . . . . . . . 13 (((𝑋‘(𝐿𝑚)) ∈ ℂ ∧ ((√‘𝑚) ∈ ℂ ∧ (√‘𝑚) ≠ 0) ∧ ((√‘𝑚) ∈ ℂ ∧ (√‘𝑚) ≠ 0)) → (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑚)) = ((𝑋‘(𝐿𝑚)) / ((√‘𝑚) · (√‘𝑚))))
16017, 158, 158, 159syl3anc 1374 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑚)) = ((𝑋‘(𝐿𝑚)) / ((√‘𝑚) · (√‘𝑚))))
16120rprege0d 12957 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (𝑚 ∈ ℝ ∧ 0 ≤ 𝑚))
162 remsqsqrt 15180 . . . . . . . . . . . . . 14 ((𝑚 ∈ ℝ ∧ 0 ≤ 𝑚) → ((√‘𝑚) · (√‘𝑚)) = 𝑚)
163161, 162syl 17 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((√‘𝑚) · (√‘𝑚)) = 𝑚)
164163oveq2d 7374 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((𝑋‘(𝐿𝑚)) / ((√‘𝑚) · (√‘𝑚))) = ((𝑋‘(𝐿𝑚)) / 𝑚))
165160, 164eqtr2d 2773 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((𝑋‘(𝐿𝑚)) / 𝑚) = (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑚)))
166165oveq2d 7374 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((2 · 𝑥) · ((𝑋‘(𝐿𝑚)) / 𝑚)) = ((2 · 𝑥) · (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑚))))
167119adantr 480 . . . . . . . . . . . . . . . 16 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (𝑥↑2) ∈ ℝ+)
168167rprege0d 12957 . . . . . . . . . . . . . . 15 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((𝑥↑2) ∈ ℝ ∧ 0 ≤ (𝑥↑2)))
169 sqrtdiv 15189 . . . . . . . . . . . . . . 15 ((((𝑥↑2) ∈ ℝ ∧ 0 ≤ (𝑥↑2)) ∧ 𝑚 ∈ ℝ+) → (√‘((𝑥↑2) / 𝑚)) = ((√‘(𝑥↑2)) / (√‘𝑚)))
170168, 20, 169syl2anc 585 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (√‘((𝑥↑2) / 𝑚)) = ((√‘(𝑥↑2)) / (√‘𝑚)))
17138ad2antlr 728 . . . . . . . . . . . . . . . 16 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (𝑥 ∈ ℝ ∧ 0 ≤ 𝑥))
172 sqrtsq 15193 . . . . . . . . . . . . . . . 16 ((𝑥 ∈ ℝ ∧ 0 ≤ 𝑥) → (√‘(𝑥↑2)) = 𝑥)
173171, 172syl 17 . . . . . . . . . . . . . . 15 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (√‘(𝑥↑2)) = 𝑥)
174173oveq1d 7373 . . . . . . . . . . . . . 14 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((√‘(𝑥↑2)) / (√‘𝑚)) = (𝑥 / (√‘𝑚)))
175170, 174eqtrd 2772 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (√‘((𝑥↑2) / 𝑚)) = (𝑥 / (√‘𝑚)))
176175oveq2d 7374 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (2 · (√‘((𝑥↑2) / 𝑚))) = (2 · (𝑥 / (√‘𝑚))))
177 2cnd 12224 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → 2 ∈ ℂ)
1783adantr 480 . . . . . . . . . . . . 13 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → 𝑥 ∈ ℂ)
179 divass 11815 . . . . . . . . . . . . 13 ((2 ∈ ℂ ∧ 𝑥 ∈ ℂ ∧ ((√‘𝑚) ∈ ℂ ∧ (√‘𝑚) ≠ 0)) → ((2 · 𝑥) / (√‘𝑚)) = (2 · (𝑥 / (√‘𝑚))))
180177, 178, 158, 179syl3anc 1374 . . . . . . . . . . . 12 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((2 · 𝑥) / (√‘𝑚)) = (2 · (𝑥 / (√‘𝑚))))
181176, 180eqtr4d 2775 . . . . . . . . . . 11 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (2 · (√‘((𝑥↑2) / 𝑚))) = ((2 · 𝑥) / (√‘𝑚)))
182181oveq2d 7374 . . . . . . . . . 10 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚)))) = (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · ((2 · 𝑥) / (√‘𝑚))))
183157, 166, 1823eqtr4d 2782 . . . . . . . . 9 (((𝜑𝑥 ∈ ℝ+) ∧ 𝑚 ∈ (1...(⌊‘𝑥))) → ((2 · 𝑥) · ((𝑋‘(𝐿𝑚)) / 𝑚)) = (((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚)))))
184183sumeq2dv 15626 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ+) → Σ𝑚 ∈ (1...(⌊‘𝑥))((2 · 𝑥) · ((𝑋‘(𝐿𝑚)) / 𝑚)) = Σ𝑚 ∈ (1...(⌊‘𝑥))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚)))))
185154, 155, 1843eqtr3d 2780 . . . . . . 7 ((𝜑𝑥 ∈ ℝ+) → (2 · (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))) = Σ𝑚 ∈ (1...(⌊‘𝑥))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚)))))
186185oveq2d 7374 . . . . . 6 ((𝜑𝑥 ∈ ℝ+) → (Σ𝑚 ∈ (1...(⌊‘𝑥))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) − (2 · (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)))) = (Σ𝑚 ∈ (1...(⌊‘𝑥))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) − Σ𝑚 ∈ (1...(⌊‘𝑥))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (2 · (√‘((𝑥↑2) / 𝑚))))))
187128, 151, 1863eqtr4d 2782 . . . . 5 ((𝜑𝑥 ∈ ℝ+) → Σ𝑚 ∈ (1...(⌊‘𝑥))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (𝐻‘((𝑥↑2) / 𝑚))) = (Σ𝑚 ∈ (1...(⌊‘𝑥))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) − (2 · (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)))))
188187mpteq2dva 5179 . . . 4 (𝜑 → (𝑥 ∈ ℝ+ ↦ Σ𝑚 ∈ (1...(⌊‘𝑥))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (𝐻‘((𝑥↑2) / 𝑚)))) = (𝑥 ∈ ℝ+ ↦ (Σ𝑚 ∈ (1...(⌊‘𝑥))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) − (2 · (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))))))
189 dchrisum0lem1.f . . . . 5 𝐹 = (𝑎 ∈ ℕ ↦ ((𝑋‘(𝐿𝑎)) / (√‘𝑎)))
190 dchrisum0.c . . . . 5 (𝜑𝐶 ∈ (0[,)+∞))
191 dchrisum0.s . . . . 5 (𝜑 → seq1( + , 𝐹) ⇝ 𝑆)
192 dchrisum0.1 . . . . 5 (𝜑 → ∀𝑦 ∈ (1[,)+∞)(abs‘((seq1( + , 𝐹)‘(⌊‘𝑦)) − 𝑆)) ≤ (𝐶 / (√‘𝑦)))
193 dchrisum0lem2.u . . . . 5 (𝜑𝐻𝑟 𝑈)
1946, 8, 66, 5, 7, 67, 9, 11, 189, 190, 191, 192, 140, 193dchrisum0lem2a 27468 . . . 4 (𝜑 → (𝑥 ∈ ℝ+ ↦ Σ𝑚 ∈ (1...(⌊‘𝑥))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) · (𝐻‘((𝑥↑2) / 𝑚)))) ∈ 𝑂(1))
195188, 194eqeltrrd 2838 . . 3 (𝜑 → (𝑥 ∈ ℝ+ ↦ (Σ𝑚 ∈ (1...(⌊‘𝑥))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑)) − (2 · (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚))))) ∈ 𝑂(1))
196112, 114, 195o1dif 15554 . 2 (𝜑 → ((𝑥 ∈ ℝ+ ↦ Σ𝑚 ∈ (1...(⌊‘𝑥))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑))) ∈ 𝑂(1) ↔ (𝑥 ∈ ℝ+ ↦ (2 · (𝑥 · Σ𝑚 ∈ (1...(⌊‘𝑥))((𝑋‘(𝐿𝑚)) / 𝑚)))) ∈ 𝑂(1)))
19797, 196mpbird 257 1 (𝜑 → (𝑥 ∈ ℝ+ ↦ Σ𝑚 ∈ (1...(⌊‘𝑥))Σ𝑑 ∈ (1...(⌊‘((𝑥↑2) / 𝑚)))(((𝑋‘(𝐿𝑚)) / (√‘𝑚)) / (√‘𝑑))) ∈ 𝑂(1))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 206  wa 395   = wceq 1542  wcel 2114  wne 2933  wral 3052  {crab 3390  cdif 3887  wss 3890  {csn 4568   class class class wbr 5086  cmpt 5167  cfv 6490  (class class class)co 7358  cc 11025  cr 11026  0cc0 11027  1c1 11028   + caddc 11030   · cmul 11032  +∞cpnf 11164   < clt 11167  cle 11168  cmin 11365   / cdiv 11795  cn 12146  2c2 12201  cz 12489  cuz 12752  +crp 12906  [,)cico 13264  ...cfz 13424  cfl 13711  seqcseq 13925  cexp 13985  csqrt 15157  abscabs 15158  cli 15408  𝑟 crli 15409  𝑂(1)co1 15410  Σcsu 15610  Basecbs 17137  0gc0g 17360  ℤRHomczrh 21456  ℤ/nczn 21459  DChrcdchr 27183
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5212  ax-sep 5231  ax-nul 5241  ax-pow 5300  ax-pr 5368  ax-un 7680  ax-inf2 9551  ax-cnex 11083  ax-resscn 11084  ax-1cn 11085  ax-icn 11086  ax-addcl 11087  ax-addrcl 11088  ax-mulcl 11089  ax-mulrcl 11090  ax-mulcom 11091  ax-addass 11092  ax-mulass 11093  ax-distr 11094  ax-i2m1 11095  ax-1ne0 11096  ax-1rid 11097  ax-rnegex 11098  ax-rrecex 11099  ax-cnre 11100  ax-pre-lttri 11101  ax-pre-lttrn 11102  ax-pre-ltadd 11103  ax-pre-mulgt0 11104  ax-pre-sup 11105  ax-addf 11106  ax-mulf 11107
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3343  df-reu 3344  df-rab 3391  df-v 3432  df-sbc 3730  df-csb 3839  df-dif 3893  df-un 3895  df-in 3897  df-ss 3907  df-pss 3910  df-nul 4275  df-if 4468  df-pw 4544  df-sn 4569  df-pr 4571  df-tp 4573  df-op 4575  df-uni 4852  df-int 4891  df-iun 4936  df-iin 4937  df-disj 5054  df-br 5087  df-opab 5149  df-mpt 5168  df-tr 5194  df-id 5517  df-eprel 5522  df-po 5530  df-so 5531  df-fr 5575  df-se 5576  df-we 5577  df-xp 5628  df-rel 5629  df-cnv 5630  df-co 5631  df-dm 5632  df-rn 5633  df-res 5634  df-ima 5635  df-pred 6257  df-ord 6318  df-on 6319  df-lim 6320  df-suc 6321  df-iota 6446  df-fun 6492  df-fn 6493  df-f 6494  df-f1 6495  df-fo 6496  df-f1o 6497  df-fv 6498  df-isom 6499  df-riota 7315  df-ov 7361  df-oprab 7362  df-mpo 7363  df-of 7622  df-om 7809  df-1st 7933  df-2nd 7934  df-supp 8102  df-tpos 8167  df-frecs 8222  df-wrecs 8253  df-recs 8302  df-rdg 8340  df-1o 8396  df-2o 8397  df-oadd 8400  df-omul 8401  df-er 8634  df-ec 8636  df-qs 8640  df-map 8766  df-pm 8767  df-ixp 8837  df-en 8885  df-dom 8886  df-sdom 8887  df-fin 8888  df-fsupp 9266  df-fi 9315  df-sup 9346  df-inf 9347  df-oi 9416  df-card 9852  df-acn 9855  df-pnf 11169  df-mnf 11170  df-xr 11171  df-ltxr 11172  df-le 11173  df-sub 11367  df-neg 11368  df-div 11796  df-nn 12147  df-2 12209  df-3 12210  df-4 12211  df-5 12212  df-6 12213  df-7 12214  df-8 12215  df-9 12216  df-n0 12403  df-z 12490  df-dec 12609  df-uz 12753  df-q 12863  df-rp 12907  df-xneg 13027  df-xadd 13028  df-xmul 13029  df-ioo 13266  df-ioc 13267  df-ico 13268  df-icc 13269  df-fz 13425  df-fzo 13572  df-fl 13713  df-mod 13791  df-seq 13926  df-exp 13986  df-fac 14198  df-bc 14227  df-hash 14255  df-shft 14991  df-cj 15023  df-re 15024  df-im 15025  df-sqrt 15159  df-abs 15160  df-limsup 15395  df-clim 15412  df-rlim 15413  df-o1 15414  df-lo1 15415  df-sum 15611  df-ef 15991  df-sin 15993  df-cos 15994  df-pi 15996  df-dvds 16181  df-struct 17075  df-sets 17092  df-slot 17110  df-ndx 17122  df-base 17138  df-ress 17159  df-plusg 17191  df-mulr 17192  df-starv 17193  df-sca 17194  df-vsca 17195  df-ip 17196  df-tset 17197  df-ple 17198  df-ds 17200  df-unif 17201  df-hom 17202  df-cco 17203  df-rest 17343  df-topn 17344  df-0g 17362  df-gsum 17363  df-topgen 17364  df-pt 17365  df-prds 17368  df-xrs 17424  df-qtop 17429  df-imas 17430  df-qus 17431  df-xps 17432  df-mre 17506  df-mrc 17507  df-acs 17509  df-mgm 18566  df-sgrp 18645  df-mnd 18661  df-mhm 18709  df-submnd 18710  df-grp 18870  df-minusg 18871  df-sbg 18872  df-mulg 19002  df-subg 19057  df-nsg 19058  df-eqg 19059  df-ghm 19146  df-cntz 19250  df-od 19461  df-cmn 19715  df-abl 19716  df-mgp 20080  df-rng 20092  df-ur 20121  df-ring 20174  df-cring 20175  df-oppr 20275  df-dvdsr 20295  df-unit 20296  df-invr 20326  df-dvr 20339  df-rhm 20410  df-subrng 20481  df-subrg 20505  df-drng 20666  df-lmod 20815  df-lss 20885  df-lsp 20925  df-sra 21127  df-rgmod 21128  df-lidl 21165  df-rsp 21166  df-2idl 21207  df-psmet 21303  df-xmet 21304  df-met 21305  df-bl 21306  df-mopn 21307  df-fbas 21308  df-fg 21309  df-cnfld 21312  df-zring 21404  df-zrh 21460  df-zn 21463  df-top 22837  df-topon 22854  df-topsp 22876  df-bases 22889  df-cld 22962  df-ntr 22963  df-cls 22964  df-nei 23041  df-lp 23079  df-perf 23080  df-cn 23170  df-cnp 23171  df-haus 23258  df-cmp 23330  df-tx 23505  df-hmeo 23698  df-fil 23789  df-fm 23881  df-flim 23882  df-flf 23883  df-xms 24263  df-ms 24264  df-tms 24265  df-cncf 24823  df-limc 25811  df-dv 25812  df-log 26505  df-cxp 26506  df-dchr 27184
This theorem is referenced by:  dchrisum0lem3  27470
  Copyright terms: Public domain W3C validator