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

Theorem dchrisum0lem1b 27364
Description: Lemma for dchrisum0lem1 27365. (Contributed 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
dchrisum0lem1b (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š))) ≀ ((2 Β· 𝐢) / (βˆšβ€˜π‘₯)))
Distinct variable groups:   π‘₯,π‘š,𝑦, 1   π‘š,𝑑,π‘₯,𝑦,𝐢   𝐹,𝑑,π‘₯,𝑦   π‘Ž,𝑑,π‘š,π‘₯,𝑦   π‘š,𝑁,π‘₯,𝑦   πœ‘,𝑑,π‘š,π‘₯   𝑆,𝑑,π‘š,π‘₯,𝑦   π‘₯,π‘Š   π‘š,𝑍,π‘₯,𝑦   𝐷,π‘š,π‘₯,𝑦   𝐿,π‘Ž,𝑑,π‘š,π‘₯,𝑦   𝑋,π‘Ž,𝑑,π‘š,π‘₯,𝑦   π‘š,𝐹
Allowed substitution hints:   πœ‘(𝑦,π‘Ž)   𝐢(π‘Ž)   𝐷(π‘Ž,𝑑)   𝑆(π‘Ž)   1 (π‘Ž,𝑑)   𝐹(π‘Ž)   𝐺(π‘₯,𝑦,π‘š,π‘Ž,𝑑)   𝑁(π‘Ž,𝑑)   π‘Š(𝑦,π‘š,π‘Ž,𝑑)   𝑍(π‘Ž,𝑑)

