Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  fourierdlem73 Structured version   Visualization version   GIF version

Theorem fourierdlem73 45630
Description: A version of the Riemann Lebesgue lemma: as π‘Ÿ increases, the integral in 𝑆 goes to zero. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem73.a (πœ‘ β†’ 𝐴 ∈ ℝ)
fourierdlem73.b (πœ‘ β†’ 𝐡 ∈ ℝ)
fourierdlem73.f (πœ‘ β†’ 𝐹:(𝐴[,]𝐡)βŸΆβ„‚)
fourierdlem73.m (πœ‘ β†’ 𝑀 ∈ β„•)
fourierdlem73.qf (πœ‘ β†’ 𝑄:(0...𝑀)⟢(𝐴[,]𝐡))
fourierdlem73.q0 (πœ‘ β†’ (π‘„β€˜0) = 𝐴)
fourierdlem73.qm (πœ‘ β†’ (π‘„β€˜π‘€) = 𝐡)
fourierdlem73.qilt ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))
fourierdlem73.fcn ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
fourierdlem73.l ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
fourierdlem73.r ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)))
fourierdlem73.g 𝐺 = (ℝ D 𝐹)
fourierdlem73.gcn ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
fourierdlem73.gbd (πœ‘ β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
fourierdlem73.s 𝑆 = (π‘Ÿ ∈ ℝ+ ↦ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
fourierdlem73.d 𝐷 = (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))))
Assertion
Ref Expression
fourierdlem73 (πœ‘ β†’ βˆ€π‘’ ∈ ℝ+ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)
Distinct variable groups:   π‘₯,𝐴   π‘₯,𝐡   𝐷,π‘Ÿ,π‘₯,𝑦   𝑖,𝐹,𝑛,π‘₯   π‘₯,𝐺,𝑦   π‘₯,𝐿   𝑒,𝑀,𝑖,𝑛,π‘Ÿ,π‘₯   𝑦,𝑀,𝑖   𝑄,𝑖,𝑛,π‘Ÿ,π‘₯   𝑦,𝑄   π‘₯,𝑅   πœ‘,𝑒,𝑖,𝑛,π‘Ÿ,π‘₯   πœ‘,𝑦
Allowed substitution hints:   𝐴(𝑦,𝑒,𝑖,𝑛,π‘Ÿ)   𝐡(𝑦,𝑒,𝑖,𝑛,π‘Ÿ)   𝐷(𝑒,𝑖,𝑛)   𝑄(𝑒)   𝑅(𝑦,𝑒,𝑖,𝑛,π‘Ÿ)   𝑆(π‘₯,𝑦,𝑒,𝑖,𝑛,π‘Ÿ)   𝐹(𝑦,𝑒,π‘Ÿ)   𝐺(𝑒,𝑖,𝑛,π‘Ÿ)   𝐿(𝑦,𝑒,𝑖,𝑛,π‘Ÿ)

