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 45408
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 484 . . . . 5 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ 𝑑 ∈ (-Ο€[,]Ο€))
2 fourierdlem101.f . . . . . . 7 (πœ‘ β†’ 𝐹:(-Ο€[,]Ο€)βŸΆβ„‚)
32ffvelcdmda 7076 . . . . . 6 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ (πΉβ€˜π‘‘) ∈ β„‚)
4 fourierdlem101.n . . . . . . . . 9 (πœ‘ β†’ 𝑁 ∈ β„•)
54adantr 480 . . . . . . . 8 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ 𝑁 ∈ β„•)
6 pire 26310 . . . . . . . . . . . 12 Ο€ ∈ ℝ
76renegcli 11518 . . . . . . . . . . 11 -Ο€ ∈ ℝ
8 eliccre 44703 . . . . . . . . . . 11 ((-Ο€ ∈ ℝ ∧ Ο€ ∈ ℝ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ 𝑑 ∈ ℝ)
97, 6, 8mp3an12 1447 . . . . . . . . . 10 (𝑑 ∈ (-Ο€[,]Ο€) β†’ 𝑑 ∈ ℝ)
109adantl 481 . . . . . . . . 9 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ 𝑑 ∈ ℝ)
11 fourierdlem101.x . . . . . . . . . 10 (πœ‘ β†’ 𝑋 ∈ ℝ)
1211adantr 480 . . . . . . . . 9 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ 𝑋 ∈ ℝ)
1310, 12resubcld 11639 . . . . . . . 8 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
14 fourierdlem101.d . . . . . . . . 9 𝐷 = (𝑛 ∈ β„• ↦ (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 Β· Ο€)) = 0, (((2 Β· 𝑛) + 1) / (2 Β· Ο€)), ((sinβ€˜((𝑛 + (1 / 2)) Β· 𝑠)) / ((2 Β· Ο€) Β· (sinβ€˜(𝑠 / 2)))))))
1514dirkerre 45296 . . . . . . . 8 ((𝑁 ∈ β„• ∧ (𝑑 βˆ’ 𝑋) ∈ ℝ) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
165, 13, 15syl2anc 583 . . . . . . 7 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
1716recnd 11239 . . . . . 6 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ β„‚)
183, 17mulcld 11231 . . . . 5 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ β„‚)
19 fourierdlem101.g . . . . . 6 𝐺 = (𝑑 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
2019fvmpt2 6999 . . . . 5 ((𝑑 ∈ (-Ο€[,]Ο€) ∧ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ β„‚) β†’ (πΊβ€˜π‘‘) = ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
211, 18, 20syl2anc 583 . . . 4 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ (πΊβ€˜π‘‘) = ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
2221eqcomd 2730 . . 3 ((πœ‘ ∧ 𝑑 ∈ (-Ο€[,]Ο€)) β†’ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = (πΊβ€˜π‘‘))
2322itgeq2dv 25633 . 2 (πœ‘ β†’ ∫(-Ο€[,]Ο€)((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) d𝑑 = ∫(-Ο€[,]Ο€)(πΊβ€˜π‘‘) d𝑑)
24 fourierdlem101.p . . 3 𝑃 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = -Ο€ ∧ (π‘β€˜π‘š) = Ο€) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
25 fveq2 6881 . . . . 5 (𝑗 = 𝑖 β†’ (π‘„β€˜π‘—) = (π‘„β€˜π‘–))
2625oveq1d 7416 . . . 4 (𝑗 = 𝑖 β†’ ((π‘„β€˜π‘—) βˆ’ 𝑋) = ((π‘„β€˜π‘–) βˆ’ 𝑋))
2726cbvmptv 5251 . . 3 (𝑗 ∈ (0...𝑀) ↦ ((π‘„β€˜π‘—) βˆ’ 𝑋)) = (𝑖 ∈ (0...𝑀) ↦ ((π‘„β€˜π‘–) βˆ’ 𝑋))
28 fourierdlem101.6 . . 3 (πœ‘ β†’ 𝑀 ∈ β„•)
29 fourierdlem101.q . . 3 (πœ‘ β†’ 𝑄 ∈ (π‘ƒβ€˜π‘€))
3018, 19fmptd 7105 . . 3 (πœ‘ β†’ 𝐺:(-Ο€[,]Ο€)βŸΆβ„‚)
3119reseq1i 5967 . . . . 5 (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = ((𝑑 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
32 ioossicc 13407 . . . . . . 7 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1)))
337a1i 11 . . . . . . . . . 10 (πœ‘ β†’ -Ο€ ∈ ℝ)
3433rexrd 11261 . . . . . . . . 9 (πœ‘ β†’ -Ο€ ∈ ℝ*)
3534adantr 480 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ -Ο€ ∈ ℝ*)
366a1i 11 . . . . . . . . . 10 (πœ‘ β†’ Ο€ ∈ ℝ)
3736rexrd 11261 . . . . . . . . 9 (πœ‘ β†’ Ο€ ∈ ℝ*)
3837adantr 480 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ Ο€ ∈ ℝ*)
3924, 28, 29fourierdlem15 45323 . . . . . . . . 9 (πœ‘ β†’ 𝑄:(0...𝑀)⟢(-Ο€[,]Ο€))
4039adantr 480 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑄:(0...𝑀)⟢(-Ο€[,]Ο€))
41 simpr 484 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0..^𝑀))
4235, 38, 40, 41fourierdlem8 45316 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)[,](π‘„β€˜(𝑖 + 1))) βŠ† (-Ο€[,]Ο€))
4332, 42sstrid 3985 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† (-Ο€[,]Ο€))
4443resmptd 6030 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))))
4531, 44eqtrid 2776 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))))
462adantr 480 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐹:(-Ο€[,]Ο€)βŸΆβ„‚)
4746, 43feqresmpt 6951 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘‘)))
48 fourierdlem101.fcn . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
4947, 48eqeltrrd 2826 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (πΉβ€˜π‘‘)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
50 eqidd 2725 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) = (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )))
51 simpr 484 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)) β†’ 𝑠 = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ))
52 eqidd 2725 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)))
53 oveq1 7408 . . . . . . . . . . . . . . 15 (𝑑 = π‘Ÿ β†’ (𝑑 βˆ’ 𝑋) = (π‘Ÿ βˆ’ 𝑋))
5453adantl 481 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑑 = π‘Ÿ) β†’ (𝑑 βˆ’ 𝑋) = (π‘Ÿ βˆ’ 𝑋))
55 simpr 484 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
56 elioore 13351 . . . . . . . . . . . . . . . . 17 (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ π‘Ÿ ∈ ℝ)
5756adantl 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ π‘Ÿ ∈ ℝ)
5811adantr 480 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑋 ∈ ℝ)
5957, 58resubcld 11639 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ βˆ’ 𝑋) ∈ ℝ)
6059adantlr 712 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π‘Ÿ βˆ’ 𝑋) ∈ ℝ)
6152, 54, 55, 60fvmptd 6995 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ) = (π‘Ÿ βˆ’ 𝑋))
6261adantr 480 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ) = (π‘Ÿ βˆ’ 𝑋))
6351, 62eqtrd 2764 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)) β†’ 𝑠 = (π‘Ÿ βˆ’ 𝑋))
6463fveq2d 6885 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)) β†’ ((π·β€˜π‘)β€˜π‘ ) = ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)))
65 elioore 13351 . . . . . . . . . . . . . . 15 (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ 𝑑 ∈ ℝ)
6665adantl 481 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑑 ∈ ℝ)
6711adantr 480 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑋 ∈ ℝ)
6866, 67resubcld 11639 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
6968adantlr 712 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
70 eqid 2724 . . . . . . . . . . . 12 (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))
7169, 70fmptd 7105 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„)
7271ffvelcdmda 7076 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ) ∈ ℝ)
734ad2antrr 723 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑁 ∈ β„•)
7414dirkerre 45296 . . . . . . . . . . 11 ((𝑁 ∈ β„• ∧ (π‘Ÿ βˆ’ 𝑋) ∈ ℝ) β†’ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)) ∈ ℝ)
7573, 60, 74syl2anc 583 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)) ∈ ℝ)
7650, 64, 72, 75fvmptd 6995 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))β€˜((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)) = ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)))
7776eqcomd 2730 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)) = ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))β€˜((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ)))
7877mpteq2dva 5238 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋))) = (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))β€˜((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ))))
7953fveq2d 6885 . . . . . . . . 9 (𝑑 = π‘Ÿ β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)))
8079cbvmptv 5251 . . . . . . . 8 (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋)))
8180a1i 11 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(π‘Ÿ βˆ’ 𝑋))))
8214dirkerre 45296 . . . . . . . . . . 11 ((𝑁 ∈ β„• ∧ 𝑠 ∈ ℝ) β†’ ((π·β€˜π‘)β€˜π‘ ) ∈ ℝ)
834, 82sylan 579 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ ℝ) β†’ ((π·β€˜π‘)β€˜π‘ ) ∈ ℝ)
84 eqid 2724 . . . . . . . . . 10 (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) = (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))
8583, 84fmptd 7105 . . . . . . . . 9 (πœ‘ β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„)
8685adantr 480 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„)
87 fcompt 7123 . . . . . . . 8 (((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„ ∧ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„) β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∘ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))) = (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))β€˜((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ))))
8886, 71, 87syl2anc 583 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∘ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))) = (π‘Ÿ ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ ))β€˜((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))β€˜π‘Ÿ))))
8978, 81, 883eqtr4d 2774 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∘ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))))
90 eqid 2724 . . . . . . . 8 (𝑑 ∈ β„‚ ↦ (𝑑 βˆ’ 𝑋)) = (𝑑 ∈ β„‚ ↦ (𝑑 βˆ’ 𝑋))
91 simpr 484 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑑 ∈ β„‚) β†’ 𝑑 ∈ β„‚)
9211recnd 11239 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑋 ∈ β„‚)
9392adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑑 ∈ β„‚) β†’ 𝑋 ∈ β„‚)
9491, 93negsubd 11574 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑑 ∈ β„‚) β†’ (𝑑 + -𝑋) = (𝑑 βˆ’ 𝑋))
9594eqcomd 2730 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑑 ∈ β„‚) β†’ (𝑑 βˆ’ 𝑋) = (𝑑 + -𝑋))
9695mpteq2dva 5238 . . . . . . . . . 10 (πœ‘ β†’ (𝑑 ∈ β„‚ ↦ (𝑑 βˆ’ 𝑋)) = (𝑑 ∈ β„‚ ↦ (𝑑 + -𝑋)))
9792negcld 11555 . . . . . . . . . . 11 (πœ‘ β†’ -𝑋 ∈ β„‚)
98 eqid 2724 . . . . . . . . . . . 12 (𝑑 ∈ β„‚ ↦ (𝑑 + -𝑋)) = (𝑑 ∈ β„‚ ↦ (𝑑 + -𝑋))
9998addccncf 24759 . . . . . . . . . . 11 (-𝑋 ∈ β„‚ β†’ (𝑑 ∈ β„‚ ↦ (𝑑 + -𝑋)) ∈ (ℂ–cnβ†’β„‚))
10097, 99syl 17 . . . . . . . . . 10 (πœ‘ β†’ (𝑑 ∈ β„‚ ↦ (𝑑 + -𝑋)) ∈ (ℂ–cnβ†’β„‚))
10196, 100eqeltrd 2825 . . . . . . . . 9 (πœ‘ β†’ (𝑑 ∈ β„‚ ↦ (𝑑 βˆ’ 𝑋)) ∈ (ℂ–cnβ†’β„‚))
102101adantr 480 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ β„‚ ↦ (𝑑 βˆ’ 𝑋)) ∈ (ℂ–cnβ†’β„‚))
103 ioossre 13382 . . . . . . . . . 10 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ℝ
104 ax-resscn 11163 . . . . . . . . . 10 ℝ βŠ† β„‚
105103, 104sstri 3983 . . . . . . . . 9 ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚
106105a1i 11 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† β„‚)
107104a1i 11 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ℝ βŠ† β„‚)
10890, 102, 106, 107, 69cncfmptssg 45072 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cn→ℝ))
10983recnd 11239 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ ℝ) β†’ ((π·β€˜π‘)β€˜π‘ ) ∈ β„‚)
110109, 84fmptd 7105 . . . . . . . . 9 (πœ‘ β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„‚)
111 ssid 3996 . . . . . . . . . 10 β„‚ βŠ† β„‚
11214dirkerf 45298 . . . . . . . . . . . . 13 (𝑁 ∈ β„• β†’ (π·β€˜π‘):β„βŸΆβ„)
1134, 112syl 17 . . . . . . . . . . . 12 (πœ‘ β†’ (π·β€˜π‘):β„βŸΆβ„)
114113feqmptd 6950 . . . . . . . . . . 11 (πœ‘ β†’ (π·β€˜π‘) = (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )))
11514dirkercncf 45308 . . . . . . . . . . . 12 (𝑁 ∈ β„• β†’ (π·β€˜π‘) ∈ (ℝ–cn→ℝ))
1164, 115syl 17 . . . . . . . . . . 11 (πœ‘ β†’ (π·β€˜π‘) ∈ (ℝ–cn→ℝ))
117114, 116eqeltrrd 2826 . . . . . . . . . 10 (πœ‘ β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cn→ℝ))
118 cncfcdm 24740 . . . . . . . . . 10 ((β„‚ βŠ† β„‚ ∧ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cn→ℝ)) β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cnβ†’β„‚) ↔ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„‚))
119111, 117, 118sylancr 586 . . . . . . . . 9 (πœ‘ β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cnβ†’β„‚) ↔ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )):β„βŸΆβ„‚))
120110, 119mpbird 257 . . . . . . . 8 (πœ‘ β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cnβ†’β„‚))
121120adantr 480 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∈ (ℝ–cnβ†’β„‚))
122108, 121cncfco 24749 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑠 ∈ ℝ ↦ ((π·β€˜π‘)β€˜π‘ )) ∘ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (𝑑 βˆ’ 𝑋))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
12389, 122eqeltrd 2825 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
12449, 123mulcncf 25296 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
12545, 124eqeltrd 2825 . . 3 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
126 cncff 24735 . . . . . . . 8 ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
12748, 126syl 17 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
128113adantr 480 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘):β„βŸΆβ„)
129 elioore 13351 . . . . . . . . . . . . 13 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ 𝑠 ∈ ℝ)
130129adantl 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑠 ∈ ℝ)
13111adantr 480 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑋 ∈ ℝ)
132130, 131resubcld 11639 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑠 βˆ’ 𝑋) ∈ ℝ)
133128, 132ffvelcdmd 7077 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) ∈ ℝ)
134133recnd 11239 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) ∈ β„‚)
135 eqid 2724 . . . . . . . . 9 (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))
136134, 135fmptd 7105 . . . . . . . 8 (πœ‘ β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
137136adantr 480 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))):((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))βŸΆβ„‚)
138 eqid 2724 . . . . . . 7 (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)))
139 fourierdlem101.r . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑅 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)))
140 oveq1 7408 . . . . . . . . . . . . . 14 (𝑑 = (π‘„β€˜π‘–) β†’ (𝑑 βˆ’ 𝑋) = ((π‘„β€˜π‘–) βˆ’ 𝑋))
141140fveq2d 6885 . . . . . . . . . . . . 13 (𝑑 = (π‘„β€˜π‘–) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)))
142141eqcomd 2730 . . . . . . . . . . . 12 (𝑑 = (π‘„β€˜π‘–) β†’ ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
143142adantl 481 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ 𝑑 = (π‘„β€˜π‘–)) β†’ ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
144 eqidd 2725 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))))
145 oveq1 7408 . . . . . . . . . . . . . 14 (𝑠 = 𝑑 β†’ (𝑠 βˆ’ 𝑋) = (𝑑 βˆ’ 𝑋))
146145fveq2d 6885 . . . . . . . . . . . . 13 (𝑠 = 𝑑 β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
147146adantl 481 . . . . . . . . . . . 12 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) ∧ 𝑠 = 𝑑) β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
148 velsn 4636 . . . . . . . . . . . . . . 15 (𝑑 ∈ {(π‘„β€˜π‘–)} ↔ 𝑑 = (π‘„β€˜π‘–))
149148notbii 320 . . . . . . . . . . . . . 14 (Β¬ 𝑑 ∈ {(π‘„β€˜π‘–)} ↔ Β¬ 𝑑 = (π‘„β€˜π‘–))
150 elunnel2 4142 . . . . . . . . . . . . . 14 ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ∧ Β¬ 𝑑 ∈ {(π‘„β€˜π‘–)}) β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
151149, 150sylan2br 594 . . . . . . . . . . . . 13 ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
152151adantll 711 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
153113ad2antrr 723 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (π·β€˜π‘):β„βŸΆβ„)
154 simpr 484 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 = (π‘„β€˜π‘–))
1559ssriv 3978 . . . . . . . . . . . . . . . . . . . 20 (-Ο€[,]Ο€) βŠ† ℝ
156 fzossfz 13648 . . . . . . . . . . . . . . . . . . . . . 22 (0..^𝑀) βŠ† (0...𝑀)
157156, 41sselid 3972 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝑖 ∈ (0...𝑀))
15840, 157ffvelcdmd 7077 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ (-Ο€[,]Ο€))
159155, 158sselid 3972 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
160159adantr 480 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 = (π‘„β€˜π‘–)) β†’ (π‘„β€˜π‘–) ∈ ℝ)
161154, 160eqeltrd 2825 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 ∈ ℝ)
162161adantlr 712 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 ∈ ℝ)
163152, 65syl 17 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ 𝑑 ∈ ℝ)
164162, 163pm2.61dan 810 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑑 ∈ ℝ)
16511ad2antrr 723 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑋 ∈ ℝ)
166164, 165resubcld 11639 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
167153, 166ffvelcdmd 7077 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
168167adantr 480 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
169144, 147, 152, 168fvmptd 6995 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ Β¬ 𝑑 = (π‘„β€˜π‘–)) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
170143, 169ifeqda 4556 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ if(𝑑 = (π‘„β€˜π‘–), ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
171170mpteq2dva 5238 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ if(𝑑 = (π‘„β€˜π‘–), ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
172113adantr 480 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜π‘):β„βŸΆβ„)
173 simpr 484 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}))
174 elun 4140 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↔ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑠 ∈ {(π‘„β€˜π‘–)}))
175173, 174sylib 217 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑠 ∈ {(π‘„β€˜π‘–)}))
176175adantlr 712 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑠 ∈ {(π‘„β€˜π‘–)}))
177 elsni 4637 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑠 ∈ {(π‘„β€˜π‘–)} β†’ 𝑠 = (π‘„β€˜π‘–))
178177adantl 481 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ {(π‘„β€˜π‘–)}) β†’ 𝑠 = (π‘„β€˜π‘–))
179159adantr 480 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ {(π‘„β€˜π‘–)}) β†’ (π‘„β€˜π‘–) ∈ ℝ)
180178, 179eqeltrd 2825 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ {(π‘„β€˜π‘–)}) β†’ 𝑠 ∈ ℝ)
181180ex 412 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ {(π‘„β€˜π‘–)} β†’ 𝑠 ∈ ℝ))
182181adantr 480 . . . . . . . . . . . . . . . . . . 19 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑠 ∈ {(π‘„β€˜π‘–)} β†’ 𝑠 ∈ ℝ))
183 pm3.44 956 . . . . . . . . . . . . . . . . . . 19 (((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ 𝑠 ∈ ℝ) ∧ (𝑠 ∈ {(π‘„β€˜π‘–)} β†’ 𝑠 ∈ ℝ)) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑠 ∈ {(π‘„β€˜π‘–)}) β†’ 𝑠 ∈ ℝ))
184129, 182, 183sylancr 586 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑠 ∈ {(π‘„β€˜π‘–)}) β†’ 𝑠 ∈ ℝ))
185176, 184mpd 15 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑠 ∈ ℝ)
18611ad2antrr 723 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑋 ∈ ℝ)
187185, 186resubcld 11639 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑠 βˆ’ 𝑋) ∈ ℝ)
188 eqid 2724 . . . . . . . . . . . . . . . 16 (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)) = (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))
189187, 188fmptd 7105 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)):(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})βŸΆβ„)
190 fcompt 7123 . . . . . . . . . . . . . . 15 (((π·β€˜π‘):β„βŸΆβ„ ∧ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)):(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})βŸΆβ„) β†’ ((π·β€˜π‘) ∘ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜((𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))β€˜π‘‘))))
191172, 189, 190syl2anc 583 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π·β€˜π‘) ∘ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜((𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))β€˜π‘‘))))
192 eqidd 2725 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)) = (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)))
193145adantl 481 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∧ 𝑠 = 𝑑) β†’ (𝑠 βˆ’ 𝑋) = (𝑑 βˆ’ 𝑋))
194 simpr 484 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}))
195192, 193, 194, 166fvmptd 6995 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ ((𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))β€˜π‘‘) = (𝑑 βˆ’ 𝑋))
196195fveq2d 6885 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ ((π·β€˜π‘)β€˜((𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
197196mpteq2dva 5238 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜((𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))β€˜π‘‘))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
198191, 197eqtr2d 2765 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((π·β€˜π‘) ∘ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))))
199 eqid 2724 . . . . . . . . . . . . . . . 16 (𝑠 ∈ β„‚ ↦ (𝑠 βˆ’ 𝑋)) = (𝑠 ∈ β„‚ ↦ (𝑠 βˆ’ 𝑋))
200 simpr 484 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑠 ∈ β„‚) β†’ 𝑠 ∈ β„‚)
20192adantr 480 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑠 ∈ β„‚) β†’ 𝑋 ∈ β„‚)
202200, 201negsubd 11574 . . . . . . . . . . . . . . . . . . . 20 ((πœ‘ ∧ 𝑠 ∈ β„‚) β†’ (𝑠 + -𝑋) = (𝑠 βˆ’ 𝑋))
203202eqcomd 2730 . . . . . . . . . . . . . . . . . . 19 ((πœ‘ ∧ 𝑠 ∈ β„‚) β†’ (𝑠 βˆ’ 𝑋) = (𝑠 + -𝑋))
204203mpteq2dva 5238 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (𝑠 ∈ β„‚ ↦ (𝑠 βˆ’ 𝑋)) = (𝑠 ∈ β„‚ ↦ (𝑠 + -𝑋)))
205 eqid 2724 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ β„‚ ↦ (𝑠 + -𝑋)) = (𝑠 ∈ β„‚ ↦ (𝑠 + -𝑋))
206205addccncf 24759 . . . . . . . . . . . . . . . . . . 19 (-𝑋 ∈ β„‚ β†’ (𝑠 ∈ β„‚ ↦ (𝑠 + -𝑋)) ∈ (ℂ–cnβ†’β„‚))
20797, 206syl 17 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (𝑠 ∈ β„‚ ↦ (𝑠 + -𝑋)) ∈ (ℂ–cnβ†’β„‚))
208204, 207eqeltrd 2825 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (𝑠 ∈ β„‚ ↦ (𝑠 βˆ’ 𝑋)) ∈ (ℂ–cnβ†’β„‚))
209208adantr 480 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ β„‚ ↦ (𝑠 βˆ’ 𝑋)) ∈ (ℂ–cnβ†’β„‚))
210159recnd 11239 . . . . . . . . . . . . . . . . . 18 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ β„‚)
211210snssd 4804 . . . . . . . . . . . . . . . . 17 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ {(π‘„β€˜π‘–)} βŠ† β„‚)
212106, 211unssd 4178 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) βŠ† β„‚)
213199, 209, 212, 107, 187cncfmptssg 45072 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋)) ∈ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})–cn→ℝ))
214114, 120eqeltrd 2825 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (π·β€˜π‘) ∈ (ℝ–cnβ†’β„‚))
215214adantr 480 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π·β€˜π‘) ∈ (ℝ–cnβ†’β„‚))
216213, 215cncfco 24749 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π·β€˜π‘) ∘ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))) ∈ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})–cnβ†’β„‚))
217 eqid 2724 . . . . . . . . . . . . . . . 16 (TopOpenβ€˜β„‚fld) = (TopOpenβ€˜β„‚fld)
218 eqid 2724 . . . . . . . . . . . . . . . 16 ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) = ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}))
219217cnfldtop 24622 . . . . . . . . . . . . . . . . . 18 (TopOpenβ€˜β„‚fld) ∈ Top
220 unicntop 24624 . . . . . . . . . . . . . . . . . . 19 β„‚ = βˆͺ (TopOpenβ€˜β„‚fld)
221220restid 17378 . . . . . . . . . . . . . . . . . 18 ((TopOpenβ€˜β„‚fld) ∈ Top β†’ ((TopOpenβ€˜β„‚fld) β†Ύt β„‚) = (TopOpenβ€˜β„‚fld))
222219, 221ax-mp 5 . . . . . . . . . . . . . . . . 17 ((TopOpenβ€˜β„‚fld) β†Ύt β„‚) = (TopOpenβ€˜β„‚fld)
223222eqcomi 2733 . . . . . . . . . . . . . . . 16 (TopOpenβ€˜β„‚fld) = ((TopOpenβ€˜β„‚fld) β†Ύt β„‚)
224217, 218, 223cncfcn 24752 . . . . . . . . . . . . . . 15 (((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) βŠ† β„‚ ∧ β„‚ βŠ† β„‚) β†’ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})–cnβ†’β„‚) = (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) Cn (TopOpenβ€˜β„‚fld)))
225212, 111, 224sylancl 585 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})–cnβ†’β„‚) = (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) Cn (TopOpenβ€˜β„‚fld)))
226216, 225eleqtrd 2827 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π·β€˜π‘) ∘ (𝑠 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ (𝑠 βˆ’ 𝑋))) ∈ (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) Cn (TopOpenβ€˜β„‚fld)))
227198, 226eqeltrd 2825 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) Cn (TopOpenβ€˜β„‚fld)))
228217cnfldtopon 24621 . . . . . . . . . . . . . 14 (TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚)
229 resttopon 22987 . . . . . . . . . . . . . 14 (((TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚) ∧ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) βŠ† β„‚) β†’ ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∈ (TopOnβ€˜(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})))
230228, 212, 229sylancr 586 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) ∈ (TopOnβ€˜(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})))
231 cncnp 23106 . . . . . . . . . . . . 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 585 . . . . . . . . . . . 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 495 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
235 eqidd 2725 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) = (π‘„β€˜π‘–))
236 elsng 4634 . . . . . . . . . . . . . 14 ((π‘„β€˜π‘–) ∈ ℝ β†’ ((π‘„β€˜π‘–) ∈ {(π‘„β€˜π‘–)} ↔ (π‘„β€˜π‘–) = (π‘„β€˜π‘–)))
237159, 236syl 17 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–) ∈ {(π‘„β€˜π‘–)} ↔ (π‘„β€˜π‘–) = (π‘„β€˜π‘–)))
238235, 237mpbird 257 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ {(π‘„β€˜π‘–)})
239238olcd 871 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–) ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ (π‘„β€˜π‘–) ∈ {(π‘„β€˜π‘–)}))
240 elun 4140 . . . . . . . . . . 11 ((π‘„β€˜π‘–) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↔ ((π‘„β€˜π‘–) ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ (π‘„β€˜π‘–) ∈ {(π‘„β€˜π‘–)}))
241239, 240sylibr 233 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜π‘–) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}))
242 fveq2 6881 . . . . . . . . . . . 12 (𝑠 = (π‘„β€˜π‘–) β†’ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) = ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜π‘–)))
243242eleq2d 2811 . . . . . . . . . . 11 (𝑠 = (π‘„β€˜π‘–) β†’ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) ↔ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜π‘–))))
244243rspccva 3603 . . . . . . . . . 10 ((βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) ∧ (π‘„β€˜π‘–) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜π‘–)))
245234, 241, 244syl2anc 583 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜π‘–)))
246171, 245eqeltrd 2825 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ if(𝑑 = (π‘„β€˜π‘–), ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜π‘–)))
247 eqid 2724 . . . . . . . . 9 (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ if(𝑑 = (π‘„β€˜π‘–), ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜π‘–)}) ↦ if(𝑑 = (π‘„β€˜π‘–), ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)))
248218, 217, 247, 137, 106, 210ellimc 25724 . . . . . . . 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 44824 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑅 Β· ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋))) ∈ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜π‘–)))
251 fvres 6900 . . . . . . . . . 10 (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) = (πΉβ€˜π‘‘))
252251adantl 481 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) = (πΉβ€˜π‘‘))
253252oveq1d 7416 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)))
254253mpteq2dva 5238 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))))
255254oveq1d 7416 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜π‘–)) = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜π‘–)))
256250, 255eleqtrd 2827 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑅 Β· ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋))) ∈ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜π‘–)))
257 eqidd 2725 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))))
258 simpr 484 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = 𝑑) β†’ 𝑠 = 𝑑)
259258oveq1d 7416 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = 𝑑) β†’ (𝑠 βˆ’ 𝑋) = (𝑑 βˆ’ 𝑋))
260259fveq2d 6885 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∧ 𝑠 = 𝑑) β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
261 simpr 484 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
262113ad2antrr 723 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (π·β€˜π‘):β„βŸΆβ„)
263262, 69ffvelcdmd 7077 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
264257, 260, 261, 263fvmptd 6995 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
265264oveq2d 7417 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
266265mpteq2dva 5238 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))))
267266oveq1d 7416 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜π‘–)) = ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) limβ„‚ (π‘„β€˜π‘–)))
268256, 267eleqtrd 2827 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑅 Β· ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋))) ∈ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) limβ„‚ (π‘„β€˜π‘–)))
26945eqcomd 2730 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
270269oveq1d 7416 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))) limβ„‚ (π‘„β€˜π‘–)) = ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)))
271268, 270eleqtrd 2827 . . 3 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑅 Β· ((π·β€˜π‘)β€˜((π‘„β€˜π‘–) βˆ’ 𝑋))) ∈ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜π‘–)))
272 fourierdlem101.l . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ 𝐿 ∈ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
273 iftrue 4526 . . . . . . . . . . 11 (𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)))
274 oveq1 7408 . . . . . . . . . . . . 13 (𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ (𝑑 βˆ’ 𝑋) = ((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋))
275274eqcomd 2730 . . . . . . . . . . . 12 (𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ ((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋) = (𝑑 βˆ’ 𝑋))
276275fveq2d 6885 . . . . . . . . . . 11 (𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
277273, 276eqtrd 2764 . . . . . . . . . 10 (𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
278277adantl 481 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
279 iffalse 4529 . . . . . . . . . . 11 (Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))
280279adantl 481 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))
281 eqidd 2725 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))) = (𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋))))
282146adantl 481 . . . . . . . . . . 11 (((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) ∧ 𝑠 = 𝑑) β†’ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
283 elun 4140 . . . . . . . . . . . . . . 15 (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↔ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))}))
284283biimpi 215 . . . . . . . . . . . . . 14 (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))}))
285284orcomd 868 . . . . . . . . . . . . 13 (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) β†’ (𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} ∨ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
286285ad2antlr 724 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ (𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} ∨ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
287 velsn 4636 . . . . . . . . . . . . . . 15 (𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} ↔ 𝑑 = (π‘„β€˜(𝑖 + 1)))
288287notbii 320 . . . . . . . . . . . . . 14 (Β¬ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} ↔ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1)))
289288biimpri 227 . . . . . . . . . . . . 13 (Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1)) β†’ Β¬ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))})
290289adantl 481 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ Β¬ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))})
291 pm2.53 848 . . . . . . . . . . . 12 ((𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} ∨ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) β†’ (Β¬ 𝑑 ∈ {(π‘„β€˜(𝑖 + 1))} β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
292286, 290, 291sylc 65 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ 𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))
293172ad2antrr 723 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ (π·β€˜π‘):β„βŸΆβ„)
294292, 65syl 17 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ 𝑑 ∈ ℝ)
29511ad3antrrr 727 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ 𝑋 ∈ ℝ)
296294, 295resubcld 11639 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
297293, 296ffvelcdmd 7077 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
298281, 282, 292, 297fvmptd 6995 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
299280, 298eqtrd 2764 . . . . . . . . 9 ((((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∧ Β¬ 𝑑 = (π‘„β€˜(𝑖 + 1))) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
300278, 299pm2.61dan 810 . . . . . . . 8 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)) = ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
301300mpteq2dva 5238 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
302 eqid 2724 . . . . . . . . . . . 12 (𝑑 ∈ ℝ ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = (𝑑 ∈ ℝ ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))
303104a1i 11 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ℝ βŠ† β„‚)
304 simpr 484 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑑 ∈ ℝ) β†’ 𝑑 ∈ ℝ)
30511adantr 480 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑑 ∈ ℝ) β†’ 𝑋 ∈ ℝ)
306304, 305resubcld 11639 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑑 ∈ ℝ) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
30790, 101, 303, 303, 306cncfmptssg 45072 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝑑 ∈ ℝ ↦ (𝑑 βˆ’ 𝑋)) ∈ (ℝ–cn→ℝ))
308307, 214cncfcompt 45084 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝑑 ∈ ℝ ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (ℝ–cnβ†’β„‚))
309308adantr 480 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ℝ ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (ℝ–cnβ†’β„‚))
310103a1i 11 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βŠ† ℝ)
311 fzofzp1 13726 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (0..^𝑀) β†’ (𝑖 + 1) ∈ (0...𝑀))
312311adantl 481 . . . . . . . . . . . . . . . 16 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑖 + 1) ∈ (0...𝑀))
31340, 312ffvelcdmd 7077 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ (-Ο€[,]Ο€))
314155, 313sselid 3972 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ ℝ)
315314snssd 4804 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ {(π‘„β€˜(𝑖 + 1))} βŠ† ℝ)
316310, 315unssd 4178 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) βŠ† ℝ)
317111a1i 11 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ β„‚ βŠ† β„‚)
318172adantr 480 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ (π·β€˜π‘):β„βŸΆβ„)
319316sselda 3974 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ 𝑑 ∈ ℝ)
32011ad2antrr 723 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ 𝑋 ∈ ℝ)
321319, 320resubcld 11639 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ (𝑑 βˆ’ 𝑋) ∈ ℝ)
322318, 321ffvelcdmd 7077 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ ℝ)
323322recnd 11239 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) ∈ β„‚)
324302, 309, 316, 317, 323cncfmptssg 45072 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})–cnβ†’β„‚))
325155, 104sstri 3983 . . . . . . . . . . . . . . 15 (-Ο€[,]Ο€) βŠ† β„‚
326325, 313sselid 3972 . . . . . . . . . . . . . 14 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ β„‚)
327326snssd 4804 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ {(π‘„β€˜(𝑖 + 1))} βŠ† β„‚)
328106, 327unssd 4178 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) βŠ† β„‚)
329 eqid 2724 . . . . . . . . . . . . 13 ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) = ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}))
330217, 329, 223cncfcn 24752 . . . . . . . . . . . 12 (((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) βŠ† β„‚ ∧ β„‚ βŠ† β„‚) β†’ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})–cnβ†’β„‚) = (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) Cn (TopOpenβ€˜β„‚fld)))
331328, 111, 330sylancl 585 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})–cnβ†’β„‚) = (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) Cn (TopOpenβ€˜β„‚fld)))
332324, 331eleqtrd 2827 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ (((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) Cn (TopOpenβ€˜β„‚fld)))
333 resttopon 22987 . . . . . . . . . . . 12 (((TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚) ∧ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) βŠ† β„‚) β†’ ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∈ (TopOnβ€˜(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})))
334228, 328, 333sylancr 586 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) ∈ (TopOnβ€˜(((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})))
335 cncnp 23106 . . . . . . . . . . 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 585 . . . . . . . . . 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 495 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ βˆ€π‘  ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})(𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
339 eqidd 2725 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜(𝑖 + 1)))
340 elsng 4634 . . . . . . . . . . . 12 ((π‘„β€˜(𝑖 + 1)) ∈ ℝ β†’ ((π‘„β€˜(𝑖 + 1)) ∈ {(π‘„β€˜(𝑖 + 1))} ↔ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜(𝑖 + 1))))
341314, 340syl 17 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜(𝑖 + 1)) ∈ {(π‘„β€˜(𝑖 + 1))} ↔ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜(𝑖 + 1))))
342339, 341mpbird 257 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ {(π‘„β€˜(𝑖 + 1))})
343342olcd 871 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((π‘„β€˜(𝑖 + 1)) ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ (π‘„β€˜(𝑖 + 1)) ∈ {(π‘„β€˜(𝑖 + 1))}))
344 elun 4140 . . . . . . . . 9 ((π‘„β€˜(𝑖 + 1)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↔ ((π‘„β€˜(𝑖 + 1)) ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ∨ (π‘„β€˜(𝑖 + 1)) ∈ {(π‘„β€˜(𝑖 + 1))}))
345343, 344sylibr 233 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (π‘„β€˜(𝑖 + 1)) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}))
346 fveq2 6881 . . . . . . . . . 10 (𝑠 = (π‘„β€˜(𝑖 + 1)) β†’ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) = ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜(𝑖 + 1))))
347346eleq2d 2811 . . . . . . . . 9 (𝑠 = (π‘„β€˜(𝑖 + 1)) β†’ ((𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) ↔ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜(𝑖 + 1)))))
348347rspccva 3603 . . . . . . . 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 583 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜(𝑖 + 1))))
350301, 349eqeltrd 2825 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) ∈ ((((TopOpenβ€˜β„‚fld) β†Ύt (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))})) CnP (TopOpenβ€˜β„‚fld))β€˜(π‘„β€˜(𝑖 + 1))))
351 eqid 2724 . . . . . . 7 (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝑑 ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) βˆͺ {(π‘„β€˜(𝑖 + 1))}) ↦ if(𝑑 = (π‘„β€˜(𝑖 + 1)), ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋)), ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘)))
352329, 217, 351, 137, 106, 326ellimc 25724 . . . . . 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 44824 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐿 Β· ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋))) ∈ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
355266, 254, 453eqtr4d 2774 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) = (𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))))
356355oveq1d 7416 . . . 4 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ ((𝑑 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ (((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))))β€˜π‘‘) Β· ((𝑠 ∈ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) ↦ ((π·β€˜π‘)β€˜(𝑠 βˆ’ 𝑋)))β€˜π‘‘))) limβ„‚ (π‘„β€˜(𝑖 + 1))) = ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
357354, 356eleqtrd 2827 . . 3 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐿 Β· ((π·β€˜π‘)β€˜((π‘„β€˜(𝑖 + 1)) βˆ’ 𝑋))) ∈ ((𝐺 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) limβ„‚ (π‘„β€˜(𝑖 + 1))))
35824, 27, 28, 29, 11, 30, 125, 271, 357fourierdlem93 45400 . 2 (πœ‘ β†’ ∫(-Ο€[,]Ο€)(πΊβ€˜π‘‘) d𝑑 = ∫((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))(πΊβ€˜(𝑋 + 𝑠)) d𝑠)
35919a1i 11 . . . 4 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝐺 = (𝑑 ∈ (-Ο€[,]Ο€) ↦ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)))))
360 fveq2 6881 . . . . . . 7 (𝑑 = (𝑋 + 𝑠) β†’ (πΉβ€˜π‘‘) = (πΉβ€˜(𝑋 + 𝑠)))
361360oveq1d 7416 . . . . . 6 (𝑑 = (𝑋 + 𝑠) β†’ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
362361adantl 481 . . . . 5 (((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) ∧ 𝑑 = (𝑋 + 𝑠)) β†’ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))))
363 oveq1 7408 . . . . . . . 8 (𝑑 = (𝑋 + 𝑠) β†’ (𝑑 βˆ’ 𝑋) = ((𝑋 + 𝑠) βˆ’ 𝑋))
36492adantr 480 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑋 ∈ β„‚)
36533, 11resubcld 11639 . . . . . . . . . . . 12 (πœ‘ β†’ (-Ο€ βˆ’ 𝑋) ∈ ℝ)
366365adantr 480 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (-Ο€ βˆ’ 𝑋) ∈ ℝ)
36736, 11resubcld 11639 . . . . . . . . . . . 12 (πœ‘ β†’ (Ο€ βˆ’ 𝑋) ∈ ℝ)
368367adantr 480 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (Ο€ βˆ’ 𝑋) ∈ ℝ)
369 simpr 484 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋)))
370 eliccre 44703 . . . . . . . . . . 11 (((-Ο€ βˆ’ 𝑋) ∈ ℝ ∧ (Ο€ βˆ’ 𝑋) ∈ ℝ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑠 ∈ ℝ)
371366, 368, 369, 370syl3anc 1368 . . . . . . . . . 10 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑠 ∈ ℝ)
372371recnd 11239 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑠 ∈ β„‚)
373364, 372pncan2d 11570 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ ((𝑋 + 𝑠) βˆ’ 𝑋) = 𝑠)
374363, 373sylan9eqr 2786 . . . . . . 7 (((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) ∧ 𝑑 = (𝑋 + 𝑠)) β†’ (𝑑 βˆ’ 𝑋) = 𝑠)
375374fveq2d 6885 . . . . . 6 (((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) ∧ 𝑑 = (𝑋 + 𝑠)) β†’ ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋)) = ((π·β€˜π‘)β€˜π‘ ))
376375oveq2d 7417 . . . . 5 (((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) ∧ 𝑑 = (𝑋 + 𝑠)) β†’ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )))
377362, 376eqtrd 2764 . . . 4 (((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) ∧ 𝑑 = (𝑋 + 𝑠)) β†’ ((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )))
3787a1i 11 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ -Ο€ ∈ ℝ)
3796a1i 11 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ Ο€ ∈ ℝ)
38011adantr 480 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑋 ∈ ℝ)
381380, 371readdcld 11240 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + 𝑠) ∈ ℝ)
38233recnd 11239 . . . . . . . . 9 (πœ‘ β†’ -Ο€ ∈ β„‚)
38392, 382pncan3d 11571 . . . . . . . 8 (πœ‘ β†’ (𝑋 + (-Ο€ βˆ’ 𝑋)) = -Ο€)
384383eqcomd 2730 . . . . . . 7 (πœ‘ β†’ -Ο€ = (𝑋 + (-Ο€ βˆ’ 𝑋)))
385384adantr 480 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ -Ο€ = (𝑋 + (-Ο€ βˆ’ 𝑋)))
386 elicc2 13386 . . . . . . . . . 10 (((-Ο€ βˆ’ 𝑋) ∈ ℝ ∧ (Ο€ βˆ’ 𝑋) ∈ ℝ) β†’ (𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋)) ↔ (𝑠 ∈ ℝ ∧ (-Ο€ βˆ’ 𝑋) ≀ 𝑠 ∧ 𝑠 ≀ (Ο€ βˆ’ 𝑋))))
387366, 368, 386syl2anc 583 . . . . . . . . 9 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋)) ↔ (𝑠 ∈ ℝ ∧ (-Ο€ βˆ’ 𝑋) ≀ 𝑠 ∧ 𝑠 ≀ (Ο€ βˆ’ 𝑋))))
388369, 387mpbid 231 . . . . . . . 8 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑠 ∈ ℝ ∧ (-Ο€ βˆ’ 𝑋) ≀ 𝑠 ∧ 𝑠 ≀ (Ο€ βˆ’ 𝑋)))
389388simp2d 1140 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (-Ο€ βˆ’ 𝑋) ≀ 𝑠)
390366, 371, 380, 389leadd2dd 11826 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + (-Ο€ βˆ’ 𝑋)) ≀ (𝑋 + 𝑠))
391385, 390eqbrtrd 5160 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ -Ο€ ≀ (𝑋 + 𝑠))
392388simp3d 1141 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝑠 ≀ (Ο€ βˆ’ 𝑋))
393371, 368, 380, 392leadd2dd 11826 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + 𝑠) ≀ (𝑋 + (Ο€ βˆ’ 𝑋)))
394 picn 26311 . . . . . . . 8 Ο€ ∈ β„‚
395394a1i 11 . . . . . . 7 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ Ο€ ∈ β„‚)
396364, 395pncan3d 11571 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + (Ο€ βˆ’ 𝑋)) = Ο€)
397393, 396breqtrd 5164 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + 𝑠) ≀ Ο€)
398378, 379, 381, 391, 397eliccd 44702 . . . 4 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (𝑋 + 𝑠) ∈ (-Ο€[,]Ο€))
3992adantr 480 . . . . . 6 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ 𝐹:(-Ο€[,]Ο€)βŸΆβ„‚)
400399, 398ffvelcdmd 7077 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (πΉβ€˜(𝑋 + 𝑠)) ∈ β„‚)
401371, 109syldan 590 . . . . 5 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ ((π·β€˜π‘)β€˜π‘ ) ∈ β„‚)
402400, 401mulcld 11231 . . . 4 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )) ∈ β„‚)
403359, 377, 398, 402fvmptd 6995 . . 3 ((πœ‘ ∧ 𝑠 ∈ ((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))) β†’ (πΊβ€˜(𝑋 + 𝑠)) = ((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )))
404403itgeq2dv 25633 . 2 (πœ‘ β†’ ∫((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))(πΊβ€˜(𝑋 + 𝑠)) d𝑠 = ∫((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )) d𝑠)
40523, 358, 4043eqtrd 2768 1 (πœ‘ β†’ ∫(-Ο€[,]Ο€)((πΉβ€˜π‘‘) Β· ((π·β€˜π‘)β€˜(𝑑 βˆ’ 𝑋))) d𝑑 = ∫((-Ο€ βˆ’ 𝑋)[,](Ο€ βˆ’ 𝑋))((πΉβ€˜(𝑋 + 𝑠)) Β· ((π·β€˜π‘)β€˜π‘ )) d𝑠)
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∨ wo 844   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098  βˆ€wral 3053  {crab 3424   βˆͺ cun 3938   βŠ† wss 3940  ifcif 4520  {csn 4620   class class class wbr 5138   ↦ cmpt 5221   β†Ύ cres 5668   ∘ ccom 5670  βŸΆwf 6529  β€˜cfv 6533  (class class class)co 7401   ↑m cmap 8816  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111  β„*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 17365  TopOpenctopn 17366  β„‚fldccnfld 21228  Topctop 22717  TopOnctopon 22734   Cn ccn 23050   CnP ccnp 23051  β€“cnβ†’ccncf 24718  βˆ«citg 25469   limβ„‚ climc 25713
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2695  ax-rep 5275  ax-sep 5289  ax-nul 5296  ax-pow 5353  ax-pr 5417  ax-un 7718  ax-inf2 9632  ax-cc 10426  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-nel 3039  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3770  df-csb 3886  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-pss 3959  df-symdif 4234  df-nul 4315  df-if 4521  df-pw 4596  df-sn 4621  df-pr 4623  df-tp 4625  df-op 4627  df-uni 4900  df-int 4941  df-iun 4989  df-iin 4990  df-disj 5104  df-br 5139  df-opab 5201  df-mpt 5222  df-tr 5256  df-id 5564  df-eprel 5570  df-po 5578  df-so 5579  df-fr 5621  df-se 5622  df-we 5623  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6290  df-ord 6357  df-on 6358  df-lim 6359  df-suc 6360  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7357  df-ov 7404  df-oprab 7405  df-mpo 7406  df-of 7663  df-ofr 7664  df-om 7849  df-1st 7968  df-2nd 7969  df-supp 8141  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-1o 8461  df-2o 8462  df-oadd 8465  df-omul 8466  df-er 8699  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-dju 9892  df-card 9930  df-acn 9933  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 17079  df-sets 17096  df-slot 17114  df-ndx 17126  df-base 17144  df-ress 17173  df-plusg 17209  df-mulr 17210  df-starv 17211  df-sca 17212  df-vsca 17213  df-ip 17214  df-tset 17215  df-ple 17216  df-ds 17218  df-unif 17219  df-hom 17220  df-cco 17221  df-rest 17367  df-topn 17368  df-0g 17386  df-gsum 17387  df-topgen 17388  df-pt 17389  df-prds 17392  df-xrs 17447  df-qtop 17452  df-imas 17453  df-xps 17455  df-mre 17529  df-mrc 17530  df-acs 17532  df-mgm 18563  df-sgrp 18642  df-mnd 18658  df-submnd 18704  df-mulg 18986  df-cntz 19223  df-cmn 19692  df-psmet 21220  df-xmet 21221  df-met 21222  df-bl 21223  df-mopn 21224  df-fbas 21225  df-fg 21226  df-cnfld 21229  df-top 22718  df-topon 22735  df-topsp 22757  df-bases 22771  df-cld 22845  df-ntr 22846  df-cls 22847  df-nei 22924  df-lp 22962  df-perf 22963  df-cn 23053  df-cnp 23054  df-t1 23140  df-haus 23141  df-cmp 23213  df-tx 23388  df-hmeo 23581  df-fil 23672  df-fm 23764  df-flim 23765  df-flf 23766  df-xms 24148  df-ms 24149  df-tms 24150  df-cncf 24720  df-ovol 25315  df-vol 25316  df-mbf 25470  df-itg1 25471  df-itg2 25472  df-ibl 25473  df-itg 25474  df-0p 25521  df-ditg 25698  df-limc 25717  df-dv 25718
This theorem is referenced by:  fourierdlem111  45418
  Copyright terms: Public domain W3C validator