Proof of Theorem dchrisum0lem1b
StepHypRef Expression
1 fzfid 13935 . . . 4 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑))) ∈ Fin)
2 ssun2 4165 . . . . . . 7 (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βŠ† ((1...(βŒŠβ€˜π‘₯)) βˆͺ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑))))
3 simpr 484 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ π‘₯ ∈ ℝ+)
43rprege0d 13020 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (π‘₯ ∈ ℝ ∧ 0 ≀ π‘₯))
5 flge0nn0 13782 . . . . . . . . . . . 12 ((π‘₯ ∈ ℝ ∧ 0 ≀ π‘₯) β†’ (βŒŠβ€˜π‘₯) ∈ β„•0)
64, 5syl 17 . . . . . . . . . . 11 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (βŒŠβ€˜π‘₯) ∈ β„•0)
7 nn0p1nn 12508 . . . . . . . . . . 11 ((βŒŠβ€˜π‘₯) ∈ β„•0 β†’ ((βŒŠβ€˜π‘₯) + 1) ∈ β„•)
86, 7syl 17 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((βŒŠβ€˜π‘₯) + 1) ∈ β„•)
98adantr 480 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((βŒŠβ€˜π‘₯) + 1) ∈ β„•)
10 nnuz 12862 . . . . . . . . 9 β„• = (β„€β‰₯β€˜1)
119, 10eleqtrdi 2835 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((βŒŠβ€˜π‘₯) + 1) ∈ (β„€β‰₯β€˜1))
12 dchrisum0lem1a 27335 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (π‘₯ ≀ ((π‘₯↑2) / 𝑑) ∧ (βŒŠβ€˜((π‘₯↑2) / 𝑑)) ∈ (β„€β‰₯β€˜(βŒŠβ€˜π‘₯))))
1312simprd 495 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (βŒŠβ€˜((π‘₯↑2) / 𝑑)) ∈ (β„€β‰₯β€˜(βŒŠβ€˜π‘₯)))
14 fzsplit2 13523 . . . . . . . 8 ((((βŒŠβ€˜π‘₯) + 1) ∈ (β„€β‰₯β€˜1) ∧ (βŒŠβ€˜((π‘₯↑2) / 𝑑)) ∈ (β„€β‰₯β€˜(βŒŠβ€˜π‘₯))) β†’ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑))) = ((1...(βŒŠβ€˜π‘₯)) βˆͺ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))))
1511, 13, 14syl2anc 583 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑))) = ((1...(βŒŠβ€˜π‘₯)) βˆͺ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))))
162, 15sseqtrrid 4027 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βŠ† (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑))))
1716sselda 3974 . . . . 5 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑))))
18 rpvmasum2.g . . . . . . 7 𝐺 = (DChrβ€˜π‘)
19 rpvmasum.z . . . . . . 7 𝑍 = (β„€/nβ„€β€˜π‘)
20 rpvmasum2.d . . . . . . 7 𝐷 = (Baseβ€˜πΊ)
21 rpvmasum.l . . . . . . 7 𝐿 = (β„€RHomβ€˜π‘)
22 rpvmasum2.w . . . . . . . . . . 11 π‘Š = {𝑦 ∈ (𝐷 βˆ– { 1 }) ∣ Ξ£π‘š ∈ β„• ((π‘¦β€˜(πΏβ€˜π‘š)) / π‘š) = 0}
2322ssrab3 4072 . . . . . . . . . 10 π‘Š βŠ† (𝐷 βˆ– { 1 })
24 dchrisum0.b . . . . . . . . . 10 (πœ‘ β†’ 𝑋 ∈ π‘Š)
2523, 24sselid 3972 . . . . . . . . 9 (πœ‘ β†’ 𝑋 ∈ (𝐷 βˆ– { 1 }))
2625eldifad 3952 . . . . . . . 8 (πœ‘ β†’ 𝑋 ∈ 𝐷)
2726ad3antrrr 727 . . . . . . 7 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ 𝑋 ∈ 𝐷)
28 elfzelz 13498 . . . . . . . 8 (π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑))) β†’ π‘š ∈ β„€)
2928adantl 481 . . . . . . 7 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ π‘š ∈ β„€)
3018, 19, 20, 21, 27, 29dchrzrhcl 27094 . . . . . 6 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ (π‘‹β€˜(πΏβ€˜π‘š)) ∈ β„‚)
31 elfznn 13527 . . . . . . . . . 10 (π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑))) β†’ π‘š ∈ β„•)
3231adantl 481 . . . . . . . . 9 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ π‘š ∈ β„•)
3332nnrpd 13011 . . . . . . . 8 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ π‘š ∈ ℝ+)
3433rpsqrtcld 15355 . . . . . . 7 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ (βˆšβ€˜π‘š) ∈ ℝ+)
3534rpcnd 13015 . . . . . 6 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ (βˆšβ€˜π‘š) ∈ β„‚)
3634rpne0d 13018 . . . . . 6 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ (βˆšβ€˜π‘š) β‰  0)
3730, 35, 36divcld 11987 . . . . 5 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ ((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) ∈ β„‚)
3817, 37syldan 590 . . . 4 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ ((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) ∈ β„‚)
391, 38fsumcl 15676 . . 3 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) ∈ β„‚)
4039abscld 15380 . 2 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š))) ∈ ℝ)
41 1zzd 12590 . . . . . . . 8 (πœ‘ β†’ 1 ∈ β„€)
4226adantr 480 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘š ∈ β„•) β†’ 𝑋 ∈ 𝐷)
43 nnz 12576 . . . . . . . . . . . . 13 (π‘š ∈ β„• β†’ π‘š ∈ β„€)
4443adantl 481 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘š ∈ β„•) β†’ π‘š ∈ β„€)
4518, 19, 20, 21, 42, 44dchrzrhcl 27094 . . . . . . . . . . 11 ((πœ‘ ∧ π‘š ∈ β„•) β†’ (π‘‹β€˜(πΏβ€˜π‘š)) ∈ β„‚)
46 nnrp 12982 . . . . . . . . . . . . . 14 (π‘š ∈ β„• β†’ π‘š ∈ ℝ+)
4746adantl 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘š ∈ β„•) β†’ π‘š ∈ ℝ+)
4847rpsqrtcld 15355 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘š ∈ β„•) β†’ (βˆšβ€˜π‘š) ∈ ℝ+)
4948rpcnd 13015 . . . . . . . . . . 11 ((πœ‘ ∧ π‘š ∈ β„•) β†’ (βˆšβ€˜π‘š) ∈ β„‚)
5048rpne0d 13018 . . . . . . . . . . 11 ((πœ‘ ∧ π‘š ∈ β„•) β†’ (βˆšβ€˜π‘š) β‰  0)
5145, 49, 50divcld 11987 . . . . . . . . . 10 ((πœ‘ ∧ π‘š ∈ β„•) β†’ ((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) ∈ β„‚)
52 dchrisum0lem1.f . . . . . . . . . . 11 𝐹 = (π‘Ž ∈ β„• ↦ ((π‘‹β€˜(πΏβ€˜π‘Ž)) / (βˆšβ€˜π‘Ž)))
53 2fveq3 6886 . . . . . . . . . . . . 13 (π‘Ž = π‘š β†’ (π‘‹β€˜(πΏβ€˜π‘Ž)) = (π‘‹β€˜(πΏβ€˜π‘š)))
54 fveq2 6881 . . . . . . . . . . . . 13 (π‘Ž = π‘š β†’ (βˆšβ€˜π‘Ž) = (βˆšβ€˜π‘š))
5553, 54oveq12d 7419 . . . . . . . . . . . 12 (π‘Ž = π‘š β†’ ((π‘‹β€˜(πΏβ€˜π‘Ž)) / (βˆšβ€˜π‘Ž)) = ((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)))
5655cbvmptv 5251 . . . . . . . . . . 11 (π‘Ž ∈ β„• ↦ ((π‘‹β€˜(πΏβ€˜π‘Ž)) / (βˆšβ€˜π‘Ž))) = (π‘š ∈ β„• ↦ ((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)))
5752, 56eqtri 2752 . . . . . . . . . 10 𝐹 = (π‘š ∈ β„• ↦ ((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)))
5851, 57fmptd 7105 . . . . . . . . 9 (πœ‘ β†’ 𝐹:β„•βŸΆβ„‚)
5958ffvelcdmda 7076 . . . . . . . 8 ((πœ‘ ∧ π‘š ∈ β„•) β†’ (πΉβ€˜π‘š) ∈ β„‚)
6010, 41, 59serf 13993 . . . . . . 7 (πœ‘ β†’ seq1( + , 𝐹):β„•βŸΆβ„‚)
6160ad2antrr 723 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ seq1( + , 𝐹):β„•βŸΆβ„‚)
623rpregt0d 13019 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (π‘₯ ∈ ℝ ∧ 0 < π‘₯))
6362adantr 480 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (π‘₯ ∈ ℝ ∧ 0 < π‘₯))
6463simpld 494 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ π‘₯ ∈ ℝ)
65 1red 11212 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 1 ∈ ℝ)
66 elfznn 13527 . . . . . . . . . . 11 (𝑑 ∈ (1...(βŒŠβ€˜π‘₯)) β†’ 𝑑 ∈ β„•)
6766adantl 481 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝑑 ∈ β„•)
6867nnred 12224 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝑑 ∈ ℝ)
6967nnge1d 12257 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 1 ≀ 𝑑)
703rpred 13013 . . . . . . . . . . 11 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ π‘₯ ∈ ℝ)
71 fznnfl 13824 . . . . . . . . . . 11 (π‘₯ ∈ ℝ β†’ (𝑑 ∈ (1...(βŒŠβ€˜π‘₯)) ↔ (𝑑 ∈ β„• ∧ 𝑑 ≀ π‘₯)))
7270, 71syl 17 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (𝑑 ∈ (1...(βŒŠβ€˜π‘₯)) ↔ (𝑑 ∈ β„• ∧ 𝑑 ≀ π‘₯)))
7372simplbda 499 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝑑 ≀ π‘₯)
7465, 68, 64, 69, 73letrd 11368 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 1 ≀ π‘₯)
75 flge1nn 13783 . . . . . . . 8 ((π‘₯ ∈ ℝ ∧ 1 ≀ π‘₯) β†’ (βŒŠβ€˜π‘₯) ∈ β„•)
7664, 74, 75syl2anc 583 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (βŒŠβ€˜π‘₯) ∈ β„•)
77 eluznn 12899 . . . . . . 7 (((βŒŠβ€˜π‘₯) ∈ β„• ∧ (βŒŠβ€˜((π‘₯↑2) / 𝑑)) ∈ (β„€β‰₯β€˜(βŒŠβ€˜π‘₯))) β†’ (βŒŠβ€˜((π‘₯↑2) / 𝑑)) ∈ β„•)
7876, 13, 77syl2anc 583 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (βŒŠβ€˜((π‘₯↑2) / 𝑑)) ∈ β„•)
7961, 78ffvelcdmd 7077 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) ∈ β„‚)
80 dchrisum0.s . . . . . . 7 (πœ‘ β†’ seq1( + , 𝐹) ⇝ 𝑆)
81 climcl 15440 . . . . . . 7 (seq1( + , 𝐹) ⇝ 𝑆 β†’ 𝑆 ∈ β„‚)
8280, 81syl 17 . . . . . 6 (πœ‘ β†’ 𝑆 ∈ β„‚)
8382ad2antrr 723 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝑆 ∈ β„‚)
8479, 83subcld 11568 . . . 4 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ 𝑆) ∈ β„‚)
8584abscld 15380 . . 3 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ 𝑆)) ∈ ℝ)
8661, 76ffvelcdmd 7077 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)) ∈ β„‚)
8783, 86subcld 11568 . . . 4 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝑆 βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯))) ∈ β„‚)
8887abscld 15380 . . 3 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜(𝑆 βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)))) ∈ ℝ)
8985, 88readdcld 11240 . 2 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ 𝑆)) + (absβ€˜(𝑆 βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯))))) ∈ ℝ)
90 2re 12283 . . . . . 6 2 ∈ ℝ
91 dchrisum0.c . . . . . . . 8 (πœ‘ β†’ 𝐢 ∈ (0[,)+∞))
92 elrege0 13428 . . . . . . . 8 (𝐢 ∈ (0[,)+∞) ↔ (𝐢 ∈ ℝ ∧ 0 ≀ 𝐢))
9391, 92sylib 217 . . . . . . 7 (πœ‘ β†’ (𝐢 ∈ ℝ ∧ 0 ≀ 𝐢))
9493simpld 494 . . . . . 6 (πœ‘ β†’ 𝐢 ∈ ℝ)
95 remulcl 11191 . . . . . 6 ((2 ∈ ℝ ∧ 𝐢 ∈ ℝ) β†’ (2 Β· 𝐢) ∈ ℝ)
9690, 94, 95sylancr 586 . . . . 5 (πœ‘ β†’ (2 Β· 𝐢) ∈ ℝ)
9796adantr 480 . . . 4 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (2 Β· 𝐢) ∈ ℝ)
983rpsqrtcld 15355 . . . 4 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (βˆšβ€˜π‘₯) ∈ ℝ+)
9997, 98rerpdivcld 13044 . . 3 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((2 Β· 𝐢) / (βˆšβ€˜π‘₯)) ∈ ℝ)
10099adantr 480 . 2 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((2 Β· 𝐢) / (βˆšβ€˜π‘₯)) ∈ ℝ)
101 ssun1 4164 . . . . . . . . . . 11 (1...(βŒŠβ€˜π‘₯)) βŠ† ((1...(βŒŠβ€˜π‘₯)) βˆͺ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑))))
102101, 15sseqtrrid 4027 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (1...(βŒŠβ€˜π‘₯)) βŠ† (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑))))
103102sselda 3974 . . . . . . . . 9 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜π‘₯))) β†’ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑))))
104 ovex 7434 . . . . . . . . . . 11 ((π‘‹β€˜(πΏβ€˜π‘Ž)) / (βˆšβ€˜π‘Ž)) ∈ V
10555, 52, 104fvmpt3i 6993 . . . . . . . . . 10 (π‘š ∈ β„• β†’ (πΉβ€˜π‘š) = ((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)))
10632, 105syl 17 . . . . . . . . 9 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) β†’ (πΉβ€˜π‘š) = ((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)))
107103, 106syldan 590 . . . . . . . 8 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (πΉβ€˜π‘š) = ((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)))
10876, 10eleqtrdi 2835 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (βŒŠβ€˜π‘₯) ∈ (β„€β‰₯β€˜1))
109103, 37syldan 590 . . . . . . . 8 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ π‘š ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) ∈ β„‚)
110107, 108, 109fsumser 15673 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ Ξ£π‘š ∈ (1...(βŒŠβ€˜π‘₯))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) = (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)))
111110, 86eqeltrd 2825 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ Ξ£π‘š ∈ (1...(βŒŠβ€˜π‘₯))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) ∈ β„‚)
112111, 39pncan2d 11570 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((Ξ£π‘š ∈ (1...(βŒŠβ€˜π‘₯))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) + Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š))) βˆ’ Ξ£π‘š ∈ (1...(βŒŠβ€˜π‘₯))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š))) = Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)))
113 reflcl 13758 . . . . . . . . . . 11 (π‘₯ ∈ ℝ β†’ (βŒŠβ€˜π‘₯) ∈ ℝ)
11464, 113syl 17 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (βŒŠβ€˜π‘₯) ∈ ℝ)
115114ltp1d 12141 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (βŒŠβ€˜π‘₯) < ((βŒŠβ€˜π‘₯) + 1))
116 fzdisj 13525 . . . . . . . . 9 ((βŒŠβ€˜π‘₯) < ((βŒŠβ€˜π‘₯) + 1) β†’ ((1...(βŒŠβ€˜π‘₯)) ∩ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) = βˆ…)
117115, 116syl 17 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((1...(βŒŠβ€˜π‘₯)) ∩ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))) = βˆ…)
118 fzfid 13935 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑))) ∈ Fin)
119117, 15, 118, 37fsumsplit 15684 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ Ξ£π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) = (Ξ£π‘š ∈ (1...(βŒŠβ€˜π‘₯))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) + Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š))))
12078, 10eleqtrdi 2835 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (βŒŠβ€˜((π‘₯↑2) / 𝑑)) ∈ (β„€β‰₯β€˜1))
121106, 120, 37fsumser 15673 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ Ξ£π‘š ∈ (1...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) = (seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))))
122119, 121eqtr3d 2766 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (Ξ£π‘š ∈ (1...(βŒŠβ€˜π‘₯))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) + Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š))) = (seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))))
123122, 110oveq12d 7419 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((Ξ£π‘š ∈ (1...(βŒŠβ€˜π‘₯))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) + Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š))) βˆ’ Ξ£π‘š ∈ (1...(βŒŠβ€˜π‘₯))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š))) = ((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯))))
124112, 123eqtr3d 2766 . . . 4 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š)) = ((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯))))
125124fveq2d 6885 . . 3 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š))) = (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)))))
12679, 86, 83abs3difd 15404 . . 3 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)))) ≀ ((absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ 𝑆)) + (absβ€˜(𝑆 βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯))))))
127125, 126eqbrtrd 5160 . 2 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š))) ≀ ((absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ 𝑆)) + (absβ€˜(𝑆 βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯))))))
12894ad2antrr 723 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝐢 ∈ ℝ)
129 simplr 766 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ π‘₯ ∈ ℝ+)
130129rpsqrtcld 15355 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (βˆšβ€˜π‘₯) ∈ ℝ+)
131128, 130rerpdivcld 13044 . . . 4 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝐢 / (βˆšβ€˜π‘₯)) ∈ ℝ)
132 2z 12591 . . . . . . . . . 10 2 ∈ β„€
133 rpexpcl 14043 . . . . . . . . . 10 ((π‘₯ ∈ ℝ+ ∧ 2 ∈ β„€) β†’ (π‘₯↑2) ∈ ℝ+)
1343, 132, 133sylancl 585 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (π‘₯↑2) ∈ ℝ+)
135134adantr 480 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (π‘₯↑2) ∈ ℝ+)
13667nnrpd 13011 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝑑 ∈ ℝ+)
137135, 136rpdivcld 13030 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((π‘₯↑2) / 𝑑) ∈ ℝ+)
138137rpsqrtcld 15355 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (βˆšβ€˜((π‘₯↑2) / 𝑑)) ∈ ℝ+)
139128, 138rerpdivcld 13044 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝐢 / (βˆšβ€˜((π‘₯↑2) / 𝑑))) ∈ ℝ)
140 2fveq3 6886 . . . . . . . 8 (𝑦 = ((π‘₯↑2) / 𝑑) β†’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘¦)) = (seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))))
141140fvoveq1d 7423 . . . . . . 7 (𝑦 = ((π‘₯↑2) / 𝑑) β†’ (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑆)) = (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ 𝑆)))
142 fveq2 6881 . . . . . . . 8 (𝑦 = ((π‘₯↑2) / 𝑑) β†’ (βˆšβ€˜π‘¦) = (βˆšβ€˜((π‘₯↑2) / 𝑑)))
143142oveq2d 7417 . . . . . . 7 (𝑦 = ((π‘₯↑2) / 𝑑) β†’ (𝐢 / (βˆšβ€˜π‘¦)) = (𝐢 / (βˆšβ€˜((π‘₯↑2) / 𝑑))))
144141, 143breq12d 5151 . . . . . 6 (𝑦 = ((π‘₯↑2) / 𝑑) β†’ ((absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑆)) ≀ (𝐢 / (βˆšβ€˜π‘¦)) ↔ (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ 𝑆)) ≀ (𝐢 / (βˆšβ€˜((π‘₯↑2) / 𝑑)))))
145 dchrisum0.1 . . . . . . 7 (πœ‘ β†’ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑆)) ≀ (𝐢 / (βˆšβ€˜π‘¦)))
146145ad2antrr 723 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑆)) ≀ (𝐢 / (βˆšβ€˜π‘¦)))
147134rpred 13013 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (π‘₯↑2) ∈ ℝ)
148 nndivre 12250 . . . . . . . 8 (((π‘₯↑2) ∈ ℝ ∧ 𝑑 ∈ β„•) β†’ ((π‘₯↑2) / 𝑑) ∈ ℝ)
149147, 66, 148syl2an 595 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((π‘₯↑2) / 𝑑) ∈ ℝ)
15012simpld 494 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ π‘₯ ≀ ((π‘₯↑2) / 𝑑))
15165, 64, 149, 74, 150letrd 11368 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 1 ≀ ((π‘₯↑2) / 𝑑))
152 1re 11211 . . . . . . . 8 1 ∈ ℝ
153 elicopnf 13419 . . . . . . . 8 (1 ∈ ℝ β†’ (((π‘₯↑2) / 𝑑) ∈ (1[,)+∞) ↔ (((π‘₯↑2) / 𝑑) ∈ ℝ ∧ 1 ≀ ((π‘₯↑2) / 𝑑))))
154152, 153ax-mp 5 . . . . . . 7 (((π‘₯↑2) / 𝑑) ∈ (1[,)+∞) ↔ (((π‘₯↑2) / 𝑑) ∈ ℝ ∧ 1 ≀ ((π‘₯↑2) / 𝑑)))
155149, 151, 154sylanbrc 582 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((π‘₯↑2) / 𝑑) ∈ (1[,)+∞))
156144, 146, 155rspcdva 3605 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ 𝑆)) ≀ (𝐢 / (βˆšβ€˜((π‘₯↑2) / 𝑑))))
157130rpregt0d 13019 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((βˆšβ€˜π‘₯) ∈ ℝ ∧ 0 < (βˆšβ€˜π‘₯)))
158138rpregt0d 13019 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((βˆšβ€˜((π‘₯↑2) / 𝑑)) ∈ ℝ ∧ 0 < (βˆšβ€˜((π‘₯↑2) / 𝑑))))
15993ad2antrr 723 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝐢 ∈ ℝ ∧ 0 ≀ 𝐢))
160129rprege0d 13020 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (π‘₯ ∈ ℝ ∧ 0 ≀ π‘₯))
161137rprege0d 13020 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (((π‘₯↑2) / 𝑑) ∈ ℝ ∧ 0 ≀ ((π‘₯↑2) / 𝑑)))
162 sqrtle 15204 . . . . . . . 8 (((π‘₯ ∈ ℝ ∧ 0 ≀ π‘₯) ∧ (((π‘₯↑2) / 𝑑) ∈ ℝ ∧ 0 ≀ ((π‘₯↑2) / 𝑑))) β†’ (π‘₯ ≀ ((π‘₯↑2) / 𝑑) ↔ (βˆšβ€˜π‘₯) ≀ (βˆšβ€˜((π‘₯↑2) / 𝑑))))
163160, 161, 162syl2anc 583 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (π‘₯ ≀ ((π‘₯↑2) / 𝑑) ↔ (βˆšβ€˜π‘₯) ≀ (βˆšβ€˜((π‘₯↑2) / 𝑑))))
164150, 163mpbid 231 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (βˆšβ€˜π‘₯) ≀ (βˆšβ€˜((π‘₯↑2) / 𝑑)))
165 lediv2a 12105 . . . . . 6 (((((βˆšβ€˜π‘₯) ∈ ℝ ∧ 0 < (βˆšβ€˜π‘₯)) ∧ ((βˆšβ€˜((π‘₯↑2) / 𝑑)) ∈ ℝ ∧ 0 < (βˆšβ€˜((π‘₯↑2) / 𝑑))) ∧ (𝐢 ∈ ℝ ∧ 0 ≀ 𝐢)) ∧ (βˆšβ€˜π‘₯) ≀ (βˆšβ€˜((π‘₯↑2) / 𝑑))) β†’ (𝐢 / (βˆšβ€˜((π‘₯↑2) / 𝑑))) ≀ (𝐢 / (βˆšβ€˜π‘₯)))
166157, 158, 159, 164, 165syl31anc 1370 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝐢 / (βˆšβ€˜((π‘₯↑2) / 𝑑))) ≀ (𝐢 / (βˆšβ€˜π‘₯)))
16785, 139, 131, 156, 166letrd 11368 . . . 4 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ 𝑆)) ≀ (𝐢 / (βˆšβ€˜π‘₯)))
16883, 86abssubd 15397 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜(𝑆 βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)))) = (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)) βˆ’ 𝑆)))
169 2fveq3 6886 . . . . . . . 8 (𝑦 = π‘₯ β†’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘¦)) = (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)))
170169fvoveq1d 7423 . . . . . . 7 (𝑦 = π‘₯ β†’ (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑆)) = (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)) βˆ’ 𝑆)))
171 fveq2 6881 . . . . . . . 8 (𝑦 = π‘₯ β†’ (βˆšβ€˜π‘¦) = (βˆšβ€˜π‘₯))
172171oveq2d 7417 . . . . . . 7 (𝑦 = π‘₯ β†’ (𝐢 / (βˆšβ€˜π‘¦)) = (𝐢 / (βˆšβ€˜π‘₯)))
173170, 172breq12d 5151 . . . . . 6 (𝑦 = π‘₯ β†’ ((absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑆)) ≀ (𝐢 / (βˆšβ€˜π‘¦)) ↔ (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)) βˆ’ 𝑆)) ≀ (𝐢 / (βˆšβ€˜π‘₯))))
174 elicopnf 13419 . . . . . . . 8 (1 ∈ ℝ β†’ (π‘₯ ∈ (1[,)+∞) ↔ (π‘₯ ∈ ℝ ∧ 1 ≀ π‘₯)))
175152, 174ax-mp 5 . . . . . . 7 (π‘₯ ∈ (1[,)+∞) ↔ (π‘₯ ∈ ℝ ∧ 1 ≀ π‘₯))
17664, 74, 175sylanbrc 582 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ π‘₯ ∈ (1[,)+∞))
177173, 146, 176rspcdva 3605 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)) βˆ’ 𝑆)) ≀ (𝐢 / (βˆšβ€˜π‘₯)))
178168, 177eqbrtrd 5160 . . . 4 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜(𝑆 βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯)))) ≀ (𝐢 / (βˆšβ€˜π‘₯)))
17985, 88, 131, 131, 167, 178le2addd 11830 . . 3 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ 𝑆)) + (absβ€˜(𝑆 βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯))))) ≀ ((𝐢 / (βˆšβ€˜π‘₯)) + (𝐢 / (βˆšβ€˜π‘₯))))
180 2cnd 12287 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 2 ∈ β„‚)
18194adantr 480 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝐢 ∈ ℝ)
182181recnd 11239 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝐢 ∈ β„‚)
183182adantr 480 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝐢 ∈ β„‚)
18498rpcnne0d 13022 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((βˆšβ€˜π‘₯) ∈ β„‚ ∧ (βˆšβ€˜π‘₯) β‰  0))
185184adantr 480 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((βˆšβ€˜π‘₯) ∈ β„‚ ∧ (βˆšβ€˜π‘₯) β‰  0))
186 divass 11887 . . . . 5 ((2 ∈ β„‚ ∧ 𝐢 ∈ β„‚ ∧ ((βˆšβ€˜π‘₯) ∈ β„‚ ∧ (βˆšβ€˜π‘₯) β‰  0)) β†’ ((2 Β· 𝐢) / (βˆšβ€˜π‘₯)) = (2 Β· (𝐢 / (βˆšβ€˜π‘₯))))
187180, 183, 185, 186syl3anc 1368 . . . 4 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((2 Β· 𝐢) / (βˆšβ€˜π‘₯)) = (2 Β· (𝐢 / (βˆšβ€˜π‘₯))))
188131recnd 11239 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝐢 / (βˆšβ€˜π‘₯)) ∈ β„‚)
1891882timesd 12452 . . . 4 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (2 Β· (𝐢 / (βˆšβ€˜π‘₯))) = ((𝐢 / (βˆšβ€˜π‘₯)) + (𝐢 / (βˆšβ€˜π‘₯))))
190187, 189eqtrd 2764 . . 3 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((2 Β· 𝐢) / (βˆšβ€˜π‘₯)) = ((𝐢 / (βˆšβ€˜π‘₯)) + (𝐢 / (βˆšβ€˜π‘₯))))
191179, 190breqtrrd 5166 . 2 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((absβ€˜((seq1( + , 𝐹)β€˜(βŒŠβ€˜((π‘₯↑2) / 𝑑))) βˆ’ 𝑆)) + (absβ€˜(𝑆 βˆ’ (seq1( + , 𝐹)β€˜(βŒŠβ€˜π‘₯))))) ≀ ((2 Β· 𝐢) / (βˆšβ€˜π‘₯)))
19240, 89, 100, 127, 191letrd 11368 1 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑑 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (absβ€˜Ξ£π‘š ∈ (((βŒŠβ€˜π‘₯) + 1)...(βŒŠβ€˜((π‘₯↑2) / 𝑑)))((π‘‹β€˜(πΏβ€˜π‘š)) / (βˆšβ€˜π‘š))) ≀ ((2 Β· 𝐢) / (βˆšβ€˜π‘₯)))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 395   = wceq 1533   ∈ wcel 2098   β‰  wne 2932  βˆ€wral 3053  {crab 3424   βˆ– cdif 3937   βˆͺ cun 3938   ∩ cin 3939  βˆ…c0 4314  {csn 4620   class class class wbr 5138   ↦ cmpt 5221  βŸΆwf 6529  β€˜cfv 6533  (class class class)co 7401  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111  +∞cpnf 11242   < clt 11245   ≀ cle 11246   βˆ’ cmin 11441   / cdiv 11868  β„•cn 12209  2c2 12264  β„•0cn0 12469  β„€cz 12555  β„€β‰₯cuz 12819  β„+crp 12971  [,)cico 13323  ...cfz 13481  βŒŠcfl 13752  seqcseq 13963  β†‘cexp 14024  βˆšcsqrt 15177  abscabs 15178   ⇝ cli 15425  Ξ£csu 15629  Basecbs 17143  0gc0g 17384  β„€RHomczrh 21354  β„€/nβ„€czn 21357  DChrcdchr 27081
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5275  ax-sep 5289  ax-nul 5296  ax-pow 5353  ax-pr 5417  ax-un 7718  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185  ax-mulf 11186
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-nel 3039  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3770  df-csb 3886  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-pss 3959  df-nul 4315  df-if 4521  df-pw 4596  df-sn 4621  df-pr 4623  df-tp 4625  df-op 4627  df-uni 4900  df-int 4941  df-iun 4989  df-br 5139  df-opab 5201  df-mpt 5222  df-tr 5256  df-id 5564  df-eprel 5570  df-po 5578  df-so 5579  df-fr 5621  df-se 5622  df-we 5623  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6290  df-ord 6357  df-on 6358  df-lim 6359  df-suc 6360  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7357  df-ov 7404  df-oprab 7405  df-mpo 7406  df-om 7849  df-1st 7968  df-2nd 7969  df-tpos 8206  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-1o 8461  df-er 8699  df-ec 8701  df-qs 8705  df-map 8818  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-div 11869  df-nn 12210  df-2 12272  df-3 12273  df-4 12274  df-5 12275  df-6 12276  df-7 12277  df-8 12278  df-9 12279  df-n0 12470  df-z 12556  df-dec 12675  df-uz 12820  df-rp 12972  df-ico 13327  df-fz 13482  df-fzo 13625  df-fl 13754  df-seq 13964  df-exp 14025  df-hash 14288  df-cj 15043  df-re 15044  df-im 15045  df-sqrt 15179  df-abs 15180  df-clim 15429  df-sum 15630  df-struct 17079  df-sets 17096  df-slot 17114  df-ndx 17126  df-base 17144  df-ress 17173  df-plusg 17209  df-mulr 17210  df-starv 17211  df-sca 17212  df-vsca 17213  df-ip 17214  df-tset 17215  df-ple 17216  df-ds 17218  df-unif 17219  df-0g 17386  df-imas 17453  df-qus 17454  df-mgm 18563  df-sgrp 18642  df-mnd 18658  df-mhm 18703  df-grp 18856  df-minusg 18857  df-sbg 18858  df-mulg 18986  df-subg 19040  df-nsg 19041  df-eqg 19042  df-ghm 19129  df-cmn 19692  df-abl 19693  df-mgp 20030  df-rng 20048  df-ur 20077  df-ring 20130  df-cring 20131  df-oppr 20226  df-dvdsr 20249  df-unit 20250  df-rhm 20364  df-subrng 20436  df-subrg 20461  df-lmod 20698  df-lss 20769  df-lsp 20809  df-sra 21011  df-rgmod 21012  df-lidl 21057  df-rsp 21058  df-2idl 21097  df-cnfld 21229  df-zring 21302  df-zrh 21358  df-zn 21361  df-dchr 27082
This theorem is referenced by:  dchrisum0lem1  27365
  Copyright terms: Public domain W3C validator