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

Theorem fourierdlem101 44910
Description: Integral by substitution for a piecewise continuous function. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem101.d 𝐷 = (𝑛 ∈ β„• ↦ (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 Β· Ο€)) = 0, (((2 Β· 𝑛) + 1) / (2 Β· Ο€)), ((sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) / ((2 Β· Ο€) Β· (sinβ€˜(𝑠 / 2)))))))
fourierdlem101.p 𝑃 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = -Ο€ ∧ (π‘β€˜π‘š) = Ο€) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
fourierdlem101.g 𝐺 = (𝑑 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
fourierdlem101.q (πœ‘ β†’ 𝑄 ∈ (π‘ƒβ€˜π‘€))
fourierdlem101.6 (πœ‘ β†’ 𝑀 ∈ β„•)
fourierdlem101.n (πœ‘ β†’ 𝑁 ∈ β„•)
fourierdlem101.x (πœ‘ β†’ 𝑋 ∈ ℝ)
fourierdlem101.f (πœ‘ β†’ 𝐹:(-Ο€[,]Ο€)βŸΆβ„‚)
fourierdlem101.fcn ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
fourierdlem101.r ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)))
fourierdlem101.l ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
Assertion
Ref Expression
fourierdlem101 (πœ‘ β†’ ∫(-Ο€[,]Ο€)((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) d𝑑 = ∫((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )) d𝑠)
Distinct variable groups:   𝐷,𝑠,𝑑   𝑑,𝐹   𝑖,𝐺,𝑠,𝑑   𝑑,𝐿   𝑖,𝑀,𝑠,𝑑   π‘š,𝑀,𝑝,𝑖   𝑛,𝑁,𝑠   𝑑,𝑁   𝑄,𝑖,𝑠,𝑑   𝑄,𝑝   𝑑,𝑅   𝑖,𝑋,𝑠,𝑑   πœ‘,𝑖,𝑠,𝑑   πœ‘,𝑛
Allowed substitution hints:   πœ‘(π‘š,𝑝)   𝐷(𝑖,π‘š,𝑛,𝑝)   𝑃(𝑑,𝑖,π‘š,𝑛,𝑠,𝑝)   𝑄(π‘š,𝑛)   𝑅(𝑖,π‘š,𝑛,𝑠,𝑝)   𝐹(𝑖,π‘š,𝑛,𝑠,𝑝)   𝐺(π‘š,𝑛,𝑝)   𝐿(𝑖,π‘š,𝑛,𝑠,𝑝)   𝑀(𝑛)   𝑁(𝑖,π‘š,𝑝)   𝑋(π‘š,𝑛,𝑝)

Proof of Theorem fourierdlem101
Dummy variables π‘Ÿ 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpr 486 . . . . 5 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ 𝑑 ∈ (-Ο€[,]Ο€))
2 fourierdlem101.f . . . . . . 7 (πœ‘ β†’ 𝐹:(-Ο€[,]Ο€)βŸΆβ„‚)
32ffvelcdmda 7084 . . . . . 6 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ (πΉβ€˜π‘‘) ∈ β„‚)
4 fourierdlem101.n . . . . . . . . 9 (πœ‘ β†’ 𝑁 ∈ β„•)
54adantr 482 . . . . . . . 8 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ 𝑁 ∈ β„•)
6 pire 25960 . . . . . . . . . . . 12 Ο€ ∈ ℝ
76renegcli 11518 . . . . . . . . . . 11 -Ο€ ∈ ℝ
8 eliccre 44205 . . . . . . . . . . 11 ((-Ο€ ∈ ℝ ∧ Ο€ ∈ ℝ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ 𝑑 ∈ ℝ)
97, 6, 8mp3an12 1452 . . . . . . . . . 10 (𝑑 ∈ (-Ο€[,]Ο€) β†’ 𝑑 ∈ ℝ)
109adantl 483 . . . . . . . . 9 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ 𝑑 ∈ ℝ)
11 fourierdlem101.x . . . . . . . . . 10 (πœ‘ β†’ 𝑋 ∈ ℝ)
1211adantr 482 . . . . . . . . 9 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ 𝑋 ∈ ℝ)
1310, 12resubcld 11639 . . . . . . . 8 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
14 fourierdlem101.d . . . . . . . . 9 𝐷 = (𝑛 ∈ β„• ↦ (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 Β· Ο€)) = 0, (((2 Β· 𝑛) + 1) / (2 Β· Ο€)), ((sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) / ((2 Β· Ο€) Β· (sinβ€˜(𝑠 / 2)))))))
1514dirkerre 44798 . . . . . . . 8 ((𝑁 ∈ β„• ∧ (𝑑 βˆ’ 𝑋) ∈ ℝ) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
165, 13, 15syl2anc 585 . . . . . . 7 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
1716recnd 11239 . . . . . 6 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ β„‚)
183, 17mulcld 11231 . . . . 5 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ β„‚)
19 fourierdlem101.g . . . . . 6 𝐺 = (𝑑 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
2019fvmpt2 7007 . . . . 5 ((𝑑 ∈ (-Ο€[,]Ο€) ∧ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ β„‚) β†’ (πΊβ€˜π‘‘) = ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
211, 18, 20syl2anc 585 . . . 4 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ (πΊβ€˜π‘‘) = ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
2221eqcomd 2739 . . 3 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = (πΊβ€˜π‘‘))
2322itgeq2dv 25291 . 2 (πœ‘ β†’ ∫(-Ο€[,]Ο€)((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) d𝑑 = ∫(-Ο€[,]Ο€)(πΊβ€˜π‘‘) d𝑑)
24 fourierdlem101.p . . 3 𝑃 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = -Ο€ ∧ (π‘β€˜π‘š) = Ο€) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
25 fveq2 6889 . . . . 5 (𝑗 = 𝑖 β†’ (π‘„β€˜π‘—) = (π‘„β€˜π‘–))
2625oveq1d 7421 . . . 4 (𝑗 = 𝑖 β†’ ((π‘„β€˜π‘—) βˆ’ 𝑋) = ((π‘„β€˜π‘–) βˆ’ 𝑋))
2726cbvmptv 5261 . . 3 (𝑗 ∈ (0...𝑀) ↦ ((π‘„β€˜π‘—) βˆ’ 𝑋)) = (𝑖 ∈ (0...𝑀) ↦ ((π‘„β€˜π‘–) βˆ’ 𝑋))
28 fourierdlem101.6 . . 3 (πœ‘ β†’ 𝑀 ∈ β„•)
29 fourierdlem101.q . . 3 (πœ‘ β†’ 𝑄 ∈ (π‘ƒβ€˜π‘€))
3018, 19fmptd 7111 . . 3 (πœ‘ β†’ 𝐺:(-Ο€[,]Ο€)βŸΆβ„‚)
3119reseq1i 5976 . . . . 5 (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((𝑑 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
32 ioossicc 13407 . . . . . . 7 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))
337a1i 11 . . . . . . . . . 10 (πœ‘ β†’ -Ο€ ∈ ℝ)
3433rexrd 11261 . . . . . . . . 9 (πœ‘ β†’ -Ο€ ∈ ℝ*)
3534adantr 482 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ -Ο€ ∈ ℝ*)
366a1i 11 . . . . . . . . . 10 (πœ‘ β†’ Ο€ ∈ ℝ)
3736rexrd 11261 . . . . . . . . 9 (πœ‘ β†’ Ο€ ∈ ℝ*)
3837adantr 482 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ Ο€ ∈ ℝ*)
3924, 28, 29fourierdlem15 44825 . . . . . . . . 9 (πœ‘ β†’ 𝑄:(0...𝑀)⟢(-Ο€[,]Ο€))
4039adantr 482 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑄:(0...𝑀)⟢(-Ο€[,]Ο€))
41 simpr 486 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0..^𝑀))
4235, 38, 40, 41fourierdlem8 44818 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) βŠ† (-Ο€[,]Ο€))
4332, 42sstrid 3993 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† (-Ο€[,]Ο€))
4443resmptd 6039 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))))
4531, 44eqtrid 2785 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))))
462adantr 482 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐹:(-Ο€[,]Ο€)βŸΆβ„‚)
4746, 43feqresmpt 6959 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘‘)))
48 fourierdlem101.fcn . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
4947, 48eqeltrrd 2835 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘‘)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
50 eqidd 2734 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) = (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )))
51 simpr 486 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)) β†’ 𝑠 = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ))
52 eqidd 2734 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)))
53 oveq1 7413 . . . . . . . . . . . . . . 15 (𝑑 = π‘Ÿ β†’ (𝑑 βˆ’ 𝑋) = (π‘Ÿ βˆ’ 𝑋))
5453adantl 483 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑑 = π‘Ÿ) β†’ (𝑑 βˆ’ 𝑋) = (π‘Ÿ βˆ’ 𝑋))
55 simpr 486 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
56 elioore 13351 . . . . . . . . . . . . . . . . 17 (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ π‘Ÿ ∈ ℝ)
5756adantl 483 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ ℝ)
5811adantr 482 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑋 ∈ ℝ)
5957, 58resubcld 11639 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ βˆ’ 𝑋) ∈ ℝ)
6059adantlr 714 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ βˆ’ 𝑋) ∈ ℝ)
6152, 54, 55, 60fvmptd 7003 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ) = (π‘Ÿ βˆ’ 𝑋))
6261adantr 482 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ) = (π‘Ÿ βˆ’ 𝑋))
6351, 62eqtrd 2773 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)) β†’ 𝑠 = (π‘Ÿ βˆ’ 𝑋))
6463fveq2d 6893 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)) β†’ ((π·β€˜π‘)β€˜π‘ ) = ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)))
65 elioore 13351 . . . . . . . . . . . . . . 15 (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ 𝑑 ∈ ℝ)
6665adantl 483 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑑 ∈ ℝ)
6711adantr 482 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑋 ∈ ℝ)
6866, 67resubcld 11639 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
6968adantlr 714 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
70 eqid 2733 . . . . . . . . . . . 12 (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))
7169, 70fmptd 7111 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„)
7271ffvelcdmda 7084 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ) ∈ ℝ)
734ad2antrr 725 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑁 ∈ β„•)
7414dirkerre 44798 . . . . . . . . . . 11 ((𝑁 ∈ β„• ∧ (π‘Ÿ βˆ’ 𝑋) ∈ ℝ) β†’ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)) ∈ ℝ)
7573, 60, 74syl2anc 585 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)) ∈ ℝ)
7650, 64, 72, 75fvmptd 7003 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))β€˜((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)) = ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)))
7776eqcomd 2739 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)) = ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))β€˜((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)))
7877mpteq2dva 5248 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋))) = (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))β€˜((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ))))
7953fveq2d 6893 . . . . . . . . 9 (𝑑 = π‘Ÿ β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)))
8079cbvmptv 5261 . . . . . . . 8 (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)))
8180a1i 11 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋))))
8214dirkerre 44798 . . . . . . . . . . 11 ((𝑁 ∈ β„• ∧ 𝑠 ∈ ℝ) β†’ ((π·β€˜π‘)β€˜π‘ ) ∈ ℝ)
834, 82sylan 581 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ ℝ) β†’ ((π·β€˜π‘)β€˜π‘ ) ∈ ℝ)
84 eqid 2733 . . . . . . . . . 10 (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) = (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))
8583, 84fmptd 7111 . . . . . . . . 9 (πœ‘ β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„)
8685adantr 482 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„)
87 fcompt 7128 . . . . . . . 8 (((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„ ∧ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„) β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∘ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))) = (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))β€˜((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ))))
8886, 71, 87syl2anc 585 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∘ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))) = (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))β€˜((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ))))
8978, 81, 883eqtr4d 2783 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∘ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))))
90 eqid 2733 . . . . . . . 8 (𝑑 ∈ β„‚ ↦ (𝑑 βˆ’ 𝑋)) = (𝑑 ∈ β„‚ ↦ (𝑑 βˆ’ 𝑋))
91 simpr 486 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑑 ∈ β„‚) β†’ 𝑑 ∈ β„‚)
9211recnd 11239 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑋 ∈ β„‚)
9392adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑑 ∈ β„‚) β†’ 𝑋 ∈ β„‚)
9491, 93negsubd 11574 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑑 ∈ β„‚) β†’ (𝑑 + -𝑋) = (𝑑 βˆ’ 𝑋))
9594eqcomd 2739 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑑 ∈ β„‚) β†’ (𝑑 βˆ’ 𝑋) = (𝑑 + -𝑋))
9695mpteq2dva 5248 . . . . . . . . . 10 (πœ‘ β†’ (𝑑 ∈ β„‚ ↦ (𝑑 βˆ’ 𝑋)) = (𝑑 ∈ β„‚ ↦ (𝑑 + -𝑋)))
9792negcld 11555 . . . . . . . . . . 11 (πœ‘ β†’ -𝑋 ∈ β„‚)
98 eqid 2733 . . . . . . . . . . . 12 (𝑑 ∈ β„‚ ↦ (𝑑 + -𝑋)) = (𝑑 ∈ β„‚ ↦ (𝑑 + -𝑋))
9998addccncf 24425 . . . . . . . . . . 11 (-𝑋 ∈ β„‚ β†’ (𝑑 ∈ β„‚ ↦ (𝑑 + -𝑋)) ∈ (ℂ–cnβ†’β„‚))
10097, 99syl 17 . . . . . . . . . 10 (πœ‘ β†’ (𝑑 ∈ β„‚ ↦ (𝑑 + -𝑋)) ∈ (ℂ–cnβ†’β„‚))
10196, 100eqeltrd 2834 . . . . . . . . 9 (πœ‘ β†’ (𝑑 ∈ β„‚ ↦ (𝑑 βˆ’ 𝑋)) ∈ (ℂ–cnβ†’β„‚))
102101adantr 482 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ β„‚ ↦ (𝑑 βˆ’ 𝑋)) ∈ (ℂ–cnβ†’β„‚))
103 ioossre 13382 . . . . . . . . . 10 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ℝ
104 ax-resscn 11164 . . . . . . . . . 10 ℝ βŠ† β„‚
105103, 104sstri 3991 . . . . . . . . 9 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚
106105a1i 11 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚)
107104a1i 11 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ℝ βŠ† β„‚)
10890, 102, 106, 107, 69cncfmptssg 44574 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cn→ℝ))
10983recnd 11239 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ ℝ) β†’ ((π·β€˜π‘)β€˜π‘ ) ∈ β„‚)
110109, 84fmptd 7111 . . . . . . . . 9 (πœ‘ β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„‚)
111 ssid 4004 . . . . . . . . . 10 β„‚ βŠ† β„‚
11214dirkerf 44800 . . . . . . . . . . . . 13 (𝑁 ∈ β„• β†’ (π·β€˜π‘):β„βŸΆβ„)
1134, 112syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ (π·β€˜π‘):β„βŸΆβ„)
114113feqmptd 6958 . . . . . . . . . . 11 (πœ‘ β†’ (π·β€˜π‘) = (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )))
11514dirkercncf 44810 . . . . . . . . . . . 12 (𝑁 ∈ β„• β†’ (π·β€˜π‘) ∈ (ℝ–cn→ℝ))
1164, 115syl 17 . . . . . . . . . . 11 (πœ‘ β†’ (π·β€˜π‘) ∈ (ℝ–cn→ℝ))
117114, 116eqeltrrd 2835 . . . . . . . . . 10 (πœ‘ β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cn→ℝ))
118 cncfcdm 24406 . . . . . . . . . 10 ((β„‚ βŠ† β„‚ ∧ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cn→ℝ)) β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cnβ†’β„‚) ↔ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„‚))
119111, 117, 118sylancr 588 . . . . . . . . 9 (πœ‘ β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cnβ†’β„‚) ↔ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„‚))
120110, 119mpbird 257 . . . . . . . 8 (πœ‘ β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cnβ†’β„‚))
121120adantr 482 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cnβ†’β„‚))
122108, 121cncfco 24415 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∘ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
12389, 122eqeltrd 2834 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
12449, 123mulcncf 24955 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
12545, 124eqeltrd 2834 . . 3 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
126 cncff 24401 . . . . . . . 8 ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
12748, 126syl 17 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
128113adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘):β„βŸΆβ„)
129 elioore 13351 . . . . . . . . . . . . 13 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ 𝑠 ∈ ℝ)
130129adantl 483 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 ∈ ℝ)
13111adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑋 ∈ ℝ)
132130, 131resubcld 11639 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑠 βˆ’ 𝑋) ∈ ℝ)
133128, 132ffvelcdmd 7085 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) ∈ ℝ)
134133recnd 11239 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) ∈ β„‚)
135 eqid 2733 . . . . . . . . 9 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))
136134, 135fmptd 7111 . . . . . . . 8 (πœ‘ β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
137136adantr 482 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
138 eqid 2733 . . . . . . 7 (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)))
139 fourierdlem101.r . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)))
140 oveq1 7413 . . . . . . . . . . . . . 14 (𝑑 = (π‘„β€˜π‘–) β†’ (𝑑 βˆ’ 𝑋) = ((π‘„β€˜π‘–) βˆ’ 𝑋))
141140fveq2d 6893 . . . . . . . . . . . . 13 (𝑑 = (π‘„β€˜π‘–) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)))
142141eqcomd 2739 . . . . . . . . . . . 12 (𝑑 = (π‘„β€˜π‘–) β†’ ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
143142adantl 483 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ 𝑑 = (π‘„β€˜π‘–)) β†’ ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
144 eqidd 2734 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))))
145 oveq1 7413 . . . . . . . . . . . . . 14 (𝑠 = 𝑑 β†’ (𝑠 βˆ’ 𝑋) = (𝑑 βˆ’ 𝑋))
146145fveq2d 6893 . . . . . . . . . . . . 13 (𝑠 = 𝑑 β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
147146adantl 483 . . . . . . . . . . . 12 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) ∧ 𝑠 = 𝑑) β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
148 velsn 4644 . . . . . . . . . . . . . . 15 (𝑑 ∈ {(π‘„β€˜π‘–)} ↔ 𝑑 = (π‘„β€˜π‘–))
149148notbii 320 . . . . . . . . . . . . . 14 (Β¬ 𝑑 ∈ {(π‘„β€˜π‘–)} ↔ Β¬ 𝑑 = (π‘„β€˜π‘–))
150 elunnel2 4150 . . . . . . . . . . . . . 14 ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ∧ Β¬ 𝑑 ∈ {(π‘„β€˜π‘–)}) β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
151149, 150sylan2br 596 . . . . . . . . . . . . 13 ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
152151adantll 713 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
153113ad2antrr 725 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (π·β€˜π‘):β„βŸΆβ„)
154 simpr 486 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 = (π‘„β€˜π‘–))
1559ssriv 3986 . . . . . . . . . . . . . . . . . . . 20 (-Ο€[,]Ο€) βŠ† ℝ
156 fzossfz 13648 . . . . . . . . . . . . . . . . . . . . . 22 (0..^𝑀) βŠ† (0...𝑀)
157156, 41sselid 3980 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0...𝑀))
15840, 157ffvelcdmd 7085 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ (-Ο€[,]Ο€))
159155, 158sselid 3980 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
160159adantr 482 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 = (π‘„β€˜π‘–)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
161154, 160eqeltrd 2834 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 ∈ ℝ)
162161adantlr 714 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 ∈ ℝ)
163152, 65syl 17 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 ∈ ℝ)
164162, 163pm2.61dan 812 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑑 ∈ ℝ)
16511ad2antrr 725 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑋 ∈ ℝ)
166164, 165resubcld 11639 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
167153, 166ffvelcdmd 7085 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
168167adantr 482 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
169144, 147, 152, 168fvmptd 7003 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
170143, 169ifeqda 4564 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ if(𝑑 = (π‘„β€˜π‘–), ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
171170mpteq2dva 5248 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ if(𝑑 = (π‘„β€˜π‘–), ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
172113adantr 482 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜π‘):β„βŸΆβ„)
173 simpr 486 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}))
174 elun 4148 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↔ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑠 ∈ {(π‘„β€˜π‘–)}))
175173, 174sylib 217 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑠 ∈ {(π‘„β€˜π‘–)}))
176175adantlr 714 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑠 ∈ {(π‘„β€˜π‘–)}))
177 elsni 4645 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑠 ∈ {(π‘„β€˜π‘–)} β†’ 𝑠 = (π‘„β€˜π‘–))
178177adantl 483 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ {(π‘„β€˜π‘–)}) β†’ 𝑠 = (π‘„β€˜π‘–))
179159adantr 482 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ {(π‘„β€˜π‘–)}) β†’ (π‘„β€˜π‘–) ∈ ℝ)
180178, 179eqeltrd 2834 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ {(π‘„β€˜π‘–)}) β†’ 𝑠 ∈ ℝ)
181180ex 414 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ {(π‘„β€˜π‘–)} β†’ 𝑠 ∈ ℝ))
182181adantr 482 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑠 ∈ {(π‘„β€˜π‘–)} β†’ 𝑠 ∈ ℝ))
183 pm3.44 959 . . . . . . . . . . . . . . . . . . 19 (((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ 𝑠 ∈ ℝ) ∧ (𝑠 ∈ {(π‘„β€˜π‘–)} β†’ 𝑠 ∈ ℝ)) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑠 ∈ {(π‘„β€˜π‘–)}) β†’ 𝑠 ∈ ℝ))
184129, 182, 183sylancr 588 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑠 ∈ {(π‘„β€˜π‘–)}) β†’ 𝑠 ∈ ℝ))
185176, 184mpd 15 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑠 ∈ ℝ)
18611ad2antrr 725 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑋 ∈ ℝ)
187185, 186resubcld 11639 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑠 βˆ’ 𝑋) ∈ ℝ)
188 eqid 2733 . . . . . . . . . . . . . . . 16 (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)) = (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))
189187, 188fmptd 7111 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)):(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})βŸΆβ„)
190 fcompt 7128 . . . . . . . . . . . . . . 15 (((π·β€˜π‘):β„βŸΆβ„ ∧ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)):(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})βŸΆβ„) β†’ ((π·β€˜π‘) ∘ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜((𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))β€˜π‘‘))))
191172, 189, 190syl2anc 585 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π·β€˜π‘) ∘ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜((𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))β€˜π‘‘))))
192 eqidd 2734 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)) = (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)))
193145adantl 483 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ 𝑠 = 𝑑) β†’ (𝑠 βˆ’ 𝑋) = (𝑑 βˆ’ 𝑋))
194 simpr 486 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}))
195192, 193, 194, 166fvmptd 7003 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ ((𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))β€˜π‘‘) = (𝑑 βˆ’ 𝑋))
196195fveq2d 6893 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ ((π·β€˜π‘)β€˜((𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
197196mpteq2dva 5248 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜((𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))β€˜π‘‘))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
198191, 197eqtr2d 2774 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((π·β€˜π‘) ∘ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))))
199 eqid 2733 . . . . . . . . . . . . . . . 16 (𝑠 ∈ β„‚ ↦ (𝑠 βˆ’ 𝑋)) = (𝑠 ∈ β„‚ ↦ (𝑠 βˆ’ 𝑋))
200 simpr 486 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑠 ∈ β„‚) β†’ 𝑠 ∈ β„‚)
20192adantr 482 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑠 ∈ β„‚) β†’ 𝑋 ∈ β„‚)
202200, 201negsubd 11574 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑠 ∈ β„‚) β†’ (𝑠 + -𝑋) = (𝑠 βˆ’ 𝑋))
203202eqcomd 2739 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑠 ∈ β„‚) β†’ (𝑠 βˆ’ 𝑋) = (𝑠 + -𝑋))
204203mpteq2dva 5248 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (𝑠 ∈ β„‚ ↦ (𝑠 βˆ’ 𝑋)) = (𝑠 ∈ β„‚ ↦ (𝑠 + -𝑋)))
205 eqid 2733 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ β„‚ ↦ (𝑠 + -𝑋)) = (𝑠 ∈ β„‚ ↦ (𝑠 + -𝑋))
206205addccncf 24425 . . . . . . . . . . . . . . . . . . 19 (-𝑋 ∈ β„‚ β†’ (𝑠 ∈ β„‚ ↦ (𝑠 + -𝑋)) ∈ (ℂ–cnβ†’β„‚))
20797, 206syl 17 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (𝑠 ∈ β„‚ ↦ (𝑠 + -𝑋)) ∈ (ℂ–cnβ†’β„‚))
208204, 207eqeltrd 2834 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑠 ∈ β„‚ ↦ (𝑠 βˆ’ 𝑋)) ∈ (ℂ–cnβ†’β„‚))
209208adantr 482 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ β„‚ ↦ (𝑠 βˆ’ 𝑋)) ∈ (ℂ–cnβ†’β„‚))
210159recnd 11239 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ β„‚)
211210snssd 4812 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ {(π‘„β€˜π‘–)} βŠ† β„‚)
212106, 211unssd 4186 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) βŠ† β„‚)
213199, 209, 212, 107, 187cncfmptssg 44574 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)) ∈ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})–cn→ℝ))
214114, 120eqeltrd 2834 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (π·β€˜π‘) ∈ (ℝ–cnβ†’β„‚))
215214adantr 482 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜π‘) ∈ (ℝ–cnβ†’β„‚))
216213, 215cncfco 24415 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π·β€˜π‘) ∘ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))) ∈ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})–cnβ†’β„‚))
217 eqid 2733 . . . . . . . . . . . . . . . 16 (TopOpenβ€˜β„‚fld) = (TopOpenβ€˜β„‚fld)
218 eqid 2733 . . . . . . . . . . . . . . . 16 ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) = ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}))
219217cnfldtop 24292 . . . . . . . . . . . . . . . . . 18 (TopOpenβ€˜β„‚fld) ∈ Top
220 unicntop 24294 . . . . . . . . . . . . . . . . . . 19 β„‚ = βˆͺ (TopOpenβ€˜β„‚fld)
221220restid 17376 . . . . . . . . . . . . . . . . . 18 ((TopOpenβ€˜β„‚fld) ∈ Top β†’ ((TopOpenβ€˜β„‚fld) β†Ύt β„‚) = (TopOpenβ€˜β„‚fld))
222219, 221ax-mp 5 . . . . . . . . . . . . . . . . 17 ((TopOpenβ€˜β„‚fld) β†Ύt β„‚) = (TopOpenβ€˜β„‚fld)
223222eqcomi 2742 . . . . . . . . . . . . . . . 16 (TopOpenβ€˜β„‚fld) = ((TopOpenβ€˜β„‚fld) β†Ύt β„‚)
224217, 218, 223cncfcn 24418 . . . . . . . . . . . . . . 15 (((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) βŠ† β„‚ ∧ β„‚ βŠ† β„‚) β†’ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})–cnβ†’β„‚) = (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) Cn (TopOpenβ€˜β„‚fld)))
225212, 111, 224sylancl 587 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})–cnβ†’β„‚) = (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) Cn (TopOpenβ€˜β„‚fld)))
226216, 225eleqtrd 2836 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π·β€˜π‘) ∘ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))) ∈ (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) Cn (TopOpenβ€˜β„‚fld)))
227198, 226eqeltrd 2834 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) Cn (TopOpenβ€˜β„‚fld)))
228217cnfldtopon 24291 . . . . . . . . . . . . . 14 (TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚)
229 resttopon 22657 . . . . . . . . . . . . . 14 (((TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚) ∧ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) βŠ† β„‚) β†’ ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∈ (TopOnβ€˜(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})))
230228, 212, 229sylancr 588 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∈ (TopOnβ€˜(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})))
231 cncnp 22776 . . . . . . . . . . . . 13 ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∈ (TopOnβ€˜(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ (TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚)) β†’ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) Cn (TopOpenβ€˜β„‚fld)) ↔ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))):(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})βŸΆβ„‚ ∧ βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))))
232230, 228, 231sylancl 587 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) Cn (TopOpenβ€˜β„‚fld)) ↔ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))):(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})βŸΆβ„‚ ∧ βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))))
233227, 232mpbid 231 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))):(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})βŸΆβ„‚ ∧ βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ )))
234233simprd 497 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
235 eqidd 2734 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) = (π‘„β€˜π‘–))
236 elsng 4642 . . . . . . . . . . . . . 14 ((π‘„β€˜π‘–) ∈ ℝ β†’ ((π‘„β€˜π‘–) ∈ {(π‘„β€˜π‘–)} ↔ (π‘„β€˜π‘–) = (π‘„β€˜π‘–)))
237159, 236syl 17 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–) ∈ {(π‘„β€˜π‘–)} ↔ (π‘„β€˜π‘–) = (π‘„β€˜π‘–)))
238235, 237mpbird 257 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ {(π‘„β€˜π‘–)})
239238olcd 873 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–) ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ (π‘„β€˜π‘–) ∈ {(π‘„β€˜π‘–)}))
240 elun 4148 . . . . . . . . . . 11 ((π‘„β€˜π‘–) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↔ ((π‘„β€˜π‘–) ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ (π‘„β€˜π‘–) ∈ {(π‘„β€˜π‘–)}))
241239, 240sylibr 233 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}))
242 fveq2 6889 . . . . . . . . . . . 12 (𝑠 = (π‘„β€˜π‘–) β†’ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) = ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜π‘–)))
243242eleq2d 2820 . . . . . . . . . . 11 (𝑠 = (π‘„β€˜π‘–) β†’ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) ↔ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜π‘–))))
244243rspccva 3612 . . . . . . . . . 10 ((βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) ∧ (π‘„β€˜π‘–) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜π‘–)))
245234, 241, 244syl2anc 585 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜π‘–)))
246171, 245eqeltrd 2834 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ if(𝑑 = (π‘„β€˜π‘–), ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜π‘–)))
247 eqid 2733 . . . . . . . . 9 (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ if(𝑑 = (π‘„β€˜π‘–), ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ if(𝑑 = (π‘„β€˜π‘–), ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)))
248218, 217, 247, 137, 106, 210ellimc 25382 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) limβ„‚ (π‘„β€˜π‘–)) ↔ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ if(𝑑 = (π‘„β€˜π‘–), ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜π‘–))))
249246, 248mpbird 257 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) limβ„‚ (π‘„β€˜π‘–)))
250127, 137, 138, 139, 249mullimcf 44326 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑅 Β· ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋))) ∈ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜π‘–)))
251 fvres 6908 . . . . . . . . . 10 (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) = (πΉβ€˜π‘‘))
252251adantl 483 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) = (πΉβ€˜π‘‘))
253252oveq1d 7421 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)))
254253mpteq2dva 5248 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))))
255254oveq1d 7421 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜π‘–)) = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜π‘–)))
256250, 255eleqtrd 2836 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑅 Β· ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋))) ∈ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜π‘–)))
257 eqidd 2734 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))))
258 simpr 486 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = 𝑑) β†’ 𝑠 = 𝑑)
259258oveq1d 7421 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = 𝑑) β†’ (𝑠 βˆ’ 𝑋) = (𝑑 βˆ’ 𝑋))
260259fveq2d 6893 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = 𝑑) β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
261 simpr 486 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
262113ad2antrr 725 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘):β„βŸΆβ„)
263262, 69ffvelcdmd 7085 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
264257, 260, 261, 263fvmptd 7003 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
265264oveq2d 7422 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
266265mpteq2dva 5248 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))))
267266oveq1d 7421 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜π‘–)) = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) limβ„‚ (π‘„β€˜π‘–)))
268256, 267eleqtrd 2836 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑅 Β· ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋))) ∈ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) limβ„‚ (π‘„β€˜π‘–)))
26945eqcomd 2739 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
270269oveq1d 7421 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) limβ„‚ (π‘„β€˜π‘–)) = ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)))
271268, 270eleqtrd 2836 . . 3 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑅 Β· ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋))) ∈ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)))
272 fourierdlem101.l . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
273 iftrue 4534 . . . . . . . . . . 11 (𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)))
274 oveq1 7413 . . . . . . . . . . . . 13 (𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ (𝑑 βˆ’ 𝑋) = ((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋))
275274eqcomd 2739 . . . . . . . . . . . 12 (𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ ((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋) = (𝑑 βˆ’ 𝑋))
276275fveq2d 6893 . . . . . . . . . . 11 (𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
277273, 276eqtrd 2773 . . . . . . . . . 10 (𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
278277adantl 483 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
279 iffalse 4537 . . . . . . . . . . 11 (Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))
280279adantl 483 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))
281 eqidd 2734 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))))
282146adantl 483 . . . . . . . . . . 11 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) ∧ 𝑠 = 𝑑) β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
283 elun 4148 . . . . . . . . . . . . . . 15 (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↔ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))}))
284283biimpi 215 . . . . . . . . . . . . . 14 (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))}))
285284orcomd 870 . . . . . . . . . . . . 13 (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) β†’ (𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} ∨ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
286285ad2antlr 726 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ (𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} ∨ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
287 velsn 4644 . . . . . . . . . . . . . . 15 (𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} ↔ 𝑑 = (π‘„β€˜(𝑖 + 1)))
288287notbii 320 . . . . . . . . . . . . . 14 (Β¬ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} ↔ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1)))
289288biimpri 227 . . . . . . . . . . . . 13 (Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ Β¬ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))})
290289adantl 483 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ Β¬ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))})
291 pm2.53 850 . . . . . . . . . . . 12 ((𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} ∨ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (Β¬ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
292286, 290, 291sylc 65 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
293172ad2antrr 725 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ (π·β€˜π‘):β„βŸΆβ„)
294292, 65syl 17 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ 𝑑 ∈ ℝ)
29511ad3antrrr 729 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ 𝑋 ∈ ℝ)
296294, 295resubcld 11639 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
297293, 296ffvelcdmd 7085 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
298281, 282, 292, 297fvmptd 7003 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
299280, 298eqtrd 2773 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
300278, 299pm2.61dan 812 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
301300mpteq2dva 5248 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
302 eqid 2733 . . . . . . . . . . . 12 (𝑑 ∈ ℝ ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = (𝑑 ∈ ℝ ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
303104a1i 11 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ℝ βŠ† β„‚)
304 simpr 486 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑑 ∈ ℝ) β†’ 𝑑 ∈ ℝ)
30511adantr 482 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑑 ∈ ℝ) β†’ 𝑋 ∈ ℝ)
306304, 305resubcld 11639 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑑 ∈ ℝ) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
30790, 101, 303, 303, 306cncfmptssg 44574 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑑 ∈ ℝ ↦ (𝑑 βˆ’ 𝑋)) ∈ (ℝ–cn→ℝ))
308307, 214cncfcompt 44586 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑑 ∈ ℝ ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (ℝ–cnβ†’β„‚))
309308adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ℝ ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (ℝ–cnβ†’β„‚))
310103a1i 11 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ℝ)
311 fzofzp1 13726 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (0..^𝑀) β†’ (𝑖 + 1) ∈ (0...𝑀))
312311adantl 483 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑖 + 1) ∈ (0...𝑀))
31340, 312ffvelcdmd 7085 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ (-Ο€[,]Ο€))
314155, 313sselid 3980 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
315314snssd 4812 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ {(π‘„β€˜(𝑖 + 1))} βŠ† ℝ)
316310, 315unssd 4186 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) βŠ† ℝ)
317111a1i 11 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ β„‚ βŠ† β„‚)
318172adantr 482 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ (π·β€˜π‘):β„βŸΆβ„)
319316sselda 3982 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ 𝑑 ∈ ℝ)
32011ad2antrr 725 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ 𝑋 ∈ ℝ)
321319, 320resubcld 11639 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
322318, 321ffvelcdmd 7085 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
323322recnd 11239 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ β„‚)
324302, 309, 316, 317, 323cncfmptssg 44574 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})–cnβ†’β„‚))
325155, 104sstri 3991 . . . . . . . . . . . . . . 15 (-Ο€[,]Ο€) βŠ† β„‚
326325, 313sselid 3980 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ β„‚)
327326snssd 4812 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ {(π‘„β€˜(𝑖 + 1))} βŠ† β„‚)
328106, 327unssd 4186 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) βŠ† β„‚)
329 eqid 2733 . . . . . . . . . . . . 13 ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) = ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}))
330217, 329, 223cncfcn 24418 . . . . . . . . . . . 12 (((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) βŠ† β„‚ ∧ β„‚ βŠ† β„‚) β†’ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})–cnβ†’β„‚) = (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) Cn (TopOpenβ€˜β„‚fld)))
331328, 111, 330sylancl 587 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})–cnβ†’β„‚) = (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) Cn (TopOpenβ€˜β„‚fld)))
332324, 331eleqtrd 2836 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) Cn (TopOpenβ€˜β„‚fld)))
333 resttopon 22657 . . . . . . . . . . . 12 (((TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚) ∧ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) βŠ† β„‚) β†’ ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∈ (TopOnβ€˜(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})))
334228, 328, 333sylancr 588 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∈ (TopOnβ€˜(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})))
335 cncnp 22776 . . . . . . . . . . 11 ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∈ (TopOnβ€˜(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ (TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚)) β†’ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) Cn (TopOpenβ€˜β„‚fld)) ↔ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))):(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})βŸΆβ„‚ ∧ βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))))
336334, 228, 335sylancl 587 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) Cn (TopOpenβ€˜β„‚fld)) ↔ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))):(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})βŸΆβ„‚ ∧ βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))))
337332, 336mpbid 231 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))):(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})βŸΆβ„‚ ∧ βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ )))
338337simprd 497 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
339 eqidd 2734 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜(𝑖 + 1)))
340 elsng 4642 . . . . . . . . . . . 12 ((π‘„β€˜(𝑖 + 1)) ∈ ℝ β†’ ((π‘„β€˜(𝑖 + 1)) ∈ {(π‘„β€˜(𝑖 + 1))} ↔ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜(𝑖 + 1))))
341314, 340syl 17 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜(𝑖 + 1)) ∈ {(π‘„β€˜(𝑖 + 1))} ↔ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜(𝑖 + 1))))
342339, 341mpbird 257 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ {(π‘„β€˜(𝑖 + 1))})
343342olcd 873 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜(𝑖 + 1)) ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ (π‘„β€˜(𝑖 + 1)) ∈ {(π‘„β€˜(𝑖 + 1))}))
344 elun 4148 . . . . . . . . 9 ((π‘„β€˜(𝑖 + 1)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↔ ((π‘„β€˜(𝑖 + 1)) ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ (π‘„β€˜(𝑖 + 1)) ∈ {(π‘„β€˜(𝑖 + 1))}))
345343, 344sylibr 233 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}))
346 fveq2 6889 . . . . . . . . . 10 (𝑠 = (π‘„β€˜(𝑖 + 1)) β†’ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) = ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜(𝑖 + 1))))
347346eleq2d 2820 . . . . . . . . 9 (𝑠 = (π‘„β€˜(𝑖 + 1)) β†’ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) ↔ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜(𝑖 + 1)))))
348347rspccva 3612 . . . . . . . 8 ((βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) ∧ (π‘„β€˜(𝑖 + 1)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜(𝑖 + 1))))
349338, 345, 348syl2anc 585 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜(𝑖 + 1))))
350301, 349eqeltrd 2834 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜(𝑖 + 1))))
351 eqid 2733 . . . . . . 7 (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)))
352329, 217, 351, 137, 106, 326ellimc 25382 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) limβ„‚ (π‘„β€˜(𝑖 + 1))) ↔ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜(𝑖 + 1)))))
353350, 352mpbird 257 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)) ∈ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
354127, 137, 138, 272, 353mullimcf 44326 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐿 Β· ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋))) ∈ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
355266, 254, 453eqtr4d 2783 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
356355oveq1d 7421 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜(𝑖 + 1))) = ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
357354, 356eleqtrd 2836 . . 3 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐿 Β· ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋))) ∈ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
35824, 27, 28, 29, 11, 30, 125, 271, 357fourierdlem93 44902 . 2 (πœ‘ β†’ ∫(-Ο€[,]Ο€)(πΊβ€˜π‘‘) d𝑑 = ∫((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))(πΊβ€˜(𝑋 + 𝑠)) d𝑠)
35919a1i 11 . . . 4 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝐺 = (𝑑 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))))
360 fveq2 6889 . . . . . . 7 (𝑑 = (𝑋 + 𝑠) β†’ (πΉβ€˜π‘‘) = (πΉβ€˜(𝑋 + 𝑠)))
361360oveq1d 7421 . . . . . 6 (𝑑 = (𝑋 + 𝑠) β†’ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
362361adantl 483 . . . . 5 (((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) ∧ 𝑑 = (𝑋 + 𝑠)) β†’ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
363 oveq1 7413 . . . . . . . 8 (𝑑 = (𝑋 + 𝑠) β†’ (𝑑 βˆ’ 𝑋) = ((𝑋 + 𝑠) βˆ’ 𝑋))
36492adantr 482 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑋 ∈ β„‚)
36533, 11resubcld 11639 . . . . . . . . . . . 12 (πœ‘ β†’ (-Ο€ βˆ’ 𝑋) ∈ ℝ)
366365adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (-Ο€ βˆ’ 𝑋) ∈ ℝ)
36736, 11resubcld 11639 . . . . . . . . . . . 12 (πœ‘ β†’ (Ο€ βˆ’ 𝑋) ∈ ℝ)
368367adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (Ο€ βˆ’ 𝑋) ∈ ℝ)
369 simpr 486 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋)))
370 eliccre 44205 . . . . . . . . . . 11 (((-Ο€ βˆ’ 𝑋) ∈ ℝ ∧ (Ο€ βˆ’ 𝑋) ∈ ℝ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑠 ∈ ℝ)
371366, 368, 369, 370syl3anc 1372 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑠 ∈ ℝ)
372371recnd 11239 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑠 ∈ β„‚)
373364, 372pncan2d 11570 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ ((𝑋 + 𝑠) βˆ’ 𝑋) = 𝑠)
374363, 373sylan9eqr 2795 . . . . . . 7 (((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) ∧ 𝑑 = (𝑋 + 𝑠)) β†’ (𝑑 βˆ’ 𝑋) = 𝑠)
375374fveq2d 6893 . . . . . 6 (((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) ∧ 𝑑 = (𝑋 + 𝑠)) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜π‘ ))
376375oveq2d 7422 . . . . 5 (((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) ∧ 𝑑 = (𝑋 + 𝑠)) β†’ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )))
377362, 376eqtrd 2773 . . . 4 (((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) ∧ 𝑑 = (𝑋 + 𝑠)) β†’ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )))
3787a1i 11 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ -Ο€ ∈ ℝ)
3796a1i 11 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ Ο€ ∈ ℝ)
38011adantr 482 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑋 ∈ ℝ)
381380, 371readdcld 11240 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + 𝑠) ∈ ℝ)
38233recnd 11239 . . . . . . . . 9 (πœ‘ β†’ -Ο€ ∈ β„‚)
38392, 382pncan3d 11571 . . . . . . . 8 (πœ‘ β†’ (𝑋 + (-Ο€ βˆ’ 𝑋)) = -Ο€)
384383eqcomd 2739 . . . . . . 7 (πœ‘ β†’ -Ο€ = (𝑋 + (-Ο€ βˆ’ 𝑋)))
385384adantr 482 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ -Ο€ = (𝑋 + (-Ο€ βˆ’ 𝑋)))
386 elicc2 13386 . . . . . . . . . 10 (((-Ο€ βˆ’ 𝑋) ∈ ℝ ∧ (Ο€ βˆ’ 𝑋) ∈ ℝ) β†’ (𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋)) ↔ (𝑠 ∈ ℝ ∧ (-Ο€ βˆ’ 𝑋) ≀ 𝑠 ∧ 𝑠 ≀ (Ο€ βˆ’ 𝑋))))
387366, 368, 386syl2anc 585 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋)) ↔ (𝑠 ∈ ℝ ∧ (-Ο€ βˆ’ 𝑋) ≀ 𝑠 ∧ 𝑠 ≀ (Ο€ βˆ’ 𝑋))))
388369, 387mpbid 231 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑠 ∈ ℝ ∧ (-Ο€ βˆ’ 𝑋) ≀ 𝑠 ∧ 𝑠 ≀ (Ο€ βˆ’ 𝑋)))
389388simp2d 1144 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (-Ο€ βˆ’ 𝑋) ≀ 𝑠)
390366, 371, 380, 389leadd2dd 11826 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + (-Ο€ βˆ’ 𝑋)) ≀ (𝑋 + 𝑠))
391385, 390eqbrtrd 5170 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ -Ο€ ≀ (𝑋 + 𝑠))
392388simp3d 1145 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑠 ≀ (Ο€ βˆ’ 𝑋))
393371, 368, 380, 392leadd2dd 11826 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + 𝑠) ≀ (𝑋 + (Ο€ βˆ’ 𝑋)))
394 picn 25961 . . . . . . . 8 Ο€ ∈ β„‚
395394a1i 11 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ Ο€ ∈ β„‚)
396364, 395pncan3d 11571 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + (Ο€ βˆ’ 𝑋)) = Ο€)
397393, 396breqtrd 5174 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + 𝑠) ≀ Ο€)
398378, 379, 381, 391, 397eliccd 44204 . . . 4 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + 𝑠) ∈ (-Ο€[,]Ο€))
3992adantr 482 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝐹:(-Ο€[,]Ο€)βŸΆβ„‚)
400399, 398ffvelcdmd 7085 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ β„‚)
401371, 109syldan 592 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ ((π·β€˜π‘)β€˜π‘ ) ∈ β„‚)
402400, 401mulcld 11231 . . . 4 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )) ∈ β„‚)
403359, 377, 398, 402fvmptd 7003 . . 3 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (πΊβ€˜(𝑋 + 𝑠)) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )))
404403itgeq2dv 25291 . 2 (πœ‘ β†’ ∫((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))(πΊβ€˜(𝑋 + 𝑠)) d𝑠 = ∫((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )) d𝑠)
40523, 358, 4043eqtrd 2777 1 (πœ‘ β†’ ∫(-Ο€[,]Ο€)((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) d𝑑 = ∫((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )) d𝑠)
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∨ wo 846   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  βˆ€wral 3062  {crab 3433   βˆͺ cun 3946   βŠ† wss 3948  ifcif 4528  {csn 4628   class class class wbr 5148   ↦ cmpt 5231   β†Ύ cres 5678   ∘ ccom 5680  βŸΆwf 6537  β€˜cfv 6541  (class class class)co 7406   ↑m cmap 8817  β„‚cc 11105  β„cr 11106  0cc0 11107  1c1 11108   + caddc 11110   Β· cmul 11112  β„*cxr 11244   < clt 11245   ≀ cle 11246   βˆ’ cmin 11441  -cneg 11442   / cdiv 11868  β„•cn 12209  2c2 12264  (,)cioo 13321  [,]cicc 13324  ...cfz 13481  ..^cfzo 13624   mod cmo 13831  sincsin 16004  Ο€cpi 16007   β†Ύt crest 17363  TopOpenctopn 17364  β„‚fldccnfld 20937  Topctop 22387  TopOnctopon 22404   Cn ccn 22720   CnP ccnp 22721  β€“cnβ†’ccncf 24384  βˆ«citg 25127   limβ„‚ climc 25371
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 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-inf2 9633  ax-cc 10427  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184  ax-pre-sup 11185  ax-addf 11186  ax-mulf 11187
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 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-symdif 4242  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-disj 5114  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-of 7667  df-ofr 7668  df-om 7853  df-1st 7972  df-2nd 7973  df-supp 8144  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-2o 8464  df-oadd 8467  df-omul 8468  df-er 8700  df-map 8819  df-pm 8820  df-ixp 8889  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-fsupp 9359  df-fi 9403  df-sup 9434  df-inf 9435  df-oi 9502  df-dju 9893  df-card 9931  df-acn 9934  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-div 11869  df-nn 12210  df-2 12272  df-3 12273  df-4 12274  df-5 12275  df-6 12276  df-7 12277  df-8 12278  df-9 12279  df-n0 12470  df-z 12556  df-dec 12675  df-uz 12820  df-q 12930  df-rp 12972  df-xneg 13089  df-xadd 13090  df-xmul 13091  df-ioo 13325  df-ioc 13326  df-ico 13327  df-icc 13328  df-fz 13482  df-fzo 13625  df-fl 13754  df-mod 13832  df-seq 13964  df-exp 14025  df-fac 14231  df-bc 14260  df-hash 14288  df-shft 15011  df-cj 15043  df-re 15044  df-im 15045  df-sqrt 15179  df-abs 15180  df-limsup 15412  df-clim 15429  df-rlim 15430  df-sum 15630  df-ef 16008  df-sin 16010  df-cos 16011  df-pi 16013  df-struct 17077  df-sets 17094  df-slot 17112  df-ndx 17124  df-base 17142  df-ress 17171  df-plusg 17207  df-mulr 17208  df-starv 17209  df-sca 17210  df-vsca 17211  df-ip 17212  df-tset 17213  df-ple 17214  df-ds 17216  df-unif 17217  df-hom 17218  df-cco 17219  df-rest 17365  df-topn 17366  df-0g 17384  df-gsum 17385  df-topgen 17386  df-pt 17387  df-prds 17390  df-xrs 17445  df-qtop 17450  df-imas 17451  df-xps 17453  df-mre 17527  df-mrc 17528  df-acs 17530  df-mgm 18558  df-sgrp 18607  df-mnd 18623  df-submnd 18669  df-mulg 18946  df-cntz 19176  df-cmn 19645  df-psmet 20929  df-xmet 20930  df-met 20931  df-bl 20932  df-mopn 20933  df-fbas 20934  df-fg 20935  df-cnfld 20938  df-top 22388  df-topon 22405  df-topsp 22427  df-bases 22441  df-cld 22515  df-ntr 22516  df-cls 22517  df-nei 22594  df-lp 22632  df-perf 22633  df-cn 22723  df-cnp 22724  df-t1 22810  df-haus 22811  df-cmp 22883  df-tx 23058  df-hmeo 23251  df-fil 23342  df-fm 23434  df-flim 23435  df-flf 23436  df-xms 23818  df-ms 23819  df-tms 23820  df-cncf 24386  df-ovol 24973  df-vol 24974  df-mbf 25128  df-itg1 25129  df-itg2 25130  df-ibl 25131  df-itg 25132  df-0p 25179  df-ditg 25356  df-limc 25375  df-dv 25376
This theorem is referenced by:  fourierdlem111  44920
  Copyright terms: Public domain W3C validator