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

Theorem fourierdlem103 44524
Description: The half lower part of the integral equal to the fourier partial sum, converges to half the left limit of the original function. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem103.f (πœ‘ β†’ 𝐹:β„βŸΆβ„)
fourierdlem103.xre (πœ‘ β†’ 𝑋 ∈ ℝ)
fourierdlem103.p 𝑃 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = (-Ο€ + 𝑋) ∧ (π‘β€˜π‘š) = (Ο€ + 𝑋)) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
fourierdlem103.m (πœ‘ β†’ 𝑀 ∈ β„•)
fourierdlem103.v (πœ‘ β†’ 𝑉 ∈ (π‘ƒβ€˜π‘€))
fourierdlem103.x (πœ‘ β†’ 𝑋 ∈ ran 𝑉)
fourierdlem103.fcn ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) ∈ (((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))–cnβ†’β„‚))
fourierdlem103.fbdioo ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘€ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀)
fourierdlem103.fdvcn ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) ∈ (((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))–cn→ℝ))
fourierdlem103.fdvbd ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘§ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧)
fourierdlem103.r ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (π‘‰β€˜π‘–)))
fourierdlem103.l ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (π‘‰β€˜(𝑖 + 1))))
fourierdlem103.h 𝐻 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)))
fourierdlem103.k 𝐾 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
fourierdlem103.u π‘ˆ = (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((π»β€˜π‘ ) Β· (πΎβ€˜π‘ )))
fourierdlem103.s 𝑆 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))
fourierdlem103.g 𝐺 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((π‘ˆβ€˜π‘ ) Β· (π‘†β€˜π‘ )))
fourierdlem103.z 𝑍 = (π‘š ∈ β„• ↦ ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘š)β€˜π‘ )) d𝑠)
fourierdlem103.e 𝐸 = (𝑛 ∈ β„• ↦ (∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 / Ο€))
fourierdlem103.y (πœ‘ β†’ π‘Œ ∈ ((𝐹 β†Ύ (𝑋(,)+∞)) limβ„‚ 𝑋))
fourierdlem103.w (πœ‘ β†’ π‘Š ∈ ((𝐹 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋))
fourierdlem103.a (πœ‘ β†’ 𝐴 ∈ (((ℝ D 𝐹) β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋))
fourierdlem103.b (πœ‘ β†’ 𝐡 ∈ (((ℝ D 𝐹) β†Ύ (𝑋(,)+∞)) limβ„‚ 𝑋))
fourierdlem103.d 𝐷 = (𝑛 ∈ β„• ↦ (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 Β· Ο€)) = 0, (((2 Β· 𝑛) + 1) / (2 Β· Ο€)), ((sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) / ((2 Β· Ο€) Β· (sinβ€˜(𝑠 / 2)))))))
fourierdlem103.o 𝑂 = (π‘ˆ β†Ύ (-Ο€[,]𝑑))
fourierdlem103.t 𝑇 = ({-Ο€, 𝑑} βˆͺ (ran 𝑄 ∩ (-Ο€(,)𝑑)))
fourierdlem103.n 𝑁 = ((β™―β€˜π‘‡) βˆ’ 1)
fourierdlem103.j 𝐽 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝑇))
fourierdlem103.q 𝑄 = (𝑖 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘–) βˆ’ 𝑋))
fourierdlem103.1 𝐢 = (℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))
fourierdlem103.ch (πœ’ ↔ (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•) ∧ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
Assertion
Ref Expression
fourierdlem103 (πœ‘ β†’ 𝑍 ⇝ (π‘Š / 2))
Distinct variable groups:   𝐴,𝑠   𝐡,𝑠   𝐢,𝑖,𝑑,𝑀,𝑧   𝐷,𝑖,π‘š,𝑠   𝑛,𝐸   𝑖,𝐹,π‘˜,𝑙,𝑠,𝑑   π‘š,𝐹,π‘˜   𝑀,𝐹,𝑧,π‘˜,𝑠   𝑒,𝐺,π‘˜,𝑠   𝑖,𝐺,𝑑   𝑖,𝐻,𝑠   π‘˜,𝐽,𝑙,𝑠   𝑓,𝐽,π‘˜   𝑖,𝐽,𝑑   π‘š,𝐽   𝑀,𝐽,𝑧   𝐾,𝑠   𝐿,𝑙,𝑠,𝑑   π‘˜,𝑀,𝑙,𝑠,𝑖,𝑑   π‘š,𝑀,𝑝,𝑖   𝑖,𝑁,π‘˜,𝑙,𝑠,𝑑   𝑒,𝑁,𝑙   𝑓,𝑁   π‘š,𝑁   𝑀,𝑁,𝑧   𝑒,𝑂,𝑙,𝑠,π‘˜   𝑑,𝑂   𝑄,𝑙,𝑠,𝑖,𝑑   𝑄,𝑝   𝑅,𝑙,𝑠,𝑑   𝑆,𝑠   𝑇,𝑓   π‘ˆ,𝑑,π‘˜,𝑠,𝑙   π‘ˆ,𝑛,π‘˜,𝑠   𝑖,𝑉,π‘˜,𝑠   𝑉,𝑝   𝑑,𝑉   𝑖,π‘Š,π‘˜,𝑙,𝑠,𝑑   π‘š,π‘Š,𝑛,𝑖   𝑀,π‘Š,𝑧   𝑖,𝑋,π‘˜,𝑙,𝑠,𝑑   π‘š,𝑋,𝑝   𝑀,𝑋,𝑧   π‘Œ,𝑠   𝑛,𝑍   𝑒,𝑑   𝑖,𝑑,πœ‘,𝑑,π‘˜,𝑙,𝑠   πœ‘,𝑒   πœ’,𝑠   𝑓,𝑑,πœ‘   𝑀,𝑑,𝑧,πœ‘   𝑒,𝑛,πœ‘   πœ‘,π‘š
Allowed substitution hints:   πœ‘(𝑝)   πœ’(𝑧,𝑀,𝑑,𝑒,𝑓,𝑖,π‘˜,π‘š,𝑛,𝑝,𝑑,𝑙)   𝐴(𝑧,𝑀,𝑑,𝑒,𝑓,𝑖,π‘˜,π‘š,𝑛,𝑝,𝑑,𝑙)   𝐡(𝑧,𝑀,𝑑,𝑒,𝑓,𝑖,π‘˜,π‘š,𝑛,𝑝,𝑑,𝑙)   𝐢(𝑒,𝑓,π‘˜,π‘š,𝑛,𝑠,𝑝,𝑑,𝑙)   𝐷(𝑧,𝑀,𝑑,𝑒,𝑓,π‘˜,𝑛,𝑝,𝑑,𝑙)   𝑃(𝑧,𝑀,𝑑,𝑒,𝑓,𝑖,π‘˜,π‘š,𝑛,𝑠,𝑝,𝑑,𝑙)   𝑄(𝑧,𝑀,𝑒,𝑓,π‘˜,π‘š,𝑛,𝑑)   𝑅(𝑧,𝑀,𝑒,𝑓,𝑖,π‘˜,π‘š,𝑛,𝑝,𝑑)   𝑆(𝑧,𝑀,𝑑,𝑒,𝑓,𝑖,π‘˜,π‘š,𝑛,𝑝,𝑑,𝑙)   𝑇(𝑧,𝑀,𝑑,𝑒,𝑖,π‘˜,π‘š,𝑛,𝑠,𝑝,𝑑,𝑙)   π‘ˆ(𝑧,𝑀,𝑑,𝑒,𝑓,𝑖,π‘š,𝑝)   𝐸(𝑧,𝑀,𝑑,𝑒,𝑓,𝑖,π‘˜,π‘š,𝑠,𝑝,𝑑,𝑙)   𝐹(𝑒,𝑓,𝑛,𝑝,𝑑)   𝐺(𝑧,𝑀,𝑓,π‘š,𝑛,𝑝,𝑑,𝑙)   𝐻(𝑧,𝑀,𝑑,𝑒,𝑓,π‘˜,π‘š,𝑛,𝑝,𝑑,𝑙)   𝐽(𝑒,𝑛,𝑝,𝑑)   𝐾(𝑧,𝑀,𝑑,𝑒,𝑓,𝑖,π‘˜,π‘š,𝑛,𝑝,𝑑,𝑙)   𝐿(𝑧,𝑀,𝑒,𝑓,𝑖,π‘˜,π‘š,𝑛,𝑝,𝑑)   𝑀(𝑧,𝑀,𝑒,𝑓,𝑛,𝑑)   𝑁(𝑛,𝑝,𝑑)   𝑂(𝑧,𝑀,𝑓,𝑖,π‘š,𝑛,𝑝,𝑑)   𝑉(𝑧,𝑀,𝑒,𝑓,π‘š,𝑛,𝑑,𝑙)   π‘Š(𝑒,𝑓,𝑝,𝑑)   𝑋(𝑒,𝑓,𝑛,𝑑)   π‘Œ(𝑧,𝑀,𝑑,𝑒,𝑓,𝑖,π‘˜,π‘š,𝑛,𝑝,𝑑,𝑙)   𝑍(𝑧,𝑀,𝑑,𝑒,𝑓,𝑖,π‘˜,π‘š,𝑠,𝑝,𝑑,𝑙)

Proof of Theorem fourierdlem103
Dummy variables βˆ₯ 𝑏 π‘Ÿ 𝑐 𝑒 𝑗 𝑦 π‘₯ β„Ž 𝑣 π‘Ž are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2737 . . 3 (β„€β‰₯β€˜1) = (β„€β‰₯β€˜1)
2 1zzd 12541 . . 3 (πœ‘ β†’ 1 ∈ β„€)
3 nfv 1918 . . . . 5 β„²π‘›πœ‘
4 nfmpt1 5218 . . . . 5 Ⅎ𝑛(𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠)
5 nfmpt1 5218 . . . . 5 Ⅎ𝑛(𝑛 ∈ β„• ↦ Ο€)
6 fourierdlem103.e . . . . . 6 𝐸 = (𝑛 ∈ β„• ↦ (∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 / Ο€))
7 nfmpt1 5218 . . . . . 6 Ⅎ𝑛(𝑛 ∈ β„• ↦ (∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 / Ο€))
86, 7nfcxfr 2906 . . . . 5 Ⅎ𝑛𝐸
9 nnuz 12813 . . . . 5 β„• = (β„€β‰₯β€˜1)
10 pire 25831 . . . . . . . . . . . . . . . . 17 Ο€ ∈ ℝ
1110renegcli 11469 . . . . . . . . . . . . . . . 16 -Ο€ ∈ ℝ
1211a1i 11 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ -Ο€ ∈ ℝ)
13 elioore 13301 . . . . . . . . . . . . . . . 16 (𝑑 ∈ (-Ο€(,)0) β†’ 𝑑 ∈ ℝ)
1413adantl 483 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑑 ∈ ℝ)
15 fourierdlem103.f . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝐹:β„βŸΆβ„)
16 fourierdlem103.xre . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ 𝑋 ∈ ℝ)
17 ioossre 13332 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑋(,)+∞) βŠ† ℝ
1817a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (𝑋(,)+∞) βŠ† ℝ)
1915, 18fssresd 6714 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (𝐹 β†Ύ (𝑋(,)+∞)):(𝑋(,)+∞)βŸΆβ„)
20 ioosscn 13333 . . . . . . . . . . . . . . . . . . . . . 22 (𝑋(,)+∞) βŠ† β„‚
2120a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (𝑋(,)+∞) βŠ† β„‚)
22 eqid 2737 . . . . . . . . . . . . . . . . . . . . . 22 (TopOpenβ€˜β„‚fld) = (TopOpenβ€˜β„‚fld)
23 pnfxr 11216 . . . . . . . . . . . . . . . . . . . . . . 23 +∞ ∈ ℝ*
2423a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ +∞ ∈ ℝ*)
2516ltpnfd 13049 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ 𝑋 < +∞)
2622, 24, 16, 25lptioo1cn 43961 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝑋 ∈ ((limPtβ€˜(TopOpenβ€˜β„‚fld))β€˜(𝑋(,)+∞)))
27 fourierdlem103.y . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ π‘Œ ∈ ((𝐹 β†Ύ (𝑋(,)+∞)) limβ„‚ 𝑋))
2819, 21, 26, 27limcrecl 43944 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ π‘Œ ∈ ℝ)
29 ioossre 13332 . . . . . . . . . . . . . . . . . . . . . . 23 (-∞(,)𝑋) βŠ† ℝ
3029a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (-∞(,)𝑋) βŠ† ℝ)
3115, 30fssresd 6714 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (𝐹 β†Ύ (-∞(,)𝑋)):(-∞(,)𝑋)βŸΆβ„)
32 ioosscn 13333 . . . . . . . . . . . . . . . . . . . . . 22 (-∞(,)𝑋) βŠ† β„‚
3332a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ (-∞(,)𝑋) βŠ† β„‚)
34 mnfxr 11219 . . . . . . . . . . . . . . . . . . . . . . 23 -∞ ∈ ℝ*
3534a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ -∞ ∈ ℝ*)
3616mnfltd 13052 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ -∞ < 𝑋)
3722, 35, 16, 36lptioo2cn 43960 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝑋 ∈ ((limPtβ€˜(TopOpenβ€˜β„‚fld))β€˜(-∞(,)𝑋)))
38 fourierdlem103.w . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ π‘Š ∈ ((𝐹 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋))
3931, 33, 37, 38limcrecl 43944 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ π‘Š ∈ ℝ)
40 fourierdlem103.h . . . . . . . . . . . . . . . . . . . 20 𝐻 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)))
41 fourierdlem103.k . . . . . . . . . . . . . . . . . . . 20 𝐾 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
42 fourierdlem103.u . . . . . . . . . . . . . . . . . . . 20 π‘ˆ = (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((π»β€˜π‘ ) Β· (πΎβ€˜π‘ )))
4315, 16, 28, 39, 40, 41, 42fourierdlem55 44476 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ π‘ˆ:(-Ο€[,]Ο€)βŸΆβ„)
44 ax-resscn 11115 . . . . . . . . . . . . . . . . . . . 20 ℝ βŠ† β„‚
4544a1i 11 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ℝ βŠ† β„‚)
4643, 45fssd 6691 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ π‘ˆ:(-Ο€[,]Ο€)βŸΆβ„‚)
4746adantr 482 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ π‘ˆ:(-Ο€[,]Ο€)βŸΆβ„‚)
4811a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝑑 ∈ (-Ο€(,)0) β†’ -Ο€ ∈ ℝ)
4910a1i 11 . . . . . . . . . . . . . . . . . . 19 (𝑑 ∈ (-Ο€(,)0) β†’ Ο€ ∈ ℝ)
5048leidd 11728 . . . . . . . . . . . . . . . . . . 19 (𝑑 ∈ (-Ο€(,)0) β†’ -Ο€ ≀ -Ο€)
51 0red 11165 . . . . . . . . . . . . . . . . . . . . 21 (𝑑 ∈ (-Ο€(,)0) β†’ 0 ∈ ℝ)
5211rexri 11220 . . . . . . . . . . . . . . . . . . . . . 22 -Ο€ ∈ ℝ*
53 0xr 11209 . . . . . . . . . . . . . . . . . . . . . 22 0 ∈ ℝ*
54 iooltub 43822 . . . . . . . . . . . . . . . . . . . . . 22 ((-Ο€ ∈ ℝ* ∧ 0 ∈ ℝ* ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑑 < 0)
5552, 53, 54mp3an12 1452 . . . . . . . . . . . . . . . . . . . . 21 (𝑑 ∈ (-Ο€(,)0) β†’ 𝑑 < 0)
56 pipos 25833 . . . . . . . . . . . . . . . . . . . . . 22 0 < Ο€
5756a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (𝑑 ∈ (-Ο€(,)0) β†’ 0 < Ο€)
5813, 51, 49, 55, 57lttrd 11323 . . . . . . . . . . . . . . . . . . . 20 (𝑑 ∈ (-Ο€(,)0) β†’ 𝑑 < Ο€)
5913, 49, 58ltled 11310 . . . . . . . . . . . . . . . . . . 19 (𝑑 ∈ (-Ο€(,)0) β†’ 𝑑 ≀ Ο€)
60 iccss 13339 . . . . . . . . . . . . . . . . . . 19 (((-Ο€ ∈ ℝ ∧ Ο€ ∈ ℝ) ∧ (-Ο€ ≀ -Ο€ ∧ 𝑑 ≀ Ο€)) β†’ (-Ο€[,]𝑑) βŠ† (-Ο€[,]Ο€))
6148, 49, 50, 59, 60syl22anc 838 . . . . . . . . . . . . . . . . . 18 (𝑑 ∈ (-Ο€(,)0) β†’ (-Ο€[,]𝑑) βŠ† (-Ο€[,]Ο€))
6261adantl 483 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (-Ο€[,]𝑑) βŠ† (-Ο€[,]Ο€))
6347, 62fssresd 6714 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (π‘ˆ β†Ύ (-Ο€[,]𝑑)):(-Ο€[,]𝑑)βŸΆβ„‚)
64 fourierdlem103.o . . . . . . . . . . . . . . . . . 18 𝑂 = (π‘ˆ β†Ύ (-Ο€[,]𝑑))
6564a1i 11 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑂 = (π‘ˆ β†Ύ (-Ο€[,]𝑑)))
6665feq1d 6658 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (𝑂:(-Ο€[,]𝑑)βŸΆβ„‚ ↔ (π‘ˆ β†Ύ (-Ο€[,]𝑑)):(-Ο€[,]𝑑)βŸΆβ„‚))
6763, 66mpbird 257 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑂:(-Ο€[,]𝑑)βŸΆβ„‚)
68 fourierdlem103.n . . . . . . . . . . . . . . . . . . 19 𝑁 = ((β™―β€˜π‘‡) βˆ’ 1)
6911elexi 3467 . . . . . . . . . . . . . . . . . . . . . . . . . 26 -Ο€ ∈ V
7069prid1 4728 . . . . . . . . . . . . . . . . . . . . . . . . 25 -Ο€ ∈ {-Ο€, 𝑑}
71 elun1 4141 . . . . . . . . . . . . . . . . . . . . . . . . 25 (-Ο€ ∈ {-Ο€, 𝑑} β†’ -Ο€ ∈ ({-Ο€, 𝑑} βˆͺ (ran 𝑄 ∩ (-Ο€(,)𝑑))))
7270, 71ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . 24 -Ο€ ∈ ({-Ο€, 𝑑} βˆͺ (ran 𝑄 ∩ (-Ο€(,)𝑑)))
73 fourierdlem103.t . . . . . . . . . . . . . . . . . . . . . . . 24 𝑇 = ({-Ο€, 𝑑} βˆͺ (ran 𝑄 ∩ (-Ο€(,)𝑑)))
7472, 73eleqtrri 2837 . . . . . . . . . . . . . . . . . . . . . . 23 -Ο€ ∈ 𝑇
7574ne0ii 4302 . . . . . . . . . . . . . . . . . . . . . 22 𝑇 β‰  βˆ…
7675a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ 𝑇 β‰  βˆ…)
77 prfi 9273 . . . . . . . . . . . . . . . . . . . . . . . . 25 {-Ο€, 𝑑} ∈ Fin
7877a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ {-Ο€, 𝑑} ∈ Fin)
79 fzfi 13884 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (0...𝑀) ∈ Fin
80 fourierdlem103.q . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 𝑄 = (𝑖 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘–) βˆ’ 𝑋))
8180rnmptfi 43462 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((0...𝑀) ∈ Fin β†’ ran 𝑄 ∈ Fin)
8279, 81ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ran 𝑄 ∈ Fin
8382a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ ran 𝑄 ∈ Fin)
84 infi 9219 . . . . . . . . . . . . . . . . . . . . . . . . 25 (ran 𝑄 ∈ Fin β†’ (ran 𝑄 ∩ (-Ο€(,)𝑑)) ∈ Fin)
8583, 84syl 17 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ‘ β†’ (ran 𝑄 ∩ (-Ο€(,)𝑑)) ∈ Fin)
86 unfi 9123 . . . . . . . . . . . . . . . . . . . . . . . 24 (({-Ο€, 𝑑} ∈ Fin ∧ (ran 𝑄 ∩ (-Ο€(,)𝑑)) ∈ Fin) β†’ ({-Ο€, 𝑑} βˆͺ (ran 𝑄 ∩ (-Ο€(,)𝑑))) ∈ Fin)
8778, 85, 86syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ‘ β†’ ({-Ο€, 𝑑} βˆͺ (ran 𝑄 ∩ (-Ο€(,)𝑑))) ∈ Fin)
8873, 87eqeltrid 2842 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ 𝑇 ∈ Fin)
89 hashnncl 14273 . . . . . . . . . . . . . . . . . . . . . 22 (𝑇 ∈ Fin β†’ ((β™―β€˜π‘‡) ∈ β„• ↔ 𝑇 β‰  βˆ…))
9088, 89syl 17 . . . . . . . . . . . . . . . . . . . . 21 (πœ‘ β†’ ((β™―β€˜π‘‡) ∈ β„• ↔ 𝑇 β‰  βˆ…))
9176, 90mpbird 257 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (β™―β€˜π‘‡) ∈ β„•)
92 nnm1nn0 12461 . . . . . . . . . . . . . . . . . . . 20 ((β™―β€˜π‘‡) ∈ β„• β†’ ((β™―β€˜π‘‡) βˆ’ 1) ∈ β„•0)
9391, 92syl 17 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((β™―β€˜π‘‡) βˆ’ 1) ∈ β„•0)
9468, 93eqeltrid 2842 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ 𝑁 ∈ β„•0)
9594adantr 482 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑁 ∈ β„•0)
96 0red 11165 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 0 ∈ ℝ)
97 1red 11163 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 1 ∈ ℝ)
9895nn0red 12481 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑁 ∈ ℝ)
99 0lt1 11684 . . . . . . . . . . . . . . . . . . . 20 0 < 1
10099a1i 11 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 0 < 1)
101 2re 12234 . . . . . . . . . . . . . . . . . . . . . 22 2 ∈ ℝ
102101a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 2 ∈ ℝ)
10391nnred 12175 . . . . . . . . . . . . . . . . . . . . . 22 (πœ‘ β†’ (β™―β€˜π‘‡) ∈ ℝ)
104103adantr 482 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (β™―β€˜π‘‡) ∈ ℝ)
105 ioogtlb 43807 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((-Ο€ ∈ ℝ* ∧ 0 ∈ ℝ* ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ -Ο€ < 𝑑)
10652, 53, 105mp3an12 1452 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑑 ∈ (-Ο€(,)0) β†’ -Ο€ < 𝑑)
10748, 106ltned 11298 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑑 ∈ (-Ο€(,)0) β†’ -Ο€ β‰  𝑑)
108107adantl 483 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ -Ο€ β‰  𝑑)
109 hashprg 14302 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((-Ο€ ∈ ℝ ∧ 𝑑 ∈ ℝ) β†’ (-Ο€ β‰  𝑑 ↔ (β™―β€˜{-Ο€, 𝑑}) = 2))
11012, 14, 109syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (-Ο€ β‰  𝑑 ↔ (β™―β€˜{-Ο€, 𝑑}) = 2))
111108, 110mpbid 231 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (β™―β€˜{-Ο€, 𝑑}) = 2)
112111eqcomd 2743 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 2 = (β™―β€˜{-Ο€, 𝑑}))
11388adantr 482 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑇 ∈ Fin)
114 ssun1 4137 . . . . . . . . . . . . . . . . . . . . . . . 24 {-Ο€, 𝑑} βŠ† ({-Ο€, 𝑑} βˆͺ (ran 𝑄 ∩ (-Ο€(,)𝑑)))
115114, 73sseqtrri 3986 . . . . . . . . . . . . . . . . . . . . . . 23 {-Ο€, 𝑑} βŠ† 𝑇
116 hashssle 43606 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑇 ∈ Fin ∧ {-Ο€, 𝑑} βŠ† 𝑇) β†’ (β™―β€˜{-Ο€, 𝑑}) ≀ (β™―β€˜π‘‡))
117113, 115, 116sylancl 587 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (β™―β€˜{-Ο€, 𝑑}) ≀ (β™―β€˜π‘‡))
118112, 117eqbrtrd 5132 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 2 ≀ (β™―β€˜π‘‡))
119102, 104, 97, 118lesub1dd 11778 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (2 βˆ’ 1) ≀ ((β™―β€˜π‘‡) βˆ’ 1))
120 1e2m1 12287 . . . . . . . . . . . . . . . . . . . 20 1 = (2 βˆ’ 1)
121119, 120, 683brtr4g 5144 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 1 ≀ 𝑁)
12296, 97, 98, 100, 121ltletrd 11322 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 0 < 𝑁)
123122gt0ne0d 11726 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑁 β‰  0)
12495, 123jca 513 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (𝑁 ∈ β„•0 ∧ 𝑁 β‰  0))
125 elnnne0 12434 . . . . . . . . . . . . . . . 16 (𝑁 ∈ β„• ↔ (𝑁 ∈ β„•0 ∧ 𝑁 β‰  0))
126124, 125sylibr 233 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑁 ∈ β„•)
127 fourierdlem103.j . . . . . . . . . . . . . . . . . 18 𝐽 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝑇))
12850adantl 483 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ -Ο€ ≀ -Ο€)
12948, 13, 106ltled 11310 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑑 ∈ (-Ο€(,)0) β†’ -Ο€ ≀ 𝑑)
130129adantl 483 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ -Ο€ ≀ 𝑑)
13112, 14, 12, 128, 130eliccd 43816 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ -Ο€ ∈ (-Ο€[,]𝑑))
13214leidd 11728 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑑 ≀ 𝑑)
13312, 14, 14, 130, 132eliccd 43816 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑑 ∈ (-Ο€[,]𝑑))
134131, 133jca 513 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (-Ο€ ∈ (-Ο€[,]𝑑) ∧ 𝑑 ∈ (-Ο€[,]𝑑)))
135 vex 3452 . . . . . . . . . . . . . . . . . . . . . 22 𝑑 ∈ V
13669, 135prss 4785 . . . . . . . . . . . . . . . . . . . . 21 ((-Ο€ ∈ (-Ο€[,]𝑑) ∧ 𝑑 ∈ (-Ο€[,]𝑑)) ↔ {-Ο€, 𝑑} βŠ† (-Ο€[,]𝑑))
137134, 136sylib 217 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ {-Ο€, 𝑑} βŠ† (-Ο€[,]𝑑))
138 inss2 4194 . . . . . . . . . . . . . . . . . . . . . 22 (ran 𝑄 ∩ (-Ο€(,)𝑑)) βŠ† (-Ο€(,)𝑑)
139138a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (ran 𝑄 ∩ (-Ο€(,)𝑑)) βŠ† (-Ο€(,)𝑑))
140 ioossicc 13357 . . . . . . . . . . . . . . . . . . . . 21 (-Ο€(,)𝑑) βŠ† (-Ο€[,]𝑑)
141139, 140sstrdi 3961 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (ran 𝑄 ∩ (-Ο€(,)𝑑)) βŠ† (-Ο€[,]𝑑))
142137, 141unssd 4151 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ ({-Ο€, 𝑑} βˆͺ (ran 𝑄 ∩ (-Ο€(,)𝑑))) βŠ† (-Ο€[,]𝑑))
14373, 142eqsstrid 3997 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑇 βŠ† (-Ο€[,]𝑑))
14474a1i 11 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ -Ο€ ∈ 𝑇)
145135prid2 4729 . . . . . . . . . . . . . . . . . . . . 21 𝑑 ∈ {-Ο€, 𝑑}
146 elun1 4141 . . . . . . . . . . . . . . . . . . . . 21 (𝑑 ∈ {-Ο€, 𝑑} β†’ 𝑑 ∈ ({-Ο€, 𝑑} βˆͺ (ran 𝑄 ∩ (-Ο€(,)𝑑))))
147145, 146ax-mp 5 . . . . . . . . . . . . . . . . . . . 20 𝑑 ∈ ({-Ο€, 𝑑} βˆͺ (ran 𝑄 ∩ (-Ο€(,)𝑑)))
148147, 73eleqtrri 2837 . . . . . . . . . . . . . . . . . . 19 𝑑 ∈ 𝑇
149148a1i 11 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑑 ∈ 𝑇)
150113, 68, 127, 12, 14, 143, 144, 149fourierdlem52 44473 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ ((𝐽:(0...𝑁)⟢(-Ο€[,]𝑑) ∧ (π½β€˜0) = -Ο€) ∧ (π½β€˜π‘) = 𝑑))
151150simpld 496 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (𝐽:(0...𝑁)⟢(-Ο€[,]𝑑) ∧ (π½β€˜0) = -Ο€))
152151simpld 496 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝐽:(0...𝑁)⟢(-Ο€[,]𝑑))
153151simprd 497 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (π½β€˜0) = -Ο€)
154150simprd 497 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (π½β€˜π‘) = 𝑑)
155 elfzoelz 13579 . . . . . . . . . . . . . . . . . . 19 (π‘˜ ∈ (0..^𝑁) β†’ π‘˜ ∈ β„€)
156155zred 12614 . . . . . . . . . . . . . . . . . 18 (π‘˜ ∈ (0..^𝑁) β†’ π‘˜ ∈ ℝ)
157156adantl 483 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ π‘˜ ∈ ℝ)
158157ltp1d 12092 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ π‘˜ < (π‘˜ + 1))
15948, 13jca 513 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑑 ∈ (-Ο€(,)0) β†’ (-Ο€ ∈ ℝ ∧ 𝑑 ∈ ℝ))
16069, 135prss 4785 . . . . . . . . . . . . . . . . . . . . . . 23 ((-Ο€ ∈ ℝ ∧ 𝑑 ∈ ℝ) ↔ {-Ο€, 𝑑} βŠ† ℝ)
161159, 160sylib 217 . . . . . . . . . . . . . . . . . . . . . 22 (𝑑 ∈ (-Ο€(,)0) β†’ {-Ο€, 𝑑} βŠ† ℝ)
162161adantl 483 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ {-Ο€, 𝑑} βŠ† ℝ)
163 ioossre 13332 . . . . . . . . . . . . . . . . . . . . . . 23 (-Ο€(,)𝑑) βŠ† ℝ
164138, 163sstri 3958 . . . . . . . . . . . . . . . . . . . . . 22 (ran 𝑄 ∩ (-Ο€(,)𝑑)) βŠ† ℝ
165164a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (ran 𝑄 ∩ (-Ο€(,)𝑑)) βŠ† ℝ)
166162, 165unssd 4151 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ ({-Ο€, 𝑑} βˆͺ (ran 𝑄 ∩ (-Ο€(,)𝑑))) βŠ† ℝ)
16773, 166eqsstrid 3997 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑇 βŠ† ℝ)
168113, 167, 127, 68fourierdlem36 44458 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝐽 Isom < , < ((0...𝑁), 𝑇))
169168adantr 482 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝐽 Isom < , < ((0...𝑁), 𝑇))
170 elfzofz 13595 . . . . . . . . . . . . . . . . . 18 (π‘˜ ∈ (0..^𝑁) β†’ π‘˜ ∈ (0...𝑁))
171170adantl 483 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ π‘˜ ∈ (0...𝑁))
172 fzofzp1 13676 . . . . . . . . . . . . . . . . . 18 (π‘˜ ∈ (0..^𝑁) β†’ (π‘˜ + 1) ∈ (0...𝑁))
173172adantl 483 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘˜ + 1) ∈ (0...𝑁))
174 isorel 7276 . . . . . . . . . . . . . . . . 17 ((𝐽 Isom < , < ((0...𝑁), 𝑇) ∧ (π‘˜ ∈ (0...𝑁) ∧ (π‘˜ + 1) ∈ (0...𝑁))) β†’ (π‘˜ < (π‘˜ + 1) ↔ (π½β€˜π‘˜) < (π½β€˜(π‘˜ + 1))))
175169, 171, 173, 174syl12anc 836 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘˜ < (π‘˜ + 1) ↔ (π½β€˜π‘˜) < (π½β€˜(π‘˜ + 1))))
176158, 175mpbid 231 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π½β€˜π‘˜) < (π½β€˜(π‘˜ + 1)))
17743adantr 482 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ π‘ˆ:(-Ο€[,]Ο€)βŸΆβ„)
178177, 62feqresmpt 6916 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (π‘ˆ β†Ύ (-Ο€[,]𝑑)) = (𝑠 ∈ (-Ο€[,]𝑑) ↦ (π‘ˆβ€˜π‘ )))
17962sselda 3949 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
18015, 16, 28, 39, 40fourierdlem9 44431 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ 𝐻:(-Ο€[,]Ο€)βŸΆβ„)
181180ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝐻:(-Ο€[,]Ο€)βŸΆβ„)
182181, 179ffvelcdmd 7041 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (π»β€˜π‘ ) ∈ ℝ)
18341fourierdlem43 44465 . . . . . . . . . . . . . . . . . . . . . . . . 25 𝐾:(-Ο€[,]Ο€)βŸΆβ„
184183a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝐾:(-Ο€[,]Ο€)βŸΆβ„)
185184, 179ffvelcdmd 7041 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (πΎβ€˜π‘ ) ∈ ℝ)
186182, 185remulcld 11192 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ ((π»β€˜π‘ ) Β· (πΎβ€˜π‘ )) ∈ ℝ)
18742fvmpt2 6964 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ ((π»β€˜π‘ ) Β· (πΎβ€˜π‘ )) ∈ ℝ) β†’ (π‘ˆβ€˜π‘ ) = ((π»β€˜π‘ ) Β· (πΎβ€˜π‘ )))
188179, 186, 187syl2anc 585 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (π‘ˆβ€˜π‘ ) = ((π»β€˜π‘ ) Β· (πΎβ€˜π‘ )))
18911a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ -Ο€ ∈ ℝ)
19013adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑑 ∈ ℝ)
191 simpr 486 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 ∈ (-Ο€[,]𝑑))
192 eliccre 43817 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((-Ο€ ∈ ℝ ∧ 𝑑 ∈ ℝ ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 ∈ ℝ)
193189, 190, 191, 192syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 ∈ ℝ)
194 0red 11165 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 0 ∈ ℝ)
19552a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ -Ο€ ∈ ℝ*)
196190rexrd 11212 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑑 ∈ ℝ*)
197 iccleub 13326 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((-Ο€ ∈ ℝ* ∧ 𝑑 ∈ ℝ* ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 ≀ 𝑑)
198195, 196, 191, 197syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 ≀ 𝑑)
19955adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑑 < 0)
200193, 190, 194, 198, 199lelttrd 11320 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 < 0)
201193, 200ltned 11298 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 β‰  0)
202201adantll 713 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 β‰  0)
203202neneqd 2949 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ Β¬ 𝑠 = 0)
204203iffalsed 4502 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠))
205193, 194, 200ltnsymd 11311 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ Β¬ 0 < 𝑠)
206205adantll 713 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ Β¬ 0 < 𝑠)
207206iffalsed 4502 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ if(0 < 𝑠, π‘Œ, π‘Š) = π‘Š)
208207oveq2d 7378 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) = ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š))
209208oveq1d 7377 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠))
210204, 209eqtrd 2777 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠))
21115ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝐹:β„βŸΆβ„)
21216ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑋 ∈ ℝ)
213 iccssre 13353 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((-Ο€ ∈ ℝ ∧ Ο€ ∈ ℝ) β†’ (-Ο€[,]Ο€) βŠ† ℝ)
21411, 10, 213mp2an 691 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (-Ο€[,]Ο€) βŠ† ℝ
215214, 179sselid 3947 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 ∈ ℝ)
216212, 215readdcld 11191 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (𝑋 + 𝑠) ∈ ℝ)
217211, 216ffvelcdmd 7041 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ ℝ)
21839ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ π‘Š ∈ ℝ)
219217, 218resubcld 11590 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) ∈ ℝ)
220219, 215, 202redivcld 11990 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) ∈ ℝ)
221210, 220eqeltrd 2838 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) ∈ ℝ)
22240fvmpt2 6964 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)) ∈ ℝ) β†’ (π»β€˜π‘ ) = if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)))
223179, 221, 222syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (π»β€˜π‘ ) = if(𝑠 = 0, 0, (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ if(0 < 𝑠, π‘Œ, π‘Š)) / 𝑠)))
224223, 204, 2093eqtrd 2781 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (π»β€˜π‘ ) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠))
22510a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ Ο€ ∈ ℝ)
226225renegcld 11589 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ -Ο€ ∈ ℝ)
227 iccgelb 13327 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((-Ο€ ∈ ℝ* ∧ 𝑑 ∈ ℝ* ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ -Ο€ ≀ 𝑠)
228195, 196, 191, 227syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ -Ο€ ≀ 𝑠)
22958adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑑 < Ο€)
230193, 190, 225, 198, 229lelttrd 11320 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 < Ο€)
231193, 225, 230ltled 11310 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 ≀ Ο€)
232226, 225, 193, 228, 231eliccd 43816 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
233201neneqd 2949 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ Β¬ 𝑠 = 0)
234233iffalsed 4502 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
235101a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 2 ∈ ℝ)
236193rehalfcld 12407 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (𝑠 / 2) ∈ ℝ)
237236resincld 16032 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (sinβ€˜(𝑠 / 2)) ∈ ℝ)
238235, 237remulcld 11192 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (2 Β· (sinβ€˜(𝑠 / 2))) ∈ ℝ)
239 2cn 12235 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 2 ∈ β„‚
240239a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 2 ∈ β„‚)
241193recnd 11190 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 ∈ β„‚)
242241halfcld 12405 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (𝑠 / 2) ∈ β„‚)
243242sincld 16019 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (sinβ€˜(𝑠 / 2)) ∈ β„‚)
244 2ne0 12264 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 2 β‰  0
245244a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 2 β‰  0)
246 fourierdlem44 44466 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ 𝑠 β‰  0) β†’ (sinβ€˜(𝑠 / 2)) β‰  0)
247232, 201, 246syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (sinβ€˜(𝑠 / 2)) β‰  0)
248240, 243, 245, 247mulne0d 11814 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (2 Β· (sinβ€˜(𝑠 / 2))) β‰  0)
249193, 238, 248redivcld 11990 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))) ∈ ℝ)
250234, 249eqeltrd 2838 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ ℝ)
25141fvmpt2 6964 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ ℝ) β†’ (πΎβ€˜π‘ ) = if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
252232, 250, 251syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑑 ∈ (-Ο€(,)0) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (πΎβ€˜π‘ ) = if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
253252adantll 713 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (πΎβ€˜π‘ ) = if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
254224, 253oveq12d 7380 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ ((π»β€˜π‘ ) Β· (πΎβ€˜π‘ )) = ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))))
255203iffalsed 4502 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
256255oveq2d 7378 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) = ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
257188, 254, 2563eqtrd 2781 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (π‘ˆβ€˜π‘ ) = ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
258257mpteq2dva 5210 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (𝑠 ∈ (-Ο€[,]𝑑) ↦ (π‘ˆβ€˜π‘ )) = (𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))))
25965, 178, 2583eqtrd 2781 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑂 = (𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))))
260259adantr 482 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝑂 = (𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))))
261260reseq1d 5941 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) = ((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))))
26215adantr 482 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝐹:β„βŸΆβ„)
26316adantr 482 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑋 ∈ ℝ)
264 fourierdlem103.p . . . . . . . . . . . . . . . . . 18 𝑃 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = (-Ο€ + 𝑋) ∧ (π‘β€˜π‘š) = (Ο€ + 𝑋)) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
265 fourierdlem103.m . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑀 ∈ β„•)
266265adantr 482 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑀 ∈ β„•)
267 fourierdlem103.v . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ 𝑉 ∈ (π‘ƒβ€˜π‘€))
268267adantr 482 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑉 ∈ (π‘ƒβ€˜π‘€))
269 fourierdlem103.fcn . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) ∈ (((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))–cnβ†’β„‚))
270269adantlr 714 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) ∈ (((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))–cnβ†’β„‚))
271 fourierdlem103.r . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (π‘‰β€˜π‘–)))
272271adantlr 714 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (π‘‰β€˜π‘–)))
273 fourierdlem103.l . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (π‘‰β€˜(𝑖 + 1))))
274273adantlr 714 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (π‘‰β€˜(𝑖 + 1))))
275106adantl 483 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ -Ο€ < 𝑑)
27652a1i 11 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ -Ο€ ∈ ℝ*)
27753a1i 11 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 0 ∈ ℝ*)
27855adantl 483 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑑 < 0)
279276, 14, 277, 278gtnelicc 43812 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ Β¬ 0 ∈ (-Ο€[,]𝑑))
28039adantr 482 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ π‘Š ∈ ℝ)
281 eqid 2737 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) = (𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
282 eqid 2737 . . . . . . . . . . . . . . . . . 18 (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))) = (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2)))))
283 eqid 2737 . . . . . . . . . . . . . . . . . 18 (((if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))) = (((if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2)))))
284 fveq2 6847 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 = 𝑖 β†’ (π‘„β€˜π‘™) = (π‘„β€˜π‘–))
285 oveq1 7369 . . . . . . . . . . . . . . . . . . . . . 22 (𝑙 = 𝑖 β†’ (𝑙 + 1) = (𝑖 + 1))
286285fveq2d 6851 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 = 𝑖 β†’ (π‘„β€˜(𝑙 + 1)) = (π‘„β€˜(𝑖 + 1)))
287284, 286oveq12d 7380 . . . . . . . . . . . . . . . . . . . 20 (𝑙 = 𝑖 β†’ ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
288287sseq2d 3981 . . . . . . . . . . . . . . . . . . 19 (𝑙 = 𝑖 β†’ (((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))) ↔ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
289288cbvriotavw 7328 . . . . . . . . . . . . . . . . . 18 (℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) = (℩𝑖 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
290262, 263, 264, 266, 268, 270, 272, 274, 12, 14, 275, 62, 279, 280, 281, 80, 73, 68, 127, 282, 283, 289fourierdlem86 44507 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (((((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))) ∈ (((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜(π‘˜ + 1))) ∧ (((if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))) ∈ (((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜π‘˜))) ∧ ((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) ∈ (((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))–cnβ†’β„‚)))
291290simprd 497 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) ∈ (((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))–cnβ†’β„‚))
292261, 291eqeltrd 2838 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) ∈ (((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))–cnβ†’β„‚))
293290simpld 496 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))) ∈ (((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜(π‘˜ + 1))) ∧ (((if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))) ∈ (((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜π‘˜))))
294293simpld 496 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))) ∈ (((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜(π‘˜ + 1))))
295260eqcomd 2743 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) = 𝑂)
296295reseq1d 5941 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) = (𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))))
297296oveq1d 7377 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜(π‘˜ + 1))) = ((𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜(π‘˜ + 1))))
298294, 297eleqtrd 2840 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))) ∈ ((𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜(π‘˜ + 1))))
299293simprd 497 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (((if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))) ∈ (((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜π‘˜)))
300296oveq1d 7377 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (((𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜π‘˜)) = ((𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜π‘˜)))
301299, 300eleqtrd 2840 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (((if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))) ∈ ((𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) limβ„‚ (π½β€˜π‘˜)))
302 eqid 2737 . . . . . . . . . . . . . . 15 (ℝ D 𝑂) = (ℝ D 𝑂)
30367adantr 482 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝑂:(-Ο€[,]𝑑)βŸΆβ„‚)
30411a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ -Ο€ ∈ ℝ)
30514ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ 𝑑 ∈ ℝ)
306 elioore 13301 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) β†’ 𝑠 ∈ ℝ)
307306adantl 483 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ 𝑠 ∈ ℝ)
30862, 214sstrdi 3961 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (-Ο€[,]𝑑) βŠ† ℝ)
309308adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (-Ο€[,]𝑑) βŠ† ℝ)
310152adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝐽:(0...𝑁)⟢(-Ο€[,]𝑑))
311310, 171ffvelcdmd 7041 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π½β€˜π‘˜) ∈ (-Ο€[,]𝑑))
312309, 311sseldd 3950 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π½β€˜π‘˜) ∈ ℝ)
313312adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (π½β€˜π‘˜) ∈ ℝ)
31452a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ -Ο€ ∈ ℝ*)
31514adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝑑 ∈ ℝ)
316315rexrd 11212 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝑑 ∈ ℝ*)
317 iccgelb 13327 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((-Ο€ ∈ ℝ* ∧ 𝑑 ∈ ℝ* ∧ (π½β€˜π‘˜) ∈ (-Ο€[,]𝑑)) β†’ -Ο€ ≀ (π½β€˜π‘˜))
318314, 316, 311, 317syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ -Ο€ ≀ (π½β€˜π‘˜))
319318adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ -Ο€ ≀ (π½β€˜π‘˜))
320313rexrd 11212 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (π½β€˜π‘˜) ∈ ℝ*)
321310, 173ffvelcdmd 7041 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π½β€˜(π‘˜ + 1)) ∈ (-Ο€[,]𝑑))
322309, 321sseldd 3950 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π½β€˜(π‘˜ + 1)) ∈ ℝ)
323322rexrd 11212 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π½β€˜(π‘˜ + 1)) ∈ ℝ*)
324323adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (π½β€˜(π‘˜ + 1)) ∈ ℝ*)
325 simpr 486 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))))
326 ioogtlb 43807 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((π½β€˜π‘˜) ∈ ℝ* ∧ (π½β€˜(π‘˜ + 1)) ∈ ℝ* ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (π½β€˜π‘˜) < 𝑠)
327320, 324, 325, 326syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (π½β€˜π‘˜) < 𝑠)
328304, 313, 307, 319, 327lelttrd 11320 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ -Ο€ < 𝑠)
329304, 307, 328ltled 11310 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ -Ο€ ≀ 𝑠)
330322adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (π½β€˜(π‘˜ + 1)) ∈ ℝ)
331 iooltub 43822 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((π½β€˜π‘˜) ∈ ℝ* ∧ (π½β€˜(π‘˜ + 1)) ∈ ℝ* ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ 𝑠 < (π½β€˜(π‘˜ + 1)))
332320, 324, 325, 331syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ 𝑠 < (π½β€˜(π‘˜ + 1)))
333 iccleub 13326 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((-Ο€ ∈ ℝ* ∧ 𝑑 ∈ ℝ* ∧ (π½β€˜(π‘˜ + 1)) ∈ (-Ο€[,]𝑑)) β†’ (π½β€˜(π‘˜ + 1)) ≀ 𝑑)
334314, 316, 321, 333syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π½β€˜(π‘˜ + 1)) ≀ 𝑑)
335334adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (π½β€˜(π‘˜ + 1)) ≀ 𝑑)
336307, 330, 305, 332, 335ltletrd 11322 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ 𝑠 < 𝑑)
337307, 305, 336ltled 11310 . . . . . . . . . . . . . . . . . . . . . . 23 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ 𝑠 ≀ 𝑑)
338304, 305, 307, 329, 337eliccd 43816 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ 𝑠 ∈ (-Ο€[,]𝑑))
339338ralrimiva 3144 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ βˆ€π‘  ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))𝑠 ∈ (-Ο€[,]𝑑))
340 dfss3 3937 . . . . . . . . . . . . . . . . . . . . 21 (((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† (-Ο€[,]𝑑) ↔ βˆ€π‘  ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))𝑠 ∈ (-Ο€[,]𝑑))
341339, 340sylibr 233 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† (-Ο€[,]𝑑))
342303, 341feqresmpt 6916 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) = (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (π‘‚β€˜π‘ )))
343 simplll 774 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ πœ‘)
344 simpllr 775 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ 𝑑 ∈ (-Ο€(,)0))
34564fveq1i 6848 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘‚β€˜π‘ ) = ((π‘ˆ β†Ύ (-Ο€[,]𝑑))β€˜π‘ )
346345a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (π‘‚β€˜π‘ ) = ((π‘ˆ β†Ύ (-Ο€[,]𝑑))β€˜π‘ ))
347 fvres 6866 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ (-Ο€[,]𝑑) β†’ ((π‘ˆ β†Ύ (-Ο€[,]𝑑))β€˜π‘ ) = (π‘ˆβ€˜π‘ ))
348347adantl 483 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ ((π‘ˆ β†Ύ (-Ο€[,]𝑑))β€˜π‘ ) = (π‘ˆβ€˜π‘ ))
349253, 255eqtrd 2777 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (πΎβ€˜π‘ ) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
350224, 349oveq12d 7380 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ ((π»β€˜π‘ ) Β· (πΎβ€˜π‘ )) = ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
351219recnd 11190 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) ∈ β„‚)
352241adantll 713 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 𝑠 ∈ β„‚)
353239a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ 2 ∈ β„‚)
354352halfcld 12405 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (𝑠 / 2) ∈ β„‚)
355354sincld 16019 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (sinβ€˜(𝑠 / 2)) ∈ β„‚)
356353, 355mulcld 11182 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (2 Β· (sinβ€˜(𝑠 / 2))) ∈ β„‚)
357248adantll 713 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (2 Β· (sinβ€˜(𝑠 / 2))) β‰  0)
358351, 352, 356, 202, 357dmdcan2d 11968 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))
359188, 350, 3583eqtrd 2781 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (π‘ˆβ€˜π‘ ) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))
360346, 348, 3593eqtrd 2781 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€[,]𝑑)) β†’ (π‘‚β€˜π‘ ) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))
361343, 344, 338, 360syl21anc 837 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (π‘‚β€˜π‘ ) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))
362343, 344, 338, 358syl21anc 837 . . . . . . . . . . . . . . . . . . . . . 22 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))
363362eqcomd 2743 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))) = ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
364 eqidd 2738 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑)) = (𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑)))
365 oveq2 7370 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑑 = 𝑠 β†’ (𝑋 + 𝑑) = (𝑋 + 𝑠))
366365fveq2d 6851 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑑 = 𝑠 β†’ (πΉβ€˜(𝑋 + 𝑑)) = (πΉβ€˜(𝑋 + 𝑠)))
367366oveq1d 7377 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑑 = 𝑠 β†’ ((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) = ((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š))
368 id 22 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑑 = 𝑠 β†’ 𝑑 = 𝑠)
369367, 368oveq12d 7380 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑑 = 𝑠 β†’ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠))
370369adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) ∧ 𝑑 = 𝑠) β†’ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠))
371 simpr 486 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))))
372 ovex 7395 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) ∈ V
373372a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) ∈ V)
374364, 370, 371, 373fvmptd 6960 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠))
375 eqidd 2738 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2))))) = (𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2))))))
376 oveq1 7369 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝑑 = 𝑠 β†’ (𝑑 / 2) = (𝑠 / 2))
377376fveq2d 6851 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑑 = 𝑠 β†’ (sinβ€˜(𝑑 / 2)) = (sinβ€˜(𝑠 / 2)))
378377oveq2d 7378 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑑 = 𝑠 β†’ (2 Β· (sinβ€˜(𝑑 / 2))) = (2 Β· (sinβ€˜(𝑠 / 2))))
379368, 378oveq12d 7380 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑑 = 𝑠 β†’ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
380379adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) ∧ 𝑑 = 𝑠) β†’ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
381 ovex 7395 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))) ∈ V
382381a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))) ∈ V)
383375, 380, 371, 382fvmptd 6960 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ ) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
384374, 383oveq12d 7380 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) Β· ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ )) = ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
385384eqcomd 2743 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) = (((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) Β· ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ )))
386385adantllr 718 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) = (((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) Β· ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ )))
387361, 363, 3863eqtrd 2781 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) β†’ (π‘‚β€˜π‘ ) = (((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) Β· ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ )))
388387mpteq2dva 5210 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (π‘‚β€˜π‘ )) = (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) Β· ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ ))))
389342, 388eqtr2d 2778 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) Β· ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ ))) = (𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))))
390389oveq2d 7378 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (ℝ D (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) Β· ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ )))) = (ℝ D (𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))))))
39144a1i 11 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ℝ βŠ† β„‚)
392341, 309sstrd 3959 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ℝ)
39322tgioo2 24182 . . . . . . . . . . . . . . . . . . 19 (topGenβ€˜ran (,)) = ((TopOpenβ€˜β„‚fld) β†Ύt ℝ)
39422, 393dvres 25291 . . . . . . . . . . . . . . . . . 18 (((ℝ βŠ† β„‚ ∧ 𝑂:(-Ο€[,]𝑑)βŸΆβ„‚) ∧ ((-Ο€[,]𝑑) βŠ† ℝ ∧ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ℝ)) β†’ (ℝ D (𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))))) = ((ℝ D 𝑂) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))))))
395391, 303, 309, 392, 394syl22anc 838 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (ℝ D (𝑂 β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))))) = ((ℝ D 𝑂) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))))))
396 ioontr 43823 . . . . . . . . . . . . . . . . . . 19 ((intβ€˜(topGenβ€˜ran (,)))β€˜((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) = ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))
397396a1i 11 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) = ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))))
398397reseq2d 5942 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((ℝ D 𝑂) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))))) = ((ℝ D 𝑂) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))))
399390, 395, 3983eqtrrd 2782 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((ℝ D 𝑂) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) = (ℝ D (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) Β· ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ )))))
40015ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝐹:β„βŸΆβ„)
40116ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝑋 ∈ ℝ)
402265ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝑀 ∈ β„•)
403267ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝑉 ∈ (π‘ƒβ€˜π‘€))
404 fourierdlem103.fdvcn . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) ∈ (((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))–cn→ℝ))
405404ad4ant14 751 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) ∈ (((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))–cn→ℝ))
40662adantr 482 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (-Ο€[,]𝑑) βŠ† (-Ο€[,]Ο€))
407341, 406sstrd 3959 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† (-Ο€[,]Ο€))
408312rexrd 11212 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π½β€˜π‘˜) ∈ ℝ*)
40953a1i 11 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 0 ∈ ℝ*)
410 0red 11165 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 0 ∈ ℝ)
41155ad2antlr 726 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝑑 < 0)
412322, 315, 410, 334, 411lelttrd 11320 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π½β€˜(π‘˜ + 1)) < 0)
413408, 322, 409, 412gtnelicc 43812 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ Β¬ 0 ∈ ((π½β€˜π‘˜)[,](π½β€˜(π‘˜ + 1))))
41439ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ π‘Š ∈ ℝ)
41511a1i 11 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ -Ο€ ∈ ℝ)
416106ad2antlr 726 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ -Ο€ < 𝑑)
417 simpr 486 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ π‘˜ ∈ (0..^𝑁))
418 biid 261 . . . . . . . . . . . . . . . . . . 19 (((((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑣 ∈ (0..^𝑀)) ∧ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘£)(,)(π‘„β€˜(𝑣 + 1)))) ↔ ((((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑖 ∈ (0..^𝑀)) ∧ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑣 ∈ (0..^𝑀)) ∧ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘£)(,)(π‘„β€˜(𝑣 + 1)))))
419401, 264, 402, 403, 415, 315, 416, 406, 80, 73, 68, 127, 417, 289, 418fourierdlem50 44471 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) ∈ (0..^𝑀) ∧ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))))(,)(π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)))))
420419simpld 496 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) ∈ (0..^𝑀))
421419simprd 497 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))))(,)(π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1))))
422369cbvmptv 5223 . . . . . . . . . . . . . . . . 17 (𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑)) = (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠))
423379cbvmptv 5223 . . . . . . . . . . . . . . . . 17 (𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2))))) = (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
424 eqid 2737 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) Β· ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ ))) = (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) Β· ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ )))
425400, 401, 264, 402, 403, 405, 312, 322, 176, 407, 413, 414, 80, 420, 421, 422, 423, 424fourierdlem72 44493 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (ℝ D (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / 𝑑))β€˜π‘ ) Β· ((𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (𝑑 / (2 Β· (sinβ€˜(𝑑 / 2)))))β€˜π‘ )))) ∈ (((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))–cnβ†’β„‚))
426399, 425eqeltrd 2838 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((ℝ D 𝑂) β†Ύ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))) ∈ (((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1)))–cnβ†’β„‚))
427 eqid 2737 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))) = (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))
428 eqid 2737 . . . . . . . . . . . . . . . . 17 ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))) = ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))
429 fourierdlem103.1 . . . . . . . . . . . . . . . . . . . 20 𝐢 = (℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))
430429, 420eqeltrid 2842 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝐢 ∈ (0..^𝑀))
431 simpll 766 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ πœ‘)
432431, 430jca 513 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (πœ‘ ∧ 𝐢 ∈ (0..^𝑀)))
433 eleq1 2826 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝐢 β†’ (𝑖 ∈ (0..^𝑀) ↔ 𝐢 ∈ (0..^𝑀)))
434433anbi2d 630 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 𝐢 β†’ ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ↔ (πœ‘ ∧ 𝐢 ∈ (0..^𝑀))))
435 fveq2 6847 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑖 = 𝐢 β†’ (π‘‰β€˜π‘–) = (π‘‰β€˜πΆ))
436 oveq1 7369 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑖 = 𝐢 β†’ (𝑖 + 1) = (𝐢 + 1))
437436fveq2d 6851 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑖 = 𝐢 β†’ (π‘‰β€˜(𝑖 + 1)) = (π‘‰β€˜(𝐢 + 1)))
438435, 437oveq12d 7380 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑖 = 𝐢 β†’ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1))) = ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1))))
439 raleq 3312 . . . . . . . . . . . . . . . . . . . . . . 23 (((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1))) = ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1))) β†’ (βˆ€π‘‘ ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀 ↔ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀))
440438, 439syl 17 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝐢 β†’ (βˆ€π‘‘ ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀 ↔ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀))
441440rexbidv 3176 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 𝐢 β†’ (βˆƒπ‘€ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀 ↔ βˆƒπ‘€ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀))
442434, 441imbi12d 345 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝐢 β†’ (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘€ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀) ↔ ((πœ‘ ∧ 𝐢 ∈ (0..^𝑀)) β†’ βˆƒπ‘€ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀)))
443 fourierdlem103.fbdioo . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘€ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀)
444442, 443vtoclg 3528 . . . . . . . . . . . . . . . . . . 19 (𝐢 ∈ (0..^𝑀) β†’ ((πœ‘ ∧ 𝐢 ∈ (0..^𝑀)) β†’ βˆƒπ‘€ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀))
445430, 432, 444sylc 65 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ βˆƒπ‘€ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀)
446 nfv 1918 . . . . . . . . . . . . . . . . . . . . . 22 Ⅎ𝑑((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁))
447 nfra1 3270 . . . . . . . . . . . . . . . . . . . . . 22 β„²π‘‘βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀
448446, 447nfan 1903 . . . . . . . . . . . . . . . . . . . . 21 Ⅎ𝑑(((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀)
449 simplr 768 . . . . . . . . . . . . . . . . . . . . . . 23 (((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀)
45011a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (πœ‘ β†’ -Ο€ ∈ ℝ)
451450, 16readdcld 11191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (πœ‘ β†’ (-Ο€ + 𝑋) ∈ ℝ)
45210a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (πœ‘ β†’ Ο€ ∈ ℝ)
453452, 16readdcld 11191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (πœ‘ β†’ (Ο€ + 𝑋) ∈ ℝ)
454451, 453iccssred 13358 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (πœ‘ β†’ ((-Ο€ + 𝑋)[,](Ο€ + 𝑋)) βŠ† ℝ)
455 ressxr 11206 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ℝ βŠ† ℝ*
456454, 455sstrdi 3961 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ ((-Ο€ + 𝑋)[,](Ο€ + 𝑋)) βŠ† ℝ*)
457456ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((-Ο€ + 𝑋)[,](Ο€ + 𝑋)) βŠ† ℝ*)
458264, 402, 403fourierdlem15 44437 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝑉:(0...𝑀)⟢((-Ο€ + 𝑋)[,](Ο€ + 𝑋)))
459 elfzofz 13595 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝐢 ∈ (0..^𝑀) β†’ 𝐢 ∈ (0...𝑀))
460430, 459syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝐢 ∈ (0...𝑀))
461458, 460ffvelcdmd 7041 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘‰β€˜πΆ) ∈ ((-Ο€ + 𝑋)[,](Ο€ + 𝑋)))
462457, 461sseldd 3950 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘‰β€˜πΆ) ∈ ℝ*)
463462adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (π‘‰β€˜πΆ) ∈ ℝ*)
464 fzofzp1 13676 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (𝐢 ∈ (0..^𝑀) β†’ (𝐢 + 1) ∈ (0...𝑀))
465430, 464syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝐢 + 1) ∈ (0...𝑀))
466458, 465ffvelcdmd 7041 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘‰β€˜(𝐢 + 1)) ∈ ((-Ο€ + 𝑋)[,](Ο€ + 𝑋)))
467457, 466sseldd 3950 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘‰β€˜(𝐢 + 1)) ∈ ℝ*)
468467adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (π‘‰β€˜(𝐢 + 1)) ∈ ℝ*)
469 elioore 13301 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))) β†’ 𝑑 ∈ ℝ)
470469adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ 𝑑 ∈ ℝ)
47110a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ Ο€ ∈ ℝ)
472415, 471, 401, 264, 402, 403, 460, 80fourierdlem13 44435 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((π‘„β€˜πΆ) = ((π‘‰β€˜πΆ) βˆ’ 𝑋) ∧ (π‘‰β€˜πΆ) = (𝑋 + (π‘„β€˜πΆ))))
473472simprd 497 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘‰β€˜πΆ) = (𝑋 + (π‘„β€˜πΆ)))
474473adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (π‘‰β€˜πΆ) = (𝑋 + (π‘„β€˜πΆ)))
475454ad2antrr 725 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((-Ο€ + 𝑋)[,](Ο€ + 𝑋)) βŠ† ℝ)
476475, 461sseldd 3950 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘‰β€˜πΆ) ∈ ℝ)
477476adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (π‘‰β€˜πΆ) ∈ ℝ)
478474, 477eqeltrrd 2839 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π‘„β€˜πΆ)) ∈ ℝ)
479401, 312readdcld 11191 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑋 + (π½β€˜π‘˜)) ∈ ℝ)
480479adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π½β€˜π‘˜)) ∈ ℝ)
481472simpld 496 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘„β€˜πΆ) = ((π‘‰β€˜πΆ) βˆ’ 𝑋))
482476, 401resubcld 11590 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((π‘‰β€˜πΆ) βˆ’ 𝑋) ∈ ℝ)
483481, 482eqeltrd 2838 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘„β€˜πΆ) ∈ ℝ)
484415, 471, 401, 264, 402, 403, 465, 80fourierdlem13 44435 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((π‘„β€˜(𝐢 + 1)) = ((π‘‰β€˜(𝐢 + 1)) βˆ’ 𝑋) ∧ (π‘‰β€˜(𝐢 + 1)) = (𝑋 + (π‘„β€˜(𝐢 + 1)))))
485484simpld 496 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘„β€˜(𝐢 + 1)) = ((π‘‰β€˜(𝐢 + 1)) βˆ’ 𝑋))
486475, 466sseldd 3950 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘‰β€˜(𝐢 + 1)) ∈ ℝ)
487486, 401resubcld 11590 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((π‘‰β€˜(𝐢 + 1)) βˆ’ 𝑋) ∈ ℝ)
488485, 487eqeltrd 2838 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘„β€˜(𝐢 + 1)) ∈ ℝ)
489429eqcomi 2746 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 (℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) = 𝐢
490489fveq2i 6850 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))) = (π‘„β€˜πΆ)
491489oveq1i 7372 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 ((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1) = (𝐢 + 1)
492491fveq2i 6850 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)) = (π‘„β€˜(𝐢 + 1))
493490, 492oveq12i 7374 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 ((π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))))(,)(π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1))) = ((π‘„β€˜πΆ)(,)(π‘„β€˜(𝐢 + 1)))
494421, 493sseqtrdi 3999 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜πΆ)(,)(π‘„β€˜(𝐢 + 1))))
495483, 488, 312, 322, 176, 494fourierdlem10 44432 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((π‘„β€˜πΆ) ≀ (π½β€˜π‘˜) ∧ (π½β€˜(π‘˜ + 1)) ≀ (π‘„β€˜(𝐢 + 1))))
496495simpld 496 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘„β€˜πΆ) ≀ (π½β€˜π‘˜))
497483, 312, 401, 496leadd2dd 11777 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑋 + (π‘„β€˜πΆ)) ≀ (𝑋 + (π½β€˜π‘˜)))
498497adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π‘„β€˜πΆ)) ≀ (𝑋 + (π½β€˜π‘˜)))
499480rexrd 11212 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π½β€˜π‘˜)) ∈ ℝ*)
500401, 322readdcld 11191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑋 + (π½β€˜(π‘˜ + 1))) ∈ ℝ)
501500rexrd 11212 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑋 + (π½β€˜(π‘˜ + 1))) ∈ ℝ*)
502501adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π½β€˜(π‘˜ + 1))) ∈ ℝ*)
503 simpr 486 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))
504 ioogtlb 43807 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑋 + (π½β€˜π‘˜)) ∈ ℝ* ∧ (𝑋 + (π½β€˜(π‘˜ + 1))) ∈ ℝ* ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π½β€˜π‘˜)) < 𝑑)
505499, 502, 503, 504syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π½β€˜π‘˜)) < 𝑑)
506478, 480, 470, 498, 505lelttrd 11320 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π‘„β€˜πΆ)) < 𝑑)
507474, 506eqbrtrd 5132 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (π‘‰β€˜πΆ) < 𝑑)
508500adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π½β€˜(π‘˜ + 1))) ∈ ℝ)
509484simprd 497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π‘‰β€˜(𝐢 + 1)) = (𝑋 + (π‘„β€˜(𝐢 + 1))))
510509, 486eqeltrrd 2839 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑋 + (π‘„β€˜(𝐢 + 1))) ∈ ℝ)
511510adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π‘„β€˜(𝐢 + 1))) ∈ ℝ)
512 iooltub 43822 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((𝑋 + (π½β€˜π‘˜)) ∈ ℝ* ∧ (𝑋 + (π½β€˜(π‘˜ + 1))) ∈ ℝ* ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ 𝑑 < (𝑋 + (π½β€˜(π‘˜ + 1))))
513499, 502, 503, 512syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ 𝑑 < (𝑋 + (π½β€˜(π‘˜ + 1))))
514495simprd 497 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (π½β€˜(π‘˜ + 1)) ≀ (π‘„β€˜(𝐢 + 1)))
515322, 488, 401, 514leadd2dd 11777 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑋 + (π½β€˜(π‘˜ + 1))) ≀ (𝑋 + (π‘„β€˜(𝐢 + 1))))
516515adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π½β€˜(π‘˜ + 1))) ≀ (𝑋 + (π‘„β€˜(𝐢 + 1))))
517470, 508, 511, 513, 516ltletrd 11322 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ 𝑑 < (𝑋 + (π‘„β€˜(𝐢 + 1))))
518509eqcomd 2743 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (𝑋 + (π‘„β€˜(𝐢 + 1))) = (π‘‰β€˜(𝐢 + 1)))
519518adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (𝑋 + (π‘„β€˜(𝐢 + 1))) = (π‘‰β€˜(𝐢 + 1)))
520517, 519breqtrd 5136 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ 𝑑 < (π‘‰β€˜(𝐢 + 1)))
521463, 468, 470, 507, 520eliood 43810 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ 𝑑 ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1))))
522521adantlr 714 . . . . . . . . . . . . . . . . . . . . . . 23 (((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ 𝑑 ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1))))
523 rspa 3234 . . . . . . . . . . . . . . . . . . . . . . 23 ((βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀 ∧ 𝑑 ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))) β†’ (absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀)
524449, 522, 523syl2anc 585 . . . . . . . . . . . . . . . . . . . . . 22 (((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀)
525524ex 414 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀) β†’ (𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))) β†’ (absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀))
526448, 525ralrimi 3243 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀) β†’ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀)
527526ex 414 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀 β†’ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀))
528527reximdv 3168 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (βˆƒπ‘€ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀 β†’ βˆƒπ‘€ ∈ ℝ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀))
529445, 528mpd 15 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ βˆƒπ‘€ ∈ ℝ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀)
530438raleqdv 3316 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝐢 β†’ (βˆ€π‘‘ ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧 ↔ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧))
531530rexbidv 3176 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 = 𝐢 β†’ (βˆƒπ‘§ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧 ↔ βˆƒπ‘§ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧))
532434, 531imbi12d 345 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝐢 β†’ (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘§ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧) ↔ ((πœ‘ ∧ 𝐢 ∈ (0..^𝑀)) β†’ βˆƒπ‘§ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧)))
533 fourierdlem103.fdvbd . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆƒπ‘§ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧)
534532, 533vtoclg 3528 . . . . . . . . . . . . . . . . . . 19 (𝐢 ∈ (0..^𝑀) β†’ ((πœ‘ ∧ 𝐢 ∈ (0..^𝑀)) β†’ βˆƒπ‘§ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧))
535430, 432, 534sylc 65 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ βˆƒπ‘§ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧)
536 nfra1 3270 . . . . . . . . . . . . . . . . . . . . . 22 β„²π‘‘βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧
537446, 536nfan 1903 . . . . . . . . . . . . . . . . . . . . 21 Ⅎ𝑑(((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧)
53815, 45fssd 6691 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (πœ‘ β†’ 𝐹:β„βŸΆβ„‚)
539 ssid 3971 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ℝ βŠ† ℝ
540539a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (πœ‘ β†’ ℝ βŠ† ℝ)
541 ioossre 13332 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))) βŠ† ℝ
542541a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (πœ‘ β†’ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))) βŠ† ℝ)
54322, 393dvres 25291 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (((ℝ βŠ† β„‚ ∧ 𝐹:β„βŸΆβ„‚) ∧ (ℝ βŠ† ℝ ∧ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))) βŠ† ℝ)) β†’ (ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))) = ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))))
54445, 538, 540, 542, 543syl22anc 838 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (πœ‘ β†’ (ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))) = ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))))
545 ioontr 43823 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 ((intβ€˜(topGenβ€˜ran (,)))β€˜((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) = ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))
546545reseq2i 5939 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))) = ((ℝ D 𝐹) β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))
547546a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (πœ‘ β†’ ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))) = ((ℝ D 𝐹) β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))
548544, 547eqtrd 2777 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (πœ‘ β†’ (ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))) = ((ℝ D 𝐹) β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))
549548fveq1d 6849 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (πœ‘ β†’ ((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘) = (((ℝ D 𝐹) β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))β€˜π‘‘))
550 fvres 6866 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))) β†’ (((ℝ D 𝐹) β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))β€˜π‘‘) = ((ℝ D 𝐹)β€˜π‘‘))
551549, 550sylan9eq 2797 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((πœ‘ ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ ((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘) = ((ℝ D 𝐹)β€˜π‘‘))
552551ad4ant14 751 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ ((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘) = ((ℝ D 𝐹)β€˜π‘‘))
553552fveq2d 6851 . . . . . . . . . . . . . . . . . . . . . . . 24 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)) = (absβ€˜((ℝ D 𝐹)β€˜π‘‘)))
554553adantlr 714 . . . . . . . . . . . . . . . . . . . . . . 23 (((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)) = (absβ€˜((ℝ D 𝐹)β€˜π‘‘)))
555 simplr 768 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧)
556521adantlr 714 . . . . . . . . . . . . . . . . . . . . . . . 24 (((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ 𝑑 ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1))))
557 rspa 3234 . . . . . . . . . . . . . . . . . . . . . . . 24 ((βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧 ∧ 𝑑 ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))) β†’ (absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧)
558555, 556, 557syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . 23 (((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧)
559554, 558eqbrtrd 5132 . . . . . . . . . . . . . . . . . . . . . 22 (((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧) ∧ 𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) β†’ (absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)) ≀ 𝑧)
560559ex 414 . . . . . . . . . . . . . . . . . . . . 21 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧) β†’ (𝑑 ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))) β†’ (absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)) ≀ 𝑧))
561537, 560ralrimi 3243 . . . . . . . . . . . . . . . . . . . 20 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧) β†’ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)) ≀ 𝑧)
562561ex 414 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧 β†’ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)) ≀ 𝑧))
563562reximdv 3168 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (βˆƒπ‘§ ∈ ℝ βˆ€π‘‘ ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))(absβ€˜((ℝ D 𝐹)β€˜π‘‘)) ≀ 𝑧 β†’ βˆƒπ‘§ ∈ ℝ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)) ≀ 𝑧))
564535, 563mpd 15 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ βˆƒπ‘§ ∈ ℝ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)) ≀ 𝑧)
565415rexrd 11212 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ -Ο€ ∈ ℝ*)
566565, 316, 310, 417fourierdlem8 44430 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((π½β€˜π‘˜)[,](π½β€˜(π‘˜ + 1))) βŠ† (-Ο€[,]𝑑))
567126ad2antrr 725 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘Ÿ ∈ (-Ο€[,]𝑑)) ∧ Β¬ π‘Ÿ ∈ ran 𝐽) β†’ 𝑁 ∈ β„•)
568152, 308fssd 6691 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝐽:(0...𝑁)βŸΆβ„)
569568ad2antrr 725 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘Ÿ ∈ (-Ο€[,]𝑑)) ∧ Β¬ π‘Ÿ ∈ ran 𝐽) β†’ 𝐽:(0...𝑁)βŸΆβ„)
570 simpr 486 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘Ÿ ∈ (-Ο€[,]𝑑)) β†’ π‘Ÿ ∈ (-Ο€[,]𝑑))
571153eqcomd 2743 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ -Ο€ = (π½β€˜0))
572154eqcomd 2743 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑑 = (π½β€˜π‘))
573571, 572oveq12d 7380 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (-Ο€[,]𝑑) = ((π½β€˜0)[,](π½β€˜π‘)))
574573adantr 482 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘Ÿ ∈ (-Ο€[,]𝑑)) β†’ (-Ο€[,]𝑑) = ((π½β€˜0)[,](π½β€˜π‘)))
575570, 574eleqtrd 2840 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘Ÿ ∈ (-Ο€[,]𝑑)) β†’ π‘Ÿ ∈ ((π½β€˜0)[,](π½β€˜π‘)))
576575adantr 482 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘Ÿ ∈ (-Ο€[,]𝑑)) ∧ Β¬ π‘Ÿ ∈ ran 𝐽) β†’ π‘Ÿ ∈ ((π½β€˜0)[,](π½β€˜π‘)))
577 simpr 486 . . . . . . . . . . . . . . . . . 18 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘Ÿ ∈ (-Ο€[,]𝑑)) ∧ Β¬ π‘Ÿ ∈ ran 𝐽) β†’ Β¬ π‘Ÿ ∈ ran 𝐽)
578 fveq2 6847 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 = π‘˜ β†’ (π½β€˜π‘—) = (π½β€˜π‘˜))
579578breq1d 5120 . . . . . . . . . . . . . . . . . . . 20 (𝑗 = π‘˜ β†’ ((π½β€˜π‘—) < π‘Ÿ ↔ (π½β€˜π‘˜) < π‘Ÿ))
580579cbvrabv 3420 . . . . . . . . . . . . . . . . . . 19 {𝑗 ∈ (0..^𝑁) ∣ (π½β€˜π‘—) < π‘Ÿ} = {π‘˜ ∈ (0..^𝑁) ∣ (π½β€˜π‘˜) < π‘Ÿ}
581580supeq1i 9390 . . . . . . . . . . . . . . . . . 18 sup({𝑗 ∈ (0..^𝑁) ∣ (π½β€˜π‘—) < π‘Ÿ}, ℝ, < ) = sup({π‘˜ ∈ (0..^𝑁) ∣ (π½β€˜π‘˜) < π‘Ÿ}, ℝ, < )
582567, 569, 576, 577, 581fourierdlem25 44447 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘Ÿ ∈ (-Ο€[,]𝑑)) ∧ Β¬ π‘Ÿ ∈ ran 𝐽) β†’ βˆƒπ‘š ∈ (0..^𝑁)π‘Ÿ ∈ ((π½β€˜π‘š)(,)(π½β€˜(π‘š + 1))))
583546a1i 11 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))) = ((ℝ D 𝐹) β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))
584538ad2antrr 725 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ 𝐹:β„βŸΆβ„‚)
585539a1i 11 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ℝ βŠ† ℝ)
586541a1i 11 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))) βŠ† ℝ)
587391, 584, 585, 586, 543syl22anc 838 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))) = ((ℝ D 𝐹) β†Ύ ((intβ€˜(topGenβ€˜ran (,)))β€˜((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))))
588521ralrimiva 3144 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))𝑑 ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1))))
589 dfss3 3937 . . . . . . . . . . . . . . . . . . . . 21 (((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))) βŠ† ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1))) ↔ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))𝑑 ∈ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1))))
590588, 589sylibr 233 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))) βŠ† ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1))))
591590resabs1d 5973 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (((ℝ D 𝐹) β†Ύ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))) β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) = ((ℝ D 𝐹) β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))
592583, 587, 5913eqtr4rd 2788 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (((ℝ D 𝐹) β†Ύ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))) β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))) = (ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))))
593 simpr 486 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝐢 ∈ (0..^𝑀)) β†’ 𝐢 ∈ (0..^𝑀))
594 id 22 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝐢 ∈ (0..^𝑀)) β†’ (πœ‘ ∧ 𝐢 ∈ (0..^𝑀)))
595438reseq2d 5942 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑖 = 𝐢 β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) = ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))))
596595, 438feq12d 6661 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑖 = 𝐢 β†’ (((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„ ↔ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))):((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))βŸΆβ„))
597434, 596imbi12d 345 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 = 𝐢 β†’ (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„) ↔ ((πœ‘ ∧ 𝐢 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))):((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))βŸΆβ„)))
598 cncff 24272 . . . . . . . . . . . . . . . . . . . . . . 23 (((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) ∈ (((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))–cn→ℝ) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„)
599404, 598syl 17 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„)
600597, 599vtoclg 3528 . . . . . . . . . . . . . . . . . . . . 21 (𝐢 ∈ (0..^𝑀) β†’ ((πœ‘ ∧ 𝐢 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))):((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))βŸΆβ„))
601593, 594, 600sylc 65 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝐢 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))):((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))βŸΆβ„)
602432, 601syl 17 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))):((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))βŸΆβ„)
603602, 590fssresd 6714 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (((ℝ D 𝐹) β†Ύ ((π‘‰β€˜πΆ)(,)(π‘‰β€˜(𝐢 + 1)))) β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))):((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))βŸΆβ„)
604592, 603feq1dd 43458 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) β†’ (ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1)))))):((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))βŸΆβ„)
605367, 378oveq12d 7380 . . . . . . . . . . . . . . . . . 18 (𝑑 = 𝑠 β†’ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑑 / 2)))) = (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))
606605cbvmptv 5223 . . . . . . . . . . . . . . . . 17 (𝑑 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑑)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑑 / 2))))) = (𝑠 ∈ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))
607 biid 261 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑀 ∈ ℝ) ∧ 𝑧 ∈ ℝ) ↔ ((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑀 ∈ ℝ) ∧ 𝑧 ∈ ℝ))
608 fveq2 6847 . . . . . . . . . . . . . . . . . . . . . 22 (π‘Ÿ = 𝑑 β†’ (πΉβ€˜π‘Ÿ) = (πΉβ€˜π‘‘))
609608fveq2d 6851 . . . . . . . . . . . . . . . . . . . . 21 (π‘Ÿ = 𝑑 β†’ (absβ€˜(πΉβ€˜π‘Ÿ)) = (absβ€˜(πΉβ€˜π‘‘)))
610609breq1d 5120 . . . . . . . . . . . . . . . . . . . 20 (π‘Ÿ = 𝑑 β†’ ((absβ€˜(πΉβ€˜π‘Ÿ)) ≀ 𝑀 ↔ (absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀))
611610cbvralvw 3228 . . . . . . . . . . . . . . . . . . 19 (βˆ€π‘Ÿ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜(πΉβ€˜π‘Ÿ)) ≀ 𝑀 ↔ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀)
612607, 611anbi12i 628 . . . . . . . . . . . . . . . . . 18 ((((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑀 ∈ ℝ) ∧ 𝑧 ∈ ℝ) ∧ βˆ€π‘Ÿ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜(πΉβ€˜π‘Ÿ)) ≀ 𝑀) ↔ (((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑀 ∈ ℝ) ∧ 𝑧 ∈ ℝ) ∧ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀))
613 fveq2 6847 . . . . . . . . . . . . . . . . . . . . 21 (π‘Ÿ = 𝑑 β†’ ((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘Ÿ) = ((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘))
614613fveq2d 6851 . . . . . . . . . . . . . . . . . . . 20 (π‘Ÿ = 𝑑 β†’ (absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘Ÿ)) = (absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)))
615614breq1d 5120 . . . . . . . . . . . . . . . . . . 19 (π‘Ÿ = 𝑑 β†’ ((absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘Ÿ)) ≀ 𝑧 ↔ (absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)) ≀ 𝑧))
616615cbvralvw 3228 . . . . . . . . . . . . . . . . . 18 (βˆ€π‘Ÿ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘Ÿ)) ≀ 𝑧 ↔ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)) ≀ 𝑧)
617612, 616anbi12i 628 . . . . . . . . . . . . . . . . 17 (((((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑀 ∈ ℝ) ∧ 𝑧 ∈ ℝ) ∧ βˆ€π‘Ÿ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜(πΉβ€˜π‘Ÿ)) ≀ 𝑀) ∧ βˆ€π‘Ÿ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘Ÿ)) ≀ 𝑧) ↔ ((((((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ (0..^𝑁)) ∧ 𝑀 ∈ ℝ) ∧ 𝑧 ∈ ℝ) ∧ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜(πΉβ€˜π‘‘)) ≀ 𝑀) ∧ βˆ€π‘‘ ∈ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))(absβ€˜((ℝ D (𝐹 β†Ύ ((𝑋 + (π½β€˜π‘˜))(,)(𝑋 + (π½β€˜(π‘˜ + 1))))))β€˜π‘‘)) ≀ 𝑧))
618262, 263, 12, 14, 62, 279, 280, 427, 428, 529, 564, 152, 176, 566, 582, 604, 606, 617fourierdlem80 44501 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ βˆƒπ‘ ∈ ℝ βˆ€π‘  ∈ dom (ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))(absβ€˜((ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))β€˜π‘ )) ≀ 𝑏)
619358mpteq2dva 5210 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (𝑠 ∈ (-Ο€[,]𝑑) ↦ ((((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / 𝑠) Β· (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) = (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))
620259, 619eqtrd 2777 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ 𝑂 = (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))
621620oveq2d 7378 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (ℝ D 𝑂) = (ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))))
622621dmeqd 5866 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ dom (ℝ D 𝑂) = dom (ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))))
623 nfcv 2908 . . . . . . . . . . . . . . . . . . . 20 Ⅎ𝑠dom (ℝ D 𝑂)
624 nfcv 2908 . . . . . . . . . . . . . . . . . . . . . 22 Ⅎ𝑠ℝ
625 nfcv 2908 . . . . . . . . . . . . . . . . . . . . . 22 Ⅎ𝑠 D
626 nfmpt1 5218 . . . . . . . . . . . . . . . . . . . . . 22 Ⅎ𝑠(𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))
627624, 625, 626nfov 7392 . . . . . . . . . . . . . . . . . . . . 21 Ⅎ𝑠(ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))
628627nfdm 5911 . . . . . . . . . . . . . . . . . . . 20 Ⅎ𝑠dom (ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))
629623, 628raleqf 3331 . . . . . . . . . . . . . . . . . . 19 (dom (ℝ D 𝑂) = dom (ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†’ (βˆ€π‘  ∈ dom (ℝ D 𝑂)(absβ€˜((ℝ D 𝑂)β€˜π‘ )) ≀ 𝑏 ↔ βˆ€π‘  ∈ dom (ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))(absβ€˜((ℝ D 𝑂)β€˜π‘ )) ≀ 𝑏))
630622, 629syl 17 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (βˆ€π‘  ∈ dom (ℝ D 𝑂)(absβ€˜((ℝ D 𝑂)β€˜π‘ )) ≀ 𝑏 ↔ βˆ€π‘  ∈ dom (ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))(absβ€˜((ℝ D 𝑂)β€˜π‘ )) ≀ 𝑏))
631621fveq1d 6849 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ ((ℝ D 𝑂)β€˜π‘ ) = ((ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))β€˜π‘ ))
632631fveq2d 6851 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (absβ€˜((ℝ D 𝑂)β€˜π‘ )) = (absβ€˜((ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))β€˜π‘ )))
633632breq1d 5120 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ ((absβ€˜((ℝ D 𝑂)β€˜π‘ )) ≀ 𝑏 ↔ (absβ€˜((ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))β€˜π‘ )) ≀ 𝑏))
634633ralbidv 3175 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (βˆ€π‘  ∈ dom (ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))(absβ€˜((ℝ D 𝑂)β€˜π‘ )) ≀ 𝑏 ↔ βˆ€π‘  ∈ dom (ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))(absβ€˜((ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))β€˜π‘ )) ≀ 𝑏))
635630, 634bitrd 279 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (βˆ€π‘  ∈ dom (ℝ D 𝑂)(absβ€˜((ℝ D 𝑂)β€˜π‘ )) ≀ 𝑏 ↔ βˆ€π‘  ∈ dom (ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))(absβ€˜((ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))β€˜π‘ )) ≀ 𝑏))
636635rexbidv 3176 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (βˆƒπ‘ ∈ ℝ βˆ€π‘  ∈ dom (ℝ D 𝑂)(absβ€˜((ℝ D 𝑂)β€˜π‘ )) ≀ 𝑏 ↔ βˆƒπ‘ ∈ ℝ βˆ€π‘  ∈ dom (ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))(absβ€˜((ℝ D (𝑠 ∈ (-Ο€[,]𝑑) ↦ (((πΉβ€˜(𝑋 + 𝑠)) βˆ’ π‘Š) / (2 Β· (sinβ€˜(𝑠 / 2))))))β€˜π‘ )) ≀ 𝑏))
637618, 636mpbird 257 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ βˆƒπ‘ ∈ ℝ βˆ€π‘  ∈ dom (ℝ D 𝑂)(absβ€˜((ℝ D 𝑂)β€˜π‘ )) ≀ 𝑏)
638 eqid 2737 . . . . . . . . . . . . . . 15 (𝑙 ∈ ℝ+ ↦ ∫(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) = (𝑙 ∈ ℝ+ ↦ ∫(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠)
639 eqeq1 2741 . . . . . . . . . . . . . . . . 17 (𝑑 = 𝑠 β†’ (𝑑 = (π½β€˜π‘˜) ↔ 𝑠 = (π½β€˜π‘˜)))
640 fveq2 6847 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (β„Ž = 𝑙 β†’ (π‘„β€˜β„Ž) = (π‘„β€˜π‘™))
641 oveq1 7369 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (β„Ž = 𝑙 β†’ (β„Ž + 1) = (𝑙 + 1))
642641fveq2d 6851 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (β„Ž = 𝑙 β†’ (π‘„β€˜(β„Ž + 1)) = (π‘„β€˜(𝑙 + 1)))
643640, 642oveq12d 7380 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (β„Ž = 𝑙 β†’ ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))) = ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))
644643sseq2d 3981 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (β„Ž = 𝑙 β†’ (((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))) ↔ ((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))))
645644cbvriotavw 7328 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) = (℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))
646645fveq2i 6850 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘„β€˜(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))))) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))))
647646eqeq2i 2750 . . . . . . . . . . . . . . . . . . . . . . . 24 ((π½β€˜π‘˜) = (π‘„β€˜(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))))) ↔ (π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))))
648647a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (⊀ β†’ ((π½β€˜π‘˜) = (π‘„β€˜(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))))) ↔ (π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))))))
649 csbeq1 3863 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) = (℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) β†’ ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦Œπ‘… = ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…)
650645, 649ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . 24 ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦Œπ‘… = ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…
651650a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (⊀ β†’ ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦Œπ‘… = ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…)
652648, 651ifbieq1d 4515 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ if((π½β€˜π‘˜) = (π‘„β€˜(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))))), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) = if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))))
653652mptru 1549 . . . . . . . . . . . . . . . . . . . . 21 if((π½β€˜π‘˜) = (π‘„β€˜(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))))), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) = if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜))))
654653oveq1i 7372 . . . . . . . . . . . . . . . . . . . 20 (if((π½β€˜π‘˜) = (π‘„β€˜(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))))), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) = (if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š)
655654oveq1i 7372 . . . . . . . . . . . . . . . . . . 19 ((if((π½β€˜π‘˜) = (π‘„β€˜(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))))), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) = ((if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜))
656655oveq1i 7372 . . . . . . . . . . . . . . . . . 18 (((if((π½β€˜π‘˜) = (π‘„β€˜(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))))), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))) = (((if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2)))))
657656a1i 11 . . . . . . . . . . . . . . . . 17 (𝑑 = 𝑠 β†’ (((if((π½β€˜π‘˜) = (π‘„β€˜(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))))), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))) = (((if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))))
658 eqeq1 2741 . . . . . . . . . . . . . . . . . 18 (𝑑 = 𝑠 β†’ (𝑑 = (π½β€˜(π‘˜ + 1)) ↔ 𝑠 = (π½β€˜(π‘˜ + 1))))
659645oveq1i 7372 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1) = ((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)
660659fveq2i 6850 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1))
661660eqeq2i 2750 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)) ↔ (π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)))
662661a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (⊀ β†’ ((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)) ↔ (π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1))))
663 csbeq1 3863 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) = (℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) β†’ ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ = ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ)
664645, 663ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . 25 ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ = ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ
665664a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (⊀ β†’ ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ = ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ)
666662, 665ifbieq1d 4515 . . . . . . . . . . . . . . . . . . . . . . 23 (⊀ β†’ if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) = if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))))
667666mptru 1549 . . . . . . . . . . . . . . . . . . . . . 22 if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) = if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1)))))
668667oveq1i 7372 . . . . . . . . . . . . . . . . . . . . 21 (if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) = (if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š)
669668oveq1i 7372 . . . . . . . . . . . . . . . . . . . 20 ((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) = ((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1)))
670669oveq1i 7372 . . . . . . . . . . . . . . . . . . 19 (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))) = (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2)))))
671670a1i 11 . . . . . . . . . . . . . . . . . 18 (𝑑 = 𝑠 β†’ (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))) = (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))))
672 fveq2 6847 . . . . . . . . . . . . . . . . . 18 (𝑑 = 𝑠 β†’ (π‘‚β€˜π‘‘) = (π‘‚β€˜π‘ ))
673658, 671, 672ifbieq12d 4519 . . . . . . . . . . . . . . . . 17 (𝑑 = 𝑠 β†’ if(𝑑 = (π½β€˜(π‘˜ + 1)), (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))), (π‘‚β€˜π‘‘)) = if(𝑠 = (π½β€˜(π‘˜ + 1)), (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))), (π‘‚β€˜π‘ )))
674639, 657, 673ifbieq12d 4519 . . . . . . . . . . . . . . . 16 (𝑑 = 𝑠 β†’ if(𝑑 = (π½β€˜π‘˜), (((if((π½β€˜π‘˜) = (π‘„β€˜(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))))), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))), if(𝑑 = (π½β€˜(π‘˜ + 1)), (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))), (π‘‚β€˜π‘‘))) = if(𝑠 = (π½β€˜π‘˜), (((if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))), if(𝑠 = (π½β€˜(π‘˜ + 1)), (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))), (π‘‚β€˜π‘ ))))
675674cbvmptv 5223 . . . . . . . . . . . . . . 15 (𝑑 ∈ ((π½β€˜π‘˜)[,](π½β€˜(π‘˜ + 1))) ↦ if(𝑑 = (π½β€˜π‘˜), (((if((π½β€˜π‘˜) = (π‘„β€˜(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1))))), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))), if(𝑑 = (π½β€˜(π‘˜ + 1)), (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) + 1)), ⦋(β„©β„Ž ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜β„Ž)(,)(π‘„β€˜(β„Ž + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))), (π‘‚β€˜π‘‘)))) = (𝑠 ∈ ((π½β€˜π‘˜)[,](π½β€˜(π‘˜ + 1))) ↦ if(𝑠 = (π½β€˜π‘˜), (((if((π½β€˜π‘˜) = (π‘„β€˜(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1))))), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦Œπ‘…, (πΉβ€˜(𝑋 + (π½β€˜π‘˜)))) βˆ’ π‘Š) / (π½β€˜π‘˜)) Β· ((π½β€˜π‘˜) / (2 Β· (sinβ€˜((π½β€˜π‘˜) / 2))))), if(𝑠 = (π½β€˜(π‘˜ + 1)), (((if((π½β€˜(π‘˜ + 1)) = (π‘„β€˜((℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) + 1)), ⦋(℩𝑙 ∈ (0..^𝑀)((π½β€˜π‘˜)(,)(π½β€˜(π‘˜ + 1))) βŠ† ((π‘„β€˜π‘™)(,)(π‘„β€˜(𝑙 + 1)))) / π‘–β¦ŒπΏ, (πΉβ€˜(𝑋 + (π½β€˜(π‘˜ + 1))))) βˆ’ π‘Š) / (π½β€˜(π‘˜ + 1))) Β· ((π½β€˜(π‘˜ + 1)) / (2 Β· (sinβ€˜((π½β€˜(π‘˜ + 1)) / 2))))), (π‘‚β€˜π‘ ))))
67612, 14, 67, 126, 152, 153, 154, 176, 292, 298, 301, 302, 426, 637, 638, 675fourierdlem73 44494 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ βˆ€π‘’ ∈ ℝ+ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < 𝑒)
677 breq2 5114 . . . . . . . . . . . . . . . 16 (𝑒 = π‘Ž β†’ ((absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < 𝑒 ↔ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < π‘Ž))
678677rexralbidv 3215 . . . . . . . . . . . . . . 15 (𝑒 = π‘Ž β†’ (βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < 𝑒 ↔ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < π‘Ž))
679678cbvralvw 3228 . . . . . . . . . . . . . 14 (βˆ€π‘’ ∈ ℝ+ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < 𝑒 ↔ βˆ€π‘Ž ∈ ℝ+ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < π‘Ž)
680676, 679sylib 217 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ βˆ€π‘Ž ∈ ℝ+ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < π‘Ž)
681680adantlr 714 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ βˆ€π‘Ž ∈ ℝ+ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < π‘Ž)
682 rphalfcl 12949 . . . . . . . . . . . . 13 (𝑒 ∈ ℝ+ β†’ (𝑒 / 2) ∈ ℝ+)
683682ad2antlr 726 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (𝑒 / 2) ∈ ℝ+)
684 breq2 5114 . . . . . . . . . . . . . 14 (π‘Ž = (𝑒 / 2) β†’ ((absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < π‘Ž ↔ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)))
685684rexralbidv 3215 . . . . . . . . . . . . 13 (π‘Ž = (𝑒 / 2) β†’ (βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < π‘Ž ↔ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)))
686685rspccva 3583 . . . . . . . . . . . 12 ((βˆ€π‘Ž ∈ ℝ+ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < π‘Ž ∧ (𝑒 / 2) ∈ ℝ+) β†’ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2))
687681, 683, 686syl2anc 585 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2))
688345a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€(,)𝑑)) β†’ (π‘‚β€˜π‘ ) = ((π‘ˆ β†Ύ (-Ο€[,]𝑑))β€˜π‘ ))
689140a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (-Ο€(,)𝑑) βŠ† (-Ο€[,]𝑑))
690689sselda 3949 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€(,)𝑑)) β†’ 𝑠 ∈ (-Ο€[,]𝑑))
691690, 347syl 17 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€(,)𝑑)) β†’ ((π‘ˆ β†Ύ (-Ο€[,]𝑑))β€˜π‘ ) = (π‘ˆβ€˜π‘ ))
692688, 691eqtr2d 2778 . . . . . . . . . . . . . . . . . . . 20 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€(,)𝑑)) β†’ (π‘ˆβ€˜π‘ ) = (π‘‚β€˜π‘ ))
693692oveq1d 7377 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑠 ∈ (-Ο€(,)𝑑)) β†’ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) = ((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))))
694693itgeq2dv 25162 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠 = ∫(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠)
695694adantr 482 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠 = ∫(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠)
696695fveq2d 6851 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) = (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠))
697 simpr 486 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2))
698696, 697eqbrtrd 5132 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2))
699698ex 414 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ ((absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2) β†’ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)))
700699adantlr 714 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ ((absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2) β†’ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)))
701700ralimdv 3167 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2) β†’ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)))
702701reximdv 3168 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ (βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘‚β€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2) β†’ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)))
703687, 702mpd 15 . . . . . . . . . 10 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) β†’ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2))
704703adantr 482 . . . . . . . . 9 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2))
705 nfv 1918 . . . . . . . . . . . . . . 15 β„²π‘˜((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0))
706 nfra1 3270 . . . . . . . . . . . . . . 15 β„²π‘˜βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)
707705, 706nfan 1903 . . . . . . . . . . . . . 14 β„²π‘˜(((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
708 nfv 1918 . . . . . . . . . . . . . 14 β„²π‘˜ 𝑗 ∈ β„•
709707, 708nfan 1903 . . . . . . . . . . . . 13 β„²π‘˜((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•)
710 nfv 1918 . . . . . . . . . . . . 13 β„²π‘˜βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)
711709, 710nfan 1903 . . . . . . . . . . . 12 β„²π‘˜(((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2))
712 simpll 766 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑗 ∈ β„•) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ ((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)))
713 eluznn 12850 . . . . . . . . . . . . . . . . . . . . 21 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ π‘˜ ∈ β„•)
714713adantll 713 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑗 ∈ β„•) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ π‘˜ ∈ β„•)
715712, 714jca 513 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ 𝑗 ∈ β„•) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•))
716715adantllr 718 . . . . . . . . . . . . . . . . . 18 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•))
717 simpllr 775 . . . . . . . . . . . . . . . . . . 19 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
718713adantll 713 . . . . . . . . . . . . . . . . . . 19 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ π‘˜ ∈ β„•)
719 rspa 3234 . . . . . . . . . . . . . . . . . . 19 ((βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2) ∧ π‘˜ ∈ β„•) β†’ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
720717, 718, 719syl2anc 585 . . . . . . . . . . . . . . . . . 18 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
721716, 720jca 513 . . . . . . . . . . . . . . . . 17 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•) ∧ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
722721adantlr 714 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•) ∧ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
723 nnre 12167 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗 ∈ β„• β†’ 𝑗 ∈ ℝ)
724723rexrd 11212 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 ∈ β„• β†’ 𝑗 ∈ ℝ*)
725724adantr 482 . . . . . . . . . . . . . . . . . . . 20 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ 𝑗 ∈ ℝ*)
72623a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ +∞ ∈ ℝ*)
727 eluzelre 12781 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ ∈ (β„€β‰₯β€˜π‘—) β†’ π‘˜ ∈ ℝ)
728 1re 11162 . . . . . . . . . . . . . . . . . . . . . . . 24 1 ∈ ℝ
729728rehalfcli 12409 . . . . . . . . . . . . . . . . . . . . . . 23 (1 / 2) ∈ ℝ
730729a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ ∈ (β„€β‰₯β€˜π‘—) β†’ (1 / 2) ∈ ℝ)
731727, 730readdcld 11191 . . . . . . . . . . . . . . . . . . . . 21 (π‘˜ ∈ (β„€β‰₯β€˜π‘—) β†’ (π‘˜ + (1 / 2)) ∈ ℝ)
732731adantl 483 . . . . . . . . . . . . . . . . . . . 20 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (π‘˜ + (1 / 2)) ∈ ℝ)
733723adantr 482 . . . . . . . . . . . . . . . . . . . . 21 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ 𝑗 ∈ ℝ)
734727adantl 483 . . . . . . . . . . . . . . . . . . . . 21 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ π‘˜ ∈ ℝ)
735 eluzle 12783 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ ∈ (β„€β‰₯β€˜π‘—) β†’ 𝑗 ≀ π‘˜)
736735adantl 483 . . . . . . . . . . . . . . . . . . . . 21 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ 𝑗 ≀ π‘˜)
737 halfgt0 12376 . . . . . . . . . . . . . . . . . . . . . . 23 0 < (1 / 2)
738737a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ 0 < (1 / 2))
739729a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (1 / 2) ∈ ℝ)
740739, 734ltaddposd 11746 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (0 < (1 / 2) ↔ π‘˜ < (π‘˜ + (1 / 2))))
741738, 740mpbid 231 . . . . . . . . . . . . . . . . . . . . 21 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ π‘˜ < (π‘˜ + (1 / 2)))
742733, 734, 732, 736, 741lelttrd 11320 . . . . . . . . . . . . . . . . . . . 20 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ 𝑗 < (π‘˜ + (1 / 2)))
743732ltpnfd 13049 . . . . . . . . . . . . . . . . . . . 20 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (π‘˜ + (1 / 2)) < +∞)
744725, 726, 732, 742, 743eliood 43810 . . . . . . . . . . . . . . . . . . 19 ((𝑗 ∈ β„• ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (π‘˜ + (1 / 2)) ∈ (𝑗(,)+∞))
745744adantlr 714 . . . . . . . . . . . . . . . . . 18 (((𝑗 ∈ β„• ∧ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (π‘˜ + (1 / 2)) ∈ (𝑗(,)+∞))
746 simplr 768 . . . . . . . . . . . . . . . . . 18 (((𝑗 ∈ β„• ∧ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2))
747 oveq1 7369 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑙 = (π‘˜ + (1 / 2)) β†’ (𝑙 Β· 𝑠) = ((π‘˜ + (1 / 2)) Β· 𝑠))
748747fveq2d 6851 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑙 = (π‘˜ + (1 / 2)) β†’ (sinβ€˜(𝑙 Β· 𝑠)) = (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))
749748oveq2d 7378 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑙 = (π‘˜ + (1 / 2)) β†’ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) = ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))))
750749adantr 482 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑙 = (π‘˜ + (1 / 2)) ∧ 𝑠 ∈ (-Ο€(,)𝑑)) β†’ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) = ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))))
751750itgeq2dv 25162 . . . . . . . . . . . . . . . . . . . . 21 (𝑙 = (π‘˜ + (1 / 2)) β†’ ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠 = ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)
752751fveq2d 6851 . . . . . . . . . . . . . . . . . . . 20 (𝑙 = (π‘˜ + (1 / 2)) β†’ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) = (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠))
753752breq1d 5120 . . . . . . . . . . . . . . . . . . 19 (𝑙 = (π‘˜ + (1 / 2)) β†’ ((absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2) ↔ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
754753rspcv 3580 . . . . . . . . . . . . . . . . . 18 ((π‘˜ + (1 / 2)) ∈ (𝑗(,)+∞) β†’ (βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2) β†’ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
755745, 746, 754sylc 65 . . . . . . . . . . . . . . . . 17 (((𝑗 ∈ β„• ∧ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
756755adantlll 717 . . . . . . . . . . . . . . . 16 (((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
757722, 756jca 513 . . . . . . . . . . . . . . 15 (((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•) ∧ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
758 fourierdlem103.ch . . . . . . . . . . . . . . 15 (πœ’ ↔ (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•) ∧ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
759757, 758sylibr 233 . . . . . . . . . . . . . 14 (((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ πœ’)
76011a1i 11 . . . . . . . . . . . . . . . . . 18 (πœ’ β†’ -Ο€ ∈ ℝ)
761 0red 11165 . . . . . . . . . . . . . . . . . 18 (πœ’ β†’ 0 ∈ ℝ)
762 ioossicc 13357 . . . . . . . . . . . . . . . . . . 19 (-Ο€(,)0) βŠ† (-Ο€[,]0)
763758biimpi 215 . . . . . . . . . . . . . . . . . . . 20 (πœ’ β†’ (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•) ∧ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
764 simp-4r 783 . . . . . . . . . . . . . . . . . . . 20 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•) ∧ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ 𝑑 ∈ (-Ο€(,)0))
765763, 764syl 17 . . . . . . . . . . . . . . . . . . 19 (πœ’ β†’ 𝑑 ∈ (-Ο€(,)0))
766762, 765sselid 3947 . . . . . . . . . . . . . . . . . 18 (πœ’ β†’ 𝑑 ∈ (-Ο€[,]0))
767 simp-5l 784 . . . . . . . . . . . . . . . . . . . . . 22 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•) ∧ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ πœ‘)
768763, 767syl 17 . . . . . . . . . . . . . . . . . . . . 21 (πœ’ β†’ πœ‘)
76943adantr 482 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ π‘ˆ:(-Ο€[,]Ο€)βŸΆβ„)
77010rexri 11220 . . . . . . . . . . . . . . . . . . . . . . . . . 26 Ο€ ∈ ℝ*
771 0re 11164 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 0 ∈ ℝ
772771, 10, 56ltleii 11285 . . . . . . . . . . . . . . . . . . . . . . . . . 26 0 ≀ Ο€
773 iooss2 13307 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((Ο€ ∈ ℝ* ∧ 0 ≀ Ο€) β†’ (-Ο€(,)0) βŠ† (-Ο€(,)Ο€))
774770, 772, 773mp2an 691 . . . . . . . . . . . . . . . . . . . . . . . . 25 (-Ο€(,)0) βŠ† (-Ο€(,)Ο€)
775 ioossicc 13357 . . . . . . . . . . . . . . . . . . . . . . . . 25 (-Ο€(,)Ο€) βŠ† (-Ο€[,]Ο€)
776774, 775sstri 3958 . . . . . . . . . . . . . . . . . . . . . . . 24 (-Ο€(,)0) βŠ† (-Ο€[,]Ο€)
777776sseli 3945 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑠 ∈ (-Ο€(,)0) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
778777adantl 483 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
779769, 778ffvelcdmd 7041 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (π‘ˆβ€˜π‘ ) ∈ ℝ)
780768, 779sylan 581 . . . . . . . . . . . . . . . . . . . 20 ((πœ’ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (π‘ˆβ€˜π‘ ) ∈ ℝ)
781 simpllr 775 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•) ∧ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ π‘˜ ∈ β„•)
782763, 781syl 17 . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ’ β†’ π‘˜ ∈ β„•)
783782nnred 12175 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ’ β†’ π‘˜ ∈ ℝ)
784729a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (πœ’ β†’ (1 / 2) ∈ ℝ)
785783, 784readdcld 11191 . . . . . . . . . . . . . . . . . . . . . . 23 (πœ’ β†’ (π‘˜ + (1 / 2)) ∈ ℝ)
786785adantr 482 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ’ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (π‘˜ + (1 / 2)) ∈ ℝ)
787 elioore 13301 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑠 ∈ (-Ο€(,)0) β†’ 𝑠 ∈ ℝ)
788787adantl 483 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ’ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑠 ∈ ℝ)
789786, 788remulcld 11192 . . . . . . . . . . . . . . . . . . . . 21 ((πœ’ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((π‘˜ + (1 / 2)) Β· 𝑠) ∈ ℝ)
790789resincld 16032 . . . . . . . . . . . . . . . . . . . 20 ((πœ’ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)) ∈ ℝ)
791780, 790remulcld 11192 . . . . . . . . . . . . . . . . . . 19 ((πœ’ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) ∈ ℝ)
792791recnd 11190 . . . . . . . . . . . . . . . . . 18 ((πœ’ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) ∈ β„‚)
79352a1i 11 . . . . . . . . . . . . . . . . . . . 20 (πœ’ β†’ -Ο€ ∈ ℝ*)
79453a1i 11 . . . . . . . . . . . . . . . . . . . 20 (πœ’ β†’ 0 ∈ ℝ*)
795760leidd 11728 . . . . . . . . . . . . . . . . . . . 20 (πœ’ β†’ -Ο€ ≀ -Ο€)
796 ioossre 13332 . . . . . . . . . . . . . . . . . . . . . 22 (-Ο€(,)0) βŠ† ℝ
797796, 765sselid 3947 . . . . . . . . . . . . . . . . . . . . 21 (πœ’ β†’ 𝑑 ∈ ℝ)
798793, 794, 765, 54syl3anc 1372 . . . . . . . . . . . . . . . . . . . . 21 (πœ’ β†’ 𝑑 < 0)
799797, 761, 798ltled 11310 . . . . . . . . . . . . . . . . . . . 20 (πœ’ β†’ 𝑑 ≀ 0)
800 ioossioo 13365 . . . . . . . . . . . . . . . . . . . 20 (((-Ο€ ∈ ℝ* ∧ 0 ∈ ℝ*) ∧ (-Ο€ ≀ -Ο€ ∧ 𝑑 ≀ 0)) β†’ (-Ο€(,)𝑑) βŠ† (-Ο€(,)0))
801793, 794, 795, 799, 800syl22anc 838 . . . . . . . . . . . . . . . . . . 19 (πœ’ β†’ (-Ο€(,)𝑑) βŠ† (-Ο€(,)0))
802 ioombl 24945 . . . . . . . . . . . . . . . . . . . 20 (-Ο€(,)𝑑) ∈ dom vol
803802a1i 11 . . . . . . . . . . . . . . . . . . 19 (πœ’ β†’ (-Ο€(,)𝑑) ∈ dom vol)
804 eleq1 2826 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 = π‘˜ β†’ (𝑛 ∈ β„• ↔ π‘˜ ∈ β„•))
805804anbi2d 630 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 = π‘˜ β†’ ((πœ‘ ∧ 𝑛 ∈ β„•) ↔ (πœ‘ ∧ π‘˜ ∈ β„•)))
806 simpl 484 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑛 = π‘˜ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑛 = π‘˜)
807806oveq1d 7377 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑛 = π‘˜ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (𝑛 + (1 / 2)) = (π‘˜ + (1 / 2)))
808807oveq1d 7377 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑛 = π‘˜ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((𝑛 + (1 / 2)) Β· 𝑠) = ((π‘˜ + (1 / 2)) Β· 𝑠))
809808fveq2d 6851 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑛 = π‘˜ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) = (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))
810809oveq2d 7378 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑛 = π‘˜ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠))) = ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))))
811810mpteq2dva 5210 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑛 = π‘˜ β†’ (𝑠 ∈ (-Ο€(,)0) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))) = (𝑠 ∈ (-Ο€(,)0) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))))
812811eleq1d 2823 . . . . . . . . . . . . . . . . . . . . . 22 (𝑛 = π‘˜ β†’ ((𝑠 ∈ (-Ο€(,)0) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))) ∈ 𝐿1 ↔ (𝑠 ∈ (-Ο€(,)0) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))) ∈ 𝐿1))
813805, 812imbi12d 345 . . . . . . . . . . . . . . . . . . . . 21 (𝑛 = π‘˜ β†’ (((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑠 ∈ (-Ο€(,)0) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))) ∈ 𝐿1) ↔ ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (𝑠 ∈ (-Ο€(,)0) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))) ∈ 𝐿1)))
814776a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (-Ο€(,)0) βŠ† (-Ο€[,]Ο€))
815 ioombl 24945 . . . . . . . . . . . . . . . . . . . . . . 23 (-Ο€(,)0) ∈ dom vol
816815a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (-Ο€(,)0) ∈ dom vol)
81743ffvelcdmda 7040 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (π‘ˆβ€˜π‘ ) ∈ ℝ)
818817adantlr 714 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (π‘ˆβ€˜π‘ ) ∈ ℝ)
819 nnre 12167 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (𝑛 ∈ β„• β†’ 𝑛 ∈ ℝ)
820 readdcl 11141 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑛 ∈ ℝ ∧ (1 / 2) ∈ ℝ) β†’ (𝑛 + (1 / 2)) ∈ ℝ)
821819, 729, 820sylancl 587 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑛 ∈ β„• β†’ (𝑛 + (1 / 2)) ∈ ℝ)
822821adantr 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑛 ∈ β„• ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (𝑛 + (1 / 2)) ∈ ℝ)
823 simpr 486 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑛 ∈ β„• ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
824214, 823sselid 3947 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((𝑛 ∈ β„• ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝑠 ∈ ℝ)
825822, 824remulcld 11192 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((𝑛 ∈ β„• ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ ((𝑛 + (1 / 2)) Β· 𝑠) ∈ ℝ)
826825resincld 16032 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝑛 ∈ β„• ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) ∈ ℝ)
827826adantll 713 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) ∈ ℝ)
828818, 827remulcld 11192 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠))) ∈ ℝ)
829 fourierdlem103.g . . . . . . . . . . . . . . . . . . . . . . . . 25 𝐺 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((π‘ˆβ€˜π‘ ) Β· (π‘†β€˜π‘ )))
830829a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝐺 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((π‘ˆβ€˜π‘ ) Β· (π‘†β€˜π‘ ))))
831 fourierdlem103.s . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 𝑆 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))
832831fvmpt2 6964 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) ∈ ℝ) β†’ (π‘†β€˜π‘ ) = (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))
833823, 826, 832syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((𝑛 ∈ β„• ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (π‘†β€˜π‘ ) = (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))
834833adantll 713 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (π‘†β€˜π‘ ) = (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))
835834oveq2d 7378 . . . . . . . . . . . . . . . . . . . . . . . . 25 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ ((π‘ˆβ€˜π‘ ) Β· (π‘†β€˜π‘ )) = ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠))))
836835mpteq2dva 5210 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((π‘ˆβ€˜π‘ ) Β· (π‘†β€˜π‘ ))) = (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))))
837830, 836eqtr2d 2778 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))) = 𝐺)
83815adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝐹:β„βŸΆβ„)
839 fourierdlem103.x . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ 𝑋 ∈ ran 𝑉)
840839adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑋 ∈ ran 𝑉)
84127adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ π‘Œ ∈ ((𝐹 β†Ύ (𝑋(,)+∞)) limβ„‚ 𝑋))
84238adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ π‘Š ∈ ((𝐹 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋))
843819adantl 483 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑛 ∈ ℝ)
844265adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑀 ∈ β„•)
845267adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑉 ∈ (π‘ƒβ€˜π‘€))
846269adantlr 714 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) ∈ (((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))–cnβ†’β„‚))
847271adantlr 714 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (π‘‰β€˜π‘–)))
848273adantlr 714 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))) limβ„‚ (π‘‰β€˜(𝑖 + 1))))
849 eqid 2737 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = -Ο€ ∧ (π‘β€˜π‘š) = Ο€) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))}) = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = -Ο€ ∧ (π‘β€˜π‘š) = Ο€) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
850 eqid 2737 . . . . . . . . . . . . . . . . . . . . . . . 24 (ℝ D 𝐹) = (ℝ D 𝐹)
851599adantlr 714 . . . . . . . . . . . . . . . . . . . . . . . 24 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„)
852 fourierdlem103.a . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ 𝐴 ∈ (((ℝ D 𝐹) β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋))
853852adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝐴 ∈ (((ℝ D 𝐹) β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋))
854 fourierdlem103.b . . . . . . . . . . . . . . . . . . . . . . . . 25 (πœ‘ β†’ 𝐡 ∈ (((ℝ D 𝐹) β†Ύ (𝑋(,)+∞)) limβ„‚ 𝑋))
855854adantr 482 . . . . . . . . . . . . . . . . . . . . . . . 24 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝐡 ∈ (((ℝ D 𝐹) β†Ύ (𝑋(,)+∞)) limβ„‚ 𝑋))
856264, 838, 840, 841, 842, 40, 41, 42, 843, 831, 829, 844, 845, 846, 847, 848, 80, 849, 850, 851, 853, 855fourierdlem88 44509 . . . . . . . . . . . . . . . . . . . . . . 23 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝐺 ∈ 𝐿1)
857837, 856eqeltrd 2838 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))) ∈ 𝐿1)
858814, 816, 828, 857iblss 25185 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑠 ∈ (-Ο€(,)0) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))) ∈ 𝐿1)
859813, 858chvarvv 2003 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (𝑠 ∈ (-Ο€(,)0) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))) ∈ 𝐿1)
860768, 782, 859syl2anc 585 . . . . . . . . . . . . . . . . . . 19 (πœ’ β†’ (𝑠 ∈ (-Ο€(,)0) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))) ∈ 𝐿1)
861801, 803, 791, 860iblss 25185 . . . . . . . . . . . . . . . . . 18 (πœ’ β†’ (𝑠 ∈ (-Ο€(,)𝑑) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))) ∈ 𝐿1)
862765, 106syl 17 . . . . . . . . . . . . . . . . . . . . 21 (πœ’ β†’ -Ο€ < 𝑑)
863760, 797, 862ltled 11310 . . . . . . . . . . . . . . . . . . . 20 (πœ’ β†’ -Ο€ ≀ 𝑑)
864761leidd 11728 . . . . . . . . . . . . . . . . . . . 20 (πœ’ β†’ 0 ≀ 0)
865 ioossioo 13365 . . . . . . . . . . . . . . . . . . . 20 (((-Ο€ ∈ ℝ* ∧ 0 ∈ ℝ*) ∧ (-Ο€ ≀ 𝑑 ∧ 0 ≀ 0)) β†’ (𝑑(,)0) βŠ† (-Ο€(,)0))
866793, 794, 863, 864, 865syl22anc 838 . . . . . . . . . . . . . . . . . . 19 (πœ’ β†’ (𝑑(,)0) βŠ† (-Ο€(,)0))
867 ioombl 24945 . . . . . . . . . . . . . . . . . . . 20 (𝑑(,)0) ∈ dom vol
868867a1i 11 . . . . . . . . . . . . . . . . . . 19 (πœ’ β†’ (𝑑(,)0) ∈ dom vol)
869866, 868, 791, 860iblss 25185 . . . . . . . . . . . . . . . . . 18 (πœ’ β†’ (𝑠 ∈ (𝑑(,)0) ↦ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))) ∈ 𝐿1)
870760, 761, 766, 792, 861, 869itgsplitioo 25218 . . . . . . . . . . . . . . . . 17 (πœ’ β†’ ∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 = (∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 + ∫(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠))
871801sselda 3949 . . . . . . . . . . . . . . . . . . . 20 ((πœ’ ∧ 𝑠 ∈ (-Ο€(,)𝑑)) β†’ 𝑠 ∈ (-Ο€(,)0))
872871, 791syldan 592 . . . . . . . . . . . . . . . . . . 19 ((πœ’ ∧ 𝑠 ∈ (-Ο€(,)𝑑)) β†’ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) ∈ ℝ)
873872, 861itgcl 25164 . . . . . . . . . . . . . . . . . 18 (πœ’ β†’ ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 ∈ β„‚)
874866sselda 3949 . . . . . . . . . . . . . . . . . . . 20 ((πœ’ ∧ 𝑠 ∈ (𝑑(,)0)) β†’ 𝑠 ∈ (-Ο€(,)0))
875874, 791syldan 592 . . . . . . . . . . . . . . . . . . 19 ((πœ’ ∧ 𝑠 ∈ (𝑑(,)0)) β†’ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) ∈ ℝ)
876875, 869itgcl 25164 . . . . . . . . . . . . . . . . . 18 (πœ’ β†’ ∫(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 ∈ β„‚)
877873, 876addcomd 11364 . . . . . . . . . . . . . . . . 17 (πœ’ β†’ (∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 + ∫(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) = (∫(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 + ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠))
878870, 877eqtrd 2777 . . . . . . . . . . . . . . . 16 (πœ’ β†’ ∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 = (∫(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 + ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠))
879878fveq2d 6851 . . . . . . . . . . . . . . 15 (πœ’ β†’ (absβ€˜βˆ«(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) = (absβ€˜(∫(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 + ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)))
880876, 873addcld 11181 . . . . . . . . . . . . . . . . 17 (πœ’ β†’ (∫(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 + ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) ∈ β„‚)
881880abscld 15328 . . . . . . . . . . . . . . . 16 (πœ’ β†’ (absβ€˜(∫(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 + ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)) ∈ ℝ)
882876abscld 15328 . . . . . . . . . . . . . . . . 17 (πœ’ β†’ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) ∈ ℝ)
883873abscld 15328 . . . . . . . . . . . . . . . . 17 (πœ’ β†’ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) ∈ ℝ)
884882, 883readdcld 11191 . . . . . . . . . . . . . . . 16 (πœ’ β†’ ((absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) + (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)) ∈ ℝ)
885 simp-5r 785 . . . . . . . . . . . . . . . . . 18 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•) ∧ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ 𝑒 ∈ ℝ+)
886763, 885syl 17 . . . . . . . . . . . . . . . . 17 (πœ’ β†’ 𝑒 ∈ ℝ+)
887886rpred 12964 . . . . . . . . . . . . . . . 16 (πœ’ β†’ 𝑒 ∈ ℝ)
888876, 873abstrid 15348 . . . . . . . . . . . . . . . 16 (πœ’ β†’ (absβ€˜(∫(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 + ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)) ≀ ((absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) + (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)))
889 simplr 768 . . . . . . . . . . . . . . . . . 18 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ π‘˜ ∈ β„•) ∧ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
890763, 889syl 17 . . . . . . . . . . . . . . . . 17 (πœ’ β†’ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
891763simprd 497 . . . . . . . . . . . . . . . . 17 (πœ’ β†’ (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
892882, 883, 887, 890, 891lt2halvesd 12408 . . . . . . . . . . . . . . . 16 (πœ’ β†’ ((absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) + (absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)) < 𝑒)
893881, 884, 887, 888, 892lelttrd 11320 . . . . . . . . . . . . . . 15 (πœ’ β†’ (absβ€˜(∫(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 + ∫(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)) < 𝑒)
894879, 893eqbrtrd 5132 . . . . . . . . . . . . . 14 (πœ’ β†’ (absβ€˜βˆ«(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < 𝑒)
895759, 894syl 17 . . . . . . . . . . . . 13 (((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ π‘˜ ∈ (β„€β‰₯β€˜π‘—)) β†’ (absβ€˜βˆ«(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < 𝑒)
896895ex 414 . . . . . . . . . . . 12 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ (π‘˜ ∈ (β„€β‰₯β€˜π‘—) β†’ (absβ€˜βˆ«(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < 𝑒))
897711, 896ralrimi 3243 . . . . . . . . . . 11 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) ∧ βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ βˆ€π‘˜ ∈ (β„€β‰₯β€˜π‘—)(absβ€˜βˆ«(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < 𝑒)
898897ex 414 . . . . . . . . . 10 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ∧ 𝑗 ∈ β„•) β†’ (βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2) β†’ βˆ€π‘˜ ∈ (β„€β‰₯β€˜π‘—)(absβ€˜βˆ«(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < 𝑒))
899898reximdva 3166 . . . . . . . . 9 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ (βˆƒπ‘— ∈ β„• βˆ€π‘™ ∈ (𝑗(,)+∞)(absβ€˜βˆ«(-Ο€(,)𝑑)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜(𝑙 Β· 𝑠))) d𝑠) < (𝑒 / 2) β†’ βˆƒπ‘— ∈ β„• βˆ€π‘˜ ∈ (β„€β‰₯β€˜π‘—)(absβ€˜βˆ«(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < 𝑒))
900704, 899mpd 15 . . . . . . . 8 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑑 ∈ (-Ο€(,)0)) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ βˆƒπ‘— ∈ β„• βˆ€π‘˜ ∈ (β„€β‰₯β€˜π‘—)(absβ€˜βˆ«(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < 𝑒)
901 negpilt0 43588 . . . . . . . . . . . . . 14 -Ο€ < 0
90211, 771, 10lttri 11288 . . . . . . . . . . . . . 14 ((-Ο€ < 0 ∧ 0 < Ο€) β†’ -Ο€ < Ο€)
903901, 56, 902mp2an 691 . . . . . . . . . . . . 13 -Ο€ < Ο€
90411, 10, 903ltleii 11285 . . . . . . . . . . . 12 -Ο€ ≀ Ο€
905904a1i 11 . . . . . . . . . . 11 (πœ‘ β†’ -Ο€ ≀ Ο€)
906264fourierdlem2 44424 . . . . . . . . . . . . . . . . . 18 (𝑀 ∈ β„• β†’ (𝑉 ∈ (π‘ƒβ€˜π‘€) ↔ (𝑉 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘‰β€˜0) = (-Ο€ + 𝑋) ∧ (π‘‰β€˜π‘€) = (Ο€ + 𝑋)) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘‰β€˜π‘–) < (π‘‰β€˜(𝑖 + 1))))))
907265, 906syl 17 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑉 ∈ (π‘ƒβ€˜π‘€) ↔ (𝑉 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘‰β€˜0) = (-Ο€ + 𝑋) ∧ (π‘‰β€˜π‘€) = (Ο€ + 𝑋)) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘‰β€˜π‘–) < (π‘‰β€˜(𝑖 + 1))))))
908267, 907mpbid 231 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝑉 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘‰β€˜0) = (-Ο€ + 𝑋) ∧ (π‘‰β€˜π‘€) = (Ο€ + 𝑋)) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘‰β€˜π‘–) < (π‘‰β€˜(𝑖 + 1)))))
909908simpld 496 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑉 ∈ (ℝ ↑m (0...𝑀)))
910 elmapi 8794 . . . . . . . . . . . . . . 15 (𝑉 ∈ (ℝ ↑m (0...𝑀)) β†’ 𝑉:(0...𝑀)βŸΆβ„)
911909, 910syl 17 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑉:(0...𝑀)βŸΆβ„)
912911ffvelcdmda 7040 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ (π‘‰β€˜π‘–) ∈ ℝ)
91316adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ 𝑋 ∈ ℝ)
914912, 913resubcld 11590 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) ∈ ℝ)
915914, 80fmptd 7067 . . . . . . . . . . 11 (πœ‘ β†’ 𝑄:(0...𝑀)βŸΆβ„)
91680a1i 11 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑄 = (𝑖 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘–) βˆ’ 𝑋)))
917 fveq2 6847 . . . . . . . . . . . . . . 15 (𝑖 = 0 β†’ (π‘‰β€˜π‘–) = (π‘‰β€˜0))
918917oveq1d 7377 . . . . . . . . . . . . . 14 (𝑖 = 0 β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) = ((π‘‰β€˜0) βˆ’ 𝑋))
919918adantl 483 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 = 0) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) = ((π‘‰β€˜0) βˆ’ 𝑋))
920265nnnn0d 12480 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑀 ∈ β„•0)
921 nn0uz 12812 . . . . . . . . . . . . . . 15 β„•0 = (β„€β‰₯β€˜0)
922920, 921eleqtrdi 2848 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑀 ∈ (β„€β‰₯β€˜0))
923 eluzfz1 13455 . . . . . . . . . . . . . 14 (𝑀 ∈ (β„€β‰₯β€˜0) β†’ 0 ∈ (0...𝑀))
924922, 923syl 17 . . . . . . . . . . . . 13 (πœ‘ β†’ 0 ∈ (0...𝑀))
925911, 924ffvelcdmd 7041 . . . . . . . . . . . . . 14 (πœ‘ β†’ (π‘‰β€˜0) ∈ ℝ)
926925, 16resubcld 11590 . . . . . . . . . . . . 13 (πœ‘ β†’ ((π‘‰β€˜0) βˆ’ 𝑋) ∈ ℝ)
927916, 919, 924, 926fvmptd 6960 . . . . . . . . . . . 12 (πœ‘ β†’ (π‘„β€˜0) = ((π‘‰β€˜0) βˆ’ 𝑋))
928908simprd 497 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (((π‘‰β€˜0) = (-Ο€ + 𝑋) ∧ (π‘‰β€˜π‘€) = (Ο€ + 𝑋)) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘‰β€˜π‘–) < (π‘‰β€˜(𝑖 + 1))))
929928simpld 496 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((π‘‰β€˜0) = (-Ο€ + 𝑋) ∧ (π‘‰β€˜π‘€) = (Ο€ + 𝑋)))
930929simpld 496 . . . . . . . . . . . . 13 (πœ‘ β†’ (π‘‰β€˜0) = (-Ο€ + 𝑋))
931930oveq1d 7377 . . . . . . . . . . . 12 (πœ‘ β†’ ((π‘‰β€˜0) βˆ’ 𝑋) = ((-Ο€ + 𝑋) βˆ’ 𝑋))
932450recnd 11190 . . . . . . . . . . . . 13 (πœ‘ β†’ -Ο€ ∈ β„‚)
93316recnd 11190 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑋 ∈ β„‚)
934932, 933pncand 11520 . . . . . . . . . . . 12 (πœ‘ β†’ ((-Ο€ + 𝑋) βˆ’ 𝑋) = -Ο€)
935927, 931, 9343eqtrd 2781 . . . . . . . . . . 11 (πœ‘ β†’ (π‘„β€˜0) = -Ο€)
936450, 452, 16, 264, 849, 265, 267, 80fourierdlem14 44436 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑄 ∈ ((π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = -Ο€ ∧ (π‘β€˜π‘š) = Ο€) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})β€˜π‘€))
937849fourierdlem2 44424 . . . . . . . . . . . . . . . 16 (𝑀 ∈ β„• β†’ (𝑄 ∈ ((π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = -Ο€ ∧ (π‘β€˜π‘š) = Ο€) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})β€˜π‘€) ↔ (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘„β€˜0) = -Ο€ ∧ (π‘„β€˜π‘€) = Ο€) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1))))))
938265, 937syl 17 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝑄 ∈ ((π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = -Ο€ ∧ (π‘β€˜π‘š) = Ο€) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})β€˜π‘€) ↔ (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘„β€˜0) = -Ο€ ∧ (π‘„β€˜π‘€) = Ο€) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1))))))
939936, 938mpbid 231 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((π‘„β€˜0) = -Ο€ ∧ (π‘„β€˜π‘€) = Ο€) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))))
940939simprd 497 . . . . . . . . . . . . 13 (πœ‘ β†’ (((π‘„β€˜0) = -Ο€ ∧ (π‘„β€˜π‘€) = Ο€) ∧ βˆ€π‘– ∈ (0..^𝑀)(π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1))))
941940simpld 496 . . . . . . . . . . . 12 (πœ‘ β†’ ((π‘„β€˜0) = -Ο€ ∧ (π‘„β€˜π‘€) = Ο€))
942941simprd 497 . . . . . . . . . . 11 (πœ‘ β†’ (π‘„β€˜π‘€) = Ο€)
943940simprd 497 . . . . . . . . . . . 12 (πœ‘ β†’ βˆ€π‘– ∈ (0..^𝑀)(π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))
944943r19.21bi 3237 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) < (π‘„β€˜(𝑖 + 1)))
94515adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐹:β„βŸΆβ„)
946849, 265, 936fourierdlem15 44437 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑄:(0...𝑀)⟢(-Ο€[,]Ο€))
947946adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑄:(0...𝑀)⟢(-Ο€[,]Ο€))
948 elfzofz 13595 . . . . . . . . . . . . . 14 (𝑖 ∈ (0..^𝑀) β†’ 𝑖 ∈ (0...𝑀))
949948adantl 483 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0...𝑀))
950947, 949ffvelcdmd 7041 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ (-Ο€[,]Ο€))
951 fzofzp1 13676 . . . . . . . . . . . . . 14 (𝑖 ∈ (0..^𝑀) β†’ (𝑖 + 1) ∈ (0...𝑀))
952951adantl 483 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑖 + 1) ∈ (0...𝑀))
953947, 952ffvelcdmd 7041 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ (-Ο€[,]Ο€))
95416adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑋 ∈ ℝ)
955 ffn 6673 . . . . . . . . . . . . . . . . . 18 (𝑉:(0...𝑀)βŸΆβ„ β†’ 𝑉 Fn (0...𝑀))
956909, 910, 9553syl 18 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ 𝑉 Fn (0...𝑀))
957 fvelrnb 6908 . . . . . . . . . . . . . . . . 17 (𝑉 Fn (0...𝑀) β†’ (𝑋 ∈ ran 𝑉 ↔ βˆƒπ‘– ∈ (0...𝑀)(π‘‰β€˜π‘–) = 𝑋))
958956, 957syl 17 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝑋 ∈ ran 𝑉 ↔ βˆƒπ‘– ∈ (0...𝑀)(π‘‰β€˜π‘–) = 𝑋))
959839, 958mpbid 231 . . . . . . . . . . . . . . 15 (πœ‘ β†’ βˆƒπ‘– ∈ (0...𝑀)(π‘‰β€˜π‘–) = 𝑋)
960 oveq1 7369 . . . . . . . . . . . . . . . . . . 19 ((π‘‰β€˜π‘–) = 𝑋 β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) = (𝑋 βˆ’ 𝑋))
961960adantl 483 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) ∧ (π‘‰β€˜π‘–) = 𝑋) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) = (𝑋 βˆ’ 𝑋))
962933subidd 11507 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ (𝑋 βˆ’ 𝑋) = 0)
963962ad2antrr 725 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) ∧ (π‘‰β€˜π‘–) = 𝑋) β†’ (𝑋 βˆ’ 𝑋) = 0)
964961, 963eqtr2d 2778 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) ∧ (π‘‰β€˜π‘–) = 𝑋) β†’ 0 = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
965964ex 414 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0...𝑀)) β†’ ((π‘‰β€˜π‘–) = 𝑋 β†’ 0 = ((π‘‰β€˜π‘–) βˆ’ 𝑋)))
966965reximdva 3166 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (βˆƒπ‘– ∈ (0...𝑀)(π‘‰β€˜π‘–) = 𝑋 β†’ βˆƒπ‘– ∈ (0...𝑀)0 = ((π‘‰β€˜π‘–) βˆ’ 𝑋)))
967959, 966mpd 15 . . . . . . . . . . . . . 14 (πœ‘ β†’ βˆƒπ‘– ∈ (0...𝑀)0 = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
96880elrnmpt 5916 . . . . . . . . . . . . . . 15 (0 ∈ ℝ β†’ (0 ∈ ran 𝑄 ↔ βˆƒπ‘– ∈ (0...𝑀)0 = ((π‘‰β€˜π‘–) βˆ’ 𝑋)))
969771, 968ax-mp 5 . . . . . . . . . . . . . 14 (0 ∈ ran 𝑄 ↔ βˆƒπ‘– ∈ (0...𝑀)0 = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
970967, 969sylibr 233 . . . . . . . . . . . . 13 (πœ‘ β†’ 0 ∈ ran 𝑄)
971849, 265, 936, 970fourierdlem12 44434 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ Β¬ 0 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
972911adantr 482 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑉:(0...𝑀)βŸΆβ„)
973972, 949ffvelcdmd 7041 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜π‘–) ∈ ℝ)
974973, 954resubcld 11590 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘‰β€˜π‘–) βˆ’ 𝑋) ∈ ℝ)
97580fvmpt2 6964 . . . . . . . . . . . . . . . . . 18 ((𝑖 ∈ (0...𝑀) ∧ ((π‘‰β€˜π‘–) βˆ’ 𝑋) ∈ ℝ) β†’ (π‘„β€˜π‘–) = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
976949, 974, 975syl2anc 585 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
977976oveq1d 7377 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–) + 𝑋) = (((π‘‰β€˜π‘–) βˆ’ 𝑋) + 𝑋))
978973recnd 11190 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜π‘–) ∈ β„‚)
979933adantr 482 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑋 ∈ β„‚)
980978, 979npcand 11523 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘‰β€˜π‘–) βˆ’ 𝑋) + 𝑋) = (π‘‰β€˜π‘–))
981977, 980eqtrd 2777 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–) + 𝑋) = (π‘‰β€˜π‘–))
982 fveq2 6847 . . . . . . . . . . . . . . . . . . . . . 22 (𝑗 = 𝑖 β†’ (π‘‰β€˜π‘—) = (π‘‰β€˜π‘–))
983982oveq1d 7377 . . . . . . . . . . . . . . . . . . . . 21 (𝑗 = 𝑖 β†’ ((π‘‰β€˜π‘—) βˆ’ 𝑋) = ((π‘‰β€˜π‘–) βˆ’ 𝑋))
984983cbvmptv 5223 . . . . . . . . . . . . . . . . . . . 20 (𝑗 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘—) βˆ’ 𝑋)) = (𝑖 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘–) βˆ’ 𝑋))
98580, 984eqtr4i 2768 . . . . . . . . . . . . . . . . . . 19 𝑄 = (𝑗 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘—) βˆ’ 𝑋))
986985a1i 11 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑄 = (𝑗 ∈ (0...𝑀) ↦ ((π‘‰β€˜π‘—) βˆ’ 𝑋)))
987 fveq2 6847 . . . . . . . . . . . . . . . . . . . 20 (𝑗 = (𝑖 + 1) β†’ (π‘‰β€˜π‘—) = (π‘‰β€˜(𝑖 + 1)))
988987oveq1d 7377 . . . . . . . . . . . . . . . . . . 19 (𝑗 = (𝑖 + 1) β†’ ((π‘‰β€˜π‘—) βˆ’ 𝑋) = ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋))
989988adantl 483 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑗 = (𝑖 + 1)) β†’ ((π‘‰β€˜π‘—) βˆ’ 𝑋) = ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋))
990972, 952ffvelcdmd 7041 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ ℝ)
991990, 954resubcld 11590 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋) ∈ ℝ)
992986, 989, 952, 991fvmptd 6960 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) = ((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋))
993992oveq1d 7377 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜(𝑖 + 1)) + 𝑋) = (((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋) + 𝑋))
994990recnd 11190 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘‰β€˜(𝑖 + 1)) ∈ β„‚)
995994, 979npcand 11523 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘‰β€˜(𝑖 + 1)) βˆ’ 𝑋) + 𝑋) = (π‘‰β€˜(𝑖 + 1)))
996993, 995eqtrd 2777 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜(𝑖 + 1)) + 𝑋) = (π‘‰β€˜(𝑖 + 1)))
997981, 996oveq12d 7380 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘„β€˜π‘–) + 𝑋)(,)((π‘„β€˜(𝑖 + 1)) + 𝑋)) = ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1))))
998997reseq2d 5942 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ (((π‘„β€˜π‘–) + 𝑋)(,)((π‘„β€˜(𝑖 + 1)) + 𝑋))) = (𝐹 β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))))
999997oveq1d 7377 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((((π‘„β€˜π‘–) + 𝑋)(,)((π‘„β€˜(𝑖 + 1)) + 𝑋))–cnβ†’β„‚) = (((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))–cnβ†’β„‚))
1000269, 998, 9993eltr4d 2853 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ (((π‘„β€˜π‘–) + 𝑋)(,)((π‘„β€˜(𝑖 + 1)) + 𝑋))) ∈ ((((π‘„β€˜π‘–) + 𝑋)(,)((π‘„β€˜(𝑖 + 1)) + 𝑋))–cnβ†’β„‚))
100128adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Œ ∈ ℝ)
100239adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ π‘Š ∈ ℝ)
1003945, 950, 953, 954, 971, 1000, 1001, 1002, 40fourierdlem40 44462 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
1004 id 22 . . . . . . . . . . . . . 14 (((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„ β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„)
100544a1i 11 . . . . . . . . . . . . . 14 (((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„ β†’ ℝ βŠ† β„‚)
10061004, 1005fssd 6691 . . . . . . . . . . . . 13 (((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„ β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„‚)
1007404, 598, 10063syl 18 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((ℝ D 𝐹) β†Ύ ((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))):((π‘‰β€˜π‘–)(,)(π‘‰β€˜(𝑖 + 1)))βŸΆβ„‚)
1008 eqid 2737 . . . . . . . . . . . 12 if((π‘‰β€˜π‘–) = 𝑋, 𝐡, ((𝑅 βˆ’ if((π‘‰β€˜π‘–) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜π‘–))) = if((π‘‰β€˜π‘–) = 𝑋, 𝐡, ((𝑅 βˆ’ if((π‘‰β€˜π‘–) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜π‘–)))
100916, 264, 15, 839, 27, 39, 40, 265, 267, 271, 80, 849, 850, 1007, 854, 1008fourierdlem75 44496 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ if((π‘‰β€˜π‘–) = 𝑋, 𝐡, ((𝑅 βˆ’ if((π‘‰β€˜π‘–) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜π‘–))) ∈ ((𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)))
1010 eqid 2737 . . . . . . . . . . . 12 if((π‘‰β€˜(𝑖 + 1)) = 𝑋, 𝐴, ((𝐿 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜(𝑖 + 1)))) = if((π‘‰β€˜(𝑖 + 1)) = 𝑋, 𝐴, ((𝐿 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜(𝑖 + 1))))
101116, 264, 15, 839, 28, 38, 40, 265, 267, 273, 80, 849, 850, 599, 852, 1010fourierdlem74 44495 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ if((π‘‰β€˜(𝑖 + 1)) = 𝑋, 𝐴, ((𝐿 βˆ’ if((π‘‰β€˜(𝑖 + 1)) < 𝑋, π‘Š, π‘Œ)) / (π‘„β€˜(𝑖 + 1)))) ∈ ((𝐻 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
1012 fveq2 6847 . . . . . . . . . . . . 13 (𝑗 = 𝑖 β†’ (π‘„β€˜π‘—) = (π‘„β€˜π‘–))
1013 oveq1 7369 . . . . . . . . . . . . . 14 (𝑗 = 𝑖 β†’ (𝑗 + 1) = (𝑖 + 1))
10141013fveq2d 6851 . . . . . . . . . . . . 13 (𝑗 = 𝑖 β†’ (π‘„β€˜(𝑗 + 1)) = (π‘„β€˜(𝑖 + 1)))
10151012, 1014oveq12d 7380 . . . . . . . . . . . 12 (𝑗 = 𝑖 β†’ ((π‘„β€˜π‘—)(,)(π‘„β€˜(𝑗 + 1))) = ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
10161015cbvmptv 5223 . . . . . . . . . . 11 (𝑗 ∈ (0..^𝑀) ↦ ((π‘„β€˜π‘—)(,)(π‘„β€˜(𝑗 + 1)))) = (𝑖 ∈ (0..^𝑀) ↦ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
1017450, 452, 905, 180, 265, 915, 935, 942, 944, 1003, 1009, 1011, 1016fourierdlem70 44491 . . . . . . . . . 10 (πœ‘ β†’ βˆƒπ‘₯ ∈ ℝ βˆ€π‘  ∈ (-Ο€[,]Ο€)(absβ€˜(π»β€˜π‘ )) ≀ π‘₯)
1018 eqid 2737 . . . . . . . . . 10 ((𝑒 / 3) / 𝑦) = ((𝑒 / 3) / 𝑦)
1019 fveq2 6847 . . . . . . . . . . . . . . . . . 18 (𝑑 = 𝑠 β†’ (πΊβ€˜π‘‘) = (πΊβ€˜π‘ ))
10201019fveq2d 6851 . . . . . . . . . . . . . . . . 17 (𝑑 = 𝑠 β†’ (absβ€˜(πΊβ€˜π‘‘)) = (absβ€˜(πΊβ€˜π‘ )))
10211020breq1d 5120 . . . . . . . . . . . . . . . 16 (𝑑 = 𝑠 β†’ ((absβ€˜(πΊβ€˜π‘‘)) ≀ 𝑦 ↔ (absβ€˜(πΊβ€˜π‘ )) ≀ 𝑦))
10221021cbvralvw 3228 . . . . . . . . . . . . . . 15 (βˆ€π‘‘ ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘‘)) ≀ 𝑦 ↔ βˆ€π‘  ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘ )) ≀ 𝑦)
10231022ralbii 3097 . . . . . . . . . . . . . 14 (βˆ€π‘› ∈ β„• βˆ€π‘‘ ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘‘)) ≀ 𝑦 ↔ βˆ€π‘› ∈ β„• βˆ€π‘  ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘ )) ≀ 𝑦)
102410233anbi3i 1160 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑦 ∈ ℝ+ ∧ βˆ€π‘› ∈ β„• βˆ€π‘‘ ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘‘)) ≀ 𝑦) ↔ ((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑦 ∈ ℝ+ ∧ βˆ€π‘› ∈ β„• βˆ€π‘  ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘ )) ≀ 𝑦))
10251024anbi1i 625 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑦 ∈ ℝ+ ∧ βˆ€π‘› ∈ β„• βˆ€π‘‘ ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘‘)) ≀ 𝑦) ∧ 𝑒 ∈ dom vol) ↔ (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑦 ∈ ℝ+ ∧ βˆ€π‘› ∈ β„• βˆ€π‘  ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘ )) ≀ 𝑦) ∧ 𝑒 ∈ dom vol))
10261025anbi1i 625 . . . . . . . . . . 11 (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑦 ∈ ℝ+ ∧ βˆ€π‘› ∈ β„• βˆ€π‘‘ ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘‘)) ≀ 𝑦) ∧ 𝑒 ∈ dom vol) ∧ (𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ ((𝑒 / 3) / 𝑦))) ↔ ((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑦 ∈ ℝ+ ∧ βˆ€π‘› ∈ β„• βˆ€π‘  ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘ )) ≀ 𝑦) ∧ 𝑒 ∈ dom vol) ∧ (𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ ((𝑒 / 3) / 𝑦))))
10271026anbi1i 625 . . . . . . . . . 10 ((((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑦 ∈ ℝ+ ∧ βˆ€π‘› ∈ β„• βˆ€π‘‘ ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘‘)) ≀ 𝑦) ∧ 𝑒 ∈ dom vol) ∧ (𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ ((𝑒 / 3) / 𝑦))) ∧ 𝑛 ∈ β„•) ↔ (((((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑦 ∈ ℝ+ ∧ βˆ€π‘› ∈ β„• βˆ€π‘  ∈ (-Ο€[,]Ο€)(absβ€˜(πΊβ€˜π‘ )) ≀ 𝑦) ∧ 𝑒 ∈ dom vol) ∧ (𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ ((𝑒 / 3) / 𝑦))) ∧ 𝑛 ∈ β„•))
102815, 16, 28, 39, 40, 41, 42, 831, 829, 1017, 856, 1018, 1027fourierdlem87 44508 . . . . . . . . 9 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ βˆƒπ‘ ∈ ℝ+ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
1029 iftrue 4497 . . . . . . . . . . . . . . . 16 (𝑐 ≀ (Ο€ / 2) β†’ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) = 𝑐)
10301029negeqd 11402 . . . . . . . . . . . . . . 15 (𝑐 ≀ (Ο€ / 2) β†’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) = -𝑐)
10311030adantl 483 . . . . . . . . . . . . . 14 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) = -𝑐)
103252a1i 11 . . . . . . . . . . . . . . 15 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ -Ο€ ∈ ℝ*)
103353a1i 11 . . . . . . . . . . . . . . 15 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ 0 ∈ ℝ*)
1034 rpre 12930 . . . . . . . . . . . . . . . . 17 (𝑐 ∈ ℝ+ β†’ 𝑐 ∈ ℝ)
10351034renegcld 11589 . . . . . . . . . . . . . . . 16 (𝑐 ∈ ℝ+ β†’ -𝑐 ∈ ℝ)
10361035adantr 482 . . . . . . . . . . . . . . 15 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ -𝑐 ∈ ℝ)
10371034adantr 482 . . . . . . . . . . . . . . . . 17 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ 𝑐 ∈ ℝ)
103810rehalfcli 12409 . . . . . . . . . . . . . . . . . 18 (Ο€ / 2) ∈ ℝ
10391038a1i 11 . . . . . . . . . . . . . . . . 17 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ (Ο€ / 2) ∈ ℝ)
104010a1i 11 . . . . . . . . . . . . . . . . 17 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ Ο€ ∈ ℝ)
1041 simpr 486 . . . . . . . . . . . . . . . . 17 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ 𝑐 ≀ (Ο€ / 2))
1042 halfpos 12390 . . . . . . . . . . . . . . . . . . . 20 (Ο€ ∈ ℝ β†’ (0 < Ο€ ↔ (Ο€ / 2) < Ο€))
104310, 1042ax-mp 5 . . . . . . . . . . . . . . . . . . 19 (0 < Ο€ ↔ (Ο€ / 2) < Ο€)
104456, 1043mpbi 229 . . . . . . . . . . . . . . . . . 18 (Ο€ / 2) < Ο€
10451044a1i 11 . . . . . . . . . . . . . . . . 17 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ (Ο€ / 2) < Ο€)
10461037, 1039, 1040, 1041, 1045lelttrd 11320 . . . . . . . . . . . . . . . 16 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ 𝑐 < Ο€)
10471037, 1040ltnegd 11740 . . . . . . . . . . . . . . . 16 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ (𝑐 < Ο€ ↔ -Ο€ < -𝑐))
10481046, 1047mpbid 231 . . . . . . . . . . . . . . 15 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ -Ο€ < -𝑐)
1049 rpgt0 12934 . . . . . . . . . . . . . . . . 17 (𝑐 ∈ ℝ+ β†’ 0 < 𝑐)
10501034lt0neg2d 11732 . . . . . . . . . . . . . . . . 17 (𝑐 ∈ ℝ+ β†’ (0 < 𝑐 ↔ -𝑐 < 0))
10511049, 1050mpbid 231 . . . . . . . . . . . . . . . 16 (𝑐 ∈ ℝ+ β†’ -𝑐 < 0)
10521051adantr 482 . . . . . . . . . . . . . . 15 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ -𝑐 < 0)
10531032, 1033, 1036, 1048, 1052eliood 43810 . . . . . . . . . . . . . 14 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ -𝑐 ∈ (-Ο€(,)0))
10541031, 1053eqeltrd 2838 . . . . . . . . . . . . 13 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ∈ (-Ο€(,)0))
1055 iffalse 4500 . . . . . . . . . . . . . . . 16 (Β¬ 𝑐 ≀ (Ο€ / 2) β†’ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) = (Ο€ / 2))
10561055negeqd 11402 . . . . . . . . . . . . . . 15 (Β¬ 𝑐 ≀ (Ο€ / 2) β†’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) = -(Ο€ / 2))
10571038renegcli 11469 . . . . . . . . . . . . . . . . . . 19 -(Ο€ / 2) ∈ ℝ
10581057rexri 11220 . . . . . . . . . . . . . . . . . 18 -(Ο€ / 2) ∈ ℝ*
105952, 53, 10583pm3.2i 1340 . . . . . . . . . . . . . . . . 17 (-Ο€ ∈ ℝ* ∧ 0 ∈ ℝ* ∧ -(Ο€ / 2) ∈ ℝ*)
10601038, 10ltnegi 11706 . . . . . . . . . . . . . . . . . . 19 ((Ο€ / 2) < Ο€ ↔ -Ο€ < -(Ο€ / 2))
10611044, 1060mpbi 229 . . . . . . . . . . . . . . . . . 18 -Ο€ < -(Ο€ / 2)
1062 2pos 12263 . . . . . . . . . . . . . . . . . . . 20 0 < 2
106310, 101, 56, 1062divgt0ii 12079 . . . . . . . . . . . . . . . . . . 19 0 < (Ο€ / 2)
1064 lt0neg2 11669 . . . . . . . . . . . . . . . . . . . 20 ((Ο€ / 2) ∈ ℝ β†’ (0 < (Ο€ / 2) ↔ -(Ο€ / 2) < 0))
10651038, 1064ax-mp 5 . . . . . . . . . . . . . . . . . . 19 (0 < (Ο€ / 2) ↔ -(Ο€ / 2) < 0)
10661063, 1065mpbi 229 . . . . . . . . . . . . . . . . . 18 -(Ο€ / 2) < 0
10671061, 1066pm3.2i 472 . . . . . . . . . . . . . . . . 17 (-Ο€ < -(Ο€ / 2) ∧ -(Ο€ / 2) < 0)
1068 elioo3g 13300 . . . . . . . . . . . . . . . . 17 (-(Ο€ / 2) ∈ (-Ο€(,)0) ↔ ((-Ο€ ∈ ℝ* ∧ 0 ∈ ℝ* ∧ -(Ο€ / 2) ∈ ℝ*) ∧ (-Ο€ < -(Ο€ / 2) ∧ -(Ο€ / 2) < 0)))
10691059, 1067, 1068mpbir2an 710 . . . . . . . . . . . . . . . 16 -(Ο€ / 2) ∈ (-Ο€(,)0)
10701069a1i 11 . . . . . . . . . . . . . . 15 (Β¬ 𝑐 ≀ (Ο€ / 2) β†’ -(Ο€ / 2) ∈ (-Ο€(,)0))
10711056, 1070eqeltrd 2838 . . . . . . . . . . . . . 14 (Β¬ 𝑐 ≀ (Ο€ / 2) β†’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ∈ (-Ο€(,)0))
10721071adantl 483 . . . . . . . . . . . . 13 ((𝑐 ∈ ℝ+ ∧ Β¬ 𝑐 ≀ (Ο€ / 2)) β†’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ∈ (-Ο€(,)0))
10731054, 1072pm2.61dan 812 . . . . . . . . . . . 12 (𝑐 ∈ ℝ+ β†’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ∈ (-Ο€(,)0))
107410733ad2ant2 1135 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑐 ∈ ℝ+ ∧ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))) β†’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ∈ (-Ο€(,)0))
1075 ioombl 24945 . . . . . . . . . . . . . . 15 (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) ∈ dom vol
10761075a1i 11 . . . . . . . . . . . . . 14 ((𝑐 ∈ ℝ+ ∧ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))) β†’ (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) ∈ dom vol)
1077 simpr 486 . . . . . . . . . . . . . 14 ((𝑐 ∈ ℝ+ ∧ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))) β†’ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
10781076, 1077jca 513 . . . . . . . . . . . . 13 ((𝑐 ∈ ℝ+ ∧ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))) β†’ ((-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) ∈ dom vol ∧ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))))
1079 ioossicc 13357 . . . . . . . . . . . . . . . . 17 (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) βŠ† (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))[,]0)
10801079a1i 11 . . . . . . . . . . . . . . . 16 (𝑐 ∈ ℝ+ β†’ (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) βŠ† (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))[,]0))
108111a1i 11 . . . . . . . . . . . . . . . . 17 (𝑐 ∈ ℝ+ β†’ -Ο€ ∈ ℝ)
108210a1i 11 . . . . . . . . . . . . . . . . 17 (𝑐 ∈ ℝ+ β†’ Ο€ ∈ ℝ)
10831037, 1040, 1046ltled 11310 . . . . . . . . . . . . . . . . . . . 20 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ 𝑐 ≀ Ο€)
10841037, 1040lenegd 11741 . . . . . . . . . . . . . . . . . . . 20 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ (𝑐 ≀ Ο€ ↔ -Ο€ ≀ -𝑐))
10851083, 1084mpbid 231 . . . . . . . . . . . . . . . . . . 19 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ -Ο€ ≀ -𝑐)
10861030eqcomd 2743 . . . . . . . . . . . . . . . . . . . 20 (𝑐 ≀ (Ο€ / 2) β†’ -𝑐 = -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
10871086adantl 483 . . . . . . . . . . . . . . . . . . 19 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ -𝑐 = -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
10881085, 1087breqtrd 5136 . . . . . . . . . . . . . . . . . 18 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ -Ο€ ≀ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
108911, 1057, 1061ltleii 11285 . . . . . . . . . . . . . . . . . . . 20 -Ο€ ≀ -(Ο€ / 2)
10901089a1i 11 . . . . . . . . . . . . . . . . . . 19 ((𝑐 ∈ ℝ+ ∧ Β¬ 𝑐 ≀ (Ο€ / 2)) β†’ -Ο€ ≀ -(Ο€ / 2))
10911056eqcomd 2743 . . . . . . . . . . . . . . . . . . . 20 (Β¬ 𝑐 ≀ (Ο€ / 2) β†’ -(Ο€ / 2) = -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
10921091adantl 483 . . . . . . . . . . . . . . . . . . 19 ((𝑐 ∈ ℝ+ ∧ Β¬ 𝑐 ≀ (Ο€ / 2)) β†’ -(Ο€ / 2) = -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
10931090, 1092breqtrd 5136 . . . . . . . . . . . . . . . . . 18 ((𝑐 ∈ ℝ+ ∧ Β¬ 𝑐 ≀ (Ο€ / 2)) β†’ -Ο€ ≀ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
10941088, 1093pm2.61dan 812 . . . . . . . . . . . . . . . . 17 (𝑐 ∈ ℝ+ β†’ -Ο€ ≀ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
1095772a1i 11 . . . . . . . . . . . . . . . . 17 (𝑐 ∈ ℝ+ β†’ 0 ≀ Ο€)
1096 iccss 13339 . . . . . . . . . . . . . . . . 17 (((-Ο€ ∈ ℝ ∧ Ο€ ∈ ℝ) ∧ (-Ο€ ≀ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ∧ 0 ≀ Ο€)) β†’ (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))[,]0) βŠ† (-Ο€[,]Ο€))
10971081, 1082, 1094, 1095, 1096syl22anc 838 . . . . . . . . . . . . . . . 16 (𝑐 ∈ ℝ+ β†’ (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))[,]0) βŠ† (-Ο€[,]Ο€))
10981080, 1097sstrd 3959 . . . . . . . . . . . . . . 15 (𝑐 ∈ ℝ+ β†’ (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) βŠ† (-Ο€[,]Ο€))
1099796, 1073sselid 3947 . . . . . . . . . . . . . . . . . 18 (𝑐 ∈ ℝ+ β†’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ∈ ℝ)
1100 0red 11165 . . . . . . . . . . . . . . . . . 18 (𝑐 ∈ ℝ+ β†’ 0 ∈ ℝ)
1101 rpge0 12935 . . . . . . . . . . . . . . . . . . . . . 22 (𝑐 ∈ ℝ+ β†’ 0 ≀ 𝑐)
11021101adantr 482 . . . . . . . . . . . . . . . . . . . . 21 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ 0 ≀ 𝑐)
11031041iftrued 4499 . . . . . . . . . . . . . . . . . . . . 21 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) = 𝑐)
11041102, 1103breqtrrd 5138 . . . . . . . . . . . . . . . . . . . 20 ((𝑐 ∈ ℝ+ ∧ 𝑐 ≀ (Ο€ / 2)) β†’ 0 ≀ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
1105771, 1038, 1063ltleii 11285 . . . . . . . . . . . . . . . . . . . . 21 0 ≀ (Ο€ / 2)
1106 simpr 486 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑐 ∈ ℝ+ ∧ Β¬ 𝑐 ≀ (Ο€ / 2)) β†’ Β¬ 𝑐 ≀ (Ο€ / 2))
11071106iffalsed 4502 . . . . . . . . . . . . . . . . . . . . 21 ((𝑐 ∈ ℝ+ ∧ Β¬ 𝑐 ≀ (Ο€ / 2)) β†’ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) = (Ο€ / 2))
11081105, 1107breqtrrid 5148 . . . . . . . . . . . . . . . . . . . 20 ((𝑐 ∈ ℝ+ ∧ Β¬ 𝑐 ≀ (Ο€ / 2)) β†’ 0 ≀ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
11091104, 1108pm2.61dan 812 . . . . . . . . . . . . . . . . . . 19 (𝑐 ∈ ℝ+ β†’ 0 ≀ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
11101038a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (𝑐 ∈ ℝ+ β†’ (Ο€ / 2) ∈ ℝ)
11111034, 1110ifcld 4537 . . . . . . . . . . . . . . . . . . . 20 (𝑐 ∈ ℝ+ β†’ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ∈ ℝ)
11121111le0neg2d 11734 . . . . . . . . . . . . . . . . . . 19 (𝑐 ∈ ℝ+ β†’ (0 ≀ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ↔ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ≀ 0))
11131109, 1112mpbid 231 . . . . . . . . . . . . . . . . . 18 (𝑐 ∈ ℝ+ β†’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ≀ 0)
1114 volioo 24949 . . . . . . . . . . . . . . . . . 18 ((-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ∈ ℝ ∧ 0 ∈ ℝ ∧ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ≀ 0) β†’ (volβ€˜(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)) = (0 βˆ’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))))
11151099, 1100, 1113, 1114syl3anc 1372 . . . . . . . . . . . . . . . . 17 (𝑐 ∈ ℝ+ β†’ (volβ€˜(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)) = (0 βˆ’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))))
1116 0cn 11154 . . . . . . . . . . . . . . . . . . 19 0 ∈ β„‚
11171116a1i 11 . . . . . . . . . . . . . . . . . 18 (𝑐 ∈ ℝ+ β†’ 0 ∈ β„‚)
11181111recnd 11190 . . . . . . . . . . . . . . . . . 18 (𝑐 ∈ ℝ+ β†’ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ∈ β„‚)
11191117, 1118subnegd 11526 . . . . . . . . . . . . . . . . 17 (𝑐 ∈ ℝ+ β†’ (0 βˆ’ -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))) = (0 + if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))))
11201118addid2d 11363 . . . . . . . . . . . . . . . . 17 (𝑐 ∈ ℝ+ β†’ (0 + if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))) = if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
11211115, 1119, 11203eqtrd 2781 . . . . . . . . . . . . . . . 16 (𝑐 ∈ ℝ+ β†’ (volβ€˜(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)) = if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)))
1122 min1 13115 . . . . . . . . . . . . . . . . 17 ((𝑐 ∈ ℝ ∧ (Ο€ / 2) ∈ ℝ) β†’ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ≀ 𝑐)
11231034, 1038, 1122sylancl 587 . . . . . . . . . . . . . . . 16 (𝑐 ∈ ℝ+ β†’ if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ≀ 𝑐)
11241121, 1123eqbrtrd 5132 . . . . . . . . . . . . . . 15 (𝑐 ∈ ℝ+ β†’ (volβ€˜(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)) ≀ 𝑐)
11251098, 1124jca 513 . . . . . . . . . . . . . 14 (𝑐 ∈ ℝ+ β†’ ((-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)) ≀ 𝑐))
11261125adantr 482 . . . . . . . . . . . . 13 ((𝑐 ∈ ℝ+ ∧ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))) β†’ ((-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)) ≀ 𝑐))
1127 sseq1 3974 . . . . . . . . . . . . . . . 16 (𝑒 = (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) β†’ (𝑒 βŠ† (-Ο€[,]Ο€) ↔ (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) βŠ† (-Ο€[,]Ο€)))
1128 fveq2 6847 . . . . . . . . . . . . . . . . 17 (𝑒 = (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) β†’ (volβ€˜π‘’) = (volβ€˜(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)))
11291128breq1d 5120 . . . . . . . . . . . . . . . 16 (𝑒 = (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) β†’ ((volβ€˜π‘’) ≀ 𝑐 ↔ (volβ€˜(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)) ≀ 𝑐))
11301127, 1129anbi12d 632 . . . . . . . . . . . . . . 15 (𝑒 = (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) β†’ ((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) ↔ ((-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)) ≀ 𝑐)))
1131 itgeq1 25153 . . . . . . . . . . . . . . . . . 18 (𝑒 = (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) β†’ βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 = ∫(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)
11321131fveq2d 6851 . . . . . . . . . . . . . . . . 17 (𝑒 = (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) β†’ (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) = (absβ€˜βˆ«(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠))
11331132breq1d 5120 . . . . . . . . . . . . . . . 16 (𝑒 = (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) β†’ ((absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2) ↔ (absβ€˜βˆ«(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
11341133ralbidv 3175 . . . . . . . . . . . . . . 15 (𝑒 = (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) β†’ (βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2) ↔ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
11351130, 1134imbi12d 345 . . . . . . . . . . . . . 14 (𝑒 = (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) β†’ (((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) ↔ (((-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))))
11361135rspcva 3582 . . . . . . . . . . . . 13 (((-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) ∈ dom vol ∧ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))) β†’ (((-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0) βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
11371078, 1126, 1136sylc 65 . . . . . . . . . . . 12 ((𝑐 ∈ ℝ+ ∧ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
113811373adant1 1131 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑐 ∈ ℝ+ ∧ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
1139 oveq1 7369 . . . . . . . . . . . . . . . 16 (𝑑 = -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) β†’ (𝑑(,)0) = (-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0))
11401139itgeq1d 44272 . . . . . . . . . . . . . . 15 (𝑑 = -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) β†’ ∫(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 = ∫(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)
11411140fveq2d 6851 . . . . . . . . . . . . . 14 (𝑑 = -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) β†’ (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) = (absβ€˜βˆ«(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠))
11421141breq1d 5120 . . . . . . . . . . . . 13 (𝑑 = -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) β†’ ((absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2) ↔ (absβ€˜βˆ«(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
11431142ralbidv 3175 . . . . . . . . . . . 12 (𝑑 = -if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) β†’ (βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2) ↔ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
11441143rspcev 3584 . . . . . . . . . . 11 ((-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2)) ∈ (-Ο€(,)0) ∧ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(-if(𝑐 ≀ (Ο€ / 2), 𝑐, (Ο€ / 2))(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ βˆƒπ‘‘ ∈ (-Ο€(,)0)βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
11451074, 1138, 1144syl2anc 585 . . . . . . . . . 10 (((πœ‘ ∧ 𝑒 ∈ ℝ+) ∧ 𝑐 ∈ ℝ+ ∧ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))) β†’ βˆƒπ‘‘ ∈ (-Ο€(,)0)βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
11461145rexlimdv3a 3157 . . . . . . . . 9 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ (βˆƒπ‘ ∈ ℝ+ βˆ€π‘’ ∈ dom vol((𝑒 βŠ† (-Ο€[,]Ο€) ∧ (volβ€˜π‘’) ≀ 𝑐) β†’ βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«π‘’((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)) β†’ βˆƒπ‘‘ ∈ (-Ο€(,)0)βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2)))
11471028, 1146mpd 15 . . . . . . . 8 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ βˆƒπ‘‘ ∈ (-Ο€(,)0)βˆ€π‘˜ ∈ β„• (absβ€˜βˆ«(𝑑(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < (𝑒 / 2))
1148900, 1147r19.29a 3160 . . . . . . 7 ((πœ‘ ∧ 𝑒 ∈ ℝ+) β†’ βˆƒπ‘— ∈ β„• βˆ€π‘˜ ∈ (β„€β‰₯β€˜π‘—)(absβ€˜βˆ«(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < 𝑒)
11491148ralrimiva 3144 . . . . . 6 (πœ‘ β†’ βˆ€π‘’ ∈ ℝ+ βˆƒπ‘— ∈ β„• βˆ€π‘˜ ∈ (β„€β‰₯β€˜π‘—)(absβ€˜βˆ«(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < 𝑒)
1150 nnex 12166 . . . . . . . . 9 β„• ∈ V
11511150mptex 7178 . . . . . . . 8 (𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠) ∈ V
11521151a1i 11 . . . . . . 7 (πœ‘ β†’ (𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠) ∈ V)
1153 eqidd 2738 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ (𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠) = (𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠))
1154777adantl 483 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
1155779ad4ant14 751 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (π‘ˆβ€˜π‘ ) ∈ ℝ)
1156777adantl 483 . . . . . . . . . . . . . . 15 (((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
1157 simpr 486 . . . . . . . . . . . . . . . . . . . . 21 ((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) β†’ 𝑛 = π‘˜)
1158 simpl 484 . . . . . . . . . . . . . . . . . . . . 21 ((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) β†’ π‘˜ ∈ β„•)
11591157, 1158eqeltrd 2838 . . . . . . . . . . . . . . . . . . . 20 ((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) β†’ 𝑛 ∈ β„•)
11601159nnred 12175 . . . . . . . . . . . . . . . . . . 19 ((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) β†’ 𝑛 ∈ ℝ)
1161729a1i 11 . . . . . . . . . . . . . . . . . . 19 ((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) β†’ (1 / 2) ∈ ℝ)
11621160, 1161readdcld 11191 . . . . . . . . . . . . . . . . . 18 ((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) β†’ (𝑛 + (1 / 2)) ∈ ℝ)
11631162adantr 482 . . . . . . . . . . . . . . . . 17 (((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (𝑛 + (1 / 2)) ∈ ℝ)
1164214, 1156sselid 3947 . . . . . . . . . . . . . . . . 17 (((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑠 ∈ ℝ)
11651163, 1164remulcld 11192 . . . . . . . . . . . . . . . 16 (((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((𝑛 + (1 / 2)) Β· 𝑠) ∈ ℝ)
11661165resincld 16032 . . . . . . . . . . . . . . 15 (((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) ∈ ℝ)
11671156, 1166, 832syl2anc 585 . . . . . . . . . . . . . 14 (((π‘˜ ∈ β„• ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (π‘†β€˜π‘ ) = (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))
11681167adantlll 717 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (π‘†β€˜π‘ ) = (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)))
11691160adantll 713 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) β†’ 𝑛 ∈ ℝ)
11701169adantr 482 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑛 ∈ ℝ)
1171 1red 11163 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 1 ∈ ℝ)
11721171rehalfcld 12407 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (1 / 2) ∈ ℝ)
11731170, 1172readdcld 11191 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (𝑛 + (1 / 2)) ∈ ℝ)
1174214, 1154sselid 3947 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑠 ∈ ℝ)
11751173, 1174remulcld 11192 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((𝑛 + (1 / 2)) Β· 𝑠) ∈ ℝ)
11761175resincld 16032 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) ∈ ℝ)
11771168, 1176eqeltrd 2838 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (π‘†β€˜π‘ ) ∈ ℝ)
11781155, 1177remulcld 11192 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((π‘ˆβ€˜π‘ ) Β· (π‘†β€˜π‘ )) ∈ ℝ)
1179829fvmpt2 6964 . . . . . . . . . . 11 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ ((π‘ˆβ€˜π‘ ) Β· (π‘†β€˜π‘ )) ∈ ℝ) β†’ (πΊβ€˜π‘ ) = ((π‘ˆβ€˜π‘ ) Β· (π‘†β€˜π‘ )))
11801154, 1178, 1179syl2anc 585 . . . . . . . . . 10 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (πΊβ€˜π‘ ) = ((π‘ˆβ€˜π‘ ) Β· (π‘†β€˜π‘ )))
1181 oveq1 7369 . . . . . . . . . . . . . . 15 (𝑛 = π‘˜ β†’ (𝑛 + (1 / 2)) = (π‘˜ + (1 / 2)))
11821181oveq1d 7377 . . . . . . . . . . . . . 14 (𝑛 = π‘˜ β†’ ((𝑛 + (1 / 2)) Β· 𝑠) = ((π‘˜ + (1 / 2)) Β· 𝑠))
11831182fveq2d 6851 . . . . . . . . . . . . 13 (𝑛 = π‘˜ β†’ (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) = (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))
11841183ad2antlr 726 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) = (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))
11851168, 1184eqtrd 2777 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (π‘†β€˜π‘ ) = (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠)))
11861185oveq2d 7378 . . . . . . . . . 10 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((π‘ˆβ€˜π‘ ) Β· (π‘†β€˜π‘ )) = ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))))
11871180, 1186eqtrd 2777 . . . . . . . . 9 ((((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (πΊβ€˜π‘ ) = ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))))
11881187itgeq2dv 25162 . . . . . . . 8 (((πœ‘ ∧ π‘˜ ∈ β„•) ∧ 𝑛 = π‘˜) β†’ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 = ∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)
1189 simpr 486 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ π‘˜ ∈ β„•)
1190810itgeq2dv 25162 . . . . . . . . . . 11 (𝑛 = π‘˜ β†’ ∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠))) d𝑠 = ∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)
11911190eleq1d 2823 . . . . . . . . . 10 (𝑛 = π‘˜ β†’ (∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠))) d𝑠 ∈ β„‚ ↔ ∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 ∈ β„‚))
1192805, 1191imbi12d 345 . . . . . . . . 9 (𝑛 = π‘˜ β†’ (((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠))) d𝑠 ∈ β„‚) ↔ ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 ∈ β„‚)))
1193779adantlr 714 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (π‘ˆβ€˜π‘ ) ∈ ℝ)
1194 simpr 486 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑛 ∈ β„•)
11951194, 777, 826syl2an 597 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) ∈ ℝ)
11961193, 1195remulcld 11192 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠))) ∈ ℝ)
11971196, 858itgcl 25164 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠))) d𝑠 ∈ β„‚)
11981192, 1197chvarvv 2003 . . . . . . . 8 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠 ∈ β„‚)
11991153, 1188, 1189, 1198fvmptd 6960 . . . . . . 7 ((πœ‘ ∧ π‘˜ ∈ β„•) β†’ ((𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠)β€˜π‘˜) = ∫(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠)
12009, 2, 1152, 1199, 1198clim0c 15396 . . . . . 6 (πœ‘ β†’ ((𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠) ⇝ 0 ↔ βˆ€π‘’ ∈ ℝ+ βˆƒπ‘— ∈ β„• βˆ€π‘˜ ∈ (β„€β‰₯β€˜π‘—)(absβ€˜βˆ«(-Ο€(,)0)((π‘ˆβ€˜π‘ ) Β· (sinβ€˜((π‘˜ + (1 / 2)) Β· 𝑠))) d𝑠) < 𝑒))
12011149, 1200mpbird 257 . . . . 5 (πœ‘ β†’ (𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠) ⇝ 0)
12021150mptex 7178 . . . . . . 7 (𝑛 ∈ β„• ↦ (∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 / Ο€)) ∈ V
12036, 1202eqeltri 2834 . . . . . 6 𝐸 ∈ V
12041203a1i 11 . . . . 5 (πœ‘ β†’ 𝐸 ∈ V)
12051150mptex 7178 . . . . . . 7 (𝑛 ∈ β„• ↦ Ο€) ∈ V
12061205a1i 11 . . . . . 6 (πœ‘ β†’ (𝑛 ∈ β„• ↦ Ο€) ∈ V)
1207 picn 25832 . . . . . . 7 Ο€ ∈ β„‚
12081207a1i 11 . . . . . 6 (πœ‘ β†’ Ο€ ∈ β„‚)
1209 eqidd 2738 . . . . . . . 8 (π‘š ∈ β„• β†’ (𝑛 ∈ β„• ↦ Ο€) = (𝑛 ∈ β„• ↦ Ο€))
1210 eqidd 2738 . . . . . . . 8 ((π‘š ∈ β„• ∧ 𝑛 = π‘š) β†’ Ο€ = Ο€)
1211 id 22 . . . . . . . 8 (π‘š ∈ β„• β†’ π‘š ∈ β„•)
121210a1i 11 . . . . . . . 8 (π‘š ∈ β„• β†’ Ο€ ∈ ℝ)
12131209, 1210, 1211, 1212fvmptd 6960 . . . . . . 7 (π‘š ∈ β„• β†’ ((𝑛 ∈ β„• ↦ Ο€)β€˜π‘š) = Ο€)
12141213adantl 483 . . . . . 6 ((πœ‘ ∧ π‘š ∈ β„•) β†’ ((𝑛 ∈ β„• ↦ Ο€)β€˜π‘š) = Ο€)
12159, 2, 1206, 1208, 1214climconst 15432 . . . . 5 (πœ‘ β†’ (𝑛 ∈ β„• ↦ Ο€) ⇝ Ο€)
1216771, 56gtneii 11274 . . . . . 6 Ο€ β‰  0
12171216a1i 11 . . . . 5 (πœ‘ β†’ Ο€ β‰  0)
121816adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑋 ∈ ℝ)
121928adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ π‘Œ ∈ ℝ)
122039adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ π‘Š ∈ ℝ)
1221838, 1218, 1219, 1220, 40, 41, 42, 843, 831, 829fourierdlem67 44488 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝐺:(-Ο€[,]Ο€)βŸΆβ„)
12221221adantr 482 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝐺:(-Ο€[,]Ο€)βŸΆβ„)
1223814sselda 3949 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
12241222, 1223ffvelcdmd 7041 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (πΊβ€˜π‘ ) ∈ ℝ)
12251221ffvelcdmda 7040 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (πΊβ€˜π‘ ) ∈ ℝ)
12261221feqmptd 6915 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝐺 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ (πΊβ€˜π‘ )))
12271226, 856eqeltrrd 2839 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑠 ∈ (-Ο€[,]Ο€) ↦ (πΊβ€˜π‘ )) ∈ 𝐿1)
1228814, 816, 1225, 1227iblss 25185 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑠 ∈ (-Ο€(,)0) ↦ (πΊβ€˜π‘ )) ∈ 𝐿1)
12291224, 1228itgcl 25164 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 ∈ β„‚)
1230 eqid 2737 . . . . . . . 8 (𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠) = (𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠)
12311230fvmpt2 6964 . . . . . . 7 ((𝑛 ∈ β„• ∧ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 ∈ β„‚) β†’ ((𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠)β€˜π‘›) = ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠)
12321194, 1229, 1231syl2anc 585 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠)β€˜π‘›) = ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠)
12331232, 1229eqeltrd 2838 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠)β€˜π‘›) ∈ β„‚)
1234 id 22 . . . . . . . 8 (𝑛 ∈ β„• β†’ 𝑛 ∈ β„•)
1235 eqid 2737 . . . . . . . . 9 (𝑛 ∈ β„• ↦ Ο€) = (𝑛 ∈ β„• ↦ Ο€)
12361235fvmpt2 6964 . . . . . . . 8 ((𝑛 ∈ β„• ∧ Ο€ ∈ ℝ) β†’ ((𝑛 ∈ β„• ↦ Ο€)β€˜π‘›) = Ο€)
12371234, 10, 1236sylancl 587 . . . . . . 7 (𝑛 ∈ β„• β†’ ((𝑛 ∈ β„• ↦ Ο€)β€˜π‘›) = Ο€)
12381207a1i 11 . . . . . . . . 9 (𝑛 ∈ β„• β†’ Ο€ ∈ β„‚)
12391216a1i 11 . . . . . . . . 9 (𝑛 ∈ β„• β†’ Ο€ β‰  0)
12401238, 1239jca 513 . . . . . . . 8 (𝑛 ∈ β„• β†’ (Ο€ ∈ β„‚ ∧ Ο€ β‰  0))
1241 eldifsn 4752 . . . . . . . 8 (Ο€ ∈ (β„‚ βˆ– {0}) ↔ (Ο€ ∈ β„‚ ∧ Ο€ β‰  0))
12421240, 1241sylibr 233 . . . . . . 7 (𝑛 ∈ β„• β†’ Ο€ ∈ (β„‚ βˆ– {0}))
12431237, 1242eqeltrd 2838 . . . . . 6 (𝑛 ∈ β„• β†’ ((𝑛 ∈ β„• ↦ Ο€)β€˜π‘›) ∈ (β„‚ βˆ– {0}))
12441243adantl 483 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((𝑛 ∈ β„• ↦ Ο€)β€˜π‘›) ∈ (β„‚ βˆ– {0}))
12451207a1i 11 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ο€ ∈ β„‚)
12461216a1i 11 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ο€ β‰  0)
12471229, 1245, 1246divcld 11938 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 / Ο€) ∈ β„‚)
12486fvmpt2 6964 . . . . . . 7 ((𝑛 ∈ β„• ∧ (∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 / Ο€) ∈ β„‚) β†’ (πΈβ€˜π‘›) = (∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 / Ο€))
12491194, 1247, 1248syl2anc 585 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (πΈβ€˜π‘›) = (∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 / Ο€))
12501232eqcomd 2743 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 = ((𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠)β€˜π‘›))
12511237eqcomd 2743 . . . . . . . 8 (𝑛 ∈ β„• β†’ Ο€ = ((𝑛 ∈ β„• ↦ Ο€)β€˜π‘›))
12521251adantl 483 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ο€ = ((𝑛 ∈ β„• ↦ Ο€)β€˜π‘›))
12531250, 1252oveq12d 7380 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠 / Ο€) = (((𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠)β€˜π‘›) / ((𝑛 ∈ β„• ↦ Ο€)β€˜π‘›)))
12541249, 1253eqtrd 2777 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (πΈβ€˜π‘›) = (((𝑛 ∈ β„• ↦ ∫(-Ο€(,)0)(πΊβ€˜π‘ ) d𝑠)β€˜π‘›) / ((𝑛 ∈ β„• ↦ Ο€)β€˜π‘›)))
12553, 4, 5, 8, 9, 2, 1201, 1204, 1215, 1217, 1233, 1244, 1254climdivf 43927 . . . 4 (πœ‘ β†’ 𝐸 ⇝ (0 / Ο€))
12561207, 1216div0i 11896 . . . . 5 (0 / Ο€) = 0
12571256a1i 11 . . . 4 (πœ‘ β†’ (0 / Ο€) = 0)
12581255, 1257breqtrd 5136 . . 3 (πœ‘ β†’ 𝐸 ⇝ 0)
1259 fourierdlem103.z . . . . 5 𝑍 = (π‘š ∈ β„• ↦ ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘š)β€˜π‘ )) d𝑠)
12601150mptex 7178 . . . . 5 (π‘š ∈ β„• ↦ ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘š)β€˜π‘ )) d𝑠) ∈ V
12611259, 1260eqeltri 2834 . . . 4 𝑍 ∈ V
12621261a1i 11 . . 3 (πœ‘ β†’ 𝑍 ∈ V)
12631150mptex 7178 . . . . 5 (π‘š ∈ β„• ↦ (π‘Š / 2)) ∈ V
12641263a1i 11 . . . 4 (πœ‘ β†’ (π‘š ∈ β„• ↦ (π‘Š / 2)) ∈ V)
1265 limccl 25255 . . . . . 6 ((𝐹 β†Ύ (-∞(,)𝑋)) limβ„‚ 𝑋) βŠ† β„‚
12661265, 38sselid 3947 . . . . 5 (πœ‘ β†’ π‘Š ∈ β„‚)
12671266halfcld 12405 . . . 4 (πœ‘ β†’ (π‘Š / 2) ∈ β„‚)
1268 eqidd 2738 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) β†’ (π‘š ∈ β„• ↦ (π‘Š / 2)) = (π‘š ∈ β„• ↦ (π‘Š / 2)))
1269 eqidd 2738 . . . . 5 (((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) ∧ π‘š = 𝑛) β†’ (π‘Š / 2) = (π‘Š / 2))
12709eqcomi 2746 . . . . . . . 8 (β„€β‰₯β€˜1) = β„•
12711270eleq2i 2830 . . . . . . 7 (𝑛 ∈ (β„€β‰₯β€˜1) ↔ 𝑛 ∈ β„•)
12721271biimpi 215 . . . . . 6 (𝑛 ∈ (β„€β‰₯β€˜1) β†’ 𝑛 ∈ β„•)
12731272adantl 483 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) β†’ 𝑛 ∈ β„•)
12741267adantr 482 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) β†’ (π‘Š / 2) ∈ β„‚)
12751268, 1269, 1273, 1274fvmptd 6960 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) β†’ ((π‘š ∈ β„• ↦ (π‘Š / 2))β€˜π‘›) = (π‘Š / 2))
12761, 2, 1264, 1267, 1275climconst 15432 . . 3 (πœ‘ β†’ (π‘š ∈ β„• ↦ (π‘Š / 2)) ⇝ (π‘Š / 2))
12771247, 6fmptd 7067 . . . . 5 (πœ‘ β†’ 𝐸:β„•βŸΆβ„‚)
12781277adantr 482 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) β†’ 𝐸:β„•βŸΆβ„‚)
12791278, 1273ffvelcdmd 7041 . . 3 ((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) β†’ (πΈβ€˜π‘›) ∈ β„‚)
12801275, 1274eqeltrd 2838 . . 3 ((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) β†’ ((π‘š ∈ β„• ↦ (π‘Š / 2))β€˜π‘›) ∈ β„‚)
12811275oveq2d 7378 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) β†’ ((πΈβ€˜π‘›) + ((π‘š ∈ β„• ↦ (π‘Š / 2))β€˜π‘›)) = ((πΈβ€˜π‘›) + (π‘Š / 2)))
1282815a1i 11 . . . . . 6 (πœ‘ β†’ (-Ο€(,)0) ∈ dom vol)
128352a1i 11 . . . . . . . . . . . . 13 (𝑠 ∈ (-Ο€(,)0) β†’ -Ο€ ∈ ℝ*)
1284 0red 11165 . . . . . . . . . . . . . 14 (𝑠 ∈ (-Ο€(,)0) β†’ 0 ∈ ℝ)
12851284rexrd 11212 . . . . . . . . . . . . 13 (𝑠 ∈ (-Ο€(,)0) β†’ 0 ∈ ℝ*)
1286 id 22 . . . . . . . . . . . . 13 (𝑠 ∈ (-Ο€(,)0) β†’ 𝑠 ∈ (-Ο€(,)0))
1287 iooltub 43822 . . . . . . . . . . . . 13 ((-Ο€ ∈ ℝ* ∧ 0 ∈ ℝ* ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑠 < 0)
12881283, 1285, 1286, 1287syl3anc 1372 . . . . . . . . . . . 12 (𝑠 ∈ (-Ο€(,)0) β†’ 𝑠 < 0)
1289787, 1288ltned 11298 . . . . . . . . . . 11 (𝑠 ∈ (-Ο€(,)0) β†’ 𝑠 β‰  0)
12901289neneqd 2949 . . . . . . . . . 10 (𝑠 ∈ (-Ο€(,)0) β†’ Β¬ 𝑠 = 0)
1291 velsn 4607 . . . . . . . . . 10 (𝑠 ∈ {0} ↔ 𝑠 = 0)
12921290, 1291sylnibr 329 . . . . . . . . 9 (𝑠 ∈ (-Ο€(,)0) β†’ Β¬ 𝑠 ∈ {0})
1293777, 1292eldifd 3926 . . . . . . . 8 (𝑠 ∈ (-Ο€(,)0) β†’ 𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}))
12941293ssriv 3953 . . . . . . 7 (-Ο€(,)0) βŠ† ((-Ο€[,]Ο€) βˆ– {0})
12951294a1i 11 . . . . . 6 (πœ‘ β†’ (-Ο€(,)0) βŠ† ((-Ο€[,]Ο€) βˆ– {0}))
1296 fourierdlem103.d . . . . . 6 𝐷 = (𝑛 ∈ β„• ↦ (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 Β· Ο€)) = 0, (((2 Β· 𝑛) + 1) / (2 Β· Ο€)), ((sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) / ((2 Β· Ο€) Β· (sinβ€˜(𝑠 / 2)))))))
1297787adantl 483 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑠 ∈ ℝ)
1298 0red 11165 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 0 ∈ ℝ)
1299787, 1284, 1288ltled 11310 . . . . . . . . 9 (𝑠 ∈ (-Ο€(,)0) β†’ 𝑠 ≀ 0)
13001299adantl 483 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑠 ≀ 0)
13011297, 1298, 1300lensymd 11313 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ Β¬ 0 < 𝑠)
13021301iffalsed 4502 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ if(0 < 𝑠, π‘Œ, π‘Š) = π‘Š)
1303 eqid 2737 . . . . . . . 8 (π·β€˜π‘›) = (π·β€˜π‘›)
130411a1i 11 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ -Ο€ ∈ ℝ)
1305 0red 11165 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 0 ∈ ℝ)
130611, 771, 901ltleii 11285 . . . . . . . . 9 -Ο€ ≀ 0
13071306a1i 11 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ -Ο€ ≀ 0)
1308 eqid 2737 . . . . . . . 8 (𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€)) = (𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))
13091296, 1194, 1303, 1304, 1305, 1307, 1308dirkeritg 44417 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ∫(-Ο€(,)0)((π·β€˜π‘›)β€˜π‘ ) d𝑠 = (((𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))β€˜0) βˆ’ ((𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))β€˜-Ο€)))
1310 ubicc2 13389 . . . . . . . . . . 11 ((-Ο€ ∈ ℝ* ∧ 0 ∈ ℝ* ∧ -Ο€ ≀ 0) β†’ 0 ∈ (-Ο€[,]0))
131152, 53, 1306, 1310mp3an 1462 . . . . . . . . . 10 0 ∈ (-Ο€[,]0)
1312 oveq1 7369 . . . . . . . . . . . . . . . 16 (𝑠 = 0 β†’ (𝑠 / 2) = (0 / 2))
1313239, 244div0i 11896 . . . . . . . . . . . . . . . . 17 (0 / 2) = 0
13141313a1i 11 . . . . . . . . . . . . . . . 16 (𝑠 = 0 β†’ (0 / 2) = 0)
13151312, 1314eqtrd 2777 . . . . . . . . . . . . . . 15 (𝑠 = 0 β†’ (𝑠 / 2) = 0)
1316 oveq2 7370 . . . . . . . . . . . . . . . . . . . . . 22 (𝑠 = 0 β†’ (π‘˜ Β· 𝑠) = (π‘˜ Β· 0))
1317 elfzelz 13448 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘˜ ∈ (1...𝑛) β†’ π‘˜ ∈ β„€)
13181317zcnd 12615 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘˜ ∈ (1...𝑛) β†’ π‘˜ ∈ β„‚)
13191318mul01d 11361 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ ∈ (1...𝑛) β†’ (π‘˜ Β· 0) = 0)
13201316, 1319sylan9eq 2797 . . . . . . . . . . . . . . . . . . . . 21 ((𝑠 = 0 ∧ π‘˜ ∈ (1...𝑛)) β†’ (π‘˜ Β· 𝑠) = 0)
13211320fveq2d 6851 . . . . . . . . . . . . . . . . . . . 20 ((𝑠 = 0 ∧ π‘˜ ∈ (1...𝑛)) β†’ (sinβ€˜(π‘˜ Β· 𝑠)) = (sinβ€˜0))
1322 sin0 16038 . . . . . . . . . . . . . . . . . . . . 21 (sinβ€˜0) = 0
13231322a1i 11 . . . . . . . . . . . . . . . . . . . 20 ((𝑠 = 0 ∧ π‘˜ ∈ (1...𝑛)) β†’ (sinβ€˜0) = 0)
13241321, 1323eqtrd 2777 . . . . . . . . . . . . . . . . . . 19 ((𝑠 = 0 ∧ π‘˜ ∈ (1...𝑛)) β†’ (sinβ€˜(π‘˜ Β· 𝑠)) = 0)
13251324oveq1d 7377 . . . . . . . . . . . . . . . . . 18 ((𝑠 = 0 ∧ π‘˜ ∈ (1...𝑛)) β†’ ((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜) = (0 / π‘˜))
1326 0red 11165 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ ∈ (1...𝑛) β†’ 0 ∈ ℝ)
1327 1red 11163 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ ∈ (1...𝑛) β†’ 1 ∈ ℝ)
13281317zred 12614 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ ∈ (1...𝑛) β†’ π‘˜ ∈ ℝ)
132999a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ ∈ (1...𝑛) β†’ 0 < 1)
1330 elfzle1 13451 . . . . . . . . . . . . . . . . . . . . . 22 (π‘˜ ∈ (1...𝑛) β†’ 1 ≀ π‘˜)
13311326, 1327, 1328, 1329, 1330ltletrd 11322 . . . . . . . . . . . . . . . . . . . . 21 (π‘˜ ∈ (1...𝑛) β†’ 0 < π‘˜)
13321331gt0ne0d 11726 . . . . . . . . . . . . . . . . . . . 20 (π‘˜ ∈ (1...𝑛) β†’ π‘˜ β‰  0)
13331318, 1332div0d 11937 . . . . . . . . . . . . . . . . . . 19 (π‘˜ ∈ (1...𝑛) β†’ (0 / π‘˜) = 0)
13341333adantl 483 . . . . . . . . . . . . . . . . . 18 ((𝑠 = 0 ∧ π‘˜ ∈ (1...𝑛)) β†’ (0 / π‘˜) = 0)
13351325, 1334eqtrd 2777 . . . . . . . . . . . . . . . . 17 ((𝑠 = 0 ∧ π‘˜ ∈ (1...𝑛)) β†’ ((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜) = 0)
13361335sumeq2dv 15595 . . . . . . . . . . . . . . . 16 (𝑠 = 0 β†’ Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜) = Ξ£π‘˜ ∈ (1...𝑛)0)
1337 fzfi 13884 . . . . . . . . . . . . . . . . . . 19 (1...𝑛) ∈ Fin
13381337olci 865 . . . . . . . . . . . . . . . . . 18 ((1...𝑛) βŠ† (β„€β‰₯β€˜ βˆ₯ ) ∨ (1...𝑛) ∈ Fin)
1339 sumz 15614 . . . . . . . . . . . . . . . . . 18 (((1...𝑛) βŠ† (β„€β‰₯β€˜ βˆ₯ ) ∨ (1...𝑛) ∈ Fin) β†’ Ξ£π‘˜ ∈ (1...𝑛)0 = 0)
13401338, 1339ax-mp 5 . . . . . . . . . . . . . . . . 17 Ξ£π‘˜ ∈ (1...𝑛)0 = 0
13411340a1i 11 . . . . . . . . . . . . . . . 16 (𝑠 = 0 β†’ Ξ£π‘˜ ∈ (1...𝑛)0 = 0)
13421336, 1341eqtrd 2777 . . . . . . . . . . . . . . 15 (𝑠 = 0 β†’ Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜) = 0)
13431315, 1342oveq12d 7380 . . . . . . . . . . . . . 14 (𝑠 = 0 β†’ ((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) = (0 + 0))
1344 00id 11337 . . . . . . . . . . . . . . 15 (0 + 0) = 0
13451344a1i 11 . . . . . . . . . . . . . 14 (𝑠 = 0 β†’ (0 + 0) = 0)
13461343, 1345eqtrd 2777 . . . . . . . . . . . . 13 (𝑠 = 0 β†’ ((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) = 0)
13471346oveq1d 7377 . . . . . . . . . . . 12 (𝑠 = 0 β†’ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€) = (0 / Ο€))
13481256a1i 11 . . . . . . . . . . . 12 (𝑠 = 0 β†’ (0 / Ο€) = 0)
13491347, 1348eqtrd 2777 . . . . . . . . . . 11 (𝑠 = 0 β†’ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€) = 0)
1350771elexi 3467 . . . . . . . . . . 11 0 ∈ V
13511349, 1308, 1350fvmpt 6953 . . . . . . . . . 10 (0 ∈ (-Ο€[,]0) β†’ ((𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))β€˜0) = 0)
13521311, 1351ax-mp 5 . . . . . . . . 9 ((𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))β€˜0) = 0
1353 lbicc2 13388 . . . . . . . . . . . 12 ((-Ο€ ∈ ℝ* ∧ 0 ∈ ℝ* ∧ -Ο€ ≀ 0) β†’ -Ο€ ∈ (-Ο€[,]0))
135452, 53, 1306, 1353mp3an 1462 . . . . . . . . . . 11 -Ο€ ∈ (-Ο€[,]0)
1355 oveq1 7369 . . . . . . . . . . . . . 14 (𝑠 = -Ο€ β†’ (𝑠 / 2) = (-Ο€ / 2))
1356 oveq2 7370 . . . . . . . . . . . . . . . . 17 (𝑠 = -Ο€ β†’ (π‘˜ Β· 𝑠) = (π‘˜ Β· -Ο€))
13571356fveq2d 6851 . . . . . . . . . . . . . . . 16 (𝑠 = -Ο€ β†’ (sinβ€˜(π‘˜ Β· 𝑠)) = (sinβ€˜(π‘˜ Β· -Ο€)))
13581357oveq1d 7377 . . . . . . . . . . . . . . 15 (𝑠 = -Ο€ β†’ ((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜) = ((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜))
13591358sumeq2sdv 15596 . . . . . . . . . . . . . 14 (𝑠 = -Ο€ β†’ Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜) = Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜))
13601355, 1359oveq12d 7380 . . . . . . . . . . . . 13 (𝑠 = -Ο€ β†’ ((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) = ((-Ο€ / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜)))
13611360oveq1d 7377 . . . . . . . . . . . 12 (𝑠 = -Ο€ β†’ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€) = (((-Ο€ / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜)) / Ο€))
1362 ovex 7395 . . . . . . . . . . . 12 (((-Ο€ / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜)) / Ο€) ∈ V
13631361, 1308, 1362fvmpt 6953 . . . . . . . . . . 11 (-Ο€ ∈ (-Ο€[,]0) β†’ ((𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))β€˜-Ο€) = (((-Ο€ / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜)) / Ο€))
13641354, 1363ax-mp 5 . . . . . . . . . 10 ((𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))β€˜-Ο€) = (((-Ο€ / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜)) / Ο€)
1365 mulneg12 11600 . . . . . . . . . . . . . . . . . . . . . 22 ((π‘˜ ∈ β„‚ ∧ Ο€ ∈ β„‚) β†’ (-π‘˜ Β· Ο€) = (π‘˜ Β· -Ο€))
13661318, 1207, 1365sylancl 587 . . . . . . . . . . . . . . . . . . . . 21 (π‘˜ ∈ (1...𝑛) β†’ (-π‘˜ Β· Ο€) = (π‘˜ Β· -Ο€))
13671366eqcomd 2743 . . . . . . . . . . . . . . . . . . . 20 (π‘˜ ∈ (1...𝑛) β†’ (π‘˜ Β· -Ο€) = (-π‘˜ Β· Ο€))
13681367oveq1d 7377 . . . . . . . . . . . . . . . . . . 19 (π‘˜ ∈ (1...𝑛) β†’ ((π‘˜ Β· -Ο€) / Ο€) = ((-π‘˜ Β· Ο€) / Ο€))
13691318negcld 11506 . . . . . . . . . . . . . . . . . . . 20 (π‘˜ ∈ (1...𝑛) β†’ -π‘˜ ∈ β„‚)
13701207a1i 11 . . . . . . . . . . . . . . . . . . . 20 (π‘˜ ∈ (1...𝑛) β†’ Ο€ ∈ β„‚)
13711216a1i 11 . . . . . . . . . . . . . . . . . . . 20 (π‘˜ ∈ (1...𝑛) β†’ Ο€ β‰  0)
13721369, 1370, 1371divcan4d 11944 . . . . . . . . . . . . . . . . . . 19 (π‘˜ ∈ (1...𝑛) β†’ ((-π‘˜ Β· Ο€) / Ο€) = -π‘˜)
13731368, 1372eqtrd 2777 . . . . . . . . . . . . . . . . . 18 (π‘˜ ∈ (1...𝑛) β†’ ((π‘˜ Β· -Ο€) / Ο€) = -π‘˜)
13741317znegcld 12616 . . . . . . . . . . . . . . . . . 18 (π‘˜ ∈ (1...𝑛) β†’ -π‘˜ ∈ β„€)
13751373, 1374eqeltrd 2838 . . . . . . . . . . . . . . . . 17 (π‘˜ ∈ (1...𝑛) β†’ ((π‘˜ Β· -Ο€) / Ο€) ∈ β„€)
1376 negpicn 25835 . . . . . . . . . . . . . . . . . . . 20 -Ο€ ∈ β„‚
13771376a1i 11 . . . . . . . . . . . . . . . . . . 19 (π‘˜ ∈ (1...𝑛) β†’ -Ο€ ∈ β„‚)
13781318, 1377mulcld 11182 . . . . . . . . . . . . . . . . . 18 (π‘˜ ∈ (1...𝑛) β†’ (π‘˜ Β· -Ο€) ∈ β„‚)
1379 sineq0 25896 . . . . . . . . . . . . . . . . . 18 ((π‘˜ Β· -Ο€) ∈ β„‚ β†’ ((sinβ€˜(π‘˜ Β· -Ο€)) = 0 ↔ ((π‘˜ Β· -Ο€) / Ο€) ∈ β„€))
13801378, 1379syl 17 . . . . . . . . . . . . . . . . 17 (π‘˜ ∈ (1...𝑛) β†’ ((sinβ€˜(π‘˜ Β· -Ο€)) = 0 ↔ ((π‘˜ Β· -Ο€) / Ο€) ∈ β„€))
13811375, 1380mpbird 257 . . . . . . . . . . . . . . . 16 (π‘˜ ∈ (1...𝑛) β†’ (sinβ€˜(π‘˜ Β· -Ο€)) = 0)
13821381oveq1d 7377 . . . . . . . . . . . . . . 15 (π‘˜ ∈ (1...𝑛) β†’ ((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜) = (0 / π‘˜))
13831382, 1333eqtrd 2777 . . . . . . . . . . . . . 14 (π‘˜ ∈ (1...𝑛) β†’ ((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜) = 0)
13841383sumeq2i 15591 . . . . . . . . . . . . 13 Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜) = Ξ£π‘˜ ∈ (1...𝑛)0
13851384, 1340eqtri 2765 . . . . . . . . . . . 12 Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜) = 0
13861385oveq2i 7373 . . . . . . . . . . 11 ((-Ο€ / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜)) = ((-Ο€ / 2) + 0)
13871386oveq1i 7372 . . . . . . . . . 10 (((-Ο€ / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· -Ο€)) / π‘˜)) / Ο€) = (((-Ο€ / 2) + 0) / Ο€)
13881376, 239, 244divcli 11904 . . . . . . . . . . . . . 14 (-Ο€ / 2) ∈ β„‚
13891388addid1i 11349 . . . . . . . . . . . . 13 ((-Ο€ / 2) + 0) = (-Ο€ / 2)
1390 divneg 11854 . . . . . . . . . . . . . 14 ((Ο€ ∈ β„‚ ∧ 2 ∈ β„‚ ∧ 2 β‰  0) β†’ -(Ο€ / 2) = (-Ο€ / 2))
13911207, 239, 244, 1390mp3an 1462 . . . . . . . . . . . . 13 -(Ο€ / 2) = (-Ο€ / 2)
13921389, 1391eqtr4i 2768 . . . . . . . . . . . 12 ((-Ο€ / 2) + 0) = -(Ο€ / 2)
13931392oveq1i 7372 . . . . . . . . . . 11 (((-Ο€ / 2) + 0) / Ο€) = (-(Ο€ / 2) / Ο€)
13941038recni 11176 . . . . . . . . . . . . 13 (Ο€ / 2) ∈ β„‚
1395 divneg 11854 . . . . . . . . . . . . 13 (((Ο€ / 2) ∈ β„‚ ∧ Ο€ ∈ β„‚ ∧ Ο€ β‰  0) β†’ -((Ο€ / 2) / Ο€) = (-(Ο€ / 2) / Ο€))
13961394, 1207, 1216, 1395mp3an 1462 . . . . . . . . . . . 12 -((Ο€ / 2) / Ο€) = (-(Ο€ / 2) / Ο€)
13971396eqcomi 2746 . . . . . . . . . . 11 (-(Ο€ / 2) / Ο€) = -((Ο€ / 2) / Ο€)
13981207, 239, 1207, 244, 1216divdiv32i 11917 . . . . . . . . . . . . 13 ((Ο€ / 2) / Ο€) = ((Ο€ / Ο€) / 2)
13991207, 1216dividi 11895 . . . . . . . . . . . . . 14 (Ο€ / Ο€) = 1
14001399oveq1i 7372 . . . . . . . . . . . . 13 ((Ο€ / Ο€) / 2) = (1 / 2)
14011398, 1400eqtri 2765 . . . . . . . . . . . 12 ((Ο€ / 2) / Ο€) = (1 / 2)
14021401negeqi 11401 . . . . . . . . . . 11 -((Ο€ / 2) / Ο€) = -(1 / 2)
14031393, 1397, 14023eqtri 2769 . . . . . . . . . 10 (((-Ο€ / 2) + 0) / Ο€) = -(1 / 2)
14041364, 1387, 14033eqtri 2769 . . . . . . . . 9 ((𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))β€˜-Ο€) = -(1 / 2)
14051352, 1404oveq12i 7374 . . . . . . . 8 (((𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))β€˜0) βˆ’ ((𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))β€˜-Ο€)) = (0 βˆ’ -(1 / 2))
14061405a1i 11 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (((𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))β€˜0) βˆ’ ((𝑠 ∈ (-Ο€[,]0) ↦ (((𝑠 / 2) + Ξ£π‘˜ ∈ (1...𝑛)((sinβ€˜(π‘˜ Β· 𝑠)) / π‘˜)) / Ο€))β€˜-Ο€)) = (0 βˆ’ -(1 / 2)))
1407 halfcn 12375 . . . . . . . . . 10 (1 / 2) ∈ β„‚
14081116, 1407subnegi 11487 . . . . . . . . 9 (0 βˆ’ -(1 / 2)) = (0 + (1 / 2))
14091407addid2i 11350 . . . . . . . . 9 (0 + (1 / 2)) = (1 / 2)
14101408, 1409eqtri 2765 . . . . . . . 8 (0 βˆ’ -(1 / 2)) = (1 / 2)
14111410a1i 11 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (0 βˆ’ -(1 / 2)) = (1 / 2))
14121309, 1406, 14113eqtrd 2781 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ∫(-Ο€(,)0)((π·β€˜π‘›)β€˜π‘ ) d𝑠 = (1 / 2))
141315, 16, 264, 265, 267, 839, 269, 271, 273, 40, 41, 42, 831, 829, 850, 599, 852, 854, 27, 38, 1282, 1295, 6, 1296, 39, 1302, 1412fourierdlem95 44516 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ((πΈβ€˜π‘›) + (π‘Š / 2)) = ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )) d𝑠)
14141273, 1413syldan 592 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) β†’ ((πΈβ€˜π‘›) + (π‘Š / 2)) = ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )) d𝑠)
14151259a1i 11 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ 𝑍 = (π‘š ∈ β„• ↦ ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘š)β€˜π‘ )) d𝑠))
1416 fveq2 6847 . . . . . . . . . . . 12 (π‘š = 𝑛 β†’ (π·β€˜π‘š) = (π·β€˜π‘›))
14171416fveq1d 6849 . . . . . . . . . . 11 (π‘š = 𝑛 β†’ ((π·β€˜π‘š)β€˜π‘ ) = ((π·β€˜π‘›)β€˜π‘ ))
14181417oveq2d 7378 . . . . . . . . . 10 (π‘š = 𝑛 β†’ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘š)β€˜π‘ )) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )))
14191418adantr 482 . . . . . . . . 9 ((π‘š = 𝑛 ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘š)β€˜π‘ )) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )))
14201419itgeq2dv 25162 . . . . . . . 8 (π‘š = 𝑛 β†’ ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘š)β€˜π‘ )) d𝑠 = ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )) d𝑠)
14211420adantl 483 . . . . . . 7 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ π‘š = 𝑛) β†’ ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘š)β€˜π‘ )) d𝑠 = ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )) d𝑠)
142215adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝐹:β„βŸΆβ„)
142316adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑋 ∈ ℝ)
14241423, 1297readdcld 11191 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (𝑋 + 𝑠) ∈ ℝ)
14251422, 1424ffvelcdmd 7041 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ ℝ)
14261425adantlr 714 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ ℝ)
14271296dirkerf 44412 . . . . . . . . . . 11 (𝑛 ∈ β„• β†’ (π·β€˜π‘›):β„βŸΆβ„)
14281427ad2antlr 726 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ (π·β€˜π‘›):β„βŸΆβ„)
1429787adantl 483 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ 𝑠 ∈ ℝ)
14301428, 1429ffvelcdmd 7041 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((π·β€˜π‘›)β€˜π‘ ) ∈ ℝ)
14311426, 1430remulcld 11192 . . . . . . . 8 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€(,)0)) β†’ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )) ∈ ℝ)
143215adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝐹:β„βŸΆβ„)
143316adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝑋 ∈ ℝ)
1434214sseli 3945 . . . . . . . . . . . . . 14 (𝑠 ∈ (-Ο€[,]Ο€) β†’ 𝑠 ∈ ℝ)
14351434adantl 483 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝑠 ∈ ℝ)
14361433, 1435readdcld 11191 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (𝑋 + 𝑠) ∈ ℝ)
14371432, 1436ffvelcdmd 7041 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ ℝ)
14381437adantlr 714 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ ℝ)
14391427ad2antlr 726 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (π·β€˜π‘›):β„βŸΆβ„)
14401434adantl 483 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝑠 ∈ ℝ)
14411439, 1440ffvelcdmd 7041 . . . . . . . . . 10 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ ((π·β€˜π‘›)β€˜π‘ ) ∈ ℝ)
14421438, 1441remulcld 11192 . . . . . . . . 9 (((πœ‘ ∧ 𝑛 ∈ β„•) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )) ∈ ℝ)
144310a1i 11 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ Ο€ ∈ ℝ)
14441296dirkercncf 44422 . . . . . . . . . . 11 (𝑛 ∈ β„• β†’ (π·β€˜π‘›) ∈ (ℝ–cn→ℝ))
14451444adantl 483 . . . . . . . . . 10 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (π·β€˜π‘›) ∈ (ℝ–cn→ℝ))
1446 eqid 2737 . . . . . . . . . 10 (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ ))) = (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )))
14471304, 1443, 838, 1218, 264, 844, 845, 846, 847, 848, 80, 849, 1445, 1446fourierdlem84 44505 . . . . . . . . 9 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑠 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ ))) ∈ 𝐿1)
1448814, 816, 1442, 1447iblss 25185 . . . . . . . 8 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (𝑠 ∈ (-Ο€(,)0) ↦ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ ))) ∈ 𝐿1)
14491431, 1448itgrecl 25178 . . . . . . 7 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )) d𝑠 ∈ ℝ)
14501415, 1421, 1194, 1449fvmptd 6960 . . . . . 6 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ (π‘β€˜π‘›) = ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )) d𝑠)
14511450eqcomd 2743 . . . . 5 ((πœ‘ ∧ 𝑛 ∈ β„•) β†’ ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )) d𝑠 = (π‘β€˜π‘›))
14521273, 1451syldan 592 . . . 4 ((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) β†’ ∫(-Ο€(,)0)((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘›)β€˜π‘ )) d𝑠 = (π‘β€˜π‘›))
14531281, 1414, 14523eqtrrd 2782 . . 3 ((πœ‘ ∧ 𝑛 ∈ (β„€β‰₯β€˜1)) β†’ (π‘β€˜π‘›) = ((πΈβ€˜π‘›) + ((π‘š ∈ β„• ↦ (π‘Š / 2))β€˜π‘›)))
14541, 2, 1258, 1262, 1276, 1279, 1280, 1453climadd 15521 . 2 (πœ‘ β†’ 𝑍 ⇝ (0 + (π‘Š / 2)))
14551267addid2d 11363 . 2 (πœ‘ β†’ (0 + (π‘Š / 2)) = (π‘Š / 2))
14561454, 1455breqtrd 5136 1 (πœ‘ β†’ 𝑍 ⇝ (π‘Š / 2))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∨ wo 846   ∧ w3a 1088   = wceq 1542  βŠ€wtru 1543   ∈ wcel 2107   β‰  wne 2944  βˆ€wral 3065  βˆƒwrex 3074  {crab 3410  Vcvv 3448  β¦‹csb 3860   βˆ– cdif 3912   βˆͺ cun 3913   ∩ cin 3914   βŠ† wss 3915  βˆ…c0 4287  ifcif 4491  {csn 4591  {cpr 4593   class class class wbr 5110   ↦ cmpt 5193  dom cdm 5638  ran crn 5639   β†Ύ cres 5640  β„©cio 6451   Fn wfn 6496  βŸΆwf 6497  β€˜cfv 6501   Isom wiso 6502  β„©crio 7317  (class class class)co 7362   ↑m cmap 8772  Fincfn 8890  supcsup 9383  β„‚cc 11056  β„cr 11057  0cc0 11058  1c1 11059   + caddc 11061   Β· cmul 11063  +∞cpnf 11193  -∞cmnf 11194  β„*cxr 11195   < clt 11196   ≀ cle 11197   βˆ’ cmin 11392  -cneg 11393   / cdiv 11819  β„•cn 12160  2c2 12215  3c3 12216  β„•0cn0 12420  β„€cz 12506  β„€β‰₯cuz 12770  β„+crp 12922  (,)cioo 13271  [,]cicc 13274  ...cfz 13431  ..^cfzo 13574   mod cmo 13781  β™―chash 14237  abscabs 15126   ⇝ cli 15373  Ξ£csu 15577  sincsin 15953  Ο€cpi 15956  TopOpenctopn 17310  topGenctg 17326  β„‚fldccnfld 20812  intcnt 22384  β€“cnβ†’ccncf 24255  volcvol 24843  πΏ1cibl 24997  βˆ«citg 24998   limβ„‚ climc 25242   D cdv 25243
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2708  ax-rep 5247  ax-sep 5261  ax-nul 5268  ax-pow 5325  ax-pr 5389  ax-un 7677  ax-inf2 9584  ax-cc 10378  ax-cnex 11114  ax-resscn 11115  ax-1cn 11116  ax-icn 11117  ax-addcl 11118  ax-addrcl 11119  ax-mulcl 11120  ax-mulrcl 11121  ax-mulcom 11122  ax-addass 11123  ax-mulass 11124  ax-distr 11125  ax-i2m1 11126  ax-1ne0 11127  ax-1rid 11128  ax-rnegex 11129  ax-rrecex 11130  ax-cnre 11131  ax-pre-lttri 11132  ax-pre-lttrn 11133  ax-pre-ltadd 11134  ax-pre-mulgt0 11135  ax-pre-sup 11136  ax-addf 11137  ax-mulf 11138
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2539  df-eu 2568  df-clab 2715  df-cleq 2729  df-clel 2815  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3066  df-rex 3075  df-rmo 3356  df-reu 3357  df-rab 3411  df-v 3450  df-sbc 3745  df-csb 3861  df-dif 3918  df-un 3920  df-in 3922  df-ss 3932  df-pss 3934  df-symdif 4207  df-nul 4288  df-if 4492  df-pw 4567  df-sn 4592  df-pr 4594  df-tp 4596  df-op 4598  df-uni 4871  df-int 4913  df-iun 4961  df-iin 4962  df-disj 5076  df-br 5111  df-opab 5173  df-mpt 5194  df-tr 5228  df-id 5536  df-eprel 5542  df-po 5550  df-so 5551  df-fr 5593  df-se 5594  df-we 5595  df-xp 5644  df-rel 5645  df-cnv 5646  df-co 5647  df-dm 5648  df-rn 5649  df-res 5650  df-ima 5651  df-pred 6258  df-ord 6325  df-on 6326  df-lim 6327  df-suc 6328  df-iota 6453  df-fun 6503  df-fn 6504  df-f 6505  df-f1 6506  df-fo 6507  df-f1o 6508  df-fv 6509  df-isom 6510  df-riota 7318  df-ov 7365  df-oprab 7366  df-mpo 7367  df-of 7622  df-ofr 7623  df-om 7808  df-1st 7926  df-2nd 7927  df-supp 8098  df-frecs 8217  df-wrecs 8248  df-recs 8322  df-rdg 8361  df-1o 8417  df-2o 8418  df-oadd 8421  df-omul 8422  df-er 8655  df-map 8774  df-pm 8775  df-ixp 8843  df-en 8891  df-dom 8892  df-sdom 8893  df-fin 8894  df-fsupp 9313  df-fi 9354  df-sup 9385  df-inf 9386  df-oi 9453  df-dju 9844  df-card 9882  df-acn 9885  df-pnf 11198  df-mnf 11199  df-xr 11200  df-ltxr 11201  df-le 11202  df-sub 11394  df-neg 11395  df-div 11820  df-nn 12161  df-2 12223  df-3 12224  df-4 12225  df-5 12226  df-6 12227  df-7 12228  df-8 12229  df-9 12230  df-n0 12421  df-xnn0 12493  df-z 12507  df-dec 12626  df-uz 12771  df-q 12881  df-rp 12923  df-xneg 13040  df-xadd 13041  df-xmul 13042  df-ioo 13275  df-ioc 13276  df-ico 13277  df-icc 13278  df-fz 13432  df-fzo 13575  df-fl 13704  df-mod 13782  df-seq 13914  df-exp 13975  df-fac 14181  df-bc 14210  df-hash 14238  df-shft 14959  df-cj 14991  df-re 14992  df-im 14993  df-sqrt 15127  df-abs 15128  df-limsup 15360  df-clim 15377  df-rlim 15378  df-sum 15578  df-ef 15957  df-sin 15959  df-cos 15960  df-pi 15962  df-struct 17026  df-sets 17043  df-slot 17061  df-ndx 17073  df-base 17091  df-ress 17120  df-plusg 17153  df-mulr 17154  df-starv 17155  df-sca 17156  df-vsca 17157  df-ip 17158  df-tset 17159  df-ple 17160  df-ds 17162  df-unif 17163  df-hom 17164  df-cco 17165  df-rest 17311  df-topn 17312  df-0g 17330  df-gsum 17331  df-topgen 17332  df-pt 17333  df-prds 17336  df-xrs 17391  df-qtop 17396  df-imas 17397  df-xps 17399  df-mre 17473  df-mrc 17474  df-acs 17476  df-mgm 18504  df-sgrp 18553  df-mnd 18564  df-submnd 18609  df-mulg 18880  df-cntz 19104  df-cmn 19571  df-psmet 20804  df-xmet 20805  df-met 20806  df-bl 20807  df-mopn 20808  df-fbas 20809  df-fg 20810  df-cnfld 20813  df-top 22259  df-topon 22276  df-topsp 22298  df-bases 22312  df-cld 22386  df-ntr 22387  df-cls 22388  df-nei 22465  df-lp 22503  df-perf 22504  df-cn 22594  df-cnp 22595  df-t1 22681  df-haus 22682  df-cmp 22754  df-tx 22929  df-hmeo 23122  df-fil 23213  df-fm 23305  df-flim 23306  df-flf 23307  df-xms 23689  df-ms 23690  df-tms 23691  df-cncf 24257  df-ovol 24844  df-vol 24845  df-mbf 24999  df-itg1 25000  df-itg2 25001  df-ibl 25002  df-itg 25003  df-0p 25050  df-limc 25246  df-dv 25247
This theorem is referenced by:  fourierdlem112  44533
  Copyright terms: Public domain W3C validator