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

Theorem fourierdlem78 42337
Description: 𝐺 is continuous when restricted on an interval not containing 0. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem78.f (𝜑𝐹:ℝ⟶ℝ)
fourierdlem78.a (𝜑𝐴 ∈ (-π[,]π))
fourierdlem78.b (𝜑𝐵 ∈ (-π[,]π))
fourierdlem78.x (𝜑𝑋 ∈ ℝ)
fourierdlem78.nxelab (𝜑 → ¬ 0 ∈ (𝐴(,)𝐵))
fourierdlem78.fcn (𝜑 → (𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋))) ∈ (((𝐴 + 𝑋)(,)(𝐵 + 𝑋))–cn→ℂ))
fourierdlem78.y (𝜑𝑌 ∈ ℝ)
fourierdlem78.w (𝜑𝑊 ∈ ℝ)
fourierdlem78.h 𝐻 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))
fourierdlem78.k 𝐾 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
fourierdlem78.u 𝑈 = (𝑠 ∈ (-π[,]π) ↦ ((𝐻𝑠) · (𝐾𝑠)))
fourierdlem78.n (𝜑𝑁 ∈ ℝ)
fourierdlem78.s 𝑆 = (𝑠 ∈ (-π[,]π) ↦ (sin‘((𝑁 + (1 / 2)) · 𝑠)))
fourierdlem78.g 𝐺 = (𝑠 ∈ (-π[,]π) ↦ ((𝑈𝑠) · (𝑆𝑠)))
Assertion
Ref Expression
fourierdlem78 (𝜑 → (𝐺 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℝ))
Distinct variable groups:   𝐴,𝑠   𝐵,𝑠   𝐹,𝑠   𝑁,𝑠   𝑊,𝑠   𝑋,𝑠   𝑌,𝑠   𝜑,𝑠
Allowed substitution hints:   𝑆(𝑠)   𝑈(𝑠)   𝐺(𝑠)   𝐻(𝑠)   𝐾(𝑠)