Proof of Theorem fourierdlem73
Dummy variables π‘š 𝑧 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fourierdlem73.gcn . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
2 cncff 24843 . . . . . . . . . . . . . 14 ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
31, 2syl 17 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
4 ax-resscn 11195 . . . . . . . . . . . . . . . . 17 ℝ βŠ† β„‚
54a1i 11 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ℝ βŠ† β„‚)
6 fourierdlem73.qf . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝑄:(0...𝑀)⟢(𝐴[,]𝐡))
7 fourierdlem73.a . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐴 ∈ ℝ)
8 fourierdlem73.b . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐡 ∈ ℝ)
97, 8iccssred 13443 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (𝐴[,]𝐡) βŠ† ℝ)
106, 9fssd 6738 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑄:(0...𝑀)βŸΆβ„)
1110adantr 479 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑄:(0...𝑀)βŸΆβ„)
12 elfzofz 13680 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (0..^𝑀) β†’ 𝑖 ∈ (0...𝑀))
1312adantl 480 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0...𝑀))
1411, 13ffvelcdmd 7092 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
15 fzofzp1 13761 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (0..^𝑀) β†’ (𝑖 + 1) ∈ (0...𝑀))
1615adantl 480 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑖 + 1) ∈ (0...𝑀))
1711, 16ffvelcdmd 7092 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
1814, 17iccssred 13443 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) βŠ† ℝ)
19 limccl 25834 . . . . . . . . . . . . . . . . . . . 20 ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)) βŠ† β„‚
20 fourierdlem73.r . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)))
2119, 20sselid 3975 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ β„‚)
2221adantr 479 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝑅 ∈ β„‚)
23 limccl 25834 . . . . . . . . . . . . . . . . . . . . 21 ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))) βŠ† β„‚
24 fourierdlem73.l . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
2523, 24sselid 3975 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ β„‚)
2625adantr 479 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐿 ∈ β„‚)
27 fourierdlem73.f . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐹:(𝐴[,]𝐡)βŸΆβ„‚)
2827ad2antrr 724 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐹:(𝐴[,]𝐡)βŸΆβ„‚)
297ad2antrr 724 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐴 ∈ ℝ)
308ad2antrr 724 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐡 ∈ ℝ)
3114adantr 479 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ∈ ℝ)
3217adantr 479 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
33 simpr 483 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
34 eliccre 44953 . . . . . . . . . . . . . . . . . . . . . 22 (((π‘„β€˜π‘–) ∈ ℝ ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ℝ)
3531, 32, 33, 34syl3anc 1368 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ℝ)
367rexrd 11294 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ 𝐴 ∈ ℝ*)
3736adantr 479 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐴 ∈ ℝ*)
388rexrd 11294 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ 𝐡 ∈ ℝ*)
3938adantr 479 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐡 ∈ ℝ*)
406adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑄:(0...𝑀)⟢(𝐴[,]𝐡))
4140, 13ffvelcdmd 7092 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ (𝐴[,]𝐡))
42 iccgelb 13412 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ* ∧ (π‘„β€˜π‘–) ∈ (𝐴[,]𝐡)) β†’ 𝐴 ≀ (π‘„β€˜π‘–))
4337, 39, 41, 42syl3anc 1368 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐴 ≀ (π‘„β€˜π‘–))
4443adantr 479 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐴 ≀ (π‘„β€˜π‘–))
4531rexrd 11294 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ∈ ℝ*)
4632rexrd 11294 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ*)
47 iccgelb 13412 . . . . . . . . . . . . . . . . . . . . . . 23 (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ≀ π‘₯)
4845, 46, 33, 47syl3anc 1368 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ≀ π‘₯)
4929, 31, 35, 44, 48letrd 11401 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐴 ≀ π‘₯)
50 iccleub 13411 . . . . . . . . . . . . . . . . . . . . . . 23 (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ≀ (π‘„β€˜(𝑖 + 1)))
5145, 46, 33, 50syl3anc 1368 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ≀ (π‘„β€˜(𝑖 + 1)))
5236ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐴 ∈ ℝ*)
5338ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐡 ∈ ℝ*)
5440, 16ffvelcdmd 7092 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ (𝐴[,]𝐡))
5554adantr 479 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ (𝐴[,]𝐡))
56 iccleub 13411 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ (𝐴[,]𝐡)) β†’ (π‘„β€˜(𝑖 + 1)) ≀ 𝐡)
5752, 53, 55, 56syl3anc 1368 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ≀ 𝐡)
5835, 32, 30, 51, 57letrd 11401 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ≀ 𝐡)
5929, 30, 35, 49, 58eliccd 44952 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ (𝐴[,]𝐡))
6028, 59ffvelcdmd 7092 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
6126, 60ifcld 4575 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) ∈ β„‚)
6222, 61ifcld 4575 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) ∈ β„‚)
63 fourierdlem73.d . . . . . . . . . . . . . . . . 17 𝐷 = (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))))
6462, 63fmptd 7121 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐷:((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
65 eqid 2725 . . . . . . . . . . . . . . . . 17 (TopOpenβ€˜β„‚fld) = (TopOpenβ€˜β„‚fld)
6665tgioo2 24749 . . . . . . . . . . . . . . . 16 (topGenβ€˜ran (,)) = ((TopOpenβ€˜β„‚fld) β†Ύt ℝ)
67 iccntr 24767 . . . . . . . . . . . . . . . . 17 (((π‘„β€˜π‘–) ∈ ℝ ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ) β†’ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
6814, 17, 67syl2anc 582 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
695, 18, 64, 66, 65, 68dvresntr 45369 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐷) = (ℝ D (𝐷 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))))
70 ioossicc 13442 . . . . . . . . . . . . . . . . . . . . . . 23 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))
7170sseli 3973 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
7271adantl 480 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
73 fvres 6913 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΉβ€˜π‘₯))
7472, 73syl 17 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΉβ€˜π‘₯))
7572, 62syldan 589 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) ∈ β„‚)
7663fvmpt2 7013 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ∧ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) ∈ β„‚) β†’ (π·β€˜π‘₯) = if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))))
7772, 75, 76syl2anc 582 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘₯) = if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))))
7814adantr 479 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ∈ ℝ)
7972, 45syldan 589 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ∈ ℝ*)
8072, 46syldan 589 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ*)
81 simpr 483 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
82 ioogtlb 44943 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) < π‘₯)
8379, 80, 81, 82syl3anc 1368 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) < π‘₯)
8478, 83gtned 11379 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ β‰  (π‘„β€˜π‘–))
8584neneqd 2935 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ Β¬ π‘₯ = (π‘„β€˜π‘–))
8685iffalsed 4540 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)))
87 elioore 13386 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ∈ ℝ)
8887adantl 480 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ℝ)
89 iooltub 44958 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ < (π‘„β€˜(𝑖 + 1)))
9079, 80, 81, 89syl3anc 1368 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ < (π‘„β€˜(𝑖 + 1)))
9188, 90ltned 11380 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ β‰  (π‘„β€˜(𝑖 + 1)))
9291neneqd 2935 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1)))
9392iffalsed 4540 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯))
9477, 86, 933eqtrrd 2770 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) = (π·β€˜π‘₯))
9574, 94eqtr2d 2766 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘₯) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))β€˜π‘₯))
9695ralrimiva 3136 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(π·β€˜π‘₯) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))β€˜π‘₯))
97 ffn 6721 . . . . . . . . . . . . . . . . . . . 20 (𝐷:((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))βŸΆβ„‚ β†’ 𝐷 Fn ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
9864, 97syl 17 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐷 Fn ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
99 ffn 6721 . . . . . . . . . . . . . . . . . . . . . 22 (𝐹:(𝐴[,]𝐡)βŸΆβ„‚ β†’ 𝐹 Fn (𝐴[,]𝐡))
10027, 99syl 17 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐹 Fn (𝐴[,]𝐡))
101100adantr 479 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐹 Fn (𝐴[,]𝐡))
102 simpr 483 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0..^𝑀))
10337, 39, 40, 102fourierdlem8 45566 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) βŠ† (𝐴[,]𝐡))
104 fnssres 6677 . . . . . . . . . . . . . . . . . . . 20 ((𝐹 Fn (𝐴[,]𝐡) ∧ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) βŠ† (𝐴[,]𝐡)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) Fn ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
105101, 103, 104syl2anc 582 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) Fn ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
10670a1i 11 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
107 fvreseq 7046 . . . . . . . . . . . . . . . . . . 19 (((𝐷 Fn ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ∧ (𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) Fn ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((𝐷 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ↔ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(π·β€˜π‘₯) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))
10898, 105, 106, 107syl21anc 836 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝐷 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ↔ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(π·β€˜π‘₯) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))
10996, 108mpbird 256 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐷 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
110106resabs1d 6012 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
111109, 110eqtrd 2765 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐷 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
112111oveq2d 7433 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D (𝐷 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) = (ℝ D (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))))
11327adantr 479 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐹:(𝐴[,]𝐡)βŸΆβ„‚)
1149adantr 479 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐴[,]𝐡) βŠ† ℝ)
115106, 18sstrd 3988 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ℝ)
11665, 66dvres 25870 . . . . . . . . . . . . . . . . 17 (((ℝ βŠ† β„‚ ∧ 𝐹:(𝐴[,]𝐡)βŸΆβ„‚) ∧ ((𝐴[,]𝐡) βŠ† ℝ ∧ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ℝ)) β†’ (ℝ D (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) = ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))))
1175, 113, 114, 115, 116syl22anc 837 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) = ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))))
118 fourierdlem73.g . . . . . . . . . . . . . . . . . . 19 𝐺 = (ℝ D 𝐹)
119118eqcomi 2734 . . . . . . . . . . . . . . . . . 18 (ℝ D 𝐹) = 𝐺
120119a1i 11 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐹) = 𝐺)
121 iooretop 24712 . . . . . . . . . . . . . . . . . 18 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ (topGenβ€˜ran (,))
122 retop 24708 . . . . . . . . . . . . . . . . . . 19 (topGenβ€˜ran (,)) ∈ Top
123 uniretop 24709 . . . . . . . . . . . . . . . . . . . 20 ℝ = βˆͺ (topGenβ€˜ran (,))
124123isopn3 23000 . . . . . . . . . . . . . . . . . . 19 (((topGenβ€˜ran (,)) ∈ Top ∧ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ℝ) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ (topGenβ€˜ran (,)) ↔ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
125122, 115, 124sylancr 585 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ (topGenβ€˜ran (,)) ↔ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
126121, 125mpbii 232 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
127120, 126reseq12d 5985 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
128117, 127eqtrd 2765 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
12969, 112, 1283eqtrd 2769 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐷) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
130129feq1d 6706 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐷):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚ ↔ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚))
1313, 130mpbird 256 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐷):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
132131feqmptd 6964 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐷) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)))
133132, 129eqtr3d 2767 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
134 ioombl 25524 . . . . . . . . . . . 12 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ dom vol
135134a1i 11 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ dom vol)
136 fourierdlem73.qilt . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))
13714, 17, 136ltled 11392 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ≀ (π‘„β€˜(𝑖 + 1)))
138 volioo 25528 . . . . . . . . . . . . 13 (((π‘„β€˜π‘–) ∈ ℝ ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ ∧ (π‘„β€˜π‘–) ≀ (π‘„β€˜(𝑖 + 1))) β†’ (volβ€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜(𝑖 + 1)) βˆ’ (π‘„β€˜π‘–)))
13914, 17, 137, 138syl3anc 1368 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (volβ€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜(𝑖 + 1)) βˆ’ (π‘„β€˜π‘–)))
14017, 14resubcld 11672 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜(𝑖 + 1)) βˆ’ (π‘„β€˜π‘–)) ∈ ℝ)
141139, 140eqeltrd 2825 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (volβ€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ ℝ)
142 fourierdlem73.gbd . . . . . . . . . . . . 13 (πœ‘ β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
143142adantr 479 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
144 nfv 1909 . . . . . . . . . . . . . . . 16 β„²π‘₯((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ)
145 nfra1 3272 . . . . . . . . . . . . . . . 16 β„²π‘₯βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦
146144, 145nfan 1894 . . . . . . . . . . . . . . 15 β„²π‘₯(((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
147 simpr 483 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
148 fdm 6730 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚ β†’ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
1493, 148syl 17 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
150149adantr 479 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
151147, 150eleqtrd 2827 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
152 fvres 6913 . . . . . . . . . . . . . . . . . . . 20 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΊβ€˜π‘₯))
153151, 152syl 17 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΊβ€˜π‘₯))
154153fveq2d 6898 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ (absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) = (absβ€˜(πΊβ€˜π‘₯)))
155154ad4ant14 750 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ (absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) = (absβ€˜(πΊβ€˜π‘₯)))
156 simplr 767 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
157 ssdmres 6017 . . . . . . . . . . . . . . . . . . . . . . 23 (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† dom 𝐺 ↔ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
158149, 157sylibr 233 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† dom 𝐺)
159158sselda 3977 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ dom 𝐺)
160151, 159syldan 589 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ π‘₯ ∈ dom 𝐺)
161160adantlr 713 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ π‘₯ ∈ dom 𝐺)
162 rsp 3235 . . . . . . . . . . . . . . . . . . 19 (βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 β†’ (π‘₯ ∈ dom 𝐺 β†’ (absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦))
163156, 161, 162sylc 65 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ (absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
164163adantllr 717 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ (absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
165155, 164eqbrtrd 5170 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ (absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) ≀ 𝑦)
166165ex 411 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) β†’ (π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) ≀ 𝑦))
167146, 166ralrimi 3245 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))(absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) ≀ 𝑦)
168167ex 411 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) β†’ (βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 β†’ βˆ€π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))(absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) ≀ 𝑦))
169168reximdva 3158 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))(absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) ≀ 𝑦))
170143, 169mpd 15 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))(absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) ≀ 𝑦)
171135, 141, 1, 170cnbdibl 45413 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ 𝐿1)
172133, 171eqeltrd 2825 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)) ∈ 𝐿1)
173172adantr 479 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)) ∈ 𝐿1)
174134a1i 11 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ dom vol)
175141adantr 479 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (volβ€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ ℝ)
176133, 1eqeltrd 2825 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
177176adantr 479 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
178 coscn 26412 . . . . . . . . . . . . . 14 cos ∈ (ℂ–cnβ†’β„‚)
179178a1i 11 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ cos ∈ (ℂ–cnβ†’β„‚))
180 ioosscn 13418 . . . . . . . . . . . . . . . 16 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚
181180a1i 11 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚)
182 simpr 483 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ π‘Ÿ ∈ ℝ)
183182recnd 11272 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ π‘Ÿ ∈ β„‚)
184 ssid 4000 . . . . . . . . . . . . . . . 16 β„‚ βŠ† β„‚
185184a1i 11 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ β„‚ βŠ† β„‚)
186181, 183, 185constcncfg 45323 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
187180a1i 11 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚)
188184a1i 11 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ β„‚ βŠ† β„‚)
189187, 188idcncfg 45324 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
190189ad2antrr 724 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
191186, 190mulcncf 25404 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
192179, 191cncfmpt1f 24864 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (cosβ€˜(π‘Ÿ Β· π‘₯))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
193192negcncfg 45332 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ -(cosβ€˜(π‘Ÿ Β· π‘₯))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
194177, 193mulcncf 25404 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
195 nfv 1909 . . . . . . . . . . . . . . . . 17 β„²π‘₯(πœ‘ ∧ 𝑖 ∈ (0..^𝑀))
196195, 145nfan 1894 . . . . . . . . . . . . . . . 16 β„²π‘₯((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
197129fveq1d 6896 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐷)β€˜π‘₯) = ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯))
198197, 152sylan9eq 2785 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘₯) = (πΊβ€˜π‘₯))
199198fveq2d 6898 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) = (absβ€˜(πΊβ€˜π‘₯)))
200199adantlr 713 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) = (absβ€˜(πΊβ€˜π‘₯)))
201 simplr 767 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
202159adantlr 713 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ dom 𝐺)
203201, 202, 162sylc 65 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
204200, 203eqbrtrd 5170 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
205204ex 411 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦))
206196, 205ralrimi 3245 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
207206ex 411 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦))
208207reximdv 3160 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦))
209143, 208mpd 15 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
210209adantr 479 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
211 eqidd 2726 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))))
212 fveq2 6894 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ = 𝑧 β†’ ((ℝ D 𝐷)β€˜π‘₯) = ((ℝ D 𝐷)β€˜π‘§))
213 eleq1w 2808 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘₯ = 𝑧 β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↔ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
214213anbi2d 628 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ = 𝑧 β†’ (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ↔ ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))))
215 fveq2 6894 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘₯ = 𝑧 β†’ (πΊβ€˜π‘₯) = (πΊβ€˜π‘§))
216212, 215eqeq12d 2741 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ = 𝑧 β†’ (((ℝ D 𝐷)β€˜π‘₯) = (πΊβ€˜π‘₯) ↔ ((ℝ D 𝐷)β€˜π‘§) = (πΊβ€˜π‘§)))
217214, 216imbi12d 343 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ = 𝑧 β†’ ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘₯) = (πΊβ€˜π‘₯)) ↔ (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘§) = (πΊβ€˜π‘§))))
218217, 198chvarvv 1994 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘§) = (πΊβ€˜π‘§))
219212, 218sylan9eqr 2787 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘₯ = 𝑧) β†’ ((ℝ D 𝐷)β€˜π‘₯) = (πΊβ€˜π‘§))
220 oveq2 7425 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ = 𝑧 β†’ (π‘Ÿ Β· π‘₯) = (π‘Ÿ Β· 𝑧))
221220fveq2d 6898 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ = 𝑧 β†’ (cosβ€˜(π‘Ÿ Β· π‘₯)) = (cosβ€˜(π‘Ÿ Β· 𝑧)))
222221negeqd 11484 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ = 𝑧 β†’ -(cosβ€˜(π‘Ÿ Β· π‘₯)) = -(cosβ€˜(π‘Ÿ Β· 𝑧)))
223222adantl 480 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘₯ = 𝑧) β†’ -(cosβ€˜(π‘Ÿ Β· π‘₯)) = -(cosβ€˜(π‘Ÿ Β· 𝑧)))
224219, 223oveq12d 7435 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘₯ = 𝑧) β†’ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))) = ((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧))))
225224adantllr 717 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘₯ = 𝑧) β†’ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))) = ((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧))))
226 simpr 483 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
227 fvres 6913 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘§) = (πΊβ€˜π‘§))
228227adantl 480 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘§) = (πΊβ€˜π‘§))
2293ffvelcdmda 7091 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘§) ∈ β„‚)
230228, 229eqeltrrd 2826 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΊβ€˜π‘§) ∈ β„‚)
231230adantlr 713 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΊβ€˜π‘§) ∈ β„‚)
232 simpl 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ ℝ)
233 elioore 13386 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ 𝑧 ∈ ℝ)
234233adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑧 ∈ ℝ)
235232, 234remulcld 11274 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· 𝑧) ∈ ℝ)
236235recnd 11272 . . . . . . . . . . . . . . . . . . . . . . 23 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· 𝑧) ∈ β„‚)
237236coscld 16107 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (cosβ€˜(π‘Ÿ Β· 𝑧)) ∈ β„‚)
238237negcld 11588 . . . . . . . . . . . . . . . . . . . . 21 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ -(cosβ€˜(π‘Ÿ Β· 𝑧)) ∈ β„‚)
239238adantll 712 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ -(cosβ€˜(π‘Ÿ Β· 𝑧)) ∈ β„‚)
240231, 239mulcld 11264 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧))) ∈ β„‚)
241211, 225, 226, 240fvmptd 7009 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§) = ((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧))))
242241fveq2d 6898 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) = (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))))
243242ad4ant14 750 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) = (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))))
244240abscld 15415 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))) ∈ ℝ)
245244ad4ant14 750 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))) ∈ ℝ)
246231abscld 15415 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘§)) ∈ ℝ)
247246ad4ant14 750 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘§)) ∈ ℝ)
248 simpllr 774 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑦 ∈ ℝ)
249239abscld 15415 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜-(cosβ€˜(π‘Ÿ Β· 𝑧))) ∈ ℝ)
250 1red 11245 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 1 ∈ ℝ)
251231absge0d 15423 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 0 ≀ (absβ€˜(πΊβ€˜π‘§)))
252237absnegd 15428 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜-(cosβ€˜(π‘Ÿ Β· 𝑧))) = (absβ€˜(cosβ€˜(π‘Ÿ Β· 𝑧))))
253 abscosbd 44723 . . . . . . . . . . . . . . . . . . . . . . 23 ((π‘Ÿ Β· 𝑧) ∈ ℝ β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· 𝑧))) ≀ 1)
254235, 253syl 17 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· 𝑧))) ≀ 1)
255252, 254eqbrtrd 5170 . . . . . . . . . . . . . . . . . . . . 21 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜-(cosβ€˜(π‘Ÿ Β· 𝑧))) ≀ 1)
256255adantll 712 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜-(cosβ€˜(π‘Ÿ Β· 𝑧))) ≀ 1)
257249, 250, 246, 251, 256lemul2ad 12184 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((absβ€˜(πΊβ€˜π‘§)) Β· (absβ€˜-(cosβ€˜(π‘Ÿ Β· 𝑧)))) ≀ ((absβ€˜(πΊβ€˜π‘§)) Β· 1))
258231, 239absmuld 15433 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))) = ((absβ€˜(πΊβ€˜π‘§)) Β· (absβ€˜-(cosβ€˜(π‘Ÿ Β· 𝑧)))))
259246recnd 11272 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘§)) ∈ β„‚)
260259mulridd 11261 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((absβ€˜(πΊβ€˜π‘§)) Β· 1) = (absβ€˜(πΊβ€˜π‘§)))
261260eqcomd 2731 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘§)) = ((absβ€˜(πΊβ€˜π‘§)) Β· 1))
262257, 258, 2613brtr4d 5180 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))) ≀ (absβ€˜(πΊβ€˜π‘§)))
263262ad4ant14 750 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))) ≀ (absβ€˜(πΊβ€˜π‘§)))
264 simpr 483 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
265 nfra1 3272 . . . . . . . . . . . . . . . . . . . . . . 23 β„²π‘₯βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦
266195, 265nfan 1894 . . . . . . . . . . . . . . . . . . . . . 22 β„²π‘₯((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
267199eqcomd 2731 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘₯)) = (absβ€˜((ℝ D 𝐷)β€˜π‘₯)))
268267adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ (absβ€˜(πΊβ€˜π‘₯)) = (absβ€˜((ℝ D 𝐷)β€˜π‘₯)))
269 simpr 483 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
270268, 269eqbrtrd 5170 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ (absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
271270ex 411 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦 β†’ (absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦))
272271adantlr 713 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦 β†’ (absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦))
273266, 272ralimdaa 3248 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ (βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦 β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦))
274264, 273mpd 15 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
275215fveq2d 6898 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ = 𝑧 β†’ (absβ€˜(πΊβ€˜π‘₯)) = (absβ€˜(πΊβ€˜π‘§)))
276275breq1d 5158 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ = 𝑧 β†’ ((absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 ↔ (absβ€˜(πΊβ€˜π‘§)) ≀ 𝑦))
277276cbvralvw 3225 . . . . . . . . . . . . . . . . . . . 20 (βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 ↔ βˆ€π‘§ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜(πΊβ€˜π‘§)) ≀ 𝑦)
278274, 277sylib 217 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘§ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜(πΊβ€˜π‘§)) ≀ 𝑦)
279278ad4ant14 750 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘§ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜(πΊβ€˜π‘§)) ≀ 𝑦)
280279r19.21bi 3239 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘§)) ≀ 𝑦)
281245, 247, 248, 263, 280letrd 11401 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))) ≀ 𝑦)
282243, 281eqbrtrd 5170 . . . . . . . . . . . . . . 15 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) ≀ 𝑦)
283282ralrimiva 3136 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘§ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) ≀ 𝑦)
284131ffvelcdmda 7091 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘₯) ∈ β„‚)
285284adantlr 713 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘₯) ∈ β„‚)
286 simpl 481 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ ℝ)
28787adantl 480 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ℝ)
288286, 287remulcld 11274 . . . . . . . . . . . . . . . . . . . . . . 23 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
289288recnd 11272 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
290289coscld 16107 . . . . . . . . . . . . . . . . . . . . 21 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (cosβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
291290negcld 11588 . . . . . . . . . . . . . . . . . . . 20 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ -(cosβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
292291adantll 712 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ -(cosβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
293285, 292mulcld 11264 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
294293ralrimiva 3136 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
295 dmmptg 6246 . . . . . . . . . . . . . . . . 17 (βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚ β†’ dom (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
296294, 295syl 17 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ dom (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
297296ad2antrr 724 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ dom (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
298297raleqdv 3315 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ (βˆ€π‘§ ∈ dom (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))(absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) ≀ 𝑦 ↔ βˆ€π‘§ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) ≀ 𝑦))
299283, 298mpbird 256 . . . . . . . . . . . . 13 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘§ ∈ dom (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))(absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) ≀ 𝑦)
300299ex 411 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) β†’ (βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦 β†’ βˆ€π‘§ ∈ dom (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))(absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) ≀ 𝑦))
301300reximdva 3158 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦 β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘§ ∈ dom (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))(absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) ≀ 𝑦))
302210, 301mpd 15 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘§ ∈ dom (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))(absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) ≀ 𝑦)
303174, 175, 194, 302cnbdibl 45413 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))) ∈ 𝐿1)
304303adantlr 713 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))) ∈ 𝐿1)
305284adantlr 713 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘₯) ∈ β„‚)
306 simpr 483 . . . . . . . . . 10 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘Ÿ ∈ β„‚) β†’ π‘Ÿ ∈ β„‚)
307180sseli 3973 . . . . . . . . . . 11 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ∈ β„‚)
308307ad2antlr 725 . . . . . . . . . 10 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘Ÿ ∈ β„‚) β†’ π‘₯ ∈ β„‚)
309306, 308mulcld 11264 . . . . . . . . 9 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘Ÿ ∈ β„‚) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
310309coscld 16107 . . . . . . . 8 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘Ÿ ∈ β„‚) β†’ (cosβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
311288ancoms 457 . . . . . . . . . 10 ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
312 abscosbd 44723 . . . . . . . . . 10 ((π‘Ÿ Β· π‘₯) ∈ ℝ β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· π‘₯))) ≀ 1)
313311, 312syl 17 . . . . . . . . 9 ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∧ π‘Ÿ ∈ ℝ) β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· π‘₯))) ≀ 1)
314313adantll 712 . . . . . . . 8 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘Ÿ ∈ ℝ) β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· π‘₯))) ≀ 1)
31563a1i 11 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐷 = (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)))))
31614adantr 479 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) ∈ ℝ)
317136adantr 479 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))
318 eqcom 2732 . . . . . . . . . . . . . . . . . 18 ((π‘„β€˜(𝑖 + 1)) = π‘₯ ↔ π‘₯ = (π‘„β€˜(𝑖 + 1)))
319318biimpri 227 . . . . . . . . . . . . . . . . 17 (π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ (π‘„β€˜(𝑖 + 1)) = π‘₯)
320319adantl 480 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜(𝑖 + 1)) = π‘₯)
321317, 320breqtrd 5174 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) < π‘₯)
322316, 321gtned 11379 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ β‰  (π‘„β€˜π‘–))
323322neneqd 2935 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ Β¬ π‘₯ = (π‘„β€˜π‘–))
324323iffalsed 4540 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)))
325 iftrue 4535 . . . . . . . . . . . . 13 (π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = 𝐿)
326325adantl 480 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = 𝐿)
327324, 326eqtrd 2765 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) = 𝐿)
32817leidd 11810 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ≀ (π‘„β€˜(𝑖 + 1)))
32914, 17, 17, 137, 328eliccd 44952 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
330315, 327, 329, 24fvmptd 7009 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜(π‘„β€˜(𝑖 + 1))) = 𝐿)
331330, 25eqeltrd 2825 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜(π‘„β€˜(𝑖 + 1))) ∈ β„‚)
332331adantr 479 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ (π·β€˜(π‘„β€˜(𝑖 + 1))) ∈ β„‚)
333 eqid 2725 . . . . . . . 8 (absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) = (absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1))))
334 iftrue 4535 . . . . . . . . . . . 12 (π‘₯ = (π‘„β€˜π‘–) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) = 𝑅)
335334adantl 480 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜π‘–)) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) = 𝑅)
33614rexrd 11294 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ℝ*)
33717rexrd 11294 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ*)
338 lbicc2 13473 . . . . . . . . . . . 12 (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ (π‘„β€˜π‘–) ≀ (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
339336, 337, 137, 338syl3anc 1368 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
340315, 335, 339, 20fvmptd 7009 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜(π‘„β€˜π‘–)) = 𝑅)
341340, 21eqeltrd 2825 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜(π‘„β€˜π‘–)) ∈ β„‚)
342341adantr 479 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ (π·β€˜(π‘„β€˜π‘–)) ∈ β„‚)
343 eqid 2725 . . . . . . . 8 (absβ€˜(π·β€˜(π‘„β€˜π‘–))) = (absβ€˜(π·β€˜(π‘„β€˜π‘–)))
344 eqid 2725 . . . . . . . 8 ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯ = ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯
345 simpr 483 . . . . . . . . . 10 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ 𝑒 ∈ ℝ+)
346 fourierdlem73.m . . . . . . . . . . . 12 (πœ‘ β†’ 𝑀 ∈ β„•)
347346nnrpd 13046 . . . . . . . . . . 11 (πœ‘ β†’ 𝑀 ∈ ℝ+)
348347adantr 479 . . . . . . . . . 10 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ 𝑀 ∈ ℝ+)
349345, 348rpdivcld 13065 . . . . . . . . 9 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (𝑒 / 𝑀) ∈ ℝ+)
350349adantlr 713 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ (𝑒 / 𝑀) ∈ ℝ+)
351 simpr 483 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ π‘Ÿ ∈ β„‚)
35217recnd 11272 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ β„‚)
353352ad2antrr 724 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (π‘„β€˜(𝑖 + 1)) ∈ β„‚)
354351, 353mulcld 11264 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) ∈ β„‚)
355354coscld 16107 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) ∈ β„‚)
35617adantr 479 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
357182, 356remulcld 11274 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) ∈ ℝ)
358 abscosbd 44723 . . . . . . . . . 10 ((π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) ∈ ℝ β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) ≀ 1)
359357, 358syl 17 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) ≀ 1)
360359adantlr 713 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ ℝ) β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) ≀ 1)
36114recnd 11272 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ β„‚)
362361ad2antrr 724 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (π‘„β€˜π‘–) ∈ β„‚)
363351, 362mulcld 11264 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (π‘Ÿ Β· (π‘„β€˜π‘–)) ∈ β„‚)
364363coscld 16107 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) ∈ β„‚)
36514adantr 479 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘„β€˜π‘–) ∈ ℝ)
366182, 365remulcld 11274 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘Ÿ Β· (π‘„β€˜π‘–)) ∈ ℝ)
367 abscosbd 44723 . . . . . . . . . 10 ((π‘Ÿ Β· (π‘„β€˜π‘–)) ∈ ℝ β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–)))) ≀ 1)
368366, 367syl 17 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–)))) ≀ 1)
369368adantlr 713 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ ℝ) β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–)))) ≀ 1)
370 fveq2 6894 . . . . . . . . . . . . . . 15 (𝑧 = π‘₯ β†’ ((ℝ D 𝐷)β€˜π‘§) = ((ℝ D 𝐷)β€˜π‘₯))
371370fveq2d 6898 . . . . . . . . . . . . . 14 (𝑧 = π‘₯ β†’ (absβ€˜((ℝ D 𝐷)β€˜π‘§)) = (absβ€˜((ℝ D 𝐷)β€˜π‘₯)))
372371cbvitgv 25736 . . . . . . . . . . . . 13 ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘§)) d𝑧 = ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯
373372oveq2i 7428 . . . . . . . . . . . 12 (((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘§)) d𝑧) = (((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯)
374373oveq1i 7427 . . . . . . . . . . 11 ((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘§)) d𝑧) / (𝑒 / 𝑀)) = ((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯) / (𝑒 / 𝑀))
375374oveq1i 7427 . . . . . . . . . 10 (((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘§)) d𝑧) / (𝑒 / 𝑀)) + 1) = (((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯) / (𝑒 / 𝑀)) + 1)
376375fveq2i 6897 . . . . . . . . 9 (βŒŠβ€˜(((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘§)) d𝑧) / (𝑒 / 𝑀)) + 1)) = (βŒŠβ€˜(((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯) / (𝑒 / 𝑀)) + 1))
377376oveq1i 7427 . . . . . . . 8 ((βŒŠβ€˜(((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘§)) d𝑧) / (𝑒 / 𝑀)) + 1)) + 1) = ((βŒŠβ€˜(((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯) / (𝑒 / 𝑀)) + 1)) + 1)
378173, 304, 305, 310, 314, 332, 333, 342, 343, 344, 350, 355, 360, 364, 369, 377fourierdlem47 45604 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯)) < (𝑒 / 𝑀))
379 simplll 773 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘š ∈ β„•) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ πœ‘)
380 simpllr 774 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘š ∈ β„•) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ 𝑖 ∈ (0..^𝑀))
381 elioore 13386 . . . . . . . . . . . . . . . 16 (π‘Ÿ ∈ (π‘š(,)+∞) β†’ π‘Ÿ ∈ ℝ)
382381adantl 480 . . . . . . . . . . . . . . 15 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘Ÿ ∈ ℝ)
383 0red 11247 . . . . . . . . . . . . . . . 16 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ 0 ∈ ℝ)
384 nnre 12249 . . . . . . . . . . . . . . . . 17 (π‘š ∈ β„• β†’ π‘š ∈ ℝ)
385384adantr 479 . . . . . . . . . . . . . . . 16 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘š ∈ ℝ)
386 nngt0 12273 . . . . . . . . . . . . . . . . 17 (π‘š ∈ β„• β†’ 0 < π‘š)
387386adantr 479 . . . . . . . . . . . . . . . 16 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ 0 < π‘š)
388385rexrd 11294 . . . . . . . . . . . . . . . . 17 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘š ∈ ℝ*)
389 pnfxr 11298 . . . . . . . . . . . . . . . . . 18 +∞ ∈ ℝ*
390389a1i 11 . . . . . . . . . . . . . . . . 17 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ +∞ ∈ ℝ*)
391 simpr 483 . . . . . . . . . . . . . . . . 17 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘Ÿ ∈ (π‘š(,)+∞))
392 ioogtlb 44943 . . . . . . . . . . . . . . . . 17 ((π‘š ∈ ℝ* ∧ +∞ ∈ ℝ* ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘š < π‘Ÿ)
393388, 390, 391, 392syl3anc 1368 . . . . . . . . . . . . . . . 16 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘š < π‘Ÿ)
394383, 385, 382, 387, 393lttrd 11405 . . . . . . . . . . . . . . 15 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ 0 < π‘Ÿ)
395382, 394elrpd 13045 . . . . . . . . . . . . . 14 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘Ÿ ∈ ℝ+)
396395adantll 712 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘š ∈ β„•) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘Ÿ ∈ ℝ+)
39714adantr 479 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘„β€˜π‘–) ∈ ℝ)
39817adantr 479 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
39964ffvelcdmda 7091 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘₯) ∈ β„‚)
400399adantlr 713 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘₯) ∈ β„‚)
401 rpcn 13016 . . . . . . . . . . . . . . . . . . 19 (π‘Ÿ ∈ ℝ+ β†’ π‘Ÿ ∈ β„‚)
402401ad2antlr 725 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ β„‚)
40335recnd 11272 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ β„‚)
404403adantlr 713 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ β„‚)
405402, 404mulcld 11264 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
406405sincld 16106 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
407400, 406mulcld 11264 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
408397, 398, 407itgioo 25775 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
409137adantr 479 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘„β€˜π‘–) ≀ (π‘„β€˜(𝑖 + 1)))
41064feqmptd 6964 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐷 = (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ (π·β€˜π‘₯)))
411 iftrue 4535 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) = 𝐿)
412325, 411eqtr4d 2768 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))
413412adantl 480 . . . . . . . . . . . . . . . . . . . . . 22 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))
414 iffalse 4538 . . . . . . . . . . . . . . . . . . . . . . . 24 (Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯))
415414adantl 480 . . . . . . . . . . . . . . . . . . . . . . 23 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯))
41645ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) ∈ ℝ*)
41746ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ*)
41835ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ∈ ℝ)
41914ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
42035adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) β†’ π‘₯ ∈ ℝ)
42148adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) β†’ (π‘„β€˜π‘–) ≀ π‘₯)
422 neqne 2938 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (Β¬ π‘₯ = (π‘„β€˜π‘–) β†’ π‘₯ β‰  (π‘„β€˜π‘–))
423422adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) β†’ π‘₯ β‰  (π‘„β€˜π‘–))
424419, 420, 421, 423leneltd 11398 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) β†’ (π‘„β€˜π‘–) < π‘₯)
425424adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) < π‘₯)
42635adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ∈ ℝ)
42717ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
42851adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ≀ (π‘„β€˜(𝑖 + 1)))
429318biimpi 215 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((π‘„β€˜(𝑖 + 1)) = π‘₯ β†’ π‘₯ = (π‘„β€˜(𝑖 + 1)))
430429necon3bi 2957 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ (π‘„β€˜(𝑖 + 1)) β‰  π‘₯)
431430adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜(𝑖 + 1)) β‰  π‘₯)
432426, 427, 428, 431leneltd 11398 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ < (π‘„β€˜(𝑖 + 1)))
433432adantlr 713 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ < (π‘„β€˜(𝑖 + 1)))
434416, 417, 418, 425, 433eliood 44946 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
435 fvres 6913 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΉβ€˜π‘₯))
436434, 435syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΉβ€˜π‘₯))
437 iffalse 4538 . . . . . . . . . . . . . . . . . . . . . . . . 25 (Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯))
438437eqcomd 2731 . . . . . . . . . . . . . . . . . . . . . . . 24 (Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ (πΉβ€˜π‘₯) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)))
439438adantl 480 . . . . . . . . . . . . . . . . . . . . . . 23 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (πΉβ€˜π‘₯) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)))
440415, 436, 4393eqtrrd 2770 . . . . . . . . . . . . . . . . . . . . . 22 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))
441413, 440pm2.61dan 811 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))
442441ifeq2da 4561 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) = if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯))))
443442mpteq2dva 5248 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)))) = (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))))
444315, 410, 4433eqtr3d 2773 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ (π·β€˜π‘₯)) = (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))))
445 eqid 2725 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))) = (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯))))
446 fourierdlem73.fcn . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
447195, 445, 14, 17, 446, 24, 20cncfiooicc 45345 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))) ∈ (((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
448444, 447eqeltrd 2825 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ (π·β€˜π‘₯)) ∈ (((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
449410, 448eqeltrd 2825 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐷 ∈ (((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
450449adantr 479 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ 𝐷 ∈ (((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
451 eqid 2725 . . . . . . . . . . . . . . 15 (ℝ D 𝐷) = (ℝ D 𝐷)
452129, 1eqeltrd 2825 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐷) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
453452adantr 479 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ (ℝ D 𝐷) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
454209adantr 479 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
455 simpr 483 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ π‘Ÿ ∈ ℝ+)
456397, 398, 409, 450, 451, 453, 454, 455fourierdlem39 45597 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯))
457408, 456eqtr3d 2767 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯))
458379, 380, 396, 457syl21anc 836 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘š ∈ β„•) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯))
459458fveq2d 6898 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘š ∈ β„•) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) = (absβ€˜((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯)))
460459breq1d 5158 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘š ∈ β„•) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ((absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ (absβ€˜((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯)) < (𝑒 / 𝑀)))
461460ralbidva 3166 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘š ∈ β„•) β†’ (βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯)) < (𝑒 / 𝑀)))
462461rexbidva 3167 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯)) < (𝑒 / 𝑀)))
463462adantr 479 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ (βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯)) < (𝑒 / 𝑀)))
464378, 463mpbird 256 . . . . . 6 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
465464an32s 650 . . . . 5 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
46694oveq1d 7432 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) = ((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))))
467466itgeq2dv 25741 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
468467eqcomd 2731 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
469468adantr 479 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
47014adantr 479 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
47117adantr 479 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
472399adantlr 713 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘₯) ∈ β„‚)
473381recnd 11272 . . . . . . . . . . . . . . . 16 (π‘Ÿ ∈ (π‘š(,)+∞) β†’ π‘Ÿ ∈ β„‚)
474473ad2antlr 725 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ β„‚)
475403adantlr 713 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ β„‚)
476474, 475mulcld 11264 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
477476sincld 16106 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
478472, 477mulcld 11264 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
479470, 471, 478itgioo 25775 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
48060adantlr 713 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
481480, 477mulcld 11264 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
482470, 471, 481itgioo 25775 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
483469, 479, 4823eqtr3d 2773 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
484483fveq2d 6898 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) = (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
485484breq1d 5158 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ((absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)))
486485ralbidva 3166 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)))
487486adantlr 713 . . . . . 6 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)))
488487rexbidv 3169 . . . . 5 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)))
489465, 488mpbid 231 . . . 4 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
490489ralrimiva 3136 . . 3 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
491490ralrimiva 3136 . 2 (πœ‘ β†’ βˆ€π‘’ ∈ ℝ+ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
492 nfv 1909 . . . . . . 7 Ⅎ𝑖(πœ‘ ∧ 𝑒 ∈ ℝ+)
493 nfra1 3272 . . . . . . 7 β„²π‘–βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
494492, 493nfan 1894 . . . . . 6 Ⅎ𝑖((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
495 nfv 1909 . . . . . . 7 β„²π‘Ÿ(πœ‘ ∧ 𝑒 ∈ ℝ+)
496 nfcv 2892 . . . . . . . 8 β„²π‘Ÿ(0..^𝑀)
497 nfcv 2892 . . . . . . . . 9 β„²π‘Ÿβ„•
498 nfra1 3272 . . . . . . . . 9 β„²π‘Ÿβˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
499497, 498nfrexw 3301 . . . . . . . 8 β„²π‘Ÿβˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
500496, 499nfralw 3299 . . . . . . 7 β„²π‘Ÿβˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
501495, 500nfan 1894 . . . . . 6 β„²π‘Ÿ((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
502 nfmpt1 5256 . . . . . 6 Ⅎ𝑖(𝑖 ∈ (0..^𝑀) ↦ inf({π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)}, ℝ, < ))
503 fzofi 13971 . . . . . . 7 (0..^𝑀) ∈ Fin
504503a1i 11 . . . . . 6 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ (0..^𝑀) ∈ Fin)
505 simpr 483 . . . . . 6 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
506 eqid 2725 . . . . . 6 {π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)} = {π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)}
507 eqid 2725 . . . . . 6 (𝑖 ∈ (0..^𝑀) ↦ inf({π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)}, ℝ, < )) = (𝑖 ∈ (0..^𝑀) ↦ inf({π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)}, ℝ, < ))
508 eqid 2725 . . . . . 6 sup(ran (𝑖 ∈ (0..^𝑀) ↦ inf({π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)}, ℝ, < )), ℝ, < ) = sup(ran (𝑖 ∈ (0..^𝑀) ↦ inf({π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)}, ℝ, < )), ℝ, < )
509494, 501, 502, 504, 505, 506, 507, 508fourierdlem31 45589 . . . . 5 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
510 simpr 483 . . . . . 6 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
511 nfv 1909 . . . . . . . 8 Ⅎ𝑛(πœ‘ ∧ 𝑒 ∈ ℝ+)
512 nfre1 3273 . . . . . . . 8 β„²π‘›βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
513511, 512nfan 1894 . . . . . . 7 Ⅎ𝑛((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
514 nfv 1909 . . . . . . . . . . 11 β„²π‘Ÿ 𝑛 ∈ β„•
515 nfra1 3272 . . . . . . . . . . 11 β„²π‘Ÿβˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
516495, 514, 515nf3an 1896 . . . . . . . . . 10 β„²π‘Ÿ((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
517 simpll 765 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ πœ‘)
518 elioore 13386 . . . . . . . . . . . . . . . . . . . 20 (π‘Ÿ ∈ (𝑛(,)+∞) β†’ π‘Ÿ ∈ ℝ)
519518adantl 480 . . . . . . . . . . . . . . . . . . 19 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ π‘Ÿ ∈ ℝ)
520 0red 11247 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 0 ∈ ℝ)
521 nnre 12249 . . . . . . . . . . . . . . . . . . . . 21 (𝑛 ∈ β„• β†’ 𝑛 ∈ ℝ)
522521adantr 479 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑛 ∈ ℝ)
523 nngt0 12273 . . . . . . . . . . . . . . . . . . . . 21 (𝑛 ∈ β„• β†’ 0 < 𝑛)
524523adantr 479 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 0 < 𝑛)
525522rexrd 11294 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑛 ∈ ℝ*)
526389a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ +∞ ∈ ℝ*)
527 simpr 483 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ π‘Ÿ ∈ (𝑛(,)+∞))
528 ioogtlb 44943 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ ℝ* ∧ +∞ ∈ ℝ* ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑛 < π‘Ÿ)
529525, 526, 527, 528syl3anc 1368 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑛 < π‘Ÿ)
530520, 522, 519, 524, 529lttrd 11405 . . . . . . . . . . . . . . . . . . 19 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 0 < π‘Ÿ)
531519, 530elrpd 13045 . . . . . . . . . . . . . . . . . 18 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ π‘Ÿ ∈ ℝ+)
532531adantll 712 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ π‘Ÿ ∈ ℝ+)
5337adantr 479 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ 𝐴 ∈ ℝ)
5348adantr 479 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ 𝐡 ∈ ℝ)
53527ffvelcdmda 7091 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
536535adantlr 713 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
537401ad2antlr 725 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ π‘Ÿ ∈ β„‚)
5389sselda 3977 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ π‘₯ ∈ ℝ)
539538recnd 11272 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ π‘₯ ∈ β„‚)
540539adantlr 713 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ π‘₯ ∈ β„‚)
541537, 540mulcld 11264 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
542541sincld 16106 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
543536, 542mulcld 11264 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
544533, 534, 543itgioo 25775 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫(𝐴[,]𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
545 fourierdlem73.q0 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (π‘„β€˜0) = 𝐴)
546545eqcomd 2731 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐴 = (π‘„β€˜0))
547 fourierdlem73.qm . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (π‘„β€˜π‘€) = 𝐡)
548547eqcomd 2731 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐡 = (π‘„β€˜π‘€))
549546, 548oveq12d 7435 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (𝐴[,]𝐡) = ((π‘„β€˜0)[,](π‘„β€˜π‘€)))
550549adantr 479 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (𝐴[,]𝐡) = ((π‘„β€˜0)[,](π‘„β€˜π‘€)))
551550itgeq1d 45408 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ ∫(𝐴[,]𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜0)[,](π‘„β€˜π‘€))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
552 0zd 12600 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ 0 ∈ β„€)
553 nnuz 12895 . . . . . . . . . . . . . . . . . . . . . 22 β„• = (β„€β‰₯β€˜1)
554 0p1e1 12364 . . . . . . . . . . . . . . . . . . . . . . 23 (0 + 1) = 1
555554fveq2i 6897 . . . . . . . . . . . . . . . . . . . . . 22 (β„€β‰₯β€˜(0 + 1)) = (β„€β‰₯β€˜1)
556553, 555eqtr4i 2756 . . . . . . . . . . . . . . . . . . . . 21 β„• = (β„€β‰₯β€˜(0 + 1))
557346, 556eleqtrdi 2835 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝑀 ∈ (β„€β‰₯β€˜(0 + 1)))
558557adantr 479 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ 𝑀 ∈ (β„€β‰₯β€˜(0 + 1)))
55910adantr 479 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ 𝑄:(0...𝑀)βŸΆβ„)
560136adantlr 713 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))
561 simpr 483 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€))) β†’ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€)))
562549eqcomd 2731 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ ((π‘„β€˜0)[,](π‘„β€˜π‘€)) = (𝐴[,]𝐡))
563562adantr 479 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€))) β†’ ((π‘„β€˜0)[,](π‘„β€˜π‘€)) = (𝐴[,]𝐡))
564561, 563eleqtrd 2827 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€))) β†’ π‘₯ ∈ (𝐴[,]𝐡))
565564adantlr 713 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€))) β†’ π‘₯ ∈ (𝐴[,]𝐡))
566565, 543syldan 589 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
56714adantlr 713 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
56817adantlr 713 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
569106, 103sstrd 3988 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† (𝐴[,]𝐡))
570113, 569feqresmpt 6965 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)))
571570, 446eqeltrrd 2826 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
572571adantlr 713 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
573 sincn 26411 . . . . . . . . . . . . . . . . . . . . . . . 24 sin ∈ (ℂ–cnβ†’β„‚)
574573a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ sin ∈ (ℂ–cnβ†’β„‚))
575180a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚)
576401adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ π‘Ÿ ∈ β„‚)
577184a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ β„‚ βŠ† β„‚)
578575, 576, 577constcncfg 45323 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
579189adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
580578, 579mulcncf 25404 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
581580adantr 479 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
582574, 581cncfmpt1f 24864 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
583572, 582mulcncf 25404 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
584 eqid 2725 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯))
585 eqid 2725 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (sinβ€˜(π‘Ÿ Β· π‘₯))) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (sinβ€˜(π‘Ÿ Β· π‘₯)))
586 eqid 2725 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))))
58727ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝐹:(𝐴[,]𝐡)βŸΆβ„‚)
58836ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝐴 ∈ ℝ*)
58938ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝐡 ∈ ℝ*)
5906ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑄:(0...𝑀)⟢(𝐴[,]𝐡))
591 simplr 767 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑖 ∈ (0..^𝑀))
592588, 589, 590, 591, 72fourierdlem1 45559 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ (𝐴[,]𝐡))
593587, 592ffvelcdmd 7092 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
594593adantllr 717 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
595576ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ β„‚)
596307adantl 480 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ β„‚)
597595, 596mulcld 11264 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
598597sincld 16106 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
599570oveq1d 7432 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))) = ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
60024, 599eleqtrd 2827 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
601600adantlr 713 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
602 rpre 13014 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (π‘Ÿ ∈ ℝ+ β†’ π‘Ÿ ∈ ℝ)
603602adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((π‘Ÿ ∈ ℝ+ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ ℝ)
60487adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((π‘Ÿ ∈ ℝ+ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ℝ)
605603, 604remulcld 11274 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((π‘Ÿ ∈ ℝ+ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
606605adantll 712 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
607606ad2ant2r 745 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∧ (π‘Ÿ Β· π‘₯) β‰  (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
608 recn 11228 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ℝ β†’ 𝑦 ∈ β„‚)
609608sincld 16106 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ ℝ β†’ (sinβ€˜π‘¦) ∈ β„‚)
610609adantl 480 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) β†’ (sinβ€˜π‘¦) ∈ β„‚)
611 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ)
612 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯)
613 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯))
614180a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚)
615576adantr 479 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ β„‚)
616568recnd 11272 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ β„‚)
617611, 614, 615, 616constlimc 45075 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ) limβ„‚ (π‘„β€˜(𝑖 + 1))))
618614, 612, 616idlimc 45077 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) limβ„‚ (π‘„β€˜(𝑖 + 1))))
619611, 612, 613, 595, 596, 617, 618mullimc 45067 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
620 eqid 2725 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑦 ∈ β„‚ ↦ (sinβ€˜π‘¦)) = (𝑦 ∈ β„‚ ↦ (sinβ€˜π‘¦))
621 sinf 16100 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 sin:β„‚βŸΆβ„‚
622621a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⊀ β†’ sin:β„‚βŸΆβ„‚)
623622feqmptd 6964 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (⊀ β†’ sin = (𝑦 ∈ β„‚ ↦ (sinβ€˜π‘¦)))
624623, 573eqeltrrdi 2834 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (⊀ β†’ (𝑦 ∈ β„‚ ↦ (sinβ€˜π‘¦)) ∈ (ℂ–cnβ†’β„‚))
6254a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (⊀ β†’ ℝ βŠ† β„‚)
626 resincl 16116 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑦 ∈ ℝ β†’ (sinβ€˜π‘¦) ∈ ℝ)
627626adantl 480 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((⊀ ∧ 𝑦 ∈ ℝ) β†’ (sinβ€˜π‘¦) ∈ ℝ)
628620, 624, 625, 625, 627cncfmptssg 45322 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (⊀ β†’ (𝑦 ∈ ℝ ↦ (sinβ€˜π‘¦)) ∈ (ℝ–cn→ℝ))
629628mptru 1540 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ℝ ↦ (sinβ€˜π‘¦)) ∈ (ℝ–cn→ℝ)
630629a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑦 ∈ ℝ ↦ (sinβ€˜π‘¦)) ∈ (ℝ–cn→ℝ))
631602ad2antlr 725 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ ℝ)
632631, 568remulcld 11274 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) ∈ ℝ)
633 fveq2 6894 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 = (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) β†’ (sinβ€˜π‘¦) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))))
634630, 632, 633cnmptlimc 25849 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) ∈ ((𝑦 ∈ ℝ ↦ (sinβ€˜π‘¦)) limβ„‚ (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))))
635 fveq2 6894 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 = (π‘Ÿ Β· π‘₯) β†’ (sinβ€˜π‘¦) = (sinβ€˜(π‘Ÿ Β· π‘₯)))
636 fveq2 6894 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘Ÿ Β· π‘₯) = (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))))
637636ad2antll 727 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∧ (π‘Ÿ Β· π‘₯) = (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))))
638607, 610, 619, 634, 635, 637limcco 25852 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (sinβ€˜(π‘Ÿ Β· π‘₯))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
639584, 585, 586, 594, 598, 601, 638mullimc 45067 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐿 Β· (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
640570oveq1d 7432 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)) = ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜π‘–)))
64120, 640eleqtrd 2827 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜π‘–)))
642641adantlr 713 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜π‘–)))
643606ad2ant2r 745 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∧ (π‘Ÿ Β· π‘₯) β‰  (π‘Ÿ Β· (π‘„β€˜π‘–)))) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
644567recnd 11272 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ β„‚)
645611, 614, 615, 644constlimc 45075 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ) limβ„‚ (π‘„β€˜π‘–)))
646614, 612, 644idlimc 45077 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) limβ„‚ (π‘„β€˜π‘–)))
647611, 612, 613, 595, 596, 645, 646mullimc 45067 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘Ÿ Β· (π‘„β€˜π‘–)) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) limβ„‚ (π‘„β€˜π‘–)))
648631, 567remulcld 11274 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘Ÿ Β· (π‘„β€˜π‘–)) ∈ ℝ)
649 fveq2 6894 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 = (π‘Ÿ Β· (π‘„β€˜π‘–)) β†’ (sinβ€˜π‘¦) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))))
650630, 648, 649cnmptlimc 25849 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) ∈ ((𝑦 ∈ ℝ ↦ (sinβ€˜π‘¦)) limβ„‚ (π‘Ÿ Β· (π‘„β€˜π‘–))))
651 fveq2 6894 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘Ÿ Β· π‘₯) = (π‘Ÿ Β· (π‘„β€˜π‘–)) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))))
652651ad2antll 727 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∧ (π‘Ÿ Β· π‘₯) = (π‘Ÿ Β· (π‘„β€˜π‘–)))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))))
653643, 610, 647, 650, 635, 652limcco 25852 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (sinβ€˜(π‘Ÿ Β· π‘₯))) limβ„‚ (π‘„β€˜π‘–)))
654584, 585, 586, 594, 598, 642, 653mullimc 45067 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑅 Β· (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–)))) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) limβ„‚ (π‘„β€˜π‘–)))
655567, 568, 583, 639, 654iblcncfioo 45429 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) ∈ 𝐿1)
656 simpll 765 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (πœ‘ ∧ π‘Ÿ ∈ ℝ+))
65759adantllr 717 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ (𝐴[,]𝐡))
658656, 657, 543syl2anc 582 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
659567, 568, 655, 658ibliooicc 45422 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) ∈ 𝐿1)
660552, 558, 559, 560, 566, 659itgspltprt 45430 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ ∫((π‘„β€˜0)[,](π‘„β€˜π‘€))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = Σ𝑖 ∈ (0..^𝑀)∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
661544, 551, 6603eqtrd 2769 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = Σ𝑖 ∈ (0..^𝑀)∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
662517, 532, 661syl2anc 582 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = Σ𝑖 ∈ (0..^𝑀)∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
663503a1i 11 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (0..^𝑀) ∈ Fin)
66460adantllr 717 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
665518recnd 11272 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘Ÿ ∈ (𝑛(,)+∞) β†’ π‘Ÿ ∈ β„‚)
666665adantl 480 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ π‘Ÿ ∈ β„‚)
667666ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ β„‚)
668403adantllr 717 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ β„‚)
669667, 668mulcld 11264 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
670669sincld 16106 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
671664, 670mulcld 11264 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
672671adantl3r 748 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
673 simplll 773 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ πœ‘)
674532adantr 479 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ ℝ+)
675 simpr 483 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0..^𝑀))
676673, 674, 675, 659syl21anc 836 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) ∈ 𝐿1)
677672, 676itgcl 25743 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
678663, 677fsumcl 15711 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑖 ∈ (0..^𝑀)∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
679662, 678eqeltrd 2825 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
680679adantllr 717 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
6816803adantl3 1165 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
682681abscld 15415 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
683677abscld 15415 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
684663, 683fsumrecl 15712 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
685684adantllr 717 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
6866853adantl3 1165 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
687 rpre 13014 . . . . . . . . . . . . . 14 (𝑒 ∈ ℝ+ β†’ 𝑒 ∈ ℝ)
688687ad2antlr 725 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑒 ∈ ℝ)
6896883ad2antl1 1182 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑒 ∈ ℝ)
690662fveq2d 6898 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) = (absβ€˜Ξ£π‘– ∈ (0..^𝑀)∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
691663, 677fsumabs 15779 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (absβ€˜Ξ£π‘– ∈ (0..^𝑀)∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ≀ Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
692690, 691eqbrtrd 5170 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ≀ Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
693692adantllr 717 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ≀ Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
6946933adantl3 1165 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ≀ Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
695503a1i 11 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (0..^𝑀) ∈ Fin)
696 0zd 12600 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 0 ∈ β„€)
697346nnzd 12615 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝑀 ∈ β„€)
698346nngt0d 12291 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 0 < 𝑀)
699 fzolb 13670 . . . . . . . . . . . . . . . . . 18 (0 ∈ (0..^𝑀) ↔ (0 ∈ β„€ ∧ 𝑀 ∈ β„€ ∧ 0 < 𝑀))
700696, 697, 698, 699syl3anbrc 1340 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 0 ∈ (0..^𝑀))
701 ne0i 4335 . . . . . . . . . . . . . . . . 17 (0 ∈ (0..^𝑀) β†’ (0..^𝑀) β‰  βˆ…)
702700, 701syl 17 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (0..^𝑀) β‰  βˆ…)
703702ad2antrr 724 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (0..^𝑀) β‰  βˆ…)
7047033ad2antl1 1182 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (0..^𝑀) β‰  βˆ…)
705 simp1l 1194 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ πœ‘)
706705ad2antrr 724 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ πœ‘)
707 simpll2 1210 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ 𝑛 ∈ β„•)
708706, 707jca 510 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ (πœ‘ ∧ 𝑛 ∈ β„•))
709 simplr 767 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ (𝑛(,)+∞))
710 simpr 483 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ 𝑗 ∈ (0..^𝑀))
711 eleq1w 2808 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 β†’ (𝑖 ∈ (0..^𝑀) ↔ 𝑗 ∈ (0..^𝑀)))
712711anbi2d 628 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝑗 β†’ ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ↔ (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀))))
713 fveq2 6894 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 𝑗 β†’ (π‘„β€˜π‘–) = (π‘„β€˜π‘—))
714 oveq1 7424 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝑗 β†’ (𝑖 + 1) = (𝑗 + 1))
715714fveq2d 6898 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 𝑗 β†’ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜(𝑗 + 1)))
716713, 715oveq12d 7435 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝑗 β†’ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) = ((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1))))
717716itgeq1d 45408 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 β†’ ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
718717eleq1d 2810 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝑗 β†’ (∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚ ↔ ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚))
719712, 718imbi12d 343 . . . . . . . . . . . . . . . . 17 (𝑖 = 𝑗 β†’ (((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚) ↔ ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)))
720719, 677chvarvv 1994 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
721708, 709, 710, 720syl21anc 836 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
722721abscld 15415 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
723349rpred 13048 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (𝑒 / 𝑀) ∈ ℝ)
7247233ad2ant1 1130 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ (𝑒 / 𝑀) ∈ ℝ)
725724ad2antrr 724 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ (𝑒 / 𝑀) ∈ ℝ)
726 simpll3 1211 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
727 rspa 3236 . . . . . . . . . . . . . . . . . 18 ((βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
728727adantr 479 . . . . . . . . . . . . . . . . 17 (((βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
729717fveq2d 6898 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 β†’ (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) = (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
730729breq1d 5158 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝑗 β†’ ((absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)))
731730cbvralvw 3225 . . . . . . . . . . . . . . . . 17 (βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆ€π‘— ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
732728, 731sylib 217 . . . . . . . . . . . . . . . 16 (((βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ βˆ€π‘— ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
733 rspa 3236 . . . . . . . . . . . . . . . 16 ((βˆ€π‘— ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ∧ 𝑗 ∈ (0..^𝑀)) β†’ (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
734732, 733sylancom 586 . . . . . . . . . . . . . . 15 (((βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
735726, 709, 710, 734syl21anc 836 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
736695, 704, 722, 725, 735fsumlt 15778 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑗 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < Σ𝑗 ∈ (0..^𝑀)(𝑒 / 𝑀))
737 fveq2 6894 . . . . . . . . . . . . . . . . . 18 (𝑗 = 𝑖 β†’ (π‘„β€˜π‘—) = (π‘„β€˜π‘–))
738 oveq1 7424 . . . . . . . . . . . . . . . . . . 19 (𝑗 = 𝑖 β†’ (𝑗 + 1) = (𝑖 + 1))
739738fveq2d 6898 . . . . . . . . . . . . . . . . . 18 (𝑗 = 𝑖 β†’ (π‘„β€˜(𝑗 + 1)) = (π‘„β€˜(𝑖 + 1)))
740737, 739oveq12d 7435 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝑖 β†’ ((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1))) = ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
741740itgeq1d 45408 . . . . . . . . . . . . . . . 16 (𝑗 = 𝑖 β†’ ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
742741fveq2d 6898 . . . . . . . . . . . . . . 15 (𝑗 = 𝑖 β†’ (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) = (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
743742cbvsumv 15674 . . . . . . . . . . . . . 14 Σ𝑗 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) = Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
744743a1i 11 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑗 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) = Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
745349rpcnd 13050 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (𝑒 / 𝑀) ∈ β„‚)
746 fsumconst 15768 . . . . . . . . . . . . . . . . 17 (((0..^𝑀) ∈ Fin ∧ (𝑒 / 𝑀) ∈ β„‚) β†’ Σ𝑗 ∈ (0..^𝑀)(𝑒 / 𝑀) = ((β™―β€˜(0..^𝑀)) Β· (𝑒 / 𝑀)))
747503, 745, 746sylancr 585 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ Σ𝑗 ∈ (0..^𝑀)(𝑒 / 𝑀) = ((β™―β€˜(0..^𝑀)) Β· (𝑒 / 𝑀)))
748346nnnn0d 12562 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑀 ∈ β„•0)
749 hashfzo0 14421 . . . . . . . . . . . . . . . . . . 19 (𝑀 ∈ β„•0 β†’ (β™―β€˜(0..^𝑀)) = 𝑀)
750748, 749syl 17 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (β™―β€˜(0..^𝑀)) = 𝑀)
751750oveq1d 7432 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((β™―β€˜(0..^𝑀)) Β· (𝑒 / 𝑀)) = (𝑀 Β· (𝑒 / 𝑀)))
752751adantr 479 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ ((β™―β€˜(0..^𝑀)) Β· (𝑒 / 𝑀)) = (𝑀 Β· (𝑒 / 𝑀)))
753345rpcnd 13050 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ 𝑒 ∈ β„‚)
754348rpcnd 13050 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ 𝑀 ∈ β„‚)
755348rpne0d 13053 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ 𝑀 β‰  0)
756753, 754, 755divcan2d 12022 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (𝑀 Β· (𝑒 / 𝑀)) = 𝑒)
757747, 752, 7563eqtrd 2769 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ Σ𝑗 ∈ (0..^𝑀)(𝑒 / 𝑀) = 𝑒)
758757adantr 479 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑗 ∈ (0..^𝑀)(𝑒 / 𝑀) = 𝑒)
7597583ad2antl1 1182 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑗 ∈ (0..^𝑀)(𝑒 / 𝑀) = 𝑒)
760736, 744, 7593brtr3d 5179 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)
761682, 686, 689, 694, 760lelttrd 11402 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)
762761ex 411 . . . . . . . . . 10 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ (π‘Ÿ ∈ (𝑛(,)+∞) β†’ (absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒))
763516, 762ralrimi 3245 . . . . . . . . 9 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)
7647633exp 1116 . . . . . . . 8 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (𝑛 ∈ β„• β†’ (βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) β†’ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)))
765764adantr 479 . . . . . . 7 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ (𝑛 ∈ β„• β†’ (βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) β†’ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)))
766513, 765reximdai 3249 . . . . . 6 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ (βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) β†’ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒))
767510, 766mpd 15 . . . . 5 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)
768509, 767syldan 589 . . . 4 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)
769768ex 411 . . 3 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) β†’ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒))
770769ralimdva 3157 . 2 (πœ‘ β†’ (βˆ€π‘’ ∈ ℝ+ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) β†’ βˆ€π‘’ ∈ ℝ+ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒))
771491, 770mpd 15 1 (πœ‘ β†’ βˆ€π‘’ ∈ ℝ+ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 394   ∧ w3a 1084   = wceq 1533  βŠ€wtru 1534   ∈ wcel 2098   β‰  wne 2930  βˆ€wral 3051  βˆƒwrex 3060  {crab 3419   βŠ† wss 3945  βˆ…c0 4323  ifcif 4529   class class class wbr 5148   ↦ cmpt 5231  dom cdm 5677  ran crn 5678   β†Ύ cres 5679   Fn wfn 6542  βŸΆwf 6543  β€˜cfv 6547  (class class class)co 7417  Fincfn 8962  supcsup 9463  infcinf 9464  β„‚cc 11136  β„cr 11137  0cc0 11138  1c1 11139   + caddc 11141   Β· cmul 11143  +∞cpnf 11275  β„*cxr 11277   < clt 11278   ≀ cle 11279   βˆ’ cmin 11474  -cneg 11475   / cdiv 11901  β„•cn 12242  β„•0cn0 12502  β„€cz 12588  β„€β‰₯cuz 12852  β„+crp 13006  (,)cioo 13356  [,]cicc 13359  ...cfz 13516  ..^cfzo 13659  βŒŠcfl 13787  β™―chash 14321  abscabs 15213  Ξ£csu 15664  sincsin 16039  cosccos 16040  TopOpenctopn 17402  topGenctg 17418  β„‚fldccnfld 21283  Topctop 22825  intcnt 22951  β€“cnβ†’ccncf 24826  volcvol 25422  πΏ1cibl 25576  βˆ«citg 25577   limβ„‚ climc 25821   D cdv 25822
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 2166  ax-ext 2696  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5364  ax-pr 5428  ax-un 7739  ax-inf2 9664  ax-cc 10458  ax-cnex 11194  ax-resscn 11195  ax-1cn 11196  ax-icn 11197  ax-addcl 11198  ax-addrcl 11199  ax-mulcl 11200  ax-mulrcl 11201  ax-mulcom 11202  ax-addass 11203  ax-mulass 11204  ax-distr 11205  ax-i2m1 11206  ax-1ne0 11207  ax-1rid 11208  ax-rnegex 11209  ax-rrecex 11210  ax-cnre 11211  ax-pre-lttri 11212  ax-pre-lttrn 11213  ax-pre-ltadd 11214  ax-pre-mulgt0 11215  ax-pre-sup 11216  ax-addf 11217
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3775  df-csb 3891  df-dif 3948  df-un 3950  df-in 3952  df-ss 3962  df-pss 3965  df-symdif 4242  df-nul 4324  df-if 4530  df-pw 4605  df-sn 4630  df-pr 4632  df-tp 4634  df-op 4636  df-uni 4909  df-int 4950  df-iun 4998  df-iin 4999  df-disj 5114  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5575  df-eprel 5581  df-po 5589  df-so 5590  df-fr 5632  df-se 5633  df-we 5634  df-xp 5683  df-rel 5684  df-cnv 5685  df-co 5686  df-dm 5687  df-rn 5688  df-res 5689  df-ima 5690  df-pred 6305  df-ord 6372  df-on 6373  df-lim 6374  df-suc 6375  df-iota 6499  df-fun 6549  df-fn 6550  df-f 6551  df-f1 6552  df-fo 6553  df-f1o 6554  df-fv 6555  df-isom 6556  df-riota 7373  df-ov 7420  df-oprab 7421  df-mpo 7422  df-of 7683  df-ofr 7684  df-om 7870  df-1st 7992  df-2nd 7993  df-supp 8164  df-frecs 8285  df-wrecs 8316  df-recs 8390  df-rdg 8429  df-1o 8485  df-2o 8486  df-oadd 8489  df-omul 8490  df-er 8723  df-map 8845  df-pm 8846  df-ixp 8915  df-en 8963  df-dom 8964  df-sdom 8965  df-fin 8966  df-fsupp 9386  df-fi 9434  df-sup 9465  df-inf 9466  df-oi 9533  df-dju 9924  df-card 9962  df-acn 9965  df-pnf 11280  df-mnf 11281  df-xr 11282  df-ltxr 11283  df-le 11284  df-sub 11476  df-neg 11477  df-div 11902  df-nn 12243  df-2 12305  df-3 12306  df-4 12307  df-5 12308  df-6 12309  df-7 12310  df-8 12311  df-9 12312  df-n0 12503  df-z 12589  df-dec 12708  df-uz 12853  df-q 12963  df-rp 13007  df-xneg 13124  df-xadd 13125  df-xmul 13126  df-ioo 13360  df-ioc 13361  df-ico 13362  df-icc 13363  df-fz 13517  df-fzo 13660  df-fl 13789  df-mod 13867  df-seq 13999  df-exp 14059  df-fac 14265  df-bc 14294  df-hash 14322  df-shft 15046  df-cj 15078  df-re 15079  df-im 15080  df-sqrt 15214  df-abs 15215  df-limsup 15447  df-clim 15464  df-rlim 15465  df-sum 15665  df-ef 16043  df-sin 16045  df-cos 16046  df-struct 17115  df-sets 17132  df-slot 17150  df-ndx 17162  df-base 17180  df-ress 17209  df-plusg 17245  df-mulr 17246  df-starv 17247  df-sca 17248  df-vsca 17249  df-ip 17250  df-tset 17251  df-ple 17252  df-ds 17254  df-unif 17255  df-hom 17256  df-cco 17257  df-rest 17403  df-topn 17404  df-0g 17422  df-gsum 17423  df-topgen 17424  df-pt 17425  df-prds 17428  df-xrs 17483  df-qtop 17488  df-imas 17489  df-xps 17491  df-mre 17565  df-mrc 17566  df-acs 17568  df-mgm 18599  df-sgrp 18678  df-mnd 18694  df-submnd 18740  df-mulg 19028  df-cntz 19272  df-cmn 19741  df-psmet 21275  df-xmet 21276  df-met 21277  df-bl 21278  df-mopn 21279  df-fbas 21280  df-fg 21281  df-cnfld 21284  df-top 22826  df-topon 22843  df-topsp 22865  df-bases 22879  df-cld 22953  df-ntr 22954  df-cls 22955  df-nei 23032  df-lp 23070  df-perf 23071  df-cn 23161  df-cnp 23162  df-haus 23249  df-cmp 23321  df-tx 23496  df-hmeo 23689  df-fil 23780  df-fm 23872  df-flim 23873  df-flf 23874  df-xms 24256  df-ms 24257  df-tms 24258  df-cncf 24828  df-ovol 25423  df-vol 25424  df-mbf 25578  df-itg1 25579  df-itg2 25580  df-ibl 25581  df-itg 25582  df-0p 25629  df-limc 25825  df-dv 25826
This theorem is referenced by:  fourierdlem103  45660  fourierdlem104  45661
  Copyright terms: Public domain W3C validator