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 44885
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 24408 . . . . . . . . . . . . . 14 ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
31, 2syl 17 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
4 ax-resscn 11166 . . . . . . . . . . . . . . . . 17 ℝ βŠ† β„‚
54a1i 11 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ℝ βŠ† β„‚)
6 fourierdlem73.qf . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝑄:(0...𝑀)⟢(𝐴[,]𝐡))
7 fourierdlem73.a . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐴 ∈ ℝ)
8 fourierdlem73.b . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐡 ∈ ℝ)
97, 8iccssred 13410 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (𝐴[,]𝐡) βŠ† ℝ)
106, 9fssd 6735 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑄:(0...𝑀)βŸΆβ„)
1110adantr 481 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑄:(0...𝑀)βŸΆβ„)
12 elfzofz 13647 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (0..^𝑀) β†’ 𝑖 ∈ (0...𝑀))
1312adantl 482 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0...𝑀))
1411, 13ffvelcdmd 7087 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
15 fzofzp1 13728 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (0..^𝑀) β†’ (𝑖 + 1) ∈ (0...𝑀))
1615adantl 482 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑖 + 1) ∈ (0...𝑀))
1711, 16ffvelcdmd 7087 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
1814, 17iccssred 13410 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) βŠ† ℝ)
19 limccl 25391 . . . . . . . . . . . . . . . . . . . 20 ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)) βŠ† β„‚
20 fourierdlem73.r . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)))
2119, 20sselid 3980 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ β„‚)
2221adantr 481 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝑅 ∈ β„‚)
23 limccl 25391 . . . . . . . . . . . . . . . . . . . . 21 ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))) βŠ† β„‚
24 fourierdlem73.l . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
2523, 24sselid 3980 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ β„‚)
2625adantr 481 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐿 ∈ β„‚)
27 fourierdlem73.f . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐹:(𝐴[,]𝐡)βŸΆβ„‚)
2827ad2antrr 724 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐹:(𝐴[,]𝐡)βŸΆβ„‚)
297ad2antrr 724 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐴 ∈ ℝ)
308ad2antrr 724 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐡 ∈ ℝ)
3114adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ∈ ℝ)
3217adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
33 simpr 485 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
34 eliccre 44208 . . . . . . . . . . . . . . . . . . . . . 22 (((π‘„β€˜π‘–) ∈ ℝ ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ℝ)
3531, 32, 33, 34syl3anc 1371 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ℝ)
367rexrd 11263 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ 𝐴 ∈ ℝ*)
3736adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐴 ∈ ℝ*)
388rexrd 11263 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ 𝐡 ∈ ℝ*)
3938adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐡 ∈ ℝ*)
406adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑄:(0...𝑀)⟢(𝐴[,]𝐡))
4140, 13ffvelcdmd 7087 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ (𝐴[,]𝐡))
42 iccgelb 13379 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ* ∧ (π‘„β€˜π‘–) ∈ (𝐴[,]𝐡)) β†’ 𝐴 ≀ (π‘„β€˜π‘–))
4337, 39, 41, 42syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐴 ≀ (π‘„β€˜π‘–))
4443adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐴 ≀ (π‘„β€˜π‘–))
4531rexrd 11263 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ∈ ℝ*)
4632rexrd 11263 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ*)
47 iccgelb 13379 . . . . . . . . . . . . . . . . . . . . . . 23 (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ≀ π‘₯)
4845, 46, 33, 47syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ≀ π‘₯)
4929, 31, 35, 44, 48letrd 11370 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐴 ≀ π‘₯)
50 iccleub 13378 . . . . . . . . . . . . . . . . . . . . . . 23 (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ≀ (π‘„β€˜(𝑖 + 1)))
5145, 46, 33, 50syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ≀ (π‘„β€˜(𝑖 + 1)))
5236ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐴 ∈ ℝ*)
5338ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ 𝐡 ∈ ℝ*)
5440, 16ffvelcdmd 7087 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ (𝐴[,]𝐡))
5554adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ (𝐴[,]𝐡))
56 iccleub 13378 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ (𝐴[,]𝐡)) β†’ (π‘„β€˜(𝑖 + 1)) ≀ 𝐡)
5752, 53, 55, 56syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ≀ 𝐡)
5835, 32, 30, 51, 57letrd 11370 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ≀ 𝐡)
5929, 30, 35, 49, 58eliccd 44207 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ (𝐴[,]𝐡))
6028, 59ffvelcdmd 7087 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
6126, 60ifcld 4574 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) ∈ β„‚)
6222, 61ifcld 4574 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) ∈ β„‚)
63 fourierdlem73.d . . . . . . . . . . . . . . . . 17 𝐷 = (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))))
6462, 63fmptd 7113 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐷:((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
65 eqid 2732 . . . . . . . . . . . . . . . . 17 (TopOpenβ€˜β„‚fld) = (TopOpenβ€˜β„‚fld)
6665tgioo2 24318 . . . . . . . . . . . . . . . 16 (topGenβ€˜ran (,)) = ((TopOpenβ€˜β„‚fld) β†Ύt ℝ)
67 iccntr 24336 . . . . . . . . . . . . . . . . 17 (((π‘„β€˜π‘–) ∈ ℝ ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ) β†’ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
6814, 17, 67syl2anc 584 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
695, 18, 64, 66, 65, 68dvresntr 44624 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐷) = (ℝ D (𝐷 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))))
70 ioossicc 13409 . . . . . . . . . . . . . . . . . . . . . . 23 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))
7170sseli 3978 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
7271adantl 482 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
73 fvres 6910 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΉβ€˜π‘₯))
7472, 73syl 17 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΉβ€˜π‘₯))
7572, 62syldan 591 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) ∈ β„‚)
7663fvmpt2 7009 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ∧ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) ∈ β„‚) β†’ (π·β€˜π‘₯) = if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))))
7772, 75, 76syl2anc 584 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘₯) = if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))))
7814adantr 481 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ∈ ℝ)
7972, 45syldan 591 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) ∈ ℝ*)
8072, 46syldan 591 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ*)
81 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
82 ioogtlb 44198 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) < π‘₯)
8379, 80, 81, 82syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘„β€˜π‘–) < π‘₯)
8478, 83gtned 11348 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ β‰  (π‘„β€˜π‘–))
8584neneqd 2945 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ Β¬ π‘₯ = (π‘„β€˜π‘–))
8685iffalsed 4539 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)))
87 elioore 13353 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ∈ ℝ)
8887adantl 482 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ℝ)
89 iooltub 44213 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ < (π‘„β€˜(𝑖 + 1)))
9079, 80, 81, 89syl3anc 1371 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ < (π‘„β€˜(𝑖 + 1)))
9188, 90ltned 11349 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ β‰  (π‘„β€˜(𝑖 + 1)))
9291neneqd 2945 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1)))
9392iffalsed 4539 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯))
9477, 86, 933eqtrrd 2777 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) = (π·β€˜π‘₯))
9574, 94eqtr2d 2773 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘₯) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))β€˜π‘₯))
9695ralrimiva 3146 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(π·β€˜π‘₯) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))β€˜π‘₯))
97 ffn 6717 . . . . . . . . . . . . . . . . . . . 20 (𝐷:((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))βŸΆβ„‚ β†’ 𝐷 Fn ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
9864, 97syl 17 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐷 Fn ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
99 ffn 6717 . . . . . . . . . . . . . . . . . . . . . 22 (𝐹:(𝐴[,]𝐡)βŸΆβ„‚ β†’ 𝐹 Fn (𝐴[,]𝐡))
10027, 99syl 17 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐹 Fn (𝐴[,]𝐡))
101100adantr 481 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐹 Fn (𝐴[,]𝐡))
102 simpr 485 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0..^𝑀))
10337, 39, 40, 102fourierdlem8 44821 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) βŠ† (𝐴[,]𝐡))
104 fnssres 6673 . . . . . . . . . . . . . . . . . . . 20 ((𝐹 Fn (𝐴[,]𝐡) ∧ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) βŠ† (𝐴[,]𝐡)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) Fn ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
105101, 103, 104syl2anc 584 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) Fn ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
10670a1i 11 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
107 fvreseq 7041 . . . . . . . . . . . . . . . . . . 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 2772 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐷 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
112111oveq2d 7424 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D (𝐷 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) = (ℝ D (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))))
11327adantr 481 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐹:(𝐴[,]𝐡)βŸΆβ„‚)
1149adantr 481 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐴[,]𝐡) βŠ† ℝ)
115106, 18sstrd 3992 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ℝ)
11665, 66dvres 25427 . . . . . . . . . . . . . . . . 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 2741 . . . . . . . . . . . . . . . . . 18 (ℝ D 𝐹) = 𝐺
120119a1i 11 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐹) = 𝐺)
121 iooretop 24281 . . . . . . . . . . . . . . . . . 18 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ (topGenβ€˜ran (,))
122 retop 24277 . . . . . . . . . . . . . . . . . . 19 (topGenβ€˜ran (,)) ∈ Top
123 uniretop 24278 . . . . . . . . . . . . . . . . . . . 20 ℝ = βˆͺ (topGenβ€˜ran (,))
124123isopn3 22569 . . . . . . . . . . . . . . . . . . 19 (((topGenβ€˜ran (,)) ∈ Top ∧ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ℝ) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ (topGenβ€˜ran (,)) ↔ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
125122, 115, 124sylancr 587 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ (topGenβ€˜ran (,)) ↔ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
126121, 125mpbii 232 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
127120, 126reseq12d 5982 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
128117, 127eqtrd 2772 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
12969, 112, 1283eqtrd 2776 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐷) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
130129feq1d 6702 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐷):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚ ↔ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚))
1313, 130mpbird 256 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐷):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
132131feqmptd 6960 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐷) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)))
133132, 129eqtr3d 2774 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
134 ioombl 25081 . . . . . . . . . . . 12 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ dom vol
135134a1i 11 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ dom vol)
136 fourierdlem73.qilt . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))
13714, 17, 136ltled 11361 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ≀ (π‘„β€˜(𝑖 + 1)))
138 volioo 25085 . . . . . . . . . . . . 13 (((π‘„β€˜π‘–) ∈ ℝ ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ ∧ (π‘„β€˜π‘–) ≀ (π‘„β€˜(𝑖 + 1))) β†’ (volβ€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜(𝑖 + 1)) βˆ’ (π‘„β€˜π‘–)))
13914, 17, 137, 138syl3anc 1371 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (volβ€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜(𝑖 + 1)) βˆ’ (π‘„β€˜π‘–)))
14017, 14resubcld 11641 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜(𝑖 + 1)) βˆ’ (π‘„β€˜π‘–)) ∈ ℝ)
141139, 140eqeltrd 2833 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (volβ€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ ℝ)
142 fourierdlem73.gbd . . . . . . . . . . . . 13 (πœ‘ β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
143142adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
144 nfv 1917 . . . . . . . . . . . . . . . 16 β„²π‘₯((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ)
145 nfra1 3281 . . . . . . . . . . . . . . . 16 β„²π‘₯βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦
146144, 145nfan 1902 . . . . . . . . . . . . . . 15 β„²π‘₯(((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
147 simpr 485 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
148 fdm 6726 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚ β†’ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
1493, 148syl 17 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
150149adantr 481 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
151147, 150eleqtrd 2835 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
152 fvres 6910 . . . . . . . . . . . . . . . . . . . 20 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΊβ€˜π‘₯))
153151, 152syl 17 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΊβ€˜π‘₯))
154153fveq2d 6895 . . . . . . . . . . . . . . . . . 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 6004 . . . . . . . . . . . . . . . . . . . . . . 23 (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† dom 𝐺 ↔ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
158149, 157sylibr 233 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† dom 𝐺)
159158sselda 3982 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ dom 𝐺)
160151, 159syldan 591 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ π‘₯ ∈ dom 𝐺)
161160adantlr 713 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))) β†’ π‘₯ ∈ dom 𝐺)
162 rsp 3244 . . . . . . . . . . . . . . . . . . 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 413 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) β†’ (π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) ≀ 𝑦))
167146, 166ralrimi 3254 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))(absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) ≀ 𝑦)
168167ex 413 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) β†’ (βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 β†’ βˆ€π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))(absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) ≀ 𝑦))
169168reximdva 3168 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))(absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) ≀ 𝑦))
170143, 169mpd 15 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))(absβ€˜((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) ≀ 𝑦)
171135, 141, 1, 170cnbdibl 44668 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ 𝐿1)
172133, 171eqeltrd 2833 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)) ∈ 𝐿1)
173172adantr 481 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)) ∈ 𝐿1)
174134a1i 11 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∈ dom vol)
175141adantr 481 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (volβ€˜((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ ℝ)
176133, 1eqeltrd 2833 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
177176adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((ℝ D 𝐷)β€˜π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
178 coscn 25956 . . . . . . . . . . . . . 14 cos ∈ (ℂ–cnβ†’β„‚)
179178a1i 11 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ cos ∈ (ℂ–cnβ†’β„‚))
180 ioosscn 13385 . . . . . . . . . . . . . . . 16 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚
181180a1i 11 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚)
182 simpr 485 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ π‘Ÿ ∈ ℝ)
183182recnd 11241 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ π‘Ÿ ∈ β„‚)
184 ssid 4004 . . . . . . . . . . . . . . . 16 β„‚ βŠ† β„‚
185184a1i 11 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ β„‚ βŠ† β„‚)
186181, 183, 185constcncfg 44578 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
187180a1i 11 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚)
188184a1i 11 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ β„‚ βŠ† β„‚)
189187, 188idcncfg 44579 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
190189ad2antrr 724 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
191186, 190mulcncf 24962 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
192179, 191cncfmpt1f 24429 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (cosβ€˜(π‘Ÿ Β· π‘₯))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
193192negcncfg 44587 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ -(cosβ€˜(π‘Ÿ Β· π‘₯))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
194177, 193mulcncf 24962 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
195 nfv 1917 . . . . . . . . . . . . . . . . 17 β„²π‘₯(πœ‘ ∧ 𝑖 ∈ (0..^𝑀))
196195, 145nfan 1902 . . . . . . . . . . . . . . . 16 β„²π‘₯((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
197129fveq1d 6893 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐷)β€˜π‘₯) = ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯))
198197, 152sylan9eq 2792 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘₯) = (πΊβ€˜π‘₯))
199198fveq2d 6895 . . . . . . . . . . . . . . . . . . 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 413 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦))
206196, 205ralrimi 3254 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
207206ex 413 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦))
208207reximdv 3170 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ dom 𝐺(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦))
209143, 208mpd 15 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
210209adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
211 eqidd 2733 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))))
212 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ = 𝑧 β†’ ((ℝ D 𝐷)β€˜π‘₯) = ((ℝ D 𝐷)β€˜π‘§))
213 eleq1w 2816 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘₯ = 𝑧 β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↔ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
214213anbi2d 629 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ = 𝑧 β†’ (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ↔ ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))))
215 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘₯ = 𝑧 β†’ (πΊβ€˜π‘₯) = (πΊβ€˜π‘§))
216212, 215eqeq12d 2748 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ = 𝑧 β†’ (((ℝ D 𝐷)β€˜π‘₯) = (πΊβ€˜π‘₯) ↔ ((ℝ D 𝐷)β€˜π‘§) = (πΊβ€˜π‘§)))
217214, 216imbi12d 344 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ = 𝑧 β†’ ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘₯) = (πΊβ€˜π‘₯)) ↔ (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘§) = (πΊβ€˜π‘§))))
218217, 198chvarvv 2002 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘§) = (πΊβ€˜π‘§))
219212, 218sylan9eqr 2794 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘₯ = 𝑧) β†’ ((ℝ D 𝐷)β€˜π‘₯) = (πΊβ€˜π‘§))
220 oveq2 7416 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ = 𝑧 β†’ (π‘Ÿ Β· π‘₯) = (π‘Ÿ Β· 𝑧))
221220fveq2d 6895 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ = 𝑧 β†’ (cosβ€˜(π‘Ÿ Β· π‘₯)) = (cosβ€˜(π‘Ÿ Β· 𝑧)))
222221negeqd 11453 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ = 𝑧 β†’ -(cosβ€˜(π‘Ÿ Β· π‘₯)) = -(cosβ€˜(π‘Ÿ Β· 𝑧)))
223222adantl 482 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘₯ = 𝑧) β†’ -(cosβ€˜(π‘Ÿ Β· π‘₯)) = -(cosβ€˜(π‘Ÿ Β· 𝑧)))
224219, 223oveq12d 7426 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘₯ = 𝑧) β†’ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))) = ((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧))))
225224adantllr 717 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘₯ = 𝑧) β†’ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))) = ((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧))))
226 simpr 485 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
227 fvres 6910 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘§) = (πΊβ€˜π‘§))
228227adantl 482 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘§) = (πΊβ€˜π‘§))
2293ffvelcdmda 7086 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘§) ∈ β„‚)
230228, 229eqeltrrd 2834 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΊβ€˜π‘§) ∈ β„‚)
231230adantlr 713 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΊβ€˜π‘§) ∈ β„‚)
232 simpl 483 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ ℝ)
233 elioore 13353 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ 𝑧 ∈ ℝ)
234233adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑧 ∈ ℝ)
235232, 234remulcld 11243 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· 𝑧) ∈ ℝ)
236235recnd 11241 . . . . . . . . . . . . . . . . . . . . . . 23 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· 𝑧) ∈ β„‚)
237236coscld 16073 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (cosβ€˜(π‘Ÿ Β· 𝑧)) ∈ β„‚)
238237negcld 11557 . . . . . . . . . . . . . . . . . . . . 21 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ -(cosβ€˜(π‘Ÿ Β· 𝑧)) ∈ β„‚)
239238adantll 712 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ -(cosβ€˜(π‘Ÿ Β· 𝑧)) ∈ β„‚)
240231, 239mulcld 11233 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧))) ∈ β„‚)
241211, 225, 226, 240fvmptd 7005 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§) = ((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧))))
242241fveq2d 6895 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) = (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))))
243242ad4ant14 750 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) = (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))))
244240abscld 15382 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))) ∈ ℝ)
245244ad4ant14 750 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))) ∈ ℝ)
246231abscld 15382 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘§)) ∈ ℝ)
247246ad4ant14 750 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘§)) ∈ ℝ)
248 simpllr 774 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑦 ∈ ℝ)
249239abscld 15382 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜-(cosβ€˜(π‘Ÿ Β· 𝑧))) ∈ ℝ)
250 1red 11214 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 1 ∈ ℝ)
251231absge0d 15390 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 0 ≀ (absβ€˜(πΊβ€˜π‘§)))
252237absnegd 15395 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘Ÿ ∈ ℝ ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜-(cosβ€˜(π‘Ÿ Β· 𝑧))) = (absβ€˜(cosβ€˜(π‘Ÿ Β· 𝑧))))
253 abscosbd 43978 . . . . . . . . . . . . . . . . . . . . . . 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 12153 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((absβ€˜(πΊβ€˜π‘§)) Β· (absβ€˜-(cosβ€˜(π‘Ÿ Β· 𝑧)))) ≀ ((absβ€˜(πΊβ€˜π‘§)) Β· 1))
258231, 239absmuld 15400 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))) = ((absβ€˜(πΊβ€˜π‘§)) Β· (absβ€˜-(cosβ€˜(π‘Ÿ Β· 𝑧)))))
259246recnd 11241 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘§)) ∈ β„‚)
260259mulridd 11230 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((absβ€˜(πΊβ€˜π‘§)) Β· 1) = (absβ€˜(πΊβ€˜π‘§)))
261260eqcomd 2738 . . . . . . . . . . . . . . . . . . 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 485 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
265 nfra1 3281 . . . . . . . . . . . . . . . . . . . . . . 23 β„²π‘₯βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦
266195, 265nfan 1902 . . . . . . . . . . . . . . . . . . . . . 22 β„²π‘₯((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
267199eqcomd 2738 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘₯)) = (absβ€˜((ℝ D 𝐷)β€˜π‘₯)))
268267adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ (absβ€˜(πΊβ€˜π‘₯)) = (absβ€˜((ℝ D 𝐷)β€˜π‘₯)))
269 simpr 485 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
270268, 269eqbrtrd 5170 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ (absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ (absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
271270ex 413 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦 β†’ (absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦))
272271adantlr 713 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦 β†’ (absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦))
273266, 272ralimdaa 3257 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ (βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦 β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦))
274264, 273mpd 15 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦)
275215fveq2d 6895 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ = 𝑧 β†’ (absβ€˜(πΊβ€˜π‘₯)) = (absβ€˜(πΊβ€˜π‘§)))
276275breq1d 5158 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ = 𝑧 β†’ ((absβ€˜(πΊβ€˜π‘₯)) ≀ 𝑦 ↔ (absβ€˜(πΊβ€˜π‘§)) ≀ 𝑦))
277276cbvralvw 3234 . . . . . . . . . . . . . . . . . . . 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 3248 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜(πΊβ€˜π‘§)) ≀ 𝑦)
281245, 247, 248, 263, 280letrd 11370 . . . . . . . . . . . . . . . 16 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((πΊβ€˜π‘§) Β· -(cosβ€˜(π‘Ÿ Β· 𝑧)))) ≀ 𝑦)
282243, 281eqbrtrd 5170 . . . . . . . . . . . . . . 15 ((((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) ∧ 𝑧 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) ≀ 𝑦)
283282ralrimiva 3146 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) ∧ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦) β†’ βˆ€π‘§ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) ≀ 𝑦)
284131ffvelcdmda 7086 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘₯) ∈ β„‚)
285284adantlr 713 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘₯) ∈ β„‚)
286 simpl 483 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ ℝ)
28787adantl 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ℝ)
288286, 287remulcld 11243 . . . . . . . . . . . . . . . . . . . . . . 23 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
289288recnd 11241 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
290289coscld 16073 . . . . . . . . . . . . . . . . . . . . 21 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (cosβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
291290negcld 11557 . . . . . . . . . . . . . . . . . . . 20 ((π‘Ÿ ∈ ℝ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ -(cosβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
292291adantll 712 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ -(cosβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
293285, 292mulcld 11233 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
294293ralrimiva 3146 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
295 dmmptg 6241 . . . . . . . . . . . . . . . . 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 3325 . . . . . . . . . . . . . 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 413 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) ∧ 𝑦 ∈ ℝ) β†’ (βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦 β†’ βˆ€π‘§ ∈ dom (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))(absβ€˜((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯))))β€˜π‘§)) ≀ 𝑦))
301300reximdva 3168 . . . . . . . . . . 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 44668 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))) ∈ 𝐿1)
304303adantlr 713 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((ℝ D 𝐷)β€˜π‘₯) Β· -(cosβ€˜(π‘Ÿ Β· π‘₯)))) ∈ 𝐿1)
305284adantlr 713 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((ℝ D 𝐷)β€˜π‘₯) ∈ β„‚)
306 simpr 485 . . . . . . . . . 10 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘Ÿ ∈ β„‚) β†’ π‘Ÿ ∈ β„‚)
307180sseli 3978 . . . . . . . . . . 11 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ∈ β„‚)
308307ad2antlr 725 . . . . . . . . . 10 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘Ÿ ∈ β„‚) β†’ π‘₯ ∈ β„‚)
309306, 308mulcld 11233 . . . . . . . . 9 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘Ÿ ∈ β„‚) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
310309coscld 16073 . . . . . . . 8 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ π‘Ÿ ∈ β„‚) β†’ (cosβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
311288ancoms 459 . . . . . . . . . 10 ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
312 abscosbd 43978 . . . . . . . . . 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 481 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) ∈ ℝ)
317136adantr 481 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))
318 eqcom 2739 . . . . . . . . . . . . . . . . . 18 ((π‘„β€˜(𝑖 + 1)) = π‘₯ ↔ π‘₯ = (π‘„β€˜(𝑖 + 1)))
319318biimpri 227 . . . . . . . . . . . . . . . . 17 (π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ (π‘„β€˜(𝑖 + 1)) = π‘₯)
320319adantl 482 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜(𝑖 + 1)) = π‘₯)
321317, 320breqtrd 5174 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) < π‘₯)
322316, 321gtned 11348 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ β‰  (π‘„β€˜π‘–))
323322neneqd 2945 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ Β¬ π‘₯ = (π‘„β€˜π‘–))
324323iffalsed 4539 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)))
325 iftrue 4534 . . . . . . . . . . . . 13 (π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = 𝐿)
326325adantl 482 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = 𝐿)
327324, 326eqtrd 2772 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) = 𝐿)
32817leidd 11779 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ≀ (π‘„β€˜(𝑖 + 1)))
32914, 17, 17, 137, 328eliccd 44207 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
330315, 327, 329, 24fvmptd 7005 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜(π‘„β€˜(𝑖 + 1))) = 𝐿)
331330, 25eqeltrd 2833 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜(π‘„β€˜(𝑖 + 1))) ∈ β„‚)
332331adantr 481 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ (π·β€˜(π‘„β€˜(𝑖 + 1))) ∈ β„‚)
333 eqid 2732 . . . . . . . 8 (absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) = (absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1))))
334 iftrue 4534 . . . . . . . . . . . 12 (π‘₯ = (π‘„β€˜π‘–) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) = 𝑅)
335334adantl 482 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ = (π‘„β€˜π‘–)) β†’ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯))) = 𝑅)
33614rexrd 11263 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ℝ*)
33717rexrd 11263 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ*)
338 lbicc2 13440 . . . . . . . . . . . 12 (((π‘„β€˜π‘–) ∈ ℝ* ∧ (π‘„β€˜(𝑖 + 1)) ∈ ℝ* ∧ (π‘„β€˜π‘–) ≀ (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
339336, 337, 137, 338syl3anc 1371 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
340315, 335, 339, 20fvmptd 7005 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜(π‘„β€˜π‘–)) = 𝑅)
341340, 21eqeltrd 2833 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜(π‘„β€˜π‘–)) ∈ β„‚)
342341adantr 481 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ (π·β€˜(π‘„β€˜π‘–)) ∈ β„‚)
343 eqid 2732 . . . . . . . 8 (absβ€˜(π·β€˜(π‘„β€˜π‘–))) = (absβ€˜(π·β€˜(π‘„β€˜π‘–)))
344 eqid 2732 . . . . . . . 8 ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯ = ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯
345 simpr 485 . . . . . . . . . 10 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ 𝑒 ∈ ℝ+)
346 fourierdlem73.m . . . . . . . . . . . 12 (πœ‘ β†’ 𝑀 ∈ β„•)
347346nnrpd 13013 . . . . . . . . . . 11 (πœ‘ β†’ 𝑀 ∈ ℝ+)
348347adantr 481 . . . . . . . . . 10 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ 𝑀 ∈ ℝ+)
349345, 348rpdivcld 13032 . . . . . . . . 9 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (𝑒 / 𝑀) ∈ ℝ+)
350349adantlr 713 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ (𝑒 / 𝑀) ∈ ℝ+)
351 simpr 485 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ π‘Ÿ ∈ β„‚)
35217recnd 11241 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ β„‚)
353352ad2antrr 724 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (π‘„β€˜(𝑖 + 1)) ∈ β„‚)
354351, 353mulcld 11233 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) ∈ β„‚)
355354coscld 16073 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) ∈ β„‚)
35617adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
357182, 356remulcld 11243 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) ∈ ℝ)
358 abscosbd 43978 . . . . . . . . . 10 ((π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) ∈ ℝ β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) ≀ 1)
359357, 358syl 17 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) ≀ 1)
360359adantlr 713 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ ℝ) β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) ≀ 1)
36114recnd 11241 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ β„‚)
362361ad2antrr 724 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (π‘„β€˜π‘–) ∈ β„‚)
363351, 362mulcld 11233 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (π‘Ÿ Β· (π‘„β€˜π‘–)) ∈ β„‚)
364363coscld 16073 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ β„‚) β†’ (cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) ∈ β„‚)
36514adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘„β€˜π‘–) ∈ ℝ)
366182, 365remulcld 11243 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (π‘Ÿ Β· (π‘„β€˜π‘–)) ∈ ℝ)
367 abscosbd 43978 . . . . . . . . . 10 ((π‘Ÿ Β· (π‘„β€˜π‘–)) ∈ ℝ β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–)))) ≀ 1)
368366, 367syl 17 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ) β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–)))) ≀ 1)
369368adantlr 713 . . . . . . . 8 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ ℝ) β†’ (absβ€˜(cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–)))) ≀ 1)
370 fveq2 6891 . . . . . . . . . . . . . . 15 (𝑧 = π‘₯ β†’ ((ℝ D 𝐷)β€˜π‘§) = ((ℝ D 𝐷)β€˜π‘₯))
371370fveq2d 6895 . . . . . . . . . . . . . 14 (𝑧 = π‘₯ β†’ (absβ€˜((ℝ D 𝐷)β€˜π‘§)) = (absβ€˜((ℝ D 𝐷)β€˜π‘₯)))
372371cbvitgv 25293 . . . . . . . . . . . . 13 ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘§)) d𝑧 = ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯
373372oveq2i 7419 . . . . . . . . . . . 12 (((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘§)) d𝑧) = (((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯)
374373oveq1i 7418 . . . . . . . . . . 11 ((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘§)) d𝑧) / (𝑒 / 𝑀)) = ((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯) / (𝑒 / 𝑀))
375374oveq1i 7418 . . . . . . . . . 10 (((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘§)) d𝑧) / (𝑒 / 𝑀)) + 1) = (((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯) / (𝑒 / 𝑀)) + 1)
376375fveq2i 6894 . . . . . . . . 9 (βŒŠβ€˜(((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘§)) d𝑧) / (𝑒 / 𝑀)) + 1)) = (βŒŠβ€˜(((((absβ€˜(π·β€˜(π‘„β€˜(𝑖 + 1)))) + (absβ€˜(π·β€˜(π‘„β€˜π‘–)))) + ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) dπ‘₯) / (𝑒 / 𝑀)) + 1))
377376oveq1i 7418 . . . . . . . 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 44859 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑒 ∈ ℝ+) β†’ βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯)) < (𝑒 / 𝑀))
379 simplll 773 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘š ∈ β„•) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ πœ‘)
380 simpllr 774 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘š ∈ β„•) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ 𝑖 ∈ (0..^𝑀))
381 elioore 13353 . . . . . . . . . . . . . . . 16 (π‘Ÿ ∈ (π‘š(,)+∞) β†’ π‘Ÿ ∈ ℝ)
382381adantl 482 . . . . . . . . . . . . . . 15 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘Ÿ ∈ ℝ)
383 0red 11216 . . . . . . . . . . . . . . . 16 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ 0 ∈ ℝ)
384 nnre 12218 . . . . . . . . . . . . . . . . 17 (π‘š ∈ β„• β†’ π‘š ∈ ℝ)
385384adantr 481 . . . . . . . . . . . . . . . 16 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘š ∈ ℝ)
386 nngt0 12242 . . . . . . . . . . . . . . . . 17 (π‘š ∈ β„• β†’ 0 < π‘š)
387386adantr 481 . . . . . . . . . . . . . . . 16 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ 0 < π‘š)
388385rexrd 11263 . . . . . . . . . . . . . . . . 17 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘š ∈ ℝ*)
389 pnfxr 11267 . . . . . . . . . . . . . . . . . 18 +∞ ∈ ℝ*
390389a1i 11 . . . . . . . . . . . . . . . . 17 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ +∞ ∈ ℝ*)
391 simpr 485 . . . . . . . . . . . . . . . . 17 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘Ÿ ∈ (π‘š(,)+∞))
392 ioogtlb 44198 . . . . . . . . . . . . . . . . 17 ((π‘š ∈ ℝ* ∧ +∞ ∈ ℝ* ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘š < π‘Ÿ)
393388, 390, 391, 392syl3anc 1371 . . . . . . . . . . . . . . . 16 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘š < π‘Ÿ)
394383, 385, 382, 387, 393lttrd 11374 . . . . . . . . . . . . . . 15 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ 0 < π‘Ÿ)
395382, 394elrpd 13012 . . . . . . . . . . . . . 14 ((π‘š ∈ β„• ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘Ÿ ∈ ℝ+)
396395adantll 712 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘š ∈ β„•) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ π‘Ÿ ∈ ℝ+)
39714adantr 481 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘„β€˜π‘–) ∈ ℝ)
39817adantr 481 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
39964ffvelcdmda 7086 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘₯) ∈ β„‚)
400399adantlr 713 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘₯) ∈ β„‚)
401 rpcn 12983 . . . . . . . . . . . . . . . . . . 19 (π‘Ÿ ∈ ℝ+ β†’ π‘Ÿ ∈ β„‚)
402401ad2antlr 725 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ β„‚)
40335recnd 11241 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ β„‚)
404403adantlr 713 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ β„‚)
405402, 404mulcld 11233 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
406405sincld 16072 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
407400, 406mulcld 11233 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
408397, 398, 407itgioo 25332 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
409137adantr 481 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘„β€˜π‘–) ≀ (π‘„β€˜(𝑖 + 1)))
41064feqmptd 6960 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐷 = (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ (π·β€˜π‘₯)))
411 iftrue 4534 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) = 𝐿)
412325, 411eqtr4d 2775 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))
413412adantl 482 . . . . . . . . . . . . . . . . . . . . . 22 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))
414 iffalse 4537 . . . . . . . . . . . . . . . . . . . . . . . 24 (Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)) = ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯))
415414adantl 482 . . . . . . . . . . . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) β†’ π‘₯ ∈ ℝ)
42148adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) β†’ (π‘„β€˜π‘–) ≀ π‘₯)
422 neqne 2948 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (Β¬ π‘₯ = (π‘„β€˜π‘–) β†’ π‘₯ β‰  (π‘„β€˜π‘–))
423422adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) β†’ π‘₯ β‰  (π‘„β€˜π‘–))
424419, 420, 421, 423leneltd 11367 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) β†’ (π‘„β€˜π‘–) < π‘₯)
425424adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜π‘–) < π‘₯)
42635adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ∈ ℝ)
42717ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
42851adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ≀ (π‘„β€˜(𝑖 + 1)))
429318biimpi 215 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((π‘„β€˜(𝑖 + 1)) = π‘₯ β†’ π‘₯ = (π‘„β€˜(𝑖 + 1)))
430429necon3bi 2967 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ (π‘„β€˜(𝑖 + 1)) β‰  π‘₯)
431430adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (π‘„β€˜(𝑖 + 1)) β‰  π‘₯)
432426, 427, 428, 431leneltd 11367 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ < (π‘„β€˜(𝑖 + 1)))
433432adantlr 713 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ < (π‘„β€˜(𝑖 + 1)))
434416, 417, 418, 425, 433eliood 44201 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
435 fvres 6910 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΉβ€˜π‘₯))
436434, 435syl 17 . . . . . . . . . . . . . . . . . . . . . . 23 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯) = (πΉβ€˜π‘₯))
437 iffalse 4537 . . . . . . . . . . . . . . . . . . . . . . . . 25 (Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = (πΉβ€˜π‘₯))
438437eqcomd 2738 . . . . . . . . . . . . . . . . . . . . . . . 24 (Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1)) β†’ (πΉβ€˜π‘₯) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)))
439438adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ (πΉβ€˜π‘₯) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)))
440415, 436, 4393eqtrrd 2777 . . . . . . . . . . . . . . . . . . . . . 22 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) ∧ Β¬ π‘₯ = (π‘„β€˜(𝑖 + 1))) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))
441413, 440pm2.61dan 811 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) ∧ Β¬ π‘₯ = (π‘„β€˜π‘–)) β†’ if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, (πΉβ€˜π‘₯)) = if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))
442441ifeq2da 4560 . . . . . . . . . . . . . . . . . . . 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 2780 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ (π·β€˜π‘₯)) = (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))))
445 eqid 2732 . . . . . . . . . . . . . . . . . . 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 44600 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ if(π‘₯ = (π‘„β€˜π‘–), 𝑅, if(π‘₯ = (π‘„β€˜(𝑖 + 1)), 𝐿, ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘₯)))) ∈ (((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
448444, 447eqeltrd 2833 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ (π·β€˜π‘₯)) ∈ (((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
449410, 448eqeltrd 2833 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐷 ∈ (((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
450449adantr 481 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ 𝐷 ∈ (((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
451 eqid 2732 . . . . . . . . . . . . . . 15 (ℝ D 𝐷) = (ℝ D 𝐷)
452129, 1eqeltrd 2833 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (ℝ D 𝐷) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
453452adantr 481 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ (ℝ D 𝐷) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
454209adantr 481 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ βˆƒπ‘¦ ∈ ℝ βˆ€π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐷)β€˜π‘₯)) ≀ 𝑦)
455 simpr 485 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ π‘Ÿ ∈ ℝ+)
456397, 398, 409, 450, 451, 453, 454, 455fourierdlem39 44852 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ℝ+) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯))
457408, 456eqtr3d 2774 . . . . . . . . . . . . 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 6895 . . . . . . . . . . 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 3175 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘š ∈ β„•) β†’ (βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯)) < (𝑒 / 𝑀)))
462461rexbidva 3176 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜((((π·β€˜(π‘„β€˜(𝑖 + 1))) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) / π‘Ÿ)) βˆ’ ((π·β€˜(π‘„β€˜π‘–)) Β· -((cosβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) / π‘Ÿ))) βˆ’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))(((ℝ D 𝐷)β€˜π‘₯) Β· -((cosβ€˜(π‘Ÿ Β· π‘₯)) / π‘Ÿ)) dπ‘₯)) < (𝑒 / 𝑀)))
463462adantr 481 . . . . . . 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 7423 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) = ((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))))
467466itgeq2dv 25298 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
468467eqcomd 2738 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
469468adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
47014adantr 481 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
47117adantr 481 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
472399adantlr 713 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘₯) ∈ β„‚)
473381recnd 11241 . . . . . . . . . . . . . . . 16 (π‘Ÿ ∈ (π‘š(,)+∞) β†’ π‘Ÿ ∈ β„‚)
474473ad2antlr 725 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ β„‚)
475403adantlr 713 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ β„‚)
476474, 475mulcld 11233 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
477476sincld 16072 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
478472, 477mulcld 11233 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
479470, 471, 478itgioo 25332 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
48060adantlr 713 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
481480, 477mulcld 11233 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
482470, 471, 481itgioo 25332 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ∫((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
483469, 479, 4823eqtr3d 2780 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
484483fveq2d 6895 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) = (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
485484breq1d 5158 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ (π‘š(,)+∞)) β†’ ((absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)))
486485ralbidva 3175 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)))
487486adantlr 713 . . . . . 6 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)))
488487rexbidv 3178 . . . . 5 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((π·β€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)))
489465, 488mpbid 231 . . . 4 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
490489ralrimiva 3146 . . 3 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
491490ralrimiva 3146 . 2 (πœ‘ β†’ βˆ€π‘’ ∈ ℝ+ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
492 nfv 1917 . . . . . . 7 Ⅎ𝑖(πœ‘ ∧ 𝑒 ∈ ℝ+)
493 nfra1 3281 . . . . . . 7 β„²π‘–βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
494492, 493nfan 1902 . . . . . 6 Ⅎ𝑖((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
495 nfv 1917 . . . . . . 7 β„²π‘Ÿ(πœ‘ ∧ 𝑒 ∈ ℝ+)
496 nfcv 2903 . . . . . . . 8 β„²π‘Ÿ(0..^𝑀)
497 nfcv 2903 . . . . . . . . 9 β„²π‘Ÿβ„•
498 nfra1 3281 . . . . . . . . 9 β„²π‘Ÿβˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
499497, 498nfrexw 3310 . . . . . . . 8 β„²π‘Ÿβˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
500496, 499nfralw 3308 . . . . . . 7 β„²π‘Ÿβˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
501495, 500nfan 1902 . . . . . 6 β„²π‘Ÿ((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
502 nfmpt1 5256 . . . . . 6 Ⅎ𝑖(𝑖 ∈ (0..^𝑀) ↦ inf({π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)}, ℝ, < ))
503 fzofi 13938 . . . . . . 7 (0..^𝑀) ∈ Fin
504503a1i 11 . . . . . 6 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ (0..^𝑀) ∈ Fin)
505 simpr 485 . . . . . 6 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
506 eqid 2732 . . . . . 6 {π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)} = {π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)}
507 eqid 2732 . . . . . 6 (𝑖 ∈ (0..^𝑀) ↦ inf({π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)}, ℝ, < )) = (𝑖 ∈ (0..^𝑀) ↦ inf({π‘š ∈ β„• ∣ βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)}, ℝ, < ))
508 eqid 2732 . . . . . 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 44844 . . . . 5 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
510 simpr 485 . . . . . 6 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
511 nfv 1917 . . . . . . . 8 Ⅎ𝑛(πœ‘ ∧ 𝑒 ∈ ℝ+)
512 nfre1 3282 . . . . . . . 8 β„²π‘›βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
513511, 512nfan 1902 . . . . . . 7 Ⅎ𝑛((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
514 nfv 1917 . . . . . . . . . . 11 β„²π‘Ÿ 𝑛 ∈ β„•
515 nfra1 3281 . . . . . . . . . . 11 β„²π‘Ÿβˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)
516495, 514, 515nf3an 1904 . . . . . . . . . 10 β„²π‘Ÿ((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
517 simpll 765 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ πœ‘)
518 elioore 13353 . . . . . . . . . . . . . . . . . . . 20 (π‘Ÿ ∈ (𝑛(,)+∞) β†’ π‘Ÿ ∈ ℝ)
519518adantl 482 . . . . . . . . . . . . . . . . . . 19 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ π‘Ÿ ∈ ℝ)
520 0red 11216 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 0 ∈ ℝ)
521 nnre 12218 . . . . . . . . . . . . . . . . . . . . 21 (𝑛 ∈ β„• β†’ 𝑛 ∈ ℝ)
522521adantr 481 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑛 ∈ ℝ)
523 nngt0 12242 . . . . . . . . . . . . . . . . . . . . 21 (𝑛 ∈ β„• β†’ 0 < 𝑛)
524523adantr 481 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 0 < 𝑛)
525522rexrd 11263 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑛 ∈ ℝ*)
526389a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ +∞ ∈ ℝ*)
527 simpr 485 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ π‘Ÿ ∈ (𝑛(,)+∞))
528 ioogtlb 44198 . . . . . . . . . . . . . . . . . . . . 21 ((𝑛 ∈ ℝ* ∧ +∞ ∈ ℝ* ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑛 < π‘Ÿ)
529525, 526, 527, 528syl3anc 1371 . . . . . . . . . . . . . . . . . . . 20 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑛 < π‘Ÿ)
530520, 522, 519, 524, 529lttrd 11374 . . . . . . . . . . . . . . . . . . 19 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 0 < π‘Ÿ)
531519, 530elrpd 13012 . . . . . . . . . . . . . . . . . 18 ((𝑛 ∈ β„• ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ π‘Ÿ ∈ ℝ+)
532531adantll 712 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ π‘Ÿ ∈ ℝ+)
5337adantr 481 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ 𝐴 ∈ ℝ)
5348adantr 481 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ 𝐡 ∈ ℝ)
53527ffvelcdmda 7086 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
536535adantlr 713 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
537401ad2antlr 725 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ π‘Ÿ ∈ β„‚)
5389sselda 3982 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ π‘₯ ∈ ℝ)
539538recnd 11241 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ π‘₯ ∈ β„‚)
540539adantlr 713 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ π‘₯ ∈ β„‚)
541537, 540mulcld 11233 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
542541sincld 16072 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
543536, 542mulcld 11233 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ (𝐴[,]𝐡)) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
544533, 534, 543itgioo 25332 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫(𝐴[,]𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
545 fourierdlem73.q0 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (π‘„β€˜0) = 𝐴)
546545eqcomd 2738 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐴 = (π‘„β€˜0))
547 fourierdlem73.qm . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (π‘„β€˜π‘€) = 𝐡)
548547eqcomd 2738 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝐡 = (π‘„β€˜π‘€))
549546, 548oveq12d 7426 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (𝐴[,]𝐡) = ((π‘„β€˜0)[,](π‘„β€˜π‘€)))
550549adantr 481 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (𝐴[,]𝐡) = ((π‘„β€˜0)[,](π‘„β€˜π‘€)))
551550itgeq1d 44663 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ ∫(𝐴[,]𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜0)[,](π‘„β€˜π‘€))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
552 0zd 12569 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ 0 ∈ β„€)
553 nnuz 12864 . . . . . . . . . . . . . . . . . . . . . 22 β„• = (β„€β‰₯β€˜1)
554 0p1e1 12333 . . . . . . . . . . . . . . . . . . . . . . 23 (0 + 1) = 1
555554fveq2i 6894 . . . . . . . . . . . . . . . . . . . . . 22 (β„€β‰₯β€˜(0 + 1)) = (β„€β‰₯β€˜1)
556553, 555eqtr4i 2763 . . . . . . . . . . . . . . . . . . . . 21 β„• = (β„€β‰₯β€˜(0 + 1))
557346, 556eleqtrdi 2843 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝑀 ∈ (β„€β‰₯β€˜(0 + 1)))
558557adantr 481 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ 𝑀 ∈ (β„€β‰₯β€˜(0 + 1)))
55910adantr 481 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ 𝑄:(0...𝑀)βŸΆβ„)
560136adantlr 713 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))
561 simpr 485 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€))) β†’ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€)))
562549eqcomd 2738 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ ((π‘„β€˜0)[,](π‘„β€˜π‘€)) = (𝐴[,]𝐡))
563562adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€))) β†’ ((π‘„β€˜0)[,](π‘„β€˜π‘€)) = (𝐴[,]𝐡))
564561, 563eleqtrd 2835 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€))) β†’ π‘₯ ∈ (𝐴[,]𝐡))
565564adantlr 713 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€))) β†’ π‘₯ ∈ (𝐴[,]𝐡))
566565, 543syldan 591 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜0)[,](π‘„β€˜π‘€))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
56714adantlr 713 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
56817adantlr 713 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
569106, 103sstrd 3992 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† (𝐴[,]𝐡))
570113, 569feqresmpt 6961 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)))
571570, 446eqeltrrd 2834 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
572571adantlr 713 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
573 sincn 25955 . . . . . . . . . . . . . . . . . . . . . . . 24 sin ∈ (ℂ–cnβ†’β„‚)
574573a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ sin ∈ (ℂ–cnβ†’β„‚))
575180a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚)
576401adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ π‘Ÿ ∈ β„‚)
577184a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ β„‚ βŠ† β„‚)
578575, 576, 577constcncfg 44578 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
579189adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
580578, 579mulcncf 24962 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
581580adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
582574, 581cncfmpt1f 24429 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
583572, 582mulcncf 24962 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
584 eqid 2732 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯))
585 eqid 2732 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (sinβ€˜(π‘Ÿ Β· π‘₯))) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (sinβ€˜(π‘Ÿ Β· π‘₯)))
586 eqid 2732 . . . . . . . . . . . . . . . . . . . . . 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 44814 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ (𝐴[,]𝐡))
593587, 592ffvelcdmd 7087 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
594593adantllr 717 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
595576ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ β„‚)
596307adantl 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ β„‚)
597595, 596mulcld 11233 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
598597sincld 16072 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
599570oveq1d 7423 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))) = ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
60024, 599eleqtrd 2835 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
601600adantlr 713 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
602 rpre 12981 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (π‘Ÿ ∈ ℝ+ β†’ π‘Ÿ ∈ ℝ)
603602adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((π‘Ÿ ∈ ℝ+ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ ℝ)
60487adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((π‘Ÿ ∈ ℝ+ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ ℝ)
605603, 604remulcld 11243 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((π‘Ÿ ∈ ℝ+ ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
606605adantll 712 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
607606ad2ant2r 745 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∧ (π‘Ÿ Β· π‘₯) β‰  (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
608 recn 11199 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ℝ β†’ 𝑦 ∈ β„‚)
609608sincld 16072 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ ℝ β†’ (sinβ€˜π‘¦) ∈ β„‚)
610609adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ℝ) β†’ (sinβ€˜π‘¦) ∈ β„‚)
611 eqid 2732 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ)
612 eqid 2732 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯)
613 eqid 2732 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) = (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯))
614180a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚)
615576adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ β„‚)
616568recnd 11241 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ β„‚)
617611, 614, 615, 616constlimc 44330 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ) limβ„‚ (π‘„β€˜(𝑖 + 1))))
618614, 612, 616idlimc 44332 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) limβ„‚ (π‘„β€˜(𝑖 + 1))))
619611, 612, 613, 595, 596, 617, 618mullimc 44322 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) limβ„‚ (π‘„β€˜(𝑖 + 1))))
620 eqid 2732 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑦 ∈ β„‚ ↦ (sinβ€˜π‘¦)) = (𝑦 ∈ β„‚ ↦ (sinβ€˜π‘¦))
621 sinf 16066 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 sin:β„‚βŸΆβ„‚
622621a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⊀ β†’ sin:β„‚βŸΆβ„‚)
623622feqmptd 6960 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (⊀ β†’ sin = (𝑦 ∈ β„‚ ↦ (sinβ€˜π‘¦)))
624623, 573eqeltrrdi 2842 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (⊀ β†’ (𝑦 ∈ β„‚ ↦ (sinβ€˜π‘¦)) ∈ (ℂ–cnβ†’β„‚))
6254a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (⊀ β†’ ℝ βŠ† β„‚)
626 resincl 16082 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑦 ∈ ℝ β†’ (sinβ€˜π‘¦) ∈ ℝ)
627626adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((⊀ ∧ 𝑦 ∈ ℝ) β†’ (sinβ€˜π‘¦) ∈ ℝ)
628620, 624, 625, 625, 627cncfmptssg 44577 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (⊀ β†’ (𝑦 ∈ ℝ ↦ (sinβ€˜π‘¦)) ∈ (ℝ–cn→ℝ))
629628mptru 1548 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ℝ ↦ (sinβ€˜π‘¦)) ∈ (ℝ–cn→ℝ)
630629a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑦 ∈ ℝ ↦ (sinβ€˜π‘¦)) ∈ (ℝ–cn→ℝ))
631602ad2antlr 725 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ ℝ)
632631, 568remulcld 11243 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) ∈ ℝ)
633 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 = (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) β†’ (sinβ€˜π‘¦) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))))
634630, 632, 633cnmptlimc 25406 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) ∈ ((𝑦 ∈ ℝ ↦ (sinβ€˜π‘¦)) limβ„‚ (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))))
635 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 = (π‘Ÿ Β· π‘₯) β†’ (sinβ€˜π‘¦) = (sinβ€˜(π‘Ÿ Β· π‘₯)))
636 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘Ÿ Β· π‘₯) = (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))))
637636ad2antll 727 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∧ (π‘Ÿ Β· π‘₯) = (π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))))
638607, 610, 619, 634, 635, 637limcco 25409 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1)))) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (sinβ€˜(π‘Ÿ Β· π‘₯))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
639584, 585, 586, 594, 598, 601, 638mullimc 44322 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐿 Β· (sinβ€˜(π‘Ÿ Β· (π‘„β€˜(𝑖 + 1))))) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
640570oveq1d 7423 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)) = ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜π‘–)))
64120, 640eleqtrd 2835 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜π‘–)))
642641adantlr 713 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘₯)) limβ„‚ (π‘„β€˜π‘–)))
643606ad2ant2r 745 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∧ (π‘Ÿ Β· π‘₯) β‰  (π‘Ÿ Β· (π‘„β€˜π‘–)))) β†’ (π‘Ÿ Β· π‘₯) ∈ ℝ)
644567recnd 11241 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ β„‚)
645611, 614, 615, 644constlimc 44330 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘Ÿ) limβ„‚ (π‘„β€˜π‘–)))
646614, 612, 644idlimc 44332 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ π‘₯) limβ„‚ (π‘„β€˜π‘–)))
647611, 612, 613, 595, 596, 645, 646mullimc 44322 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘Ÿ Β· (π‘„β€˜π‘–)) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (π‘Ÿ Β· π‘₯)) limβ„‚ (π‘„β€˜π‘–)))
648631, 567remulcld 11243 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘Ÿ Β· (π‘„β€˜π‘–)) ∈ ℝ)
649 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 = (π‘Ÿ Β· (π‘„β€˜π‘–)) β†’ (sinβ€˜π‘¦) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))))
650630, 648, 649cnmptlimc 25406 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) ∈ ((𝑦 ∈ ℝ ↦ (sinβ€˜π‘¦)) limβ„‚ (π‘Ÿ Β· (π‘„β€˜π‘–))))
651 fveq2 6891 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π‘Ÿ Β· π‘₯) = (π‘Ÿ Β· (π‘„β€˜π‘–)) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))))
652651ad2antll 727 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∧ (π‘Ÿ Β· π‘₯) = (π‘Ÿ Β· (π‘„β€˜π‘–)))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) = (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))))
653643, 610, 647, 650, 635, 652limcco 25409 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–))) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (sinβ€˜(π‘Ÿ Β· π‘₯))) limβ„‚ (π‘„β€˜π‘–)))
654584, 585, 586, 594, 598, 642, 653mullimc 44322 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑅 Β· (sinβ€˜(π‘Ÿ Β· (π‘„β€˜π‘–)))) ∈ ((π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) limβ„‚ (π‘„β€˜π‘–)))
655567, 568, 583, 639, 654iblcncfioo 44684 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) ∈ 𝐿1)
656 simpll 765 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (πœ‘ ∧ π‘Ÿ ∈ ℝ+))
65759adantllr 717 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ (𝐴[,]𝐡))
658656, 657, 543syl2anc 584 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
659567, 568, 655, 658ibliooicc 44677 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ π‘Ÿ ∈ ℝ+) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) ∈ 𝐿1)
660552, 558, 559, 560, 566, 659itgspltprt 44685 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ ∫((π‘„β€˜0)[,](π‘„β€˜π‘€))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = Σ𝑖 ∈ (0..^𝑀)∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
661544, 551, 6603eqtrd 2776 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ π‘Ÿ ∈ ℝ+) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = Σ𝑖 ∈ (0..^𝑀)∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
662517, 532, 661syl2anc 584 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = Σ𝑖 ∈ (0..^𝑀)∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
663503a1i 11 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (0..^𝑀) ∈ Fin)
66460adantllr 717 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (πΉβ€˜π‘₯) ∈ β„‚)
665518recnd 11241 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘Ÿ ∈ (𝑛(,)+∞) β†’ π‘Ÿ ∈ β„‚)
666665adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ π‘Ÿ ∈ β„‚)
667666ad2antrr 724 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ β„‚)
668403adantllr 717 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ π‘₯ ∈ β„‚)
669667, 668mulcld 11233 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ Β· π‘₯) ∈ β„‚)
670669sincld 16072 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ (sinβ€˜(π‘Ÿ Β· π‘₯)) ∈ β„‚)
671664, 670mulcld 11233 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
672671adantl3r 748 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) ∈ β„‚)
673 simplll 773 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ πœ‘)
674532adantr 481 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ ℝ+)
675 simpr 485 . . . . . . . . . . . . . . . . . . 19 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0..^𝑀))
676673, 674, 675, 659syl21anc 836 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘₯ ∈ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯)))) ∈ 𝐿1)
677672, 676itgcl 25300 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
678663, 677fsumcl 15678 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑖 ∈ (0..^𝑀)∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
679662, 678eqeltrd 2833 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
680679adantllr 717 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
6816803adantl3 1168 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ ∫(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
682681abscld 15382 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
683677abscld 15382 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
684663, 683fsumrecl 15679 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
685684adantllr 717 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
6866853adantl3 1168 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑖 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
687 rpre 12981 . . . . . . . . . . . . . 14 (𝑒 ∈ ℝ+ β†’ 𝑒 ∈ ℝ)
688687ad2antlr 725 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑒 ∈ ℝ)
6896883ad2antl1 1185 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ 𝑒 ∈ ℝ)
690662fveq2d 6895 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) = (absβ€˜Ξ£π‘– ∈ (0..^𝑀)∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
691663, 677fsumabs 15746 . . . . . . . . . . . . . . 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 1168 . . . . . . . . . . . 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 12569 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 0 ∈ β„€)
697346nnzd 12584 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝑀 ∈ β„€)
698346nngt0d 12260 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 0 < 𝑀)
699 fzolb 13637 . . . . . . . . . . . . . . . . . 18 (0 ∈ (0..^𝑀) ↔ (0 ∈ β„€ ∧ 𝑀 ∈ β„€ ∧ 0 < 𝑀))
700696, 697, 698, 699syl3anbrc 1343 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 0 ∈ (0..^𝑀))
701 ne0i 4334 . . . . . . . . . . . . . . . . 17 (0 ∈ (0..^𝑀) β†’ (0..^𝑀) β‰  βˆ…)
702700, 701syl 17 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (0..^𝑀) β‰  βˆ…)
703702ad2antrr 724 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (0..^𝑀) β‰  βˆ…)
7047033ad2antl1 1185 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (0..^𝑀) β‰  βˆ…)
705 simp1l 1197 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ πœ‘)
706705ad2antrr 724 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ πœ‘)
707 simpll2 1213 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ 𝑛 ∈ β„•)
708706, 707jca 512 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ (πœ‘ ∧ 𝑛 ∈ β„•))
709 simplr 767 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ π‘Ÿ ∈ (𝑛(,)+∞))
710 simpr 485 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ 𝑗 ∈ (0..^𝑀))
711 eleq1w 2816 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 β†’ (𝑖 ∈ (0..^𝑀) ↔ 𝑗 ∈ (0..^𝑀)))
712711anbi2d 629 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝑗 β†’ ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) ↔ (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀))))
713 fveq2 6891 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 𝑗 β†’ (π‘„β€˜π‘–) = (π‘„β€˜π‘—))
714 oveq1 7415 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝑗 β†’ (𝑖 + 1) = (𝑗 + 1))
715714fveq2d 6895 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 𝑗 β†’ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜(𝑗 + 1)))
716713, 715oveq12d 7426 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝑗 β†’ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) = ((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1))))
717716itgeq1d 44663 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 β†’ ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
718717eleq1d 2818 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝑗 β†’ (∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚ ↔ ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚))
719712, 718imbi12d 344 . . . . . . . . . . . . . . . . 17 (𝑖 = 𝑗 β†’ (((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚) ↔ ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)))
720719, 677chvarvv 2002 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
721708, 709, 710, 720syl21anc 836 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ ∈ β„‚)
722721abscld 15382 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) ∈ ℝ)
723349rpred 13015 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (𝑒 / 𝑀) ∈ ℝ)
7247233ad2ant1 1133 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ (𝑒 / 𝑀) ∈ ℝ)
725724ad2antrr 724 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ (𝑒 / 𝑀) ∈ ℝ)
726 simpll3 1214 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
727 rspa 3245 . . . . . . . . . . . . . . . . . 18 ((βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
728727adantr 481 . . . . . . . . . . . . . . . . 17 (((βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) ∧ 𝑗 ∈ (0..^𝑀)) β†’ βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
729717fveq2d 6895 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 β†’ (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) = (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
730729breq1d 5158 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝑗 β†’ ((absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ↔ (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)))
731730cbvralvw 3234 . . . . . . . . . . . . . . . . 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 3245 . . . . . . . . . . . . . . . 16 ((βˆ€π‘— ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) ∧ 𝑗 ∈ (0..^𝑀)) β†’ (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀))
734732, 733sylancom 588 . . . . . . . . . . . . . . 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 15745 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑗 ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < Σ𝑗 ∈ (0..^𝑀)(𝑒 / 𝑀))
737 fveq2 6891 . . . . . . . . . . . . . . . . . 18 (𝑗 = 𝑖 β†’ (π‘„β€˜π‘—) = (π‘„β€˜π‘–))
738 oveq1 7415 . . . . . . . . . . . . . . . . . . 19 (𝑗 = 𝑖 β†’ (𝑗 + 1) = (𝑖 + 1))
739738fveq2d 6895 . . . . . . . . . . . . . . . . . 18 (𝑗 = 𝑖 β†’ (π‘„β€˜(𝑗 + 1)) = (π‘„β€˜(𝑖 + 1)))
740737, 739oveq12d 7426 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝑖 β†’ ((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1))) = ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))))
741740itgeq1d 44663 . . . . . . . . . . . . . . . 16 (𝑗 = 𝑖 β†’ ∫((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯ = ∫((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯)
742741fveq2d 6895 . . . . . . . . . . . . . . 15 (𝑗 = 𝑖 β†’ (absβ€˜βˆ«((π‘„β€˜π‘—)[,](π‘„β€˜(𝑗 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) = (absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯))
743742cbvsumv 15641 . . . . . . . . . . . . . 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 13017 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (𝑒 / 𝑀) ∈ β„‚)
746 fsumconst 15735 . . . . . . . . . . . . . . . . 17 (((0..^𝑀) ∈ Fin ∧ (𝑒 / 𝑀) ∈ β„‚) β†’ Σ𝑗 ∈ (0..^𝑀)(𝑒 / 𝑀) = ((β™―β€˜(0..^𝑀)) Β· (𝑒 / 𝑀)))
747503, 745, 746sylancr 587 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ Σ𝑗 ∈ (0..^𝑀)(𝑒 / 𝑀) = ((β™―β€˜(0..^𝑀)) Β· (𝑒 / 𝑀)))
748346nnnn0d 12531 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑀 ∈ β„•0)
749 hashfzo0 14389 . . . . . . . . . . . . . . . . . . 19 (𝑀 ∈ β„•0 β†’ (β™―β€˜(0..^𝑀)) = 𝑀)
750748, 749syl 17 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (β™―β€˜(0..^𝑀)) = 𝑀)
751750oveq1d 7423 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ ((β™―β€˜(0..^𝑀)) Β· (𝑒 / 𝑀)) = (𝑀 Β· (𝑒 / 𝑀)))
752751adantr 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ ((β™―β€˜(0..^𝑀)) Β· (𝑒 / 𝑀)) = (𝑀 Β· (𝑒 / 𝑀)))
753345rpcnd 13017 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ 𝑒 ∈ β„‚)
754348rpcnd 13017 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ 𝑀 ∈ β„‚)
755348rpne0d 13020 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ 𝑀 β‰  0)
756753, 754, 755divcan2d 11991 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (𝑀 Β· (𝑒 / 𝑀)) = 𝑒)
757747, 752, 7563eqtrd 2776 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ Σ𝑗 ∈ (0..^𝑀)(𝑒 / 𝑀) = 𝑒)
758757adantr 481 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ Σ𝑗 ∈ (0..^𝑀)(𝑒 / 𝑀) = 𝑒)
7597583ad2antl1 1185 . . . . . . . . . . . . 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 11371 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) ∧ π‘Ÿ ∈ (𝑛(,)+∞)) β†’ (absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)
762761ex 413 . . . . . . . . . 10 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ (π‘Ÿ ∈ (𝑛(,)+∞) β†’ (absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒))
763516, 762ralrimi 3254 . . . . . . . . 9 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑛 ∈ β„• ∧ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)
7647633exp 1119 . . . . . . . 8 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (𝑛 ∈ β„• β†’ (βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) β†’ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)))
765764adantr 481 . . . . . . 7 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ (𝑛 ∈ β„• β†’ (βˆ€π‘Ÿ ∈ (𝑛(,)+∞)βˆ€π‘– ∈ (0..^𝑀)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) β†’ βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)))
766513, 765reximdai 3258 . . . . . 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 591 . . . 4 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀)) β†’ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒)
769768ex 413 . . 3 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (βˆ€π‘– ∈ (0..^𝑀)βˆƒπ‘š ∈ β„• βˆ€π‘Ÿ ∈ (π‘š(,)+∞)(absβ€˜βˆ«((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < (𝑒 / 𝑀) β†’ βˆƒπ‘› ∈ β„• βˆ€π‘Ÿ ∈ (𝑛(,)+∞)(absβ€˜βˆ«(𝐴(,)𝐡)((πΉβ€˜π‘₯) Β· (sinβ€˜(π‘Ÿ Β· π‘₯))) dπ‘₯) < 𝑒))
770769ralimdva 3167 . 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 396   ∧ w3a 1087   = wceq 1541  βŠ€wtru 1542   ∈ wcel 2106   β‰  wne 2940  βˆ€wral 3061  βˆƒwrex 3070  {crab 3432   βŠ† wss 3948  βˆ…c0 4322  ifcif 4528   class class class wbr 5148   ↦ cmpt 5231  dom cdm 5676  ran crn 5677   β†Ύ cres 5678   Fn wfn 6538  βŸΆwf 6539  β€˜cfv 6543  (class class class)co 7408  Fincfn 8938  supcsup 9434  infcinf 9435  β„‚cc 11107  β„cr 11108  0cc0 11109  1c1 11110   + caddc 11112   Β· cmul 11114  +∞cpnf 11244  β„*cxr 11246   < clt 11247   ≀ cle 11248   βˆ’ cmin 11443  -cneg 11444   / cdiv 11870  β„•cn 12211  β„•0cn0 12471  β„€cz 12557  β„€β‰₯cuz 12821  β„+crp 12973  (,)cioo 13323  [,]cicc 13326  ...cfz 13483  ..^cfzo 13626  βŒŠcfl 13754  β™―chash 14289  abscabs 15180  Ξ£csu 15631  sincsin 16006  cosccos 16007  TopOpenctopn 17366  topGenctg 17382  β„‚fldccnfld 20943  Topctop 22394  intcnt 22520  β€“cnβ†’ccncf 24391  volcvol 24979  πΏ1cibl 25133  βˆ«citg 25134   limβ„‚ climc 25378   D cdv 25379
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7724  ax-inf2 9635  ax-cc 10429  ax-cnex 11165  ax-resscn 11166  ax-1cn 11167  ax-icn 11168  ax-addcl 11169  ax-addrcl 11170  ax-mulcl 11171  ax-mulrcl 11172  ax-mulcom 11173  ax-addass 11174  ax-mulass 11175  ax-distr 11176  ax-i2m1 11177  ax-1ne0 11178  ax-1rid 11179  ax-rnegex 11180  ax-rrecex 11181  ax-cnre 11182  ax-pre-lttri 11183  ax-pre-lttrn 11184  ax-pre-ltadd 11185  ax-pre-mulgt0 11186  ax-pre-sup 11187  ax-addf 11188  ax-mulf 11189
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-symdif 4242  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-disj 5114  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6300  df-ord 6367  df-on 6368  df-lim 6369  df-suc 6370  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7364  df-ov 7411  df-oprab 7412  df-mpo 7413  df-of 7669  df-ofr 7670  df-om 7855  df-1st 7974  df-2nd 7975  df-supp 8146  df-frecs 8265  df-wrecs 8296  df-recs 8370  df-rdg 8409  df-1o 8465  df-2o 8466  df-oadd 8469  df-omul 8470  df-er 8702  df-map 8821  df-pm 8822  df-ixp 8891  df-en 8939  df-dom 8940  df-sdom 8941  df-fin 8942  df-fsupp 9361  df-fi 9405  df-sup 9436  df-inf 9437  df-oi 9504  df-dju 9895  df-card 9933  df-acn 9936  df-pnf 11249  df-mnf 11250  df-xr 11251  df-ltxr 11252  df-le 11253  df-sub 11445  df-neg 11446  df-div 11871  df-nn 12212  df-2 12274  df-3 12275  df-4 12276  df-5 12277  df-6 12278  df-7 12279  df-8 12280  df-9 12281  df-n0 12472  df-z 12558  df-dec 12677  df-uz 12822  df-q 12932  df-rp 12974  df-xneg 13091  df-xadd 13092  df-xmul 13093  df-ioo 13327  df-ioc 13328  df-ico 13329  df-icc 13330  df-fz 13484  df-fzo 13627  df-fl 13756  df-mod 13834  df-seq 13966  df-exp 14027  df-fac 14233  df-bc 14262  df-hash 14290  df-shft 15013  df-cj 15045  df-re 15046  df-im 15047  df-sqrt 15181  df-abs 15182  df-limsup 15414  df-clim 15431  df-rlim 15432  df-sum 15632  df-ef 16010  df-sin 16012  df-cos 16013  df-struct 17079  df-sets 17096  df-slot 17114  df-ndx 17126  df-base 17144  df-ress 17173  df-plusg 17209  df-mulr 17210  df-starv 17211  df-sca 17212  df-vsca 17213  df-ip 17214  df-tset 17215  df-ple 17216  df-ds 17218  df-unif 17219  df-hom 17220  df-cco 17221  df-rest 17367  df-topn 17368  df-0g 17386  df-gsum 17387  df-topgen 17388  df-pt 17389  df-prds 17392  df-xrs 17447  df-qtop 17452  df-imas 17453  df-xps 17455  df-mre 17529  df-mrc 17530  df-acs 17532  df-mgm 18560  df-sgrp 18609  df-mnd 18625  df-submnd 18671  df-mulg 18950  df-cntz 19180  df-cmn 19649  df-psmet 20935  df-xmet 20936  df-met 20937  df-bl 20938  df-mopn 20939  df-fbas 20940  df-fg 20941  df-cnfld 20944  df-top 22395  df-topon 22412  df-topsp 22434  df-bases 22448  df-cld 22522  df-ntr 22523  df-cls 22524  df-nei 22601  df-lp 22639  df-perf 22640  df-cn 22730  df-cnp 22731  df-haus 22818  df-cmp 22890  df-tx 23065  df-hmeo 23258  df-fil 23349  df-fm 23441  df-flim 23442  df-flf 23443  df-xms 23825  df-ms 23826  df-tms 23827  df-cncf 24393  df-ovol 24980  df-vol 24981  df-mbf 25135  df-itg1 25136  df-itg2 25137  df-ibl 25138  df-itg 25139  df-0p 25186  df-limc 25382  df-dv 25383
This theorem is referenced by:  fourierdlem103  44915  fourierdlem104  44916
  Copyright terms: Public domain W3C validator