Proof of Theorem fourierdlem78
StepHypRef Expression
1 fourierdlem78.g . . . . 5 𝐺 = (𝑠 ∈ (-π[,]π) ↦ ((𝑈𝑠) · (𝑆𝑠)))
21a1i 11 . . . 4 (𝜑𝐺 = (𝑠 ∈ (-π[,]π) ↦ ((𝑈𝑠) · (𝑆𝑠))))
32reseq1d 5850 . . 3 (𝜑 → (𝐺 ↾ (𝐴(,)𝐵)) = ((𝑠 ∈ (-π[,]π) ↦ ((𝑈𝑠) · (𝑆𝑠))) ↾ (𝐴(,)𝐵)))
4 pire 24961 . . . . . . . . 9 π ∈ ℝ
54renegcli 10939 . . . . . . . 8 -π ∈ ℝ
65a1i 11 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → -π ∈ ℝ)
74a1i 11 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → π ∈ ℝ)
8 elioore 12761 . . . . . . . 8 (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ ℝ)
98adantl 482 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
105a1i 11 . . . . . . . . . . . 12 (𝜑 → -π ∈ ℝ)
114a1i 11 . . . . . . . . . . . 12 (𝜑 → π ∈ ℝ)
1210, 11iccssred 41647 . . . . . . . . . . 11 (𝜑 → (-π[,]π) ⊆ ℝ)
13 fourierdlem78.a . . . . . . . . . . 11 (𝜑𝐴 ∈ (-π[,]π))
1412, 13sseldd 3971 . . . . . . . . . 10 (𝜑𝐴 ∈ ℝ)
1514adantr 481 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
165, 4elicc2i 12795 . . . . . . . . . . . 12 (𝐴 ∈ (-π[,]π) ↔ (𝐴 ∈ ℝ ∧ -π ≤ 𝐴𝐴 ≤ π))
1716simp2bi 1140 . . . . . . . . . . 11 (𝐴 ∈ (-π[,]π) → -π ≤ 𝐴)
1813, 17syl 17 . . . . . . . . . 10 (𝜑 → -π ≤ 𝐴)
1918adantr 481 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → -π ≤ 𝐴)
2015rexrd 10683 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ*)
21 fourierdlem78.b . . . . . . . . . . . . 13 (𝜑𝐵 ∈ (-π[,]π))
2212, 21sseldd 3971 . . . . . . . . . . . 12 (𝜑𝐵 ∈ ℝ)
2322rexrd 10683 . . . . . . . . . . 11 (𝜑𝐵 ∈ ℝ*)
2423adantr 481 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ*)
25 simpr 485 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴(,)𝐵))
26 ioogtlb 41637 . . . . . . . . . 10 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
2720, 24, 25, 26syl3anc 1365 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
286, 15, 9, 19, 27lelttrd 10790 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → -π < 𝑠)
296, 9, 28ltled 10780 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → -π ≤ 𝑠)
3022adantr 481 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ)
31 iooltub 41653 . . . . . . . . . 10 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
3220, 24, 25, 31syl3anc 1365 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
335, 4elicc2i 12795 . . . . . . . . . . . 12 (𝐵 ∈ (-π[,]π) ↔ (𝐵 ∈ ℝ ∧ -π ≤ 𝐵𝐵 ≤ π))
3433simp3bi 1141 . . . . . . . . . . 11 (𝐵 ∈ (-π[,]π) → 𝐵 ≤ π)
3521, 34syl 17 . . . . . . . . . 10 (𝜑𝐵 ≤ π)
3635adantr 481 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ≤ π)
379, 30, 7, 32, 36ltletrd 10792 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < π)
389, 7, 37ltled 10780 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ≤ π)
396, 7, 9, 29, 38eliccd 41646 . . . . . 6 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (-π[,]π))
4039ex 413 . . . . 5 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ (-π[,]π)))
4140ssrdv 3976 . . . 4 (𝜑 → (𝐴(,)𝐵) ⊆ (-π[,]π))
4241resmptd 5906 . . 3 (𝜑 → ((𝑠 ∈ (-π[,]π) ↦ ((𝑈𝑠) · (𝑆𝑠))) ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠))))
433, 42eqtrd 2860 . 2 (𝜑 → (𝐺 ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠))))
44 0red 10636 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ)
45 fourierdlem78.f . . . . . . . . . . . . . . 15 (𝜑𝐹:ℝ⟶ℝ)
4645adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐹:ℝ⟶ℝ)
47 fourierdlem78.x . . . . . . . . . . . . . . . 16 (𝜑𝑋 ∈ ℝ)
4847adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑋 ∈ ℝ)
4948, 9readdcld 10662 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ℝ)
5046, 49ffvelrnd 6847 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℝ)
51 fourierdlem78.y . . . . . . . . . . . . . . 15 (𝜑𝑌 ∈ ℝ)
52 fourierdlem78.w . . . . . . . . . . . . . . 15 (𝜑𝑊 ∈ ℝ)
5351, 52ifcld 4514 . . . . . . . . . . . . . 14 (𝜑 → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℝ)
5453adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℝ)
5550, 54resubcld 11060 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) ∈ ℝ)
56 eleq1 2904 . . . . . . . . . . . . . . . 16 (𝑠 = 0 → (𝑠 ∈ (𝐴(,)𝐵) ↔ 0 ∈ (𝐴(,)𝐵)))
5756biimpac 479 . . . . . . . . . . . . . . 15 ((𝑠 ∈ (𝐴(,)𝐵) ∧ 𝑠 = 0) → 0 ∈ (𝐴(,)𝐵))
5857adantll 710 . . . . . . . . . . . . . 14 (((𝜑𝑠 ∈ (𝐴(,)𝐵)) ∧ 𝑠 = 0) → 0 ∈ (𝐴(,)𝐵))
59 fourierdlem78.nxelab . . . . . . . . . . . . . . 15 (𝜑 → ¬ 0 ∈ (𝐴(,)𝐵))
6059ad2antrr 722 . . . . . . . . . . . . . 14 (((𝜑𝑠 ∈ (𝐴(,)𝐵)) ∧ 𝑠 = 0) → ¬ 0 ∈ (𝐴(,)𝐵))
6158, 60pm2.65da 813 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ¬ 𝑠 = 0)
6261neqned 3027 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ≠ 0)
6355, 9, 62redivcld 11460 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠) ∈ ℝ)
6444, 63ifcld 4514 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)) ∈ ℝ)
65 fourierdlem78.h . . . . . . . . . . 11 𝐻 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))
6665fvmpt2 6774 . . . . . . . . . 10 ((𝑠 ∈ (-π[,]π) ∧ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)) ∈ ℝ) → (𝐻𝑠) = if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))
6739, 64, 66syl2anc 584 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐻𝑠) = if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))
6867, 64eqeltrd 2917 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐻𝑠) ∈ ℝ)
69 1red 10634 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 1 ∈ ℝ)
70 2re 11703 . . . . . . . . . . . . . 14 2 ∈ ℝ
7170a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 2 ∈ ℝ)
729rehalfcld 11876 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑠 / 2) ∈ ℝ)
7372resincld 15488 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (sin‘(𝑠 / 2)) ∈ ℝ)
7471, 73remulcld 10663 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (2 · (sin‘(𝑠 / 2))) ∈ ℝ)
7571recnd 10661 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 2 ∈ ℂ)
7673recnd 10661 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (sin‘(𝑠 / 2)) ∈ ℂ)
77 2ne0 11733 . . . . . . . . . . . . . 14 2 ≠ 0
7877a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 2 ≠ 0)
79 fourierdlem44 42304 . . . . . . . . . . . . . 14 ((𝑠 ∈ (-π[,]π) ∧ 𝑠 ≠ 0) → (sin‘(𝑠 / 2)) ≠ 0)
8039, 62, 79syl2anc 584 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (sin‘(𝑠 / 2)) ≠ 0)
8175, 76, 78, 80mulne0d 11284 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (2 · (sin‘(𝑠 / 2))) ≠ 0)
829, 74, 81redivcld 11460 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑠 / (2 · (sin‘(𝑠 / 2)))) ∈ ℝ)
8369, 82ifcld 4514 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))) ∈ ℝ)
84 fourierdlem78.k . . . . . . . . . . 11 𝐾 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
8584fvmpt2 6774 . . . . . . . . . 10 ((𝑠 ∈ (-π[,]π) ∧ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))) ∈ ℝ) → (𝐾𝑠) = if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
8639, 83, 85syl2anc 584 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐾𝑠) = if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
8786, 83eqeltrd 2917 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐾𝑠) ∈ ℝ)
8868, 87remulcld 10663 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐻𝑠) · (𝐾𝑠)) ∈ ℝ)
89 fourierdlem78.u . . . . . . . 8 𝑈 = (𝑠 ∈ (-π[,]π) ↦ ((𝐻𝑠) · (𝐾𝑠)))
9089fvmpt2 6774 . . . . . . 7 ((𝑠 ∈ (-π[,]π) ∧ ((𝐻𝑠) · (𝐾𝑠)) ∈ ℝ) → (𝑈𝑠) = ((𝐻𝑠) · (𝐾𝑠)))
9139, 88, 90syl2anc 584 . . . . . 6 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑈𝑠) = ((𝐻𝑠) · (𝐾𝑠)))
9291, 88eqeltrd 2917 . . . . 5 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑈𝑠) ∈ ℝ)
93 fourierdlem78.n . . . . . . . . . . 11 (𝜑𝑁 ∈ ℝ)
9493adantr 481 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑁 ∈ ℝ)
9571, 78rereccld 11459 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (1 / 2) ∈ ℝ)
9694, 95readdcld 10662 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑁 + (1 / 2)) ∈ ℝ)
9796, 9remulcld 10663 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝑁 + (1 / 2)) · 𝑠) ∈ ℝ)
9897resincld 15488 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (sin‘((𝑁 + (1 / 2)) · 𝑠)) ∈ ℝ)
99 fourierdlem78.s . . . . . . . 8 𝑆 = (𝑠 ∈ (-π[,]π) ↦ (sin‘((𝑁 + (1 / 2)) · 𝑠)))
10099fvmpt2 6774 . . . . . . 7 ((𝑠 ∈ (-π[,]π) ∧ (sin‘((𝑁 + (1 / 2)) · 𝑠)) ∈ ℝ) → (𝑆𝑠) = (sin‘((𝑁 + (1 / 2)) · 𝑠)))
10139, 98, 100syl2anc 584 . . . . . 6 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑆𝑠) = (sin‘((𝑁 + (1 / 2)) · 𝑠)))
102101, 98eqeltrd 2917 . . . . 5 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑆𝑠) ∈ ℝ)
10392, 102remulcld 10663 . . . 4 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝑈𝑠) · (𝑆𝑠)) ∈ ℝ)
104 eqid 2825 . . . 4 (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠)))
105103, 104fmptd 6873 . . 3 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠))):(𝐴(,)𝐵)⟶ℝ)
106 ax-resscn 10586 . . . . 5 ℝ ⊆ ℂ
107106a1i 11 . . . 4 (𝜑 → ℝ ⊆ ℂ)
10891mpteq2dva 5157 . . . . . 6 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝑈𝑠)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐻𝑠) · (𝐾𝑠))))
10961iffalsed 4480 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))
11055recnd 10661 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) ∈ ℂ)
1119recnd 10661 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℂ)
112110, 111, 62divrecd 11411 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠)))
11367, 109, 1123eqtrd 2864 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐻𝑠) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠)))
114113mpteq2dva 5157 . . . . . . . 8 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐻𝑠)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠))))
11550recnd 10661 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
11654recnd 10661 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℂ)
117115, 116negsubd 10995 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊)) = ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)))
118117eqcomd 2831 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) = ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊)))
119118mpteq2dva 5157 . . . . . . . . . 10 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊))))
12014, 47readdcld 10662 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝐴 + 𝑋) ∈ ℝ)
121120rexrd 10683 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐴 + 𝑋) ∈ ℝ*)
122121adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) ∈ ℝ*)
12322, 47readdcld 10662 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝐵 + 𝑋) ∈ ℝ)
124123rexrd 10683 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐵 + 𝑋) ∈ ℝ*)
125124adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐵 + 𝑋) ∈ ℝ*)
12614recnd 10661 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐴 ∈ ℂ)
12747recnd 10661 . . . . . . . . . . . . . . . . . . 19 (𝜑𝑋 ∈ ℂ)
128126, 127addcomd 10834 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝐴 + 𝑋) = (𝑋 + 𝐴))
129128adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) = (𝑋 + 𝐴))
13015, 9, 48, 27ltadd2dd 10791 . . . . . . . . . . . . . . . . 17 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) < (𝑋 + 𝑠))
131129, 130eqbrtrd 5084 . . . . . . . . . . . . . . . 16 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) < (𝑋 + 𝑠))
1329, 30, 48, 32ltadd2dd 10791 . . . . . . . . . . . . . . . . 17 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝑋 + 𝐵))
13322recnd 10661 . . . . . . . . . . . . . . . . . . 19 (𝜑𝐵 ∈ ℂ)
134127, 133addcomd 10834 . . . . . . . . . . . . . . . . . 18 (𝜑 → (𝑋 + 𝐵) = (𝐵 + 𝑋))
135134adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐵) = (𝐵 + 𝑋))
136132, 135breqtrd 5088 . . . . . . . . . . . . . . . 16 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝐵 + 𝑋))
137122, 125, 49, 131, 136eliood 41640 . . . . . . . . . . . . . . 15 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))
138 fvres 6685 . . . . . . . . . . . . . . 15 ((𝑋 + 𝑠) ∈ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) → ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)) = (𝐹‘(𝑋 + 𝑠)))
139137, 138syl 17 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)) = (𝐹‘(𝑋 + 𝑠)))
140139eqcomd 2831 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) = ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)))
141140mpteq2dva 5157 . . . . . . . . . . . 12 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠))))
142 ioosscn 41636 . . . . . . . . . . . . . 14 ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) ⊆ ℂ
143142a1i 11 . . . . . . . . . . . . 13 (𝜑 → ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) ⊆ ℂ)
144 fourierdlem78.fcn . . . . . . . . . . . . 13 (𝜑 → (𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋))) ∈ (((𝐴 + 𝑋)(,)(𝐵 + 𝑋))–cn→ℂ))
145 ioosscn 41636 . . . . . . . . . . . . . 14 (𝐴(,)𝐵) ⊆ ℂ
146145a1i 11 . . . . . . . . . . . . 13 (𝜑 → (𝐴(,)𝐵) ⊆ ℂ)
147143, 144, 146, 127, 137fourierdlem23 42283 . . . . . . . . . . . 12 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
148141, 147eqeltrd 2917 . . . . . . . . . . 11 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
149 0red 10636 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ)
15014ad2antrr 722 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
1518adantl 482 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
152 simplr 765 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ≤ 𝐴)
15327adantlr 711 . . . . . . . . . . . . . . . . 17 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
154149, 150, 151, 152, 153lelttrd 10790 . . . . . . . . . . . . . . . 16 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 < 𝑠)
155154iftrued 4477 . . . . . . . . . . . . . . 15 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) = 𝑌)
156155negeqd 10872 . . . . . . . . . . . . . 14 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -if(0 < 𝑠, 𝑌, 𝑊) = -𝑌)
157156mpteq2dva 5157 . . . . . . . . . . . . 13 ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌))
15851renegcld 11059 . . . . . . . . . . . . . . . 16 (𝜑 → -𝑌 ∈ ℝ)
159158recnd 10661 . . . . . . . . . . . . . . 15 (𝜑 → -𝑌 ∈ ℂ)
160 ssid 3992 . . . . . . . . . . . . . . . 16 ℂ ⊆ ℂ
161160a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → ℂ ⊆ ℂ)
162146, 159, 161constcncfg 42021 . . . . . . . . . . . . . 14 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌) ∈ ((𝐴(,)𝐵)–cn→ℂ))
163162adantr 481 . . . . . . . . . . . . 13 ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌) ∈ ((𝐴(,)𝐵)–cn→ℂ))
164157, 163eqeltrd 2917 . . . . . . . . . . . 12 ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
165 simpl 483 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝜑)
16614rexrd 10683 . . . . . . . . . . . . . . . 16 (𝜑𝐴 ∈ ℝ*)
167166ad2antrr 722 . . . . . . . . . . . . . . 15 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐴 ∈ ℝ*)
16823ad2antrr 722 . . . . . . . . . . . . . . 15 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐵 ∈ ℝ*)
169 0red 10636 . . . . . . . . . . . . . . 15 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 ∈ ℝ)
170 simpr 485 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → ¬ 0 ≤ 𝐴)
17114adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐴 ∈ ℝ)
172 0red 10636 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 0 ∈ ℝ)
173171, 172ltnled 10779 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → (𝐴 < 0 ↔ ¬ 0 ≤ 𝐴))
174170, 173mpbird 258 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐴 < 0)
175174adantr 481 . . . . . . . . . . . . . . 15 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐴 < 0)
176 simpr 485 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ¬ 𝐵 ≤ 0) → ¬ 𝐵 ≤ 0)
177 0red 10636 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 0 ∈ ℝ)
17822adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 𝐵 ∈ ℝ)
179177, 178ltnled 10779 . . . . . . . . . . . . . . . . 17 ((𝜑 ∧ ¬ 𝐵 ≤ 0) → (0 < 𝐵 ↔ ¬ 𝐵 ≤ 0))
180176, 179mpbird 258 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 0 < 𝐵)
181180adantlr 711 . . . . . . . . . . . . . . 15 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 < 𝐵)
182167, 168, 169, 175, 181eliood 41640 . . . . . . . . . . . . . 14 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 ∈ (𝐴(,)𝐵))
18359ad2antrr 722 . . . . . . . . . . . . . 14 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → ¬ 0 ∈ (𝐴(,)𝐵))
184182, 183condan 814 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐵 ≤ 0)
1858adantl 482 . . . . . . . . . . . . . . . . . 18 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
186 0red 10636 . . . . . . . . . . . . . . . . . 18 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ)
18722ad2antrr 722 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ)
18832adantlr 711 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
189 simplr 765 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ≤ 0)
190185, 187, 186, 188, 189ltletrd 10792 . . . . . . . . . . . . . . . . . 18 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 0)
191185, 186, 190ltnsymd 10781 . . . . . . . . . . . . . . . . 17 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ¬ 0 < 𝑠)
192191iffalsed 4480 . . . . . . . . . . . . . . . 16 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) = 𝑊)
193192negeqd 10872 . . . . . . . . . . . . . . 15 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -if(0 < 𝑠, 𝑌, 𝑊) = -𝑊)
194193mpteq2dva 5157 . . . . . . . . . . . . . 14 ((𝜑𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊))
19552recnd 10661 . . . . . . . . . . . . . . . . 17 (𝜑𝑊 ∈ ℂ)
196195negcld 10976 . . . . . . . . . . . . . . . 16 (𝜑 → -𝑊 ∈ ℂ)
197146, 196, 161constcncfg 42021 . . . . . . . . . . . . . . 15 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊) ∈ ((𝐴(,)𝐵)–cn→ℂ))
198197adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊) ∈ ((𝐴(,)𝐵)–cn→ℂ))
199194, 198eqeltrd 2917 . . . . . . . . . . . . 13 ((𝜑𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
200165, 184, 199syl2anc 584 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
201164, 200pm2.61dan 809 . . . . . . . . . . 11 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
202148, 201addcncf 42023 . . . . . . . . . 10 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
203119, 202eqeltrd 2917 . . . . . . . . 9 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
204 eqid 2825 . . . . . . . . . 10 (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) = (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠))
205 1cnd 10628 . . . . . . . . . . 11 (𝜑 → 1 ∈ ℂ)
206204cdivcncf 23442 . . . . . . . . . . 11 (1 ∈ ℂ → (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) ∈ ((ℂ ∖ {0})–cn→ℂ))
207205, 206syl 17 . . . . . . . . . 10 (𝜑 → (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) ∈ ((ℂ ∖ {0})–cn→ℂ))
208 velsn 4579 . . . . . . . . . . . . . 14 (𝑠 ∈ {0} ↔ 𝑠 = 0)
20961, 208sylnibr 330 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ¬ 𝑠 ∈ {0})
210111, 209eldifd 3950 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (ℂ ∖ {0}))
211210ralrimiva 3186 . . . . . . . . . . 11 (𝜑 → ∀𝑠 ∈ (𝐴(,)𝐵)𝑠 ∈ (ℂ ∖ {0}))
212 dfss3 3959 . . . . . . . . . . 11 ((𝐴(,)𝐵) ⊆ (ℂ ∖ {0}) ↔ ∀𝑠 ∈ (𝐴(,)𝐵)𝑠 ∈ (ℂ ∖ {0}))
213211, 212sylibr 235 . . . . . . . . . 10 (𝜑 → (𝐴(,)𝐵) ⊆ (ℂ ∖ {0}))
2149, 62rereccld 11459 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (1 / 𝑠) ∈ ℝ)
215214recnd 10661 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (1 / 𝑠) ∈ ℂ)
216204, 207, 213, 161, 215cncfmptssg 42020 . . . . . . . . 9 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (1 / 𝑠)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
217203, 216mulcncf 23964 . . . . . . . 8 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
218114, 217eqeltrd 2917 . . . . . . 7 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐻𝑠)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
21961iffalsed 4480 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))) = (𝑠 / (2 · (sin‘(𝑠 / 2)))))
22074recnd 10661 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (2 · (sin‘(𝑠 / 2))) ∈ ℂ)
221111, 220, 81divrecd 11411 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑠 / (2 · (sin‘(𝑠 / 2)))) = (𝑠 · (1 / (2 · (sin‘(𝑠 / 2))))))
22286, 219, 2213eqtrd 2864 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐾𝑠) = (𝑠 · (1 / (2 · (sin‘(𝑠 / 2))))))
223222mpteq2dva 5157 . . . . . . . 8 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐾𝑠)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝑠 · (1 / (2 · (sin‘(𝑠 / 2)))))))
224219, 221eqtr2d 2861 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑠 · (1 / (2 · (sin‘(𝑠 / 2))))) = if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
225224mpteq2dva 5157 . . . . . . . . 9 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝑠 · (1 / (2 · (sin‘(𝑠 / 2)))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2)))))))
226 eqid 2825 . . . . . . . . . 10 (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2)))))) = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
227 cncfss 23424 . . . . . . . . . . . 12 ((ℝ ⊆ ℂ ∧ ℂ ⊆ ℂ) → ((-π[,]π)–cn→ℝ) ⊆ ((-π[,]π)–cn→ℂ))
228106, 160, 227mp2an 688 . . . . . . . . . . 11 ((-π[,]π)–cn→ℝ) ⊆ ((-π[,]π)–cn→ℂ)
229226fourierdlem62 42321 . . . . . . . . . . . 12 (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2)))))) ∈ ((-π[,]π)–cn→ℝ)
230229a1i 11 . . . . . . . . . . 11 (𝜑 → (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2)))))) ∈ ((-π[,]π)–cn→ℝ))
231228, 230sseldi 3968 . . . . . . . . . 10 (𝜑 → (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2)))))) ∈ ((-π[,]π)–cn→ℂ))
23283recnd 10661 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))) ∈ ℂ)
233226, 231, 41, 161, 232cncfmptssg 42020 . . . . . . . . 9 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2)))))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
234225, 233eqeltrd 2917 . . . . . . . 8 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝑠 · (1 / (2 · (sin‘(𝑠 / 2)))))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
235223, 234eqeltrd 2917 . . . . . . 7 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐾𝑠)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
236218, 235mulcncf 23964 . . . . . 6 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐻𝑠) · (𝐾𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
237108, 236eqeltrd 2917 . . . . 5 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝑈𝑠)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
238101mpteq2dva 5157 . . . . . 6 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝑆𝑠)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (sin‘((𝑁 + (1 / 2)) · 𝑠))))
239 sincn 24949 . . . . . . . 8 sin ∈ (ℂ–cn→ℂ)
240239a1i 11 . . . . . . 7 (𝜑 → sin ∈ (ℂ–cn→ℂ))
241 halfre 11843 . . . . . . . . . . . 12 (1 / 2) ∈ ℝ
242241a1i 11 . . . . . . . . . . 11 (𝜑 → (1 / 2) ∈ ℝ)
24393, 242readdcld 10662 . . . . . . . . . 10 (𝜑 → (𝑁 + (1 / 2)) ∈ ℝ)
244243recnd 10661 . . . . . . . . 9 (𝜑 → (𝑁 + (1 / 2)) ∈ ℂ)
245146, 244, 161constcncfg 42021 . . . . . . . 8 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝑁 + (1 / 2))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
246146, 161idcncfg 42022 . . . . . . . 8 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ 𝑠) ∈ ((𝐴(,)𝐵)–cn→ℂ))
247245, 246mulcncf 23964 . . . . . . 7 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑁 + (1 / 2)) · 𝑠)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
248240, 247cncfmpt1f 23438 . . . . . 6 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (sin‘((𝑁 + (1 / 2)) · 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
249238, 248eqeltrd 2917 . . . . 5 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝑆𝑠)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
250237, 249mulcncf 23964 . . . 4 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
251 cncffvrn 23423 . . . 4 ((ℝ ⊆ ℂ ∧ (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ)) → ((𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℝ) ↔ (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠))):(𝐴(,)𝐵)⟶ℝ))
252107, 250, 251syl2anc 584 . . 3 (𝜑 → ((𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℝ) ↔ (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠))):(𝐴(,)𝐵)⟶ℝ))
253105, 252mpbird 258 . 2 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝑈𝑠) · (𝑆𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℝ))
25443, 253eqeltrd 2917 1 (𝜑 → (𝐺 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℝ))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 207  wa 396   = wceq 1530  wcel 2107  wne 3020  wral 3142  cdif 3936  wss 3939  ifcif 4469  {csn 4563   class class class wbr 5062  cmpt 5142  cres 5555  wf 6347  cfv 6351  (class class class)co 7151  cc 10527  cr 10528  0cc0 10529  1c1 10530   + caddc 10532   · cmul 10534  *cxr 10666   < clt 10667  cle 10668  cmin 10862  -cneg 10863   / cdiv 11289  2c2 11684  (,)cioo 12731  [,]cicc 12734  sincsin 15409  πcpi 15412  cnccncf 23401
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 1904  ax-6 1963  ax-7 2008  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2153  ax-12 2169  ax-13 2385  ax-ext 2797  ax-rep 5186  ax-sep 5199  ax-nul 5206  ax-pow 5262  ax-pr 5325  ax-un 7454  ax-inf2 9096  ax-cnex 10585  ax-resscn 10586  ax-1cn 10587  ax-icn 10588  ax-addcl 10589  ax-addrcl 10590  ax-mulcl 10591  ax-mulrcl 10592  ax-mulcom 10593  ax-addass 10594  ax-mulass 10595  ax-distr 10596  ax-i2m1 10597  ax-1ne0 10598  ax-1rid 10599  ax-rnegex 10600  ax-rrecex 10601  ax-cnre 10602  ax-pre-lttri 10603  ax-pre-lttrn 10604  ax-pre-ltadd 10605  ax-pre-mulgt0 10606  ax-pre-sup 10607  ax-addf 10608  ax-mulf 10609
This theorem depends on definitions:  df-bi 208  df-an 397  df-or 844  df-3or 1082  df-3an 1083  df-tru 1533  df-fal 1543  df-ex 1774  df-nf 1778  df-sb 2063  df-mo 2619  df-eu 2651  df-clab 2804  df-cleq 2818  df-clel 2897  df-nfc 2967  df-ne 3021  df-nel 3128  df-ral 3147  df-rex 3148  df-reu 3149  df-rmo 3150  df-rab 3151  df-v 3501  df-sbc 3776  df-csb 3887  df-dif 3942  df-un 3944  df-in 3946  df-ss 3955  df-pss 3957  df-nul 4295  df-if 4470  df-pw 4543  df-sn 4564  df-pr 4566  df-tp 4568  df-op 4570  df-uni 4837  df-int 4874  df-iun 4918  df-iin 4919  df-br 5063  df-opab 5125  df-mpt 5143  df-tr 5169  df-id 5458  df-eprel 5463  df-po 5472  df-so 5473  df-fr 5512  df-se 5513  df-we 5514  df-xp 5559  df-rel 5560  df-cnv 5561  df-co 5562  df-dm 5563  df-rn 5564  df-res 5565  df-ima 5566  df-pred 6145  df-ord 6191  df-on 6192  df-lim 6193  df-suc 6194  df-iota 6311  df-fun 6353  df-fn 6354  df-f 6355  df-f1 6356  df-fo 6357  df-f1o 6358  df-fv 6359  df-isom 6360  df-riota 7109  df-ov 7154  df-oprab 7155  df-mpo 7156  df-of 7402  df-om 7572  df-1st 7683  df-2nd 7684  df-supp 7825  df-wrecs 7941  df-recs 8002  df-rdg 8040  df-1o 8096  df-2o 8097  df-oadd 8100  df-er 8282  df-map 8401  df-pm 8402  df-ixp 8454  df-en 8502  df-dom 8503  df-sdom 8504  df-fin 8505  df-fsupp 8826  df-fi 8867  df-sup 8898  df-inf 8899  df-oi 8966  df-card 9360  df-pnf 10669  df-mnf 10670  df-xr 10671  df-ltxr 10672  df-le 10673  df-sub 10864  df-neg 10865  df-div 11290  df-nn 11631  df-2 11692  df-3 11693  df-4 11694  df-5 11695  df-6 11696  df-7 11697  df-8 11698  df-9 11699  df-n0 11890  df-z 11974  df-dec 12091  df-uz 12236  df-q 12341  df-rp 12383  df-xneg 12500  df-xadd 12501  df-xmul 12502  df-ioo 12735  df-ioc 12736  df-ico 12737  df-icc 12738  df-fz 12886  df-fzo 13027  df-fl 13155  df-mod 13231  df-seq 13363  df-exp 13423  df-fac 13627  df-bc 13656  df-hash 13684  df-shft 14419  df-cj 14451  df-re 14452  df-im 14453  df-sqrt 14587  df-abs 14588  df-limsup 14821  df-clim 14838  df-rlim 14839  df-sum 15036  df-ef 15413  df-sin 15415  df-cos 15416  df-pi 15418  df-struct 16477  df-ndx 16478  df-slot 16479  df-base 16481  df-sets 16482  df-ress 16483  df-plusg 16570  df-mulr 16571  df-starv 16572  df-sca 16573  df-vsca 16574  df-ip 16575  df-tset 16576  df-ple 16577  df-ds 16579  df-unif 16580  df-hom 16581  df-cco 16582  df-rest 16688  df-topn 16689  df-0g 16707  df-gsum 16708  df-topgen 16709  df-pt 16710  df-prds 16713  df-xrs 16767  df-qtop 16772  df-imas 16773  df-xps 16775  df-mre 16849  df-mrc 16850  df-acs 16852  df-mgm 17844  df-sgrp 17892  df-mnd 17903  df-submnd 17947  df-mulg 18157  df-cntz 18379  df-cmn 18830  df-psmet 20455  df-xmet 20456  df-met 20457  df-bl 20458  df-mopn 20459  df-fbas 20460  df-fg 20461  df-cnfld 20464  df-top 21420  df-topon 21437  df-topsp 21459  df-bases 21472  df-cld 21545  df-ntr 21546  df-cls 21547  df-nei 21624  df-lp 21662  df-perf 21663  df-cn 21753  df-cnp 21754  df-t1 21840  df-haus 21841  df-cmp 21913  df-tx 22088  df-hmeo 22281  df-fil 22372  df-fm 22464  df-flim 22465  df-flf 22466  df-xms 22847  df-ms 22848  df-tms 22849  df-cncf 23403  df-limc 24381  df-dv 24382
This theorem is referenced by:  fourierdlem88  42347
  Copyright terms: Public domain W3C validator