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

Theorem fourierdlem40 41863
Description: 𝐻 is a continuous function on any partition interval. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem40.f (𝜑𝐹:ℝ⟶ℝ)
fourierdlem40.a (𝜑𝐴 ∈ (-π[,]π))
fourierdlem40.b (𝜑𝐵 ∈ (-π[,]π))
fourierdlem40.x (𝜑𝑋 ∈ ℝ)
fourierdlem40.nxelab (𝜑 → ¬ 0 ∈ (𝐴(,)𝐵))
fourierdlem40.fcn (𝜑 → (𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋))) ∈ (((𝐴 + 𝑋)(,)(𝐵 + 𝑋))–cn→ℂ))
fourierdlem40.y (𝜑𝑌 ∈ ℝ)
fourierdlem40.w (𝜑𝑊 ∈ ℝ)
fourierdlem40.h 𝐻 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))
Assertion
Ref Expression
fourierdlem40 (𝜑 → (𝐻 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
Distinct variable groups:   𝐴,𝑠   𝐵,𝑠   𝐹,𝑠   𝑊,𝑠   𝑋,𝑠   𝑌,𝑠   𝜑,𝑠
Allowed substitution hint:   𝐻(𝑠)

Proof of Theorem fourierdlem40
StepHypRef Expression
1 fourierdlem40.h . . . . 5 𝐻 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))
21reseq1i 5685 . . . 4 (𝐻 ↾ (𝐴(,)𝐵)) = ((𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) ↾ (𝐴(,)𝐵))
32a1i 11 . . 3 (𝜑 → (𝐻 ↾ (𝐴(,)𝐵)) = ((𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) ↾ (𝐴(,)𝐵)))
4 pire 24741 . . . . . . . . 9 π ∈ ℝ
54renegcli 10742 . . . . . . . 8 -π ∈ ℝ
65a1i 11 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → -π ∈ ℝ)
74a1i 11 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → π ∈ ℝ)
8 elioore 12578 . . . . . . . 8 (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ ℝ)
98adantl 474 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
105a1i 11 . . . . . . . . . . . 12 (𝜑 → -π ∈ ℝ)
114a1i 11 . . . . . . . . . . . 12 (𝜑 → π ∈ ℝ)
1210, 11iccssred 41211 . . . . . . . . . . 11 (𝜑 → (-π[,]π) ⊆ ℝ)
13 fourierdlem40.a . . . . . . . . . . 11 (𝜑𝐴 ∈ (-π[,]π))
1412, 13sseldd 3853 . . . . . . . . . 10 (𝜑𝐴 ∈ ℝ)
1514adantr 473 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
165, 4elicc2i 12612 . . . . . . . . . . . 12 (𝐴 ∈ (-π[,]π) ↔ (𝐴 ∈ ℝ ∧ -π ≤ 𝐴𝐴 ≤ π))
1716simp2bi 1126 . . . . . . . . . . 11 (𝐴 ∈ (-π[,]π) → -π ≤ 𝐴)
1813, 17syl 17 . . . . . . . . . 10 (𝜑 → -π ≤ 𝐴)
1918adantr 473 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → -π ≤ 𝐴)
2015rexrd 10484 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ*)
21 fourierdlem40.b . . . . . . . . . . . . 13 (𝜑𝐵 ∈ (-π[,]π))
2212, 21sseldd 3853 . . . . . . . . . . . 12 (𝜑𝐵 ∈ ℝ)
2322rexrd 10484 . . . . . . . . . . 11 (𝜑𝐵 ∈ ℝ*)
2423adantr 473 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ*)
25 simpr 477 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴(,)𝐵))
26 ioogtlb 41201 . . . . . . . . . 10 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
2720, 24, 25, 26syl3anc 1351 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
286, 15, 9, 19, 27lelttrd 10592 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → -π < 𝑠)
296, 9, 28ltled 10582 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → -π ≤ 𝑠)
3022adantr 473 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ)
31 iooltub 41217 . . . . . . . . . 10 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ*𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
3220, 24, 25, 31syl3anc 1351 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
335, 4elicc2i 12612 . . . . . . . . . . . 12 (𝐵 ∈ (-π[,]π) ↔ (𝐵 ∈ ℝ ∧ -π ≤ 𝐵𝐵 ≤ π))
3433simp3bi 1127 . . . . . . . . . . 11 (𝐵 ∈ (-π[,]π) → 𝐵 ≤ π)
3521, 34syl 17 . . . . . . . . . 10 (𝜑𝐵 ≤ π)
3635adantr 473 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ≤ π)
379, 30, 7, 32, 36ltletrd 10594 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < π)
389, 7, 37ltled 10582 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ≤ π)
396, 7, 9, 29, 38eliccd 41210 . . . . . 6 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (-π[,]π))
4039ex 405 . . . . 5 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ (-π[,]π)))
4140ssrdv 3858 . . . 4 (𝜑 → (𝐴(,)𝐵) ⊆ (-π[,]π))
4241resmptd 5747 . . 3 (𝜑 → ((𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))))
43 eleq1 2847 . . . . . . . . 9 (𝑠 = 0 → (𝑠 ∈ (𝐴(,)𝐵) ↔ 0 ∈ (𝐴(,)𝐵)))
4443biimpac 471 . . . . . . . 8 ((𝑠 ∈ (𝐴(,)𝐵) ∧ 𝑠 = 0) → 0 ∈ (𝐴(,)𝐵))
4544adantll 701 . . . . . . 7 (((𝜑𝑠 ∈ (𝐴(,)𝐵)) ∧ 𝑠 = 0) → 0 ∈ (𝐴(,)𝐵))
46 fourierdlem40.nxelab . . . . . . . 8 (𝜑 → ¬ 0 ∈ (𝐴(,)𝐵))
4746ad2antrr 713 . . . . . . 7 (((𝜑𝑠 ∈ (𝐴(,)𝐵)) ∧ 𝑠 = 0) → ¬ 0 ∈ (𝐴(,)𝐵))
4845, 47pm2.65da 804 . . . . . 6 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ¬ 𝑠 = 0)
4948iffalsed 4355 . . . . 5 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))
50 fourierdlem40.f . . . . . . . . . 10 (𝜑𝐹:ℝ⟶ℝ)
5150adantr 473 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝐹:ℝ⟶ℝ)
52 fourierdlem40.x . . . . . . . . . . 11 (𝜑𝑋 ∈ ℝ)
5352adantr 473 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑋 ∈ ℝ)
5453, 9readdcld 10463 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ℝ)
5551, 54ffvelrnd 6671 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℝ)
56 fourierdlem40.y . . . . . . . . . 10 (𝜑𝑌 ∈ ℝ)
57 fourierdlem40.w . . . . . . . . . 10 (𝜑𝑊 ∈ ℝ)
5856, 57ifcld 4389 . . . . . . . . 9 (𝜑 → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℝ)
5958adantr 473 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℝ)
6055, 59resubcld 10863 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) ∈ ℝ)
6160recnd 10462 . . . . . 6 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) ∈ ℂ)
629recnd 10462 . . . . . 6 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℂ)
6348neqned 2968 . . . . . 6 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ≠ 0)
6461, 62, 63divrecd 11214 . . . . 5 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠)))
6549, 64eqtrd 2808 . . . 4 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠)))
6665mpteq2dva 5016 . . 3 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠))))
673, 42, 663eqtrd 2812 . 2 (𝜑 → (𝐻 ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠))))
6855recnd 10462 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
6959recnd 10462 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℂ)
7068, 69negsubd 10798 . . . . . 6 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊)) = ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)))
7170eqcomd 2778 . . . . 5 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) = ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊)))
7271mpteq2dva 5016 . . . 4 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊))))
7314, 52readdcld 10463 . . . . . . . . . . . 12 (𝜑 → (𝐴 + 𝑋) ∈ ℝ)
7473rexrd 10484 . . . . . . . . . . 11 (𝜑 → (𝐴 + 𝑋) ∈ ℝ*)
7574adantr 473 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) ∈ ℝ*)
7622, 52readdcld 10463 . . . . . . . . . . . 12 (𝜑 → (𝐵 + 𝑋) ∈ ℝ)
7776rexrd 10484 . . . . . . . . . . 11 (𝜑 → (𝐵 + 𝑋) ∈ ℝ*)
7877adantr 473 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐵 + 𝑋) ∈ ℝ*)
7914recnd 10462 . . . . . . . . . . . . 13 (𝜑𝐴 ∈ ℂ)
8052recnd 10462 . . . . . . . . . . . . 13 (𝜑𝑋 ∈ ℂ)
8179, 80addcomd 10636 . . . . . . . . . . . 12 (𝜑 → (𝐴 + 𝑋) = (𝑋 + 𝐴))
8281adantr 473 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) = (𝑋 + 𝐴))
8315, 9, 53, 27ltadd2dd 10593 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) < (𝑋 + 𝑠))
8482, 83eqbrtrd 4945 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐴 + 𝑋) < (𝑋 + 𝑠))
859, 30, 53, 32ltadd2dd 10593 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝑋 + 𝐵))
8622recnd 10462 . . . . . . . . . . . . 13 (𝜑𝐵 ∈ ℂ)
8780, 86addcomd 10636 . . . . . . . . . . . 12 (𝜑 → (𝑋 + 𝐵) = (𝐵 + 𝑋))
8887adantr 473 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐵) = (𝐵 + 𝑋))
8985, 88breqtrd 4949 . . . . . . . . . 10 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝐵 + 𝑋))
9075, 78, 54, 84, 89eliood 41204 . . . . . . . . 9 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))
91 fvres 6512 . . . . . . . . 9 ((𝑋 + 𝑠) ∈ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) → ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)) = (𝐹‘(𝑋 + 𝑠)))
9290, 91syl 17 . . . . . . . 8 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)) = (𝐹‘(𝑋 + 𝑠)))
9392eqcomd 2778 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) = ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠)))
9493mpteq2dva 5016 . . . . . 6 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠))))
95 ioosscn 41200 . . . . . . . 8 ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) ⊆ ℂ
9695a1i 11 . . . . . . 7 (𝜑 → ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)) ⊆ ℂ)
97 fourierdlem40.fcn . . . . . . 7 (𝜑 → (𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋))) ∈ (((𝐴 + 𝑋)(,)(𝐵 + 𝑋))–cn→ℂ))
98 ioosscn 41200 . . . . . . . 8 (𝐴(,)𝐵) ⊆ ℂ
9998a1i 11 . . . . . . 7 (𝜑 → (𝐴(,)𝐵) ⊆ ℂ)
10096, 97, 99, 80, 90fourierdlem23 41846 . . . . . 6 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹 ↾ ((𝐴 + 𝑋)(,)(𝐵 + 𝑋)))‘(𝑋 + 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
10194, 100eqeltrd 2860 . . . . 5 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
102 0red 10437 . . . . . . . . . . 11 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ)
10314ad2antrr 713 . . . . . . . . . . 11 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ)
1048adantl 474 . . . . . . . . . . 11 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
105 simplr 756 . . . . . . . . . . 11 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ≤ 𝐴)
10627adantlr 702 . . . . . . . . . . 11 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠)
107102, 103, 104, 105, 106lelttrd 10592 . . . . . . . . . 10 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 < 𝑠)
108107iftrued 4352 . . . . . . . . 9 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) = 𝑌)
109108negeqd 10674 . . . . . . . 8 (((𝜑 ∧ 0 ≤ 𝐴) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -if(0 < 𝑠, 𝑌, 𝑊) = -𝑌)
110109mpteq2dva 5016 . . . . . . 7 ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌))
11156renegcld 10862 . . . . . . . . . 10 (𝜑 → -𝑌 ∈ ℝ)
112111recnd 10462 . . . . . . . . 9 (𝜑 → -𝑌 ∈ ℂ)
113 ssid 3873 . . . . . . . . . 10 ℂ ⊆ ℂ
114113a1i 11 . . . . . . . . 9 (𝜑 → ℂ ⊆ ℂ)
11599, 112, 114constcncfg 41584 . . . . . . . 8 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌) ∈ ((𝐴(,)𝐵)–cn→ℂ))
116115adantr 473 . . . . . . 7 ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑌) ∈ ((𝐴(,)𝐵)–cn→ℂ))
117110, 116eqeltrd 2860 . . . . . 6 ((𝜑 ∧ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
11814rexrd 10484 . . . . . . . . . 10 (𝜑𝐴 ∈ ℝ*)
119118ad2antrr 713 . . . . . . . . 9 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐴 ∈ ℝ*)
12023ad2antrr 713 . . . . . . . . 9 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐵 ∈ ℝ*)
121 0red 10437 . . . . . . . . 9 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 ∈ ℝ)
122 simpr 477 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → ¬ 0 ≤ 𝐴)
12314adantr 473 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐴 ∈ ℝ)
124 0red 10437 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 0 ∈ ℝ)
125123, 124ltnled 10581 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → (𝐴 < 0 ↔ ¬ 0 ≤ 𝐴))
126122, 125mpbird 249 . . . . . . . . . 10 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐴 < 0)
127126adantr 473 . . . . . . . . 9 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 𝐴 < 0)
128 simpr 477 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐵 ≤ 0) → ¬ 𝐵 ≤ 0)
129 0red 10437 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 0 ∈ ℝ)
13022adantr 473 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 𝐵 ∈ ℝ)
131129, 130ltnled 10581 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝐵 ≤ 0) → (0 < 𝐵 ↔ ¬ 𝐵 ≤ 0))
132128, 131mpbird 249 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝐵 ≤ 0) → 0 < 𝐵)
133132adantlr 702 . . . . . . . . 9 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 < 𝐵)
134119, 120, 121, 127, 133eliood 41204 . . . . . . . 8 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → 0 ∈ (𝐴(,)𝐵))
13546ad2antrr 713 . . . . . . . 8 (((𝜑 ∧ ¬ 0 ≤ 𝐴) ∧ ¬ 𝐵 ≤ 0) → ¬ 0 ∈ (𝐴(,)𝐵))
136134, 135condan 805 . . . . . . 7 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → 𝐵 ≤ 0)
1378adantl 474 . . . . . . . . . . . 12 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ)
138 0red 10437 . . . . . . . . . . . 12 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ)
13922ad2antrr 713 . . . . . . . . . . . . 13 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ)
14032adantlr 702 . . . . . . . . . . . . 13 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵)
141 simplr 756 . . . . . . . . . . . . 13 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ≤ 0)
142137, 139, 138, 140, 141ltletrd 10594 . . . . . . . . . . . 12 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 0)
143137, 138, 142ltnsymd 10583 . . . . . . . . . . 11 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ¬ 0 < 𝑠)
144143iffalsed 4355 . . . . . . . . . 10 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → if(0 < 𝑠, 𝑌, 𝑊) = 𝑊)
145144negeqd 10674 . . . . . . . . 9 (((𝜑𝐵 ≤ 0) ∧ 𝑠 ∈ (𝐴(,)𝐵)) → -if(0 < 𝑠, 𝑌, 𝑊) = -𝑊)
146145mpteq2dva 5016 . . . . . . . 8 ((𝜑𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊))
14757recnd 10462 . . . . . . . . . . 11 (𝜑𝑊 ∈ ℂ)
148147negcld 10779 . . . . . . . . . 10 (𝜑 → -𝑊 ∈ ℂ)
14999, 148, 114constcncfg 41584 . . . . . . . . 9 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊) ∈ ((𝐴(,)𝐵)–cn→ℂ))
150149adantr 473 . . . . . . . 8 ((𝜑𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -𝑊) ∈ ((𝐴(,)𝐵)–cn→ℂ))
151146, 150eqeltrd 2860 . . . . . . 7 ((𝜑𝐵 ≤ 0) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
152136, 151syldan 582 . . . . . 6 ((𝜑 ∧ ¬ 0 ≤ 𝐴) → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
153117, 152pm2.61dan 800 . . . . 5 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ -if(0 < 𝑠, 𝑌, 𝑊)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
154101, 153addcncf 41586 . . . 4 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) + -if(0 < 𝑠, 𝑌, 𝑊))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
15572, 154eqeltrd 2860 . . 3 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
156 eqid 2772 . . . 4 (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) = (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠))
157 1cnd 10428 . . . . 5 (𝜑 → 1 ∈ ℂ)
158156cdivcncf 23222 . . . . 5 (1 ∈ ℂ → (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) ∈ ((ℂ ∖ {0})–cn→ℂ))
159157, 158syl 17 . . . 4 (𝜑 → (𝑠 ∈ (ℂ ∖ {0}) ↦ (1 / 𝑠)) ∈ ((ℂ ∖ {0})–cn→ℂ))
160 velsn 4451 . . . . . . . 8 (𝑠 ∈ {0} ↔ 𝑠 = 0)
16148, 160sylnibr 321 . . . . . . 7 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → ¬ 𝑠 ∈ {0})
16262, 161eldifd 3834 . . . . . 6 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (ℂ ∖ {0}))
163162ralrimiva 3126 . . . . 5 (𝜑 → ∀𝑠 ∈ (𝐴(,)𝐵)𝑠 ∈ (ℂ ∖ {0}))
164 dfss3 3841 . . . . 5 ((𝐴(,)𝐵) ⊆ (ℂ ∖ {0}) ↔ ∀𝑠 ∈ (𝐴(,)𝐵)𝑠 ∈ (ℂ ∖ {0}))
165163, 164sylibr 226 . . . 4 (𝜑 → (𝐴(,)𝐵) ⊆ (ℂ ∖ {0}))
1669, 63rereccld 11262 . . . . 5 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (1 / 𝑠) ∈ ℝ)
167166recnd 10462 . . . 4 ((𝜑𝑠 ∈ (𝐴(,)𝐵)) → (1 / 𝑠) ∈ ℂ)
168156, 159, 165, 114, 167cncfmptssg 41583 . . 3 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (1 / 𝑠)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
169155, 168mulcncf 23744 . 2 (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · (1 / 𝑠))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
17067, 169eqeltrd 2860 1 (𝜑 → (𝐻 ↾ (𝐴(,)𝐵)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wa 387   = wceq 1507  wcel 2050  wral 3082  cdif 3820  wss 3823  ifcif 4344  {csn 4435   class class class wbr 4923  cmpt 5002  cres 5403  wf 6178  cfv 6182  (class class class)co 6970  cc 10327  cr 10328  0cc0 10329  1c1 10330   + caddc 10332   · cmul 10334  *cxr 10467   < clt 10468  cle 10469  cmin 10664  -cneg 10665   / cdiv 11092  (,)cioo 12548  [,]cicc 12551  πcpi 15274  cnccncf 23181
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1758  ax-4 1772  ax-5 1869  ax-6 1928  ax-7 1965  ax-8 2052  ax-9 2059  ax-10 2079  ax-11 2093  ax-12 2106  ax-13 2301  ax-ext 2744  ax-rep 5043  ax-sep 5054  ax-nul 5061  ax-pow 5113  ax-pr 5180  ax-un 7273  ax-inf2 8892  ax-cnex 10385  ax-resscn 10386  ax-1cn 10387  ax-icn 10388  ax-addcl 10389  ax-addrcl 10390  ax-mulcl 10391  ax-mulrcl 10392  ax-mulcom 10393  ax-addass 10394  ax-mulass 10395  ax-distr 10396  ax-i2m1 10397  ax-1ne0 10398  ax-1rid 10399  ax-rnegex 10400  ax-rrecex 10401  ax-cnre 10402  ax-pre-lttri 10403  ax-pre-lttrn 10404  ax-pre-ltadd 10405  ax-pre-mulgt0 10406  ax-pre-sup 10407  ax-addf 10408  ax-mulf 10409
This theorem depends on definitions:  df-bi 199  df-an 388  df-or 834  df-3or 1069  df-3an 1070  df-tru 1510  df-fal 1520  df-ex 1743  df-nf 1747  df-sb 2016  df-mo 2547  df-eu 2584  df-clab 2753  df-cleq 2765  df-clel 2840  df-nfc 2912  df-ne 2962  df-nel 3068  df-ral 3087  df-rex 3088  df-reu 3089  df-rmo 3090  df-rab 3091  df-v 3411  df-sbc 3676  df-csb 3781  df-dif 3826  df-un 3828  df-in 3830  df-ss 3837  df-pss 3839  df-nul 4173  df-if 4345  df-pw 4418  df-sn 4436  df-pr 4438  df-tp 4440  df-op 4442  df-uni 4707  df-int 4744  df-iun 4788  df-iin 4789  df-br 4924  df-opab 4986  df-mpt 5003  df-tr 5025  df-id 5306  df-eprel 5311  df-po 5320  df-so 5321  df-fr 5360  df-se 5361  df-we 5362  df-xp 5407  df-rel 5408  df-cnv 5409  df-co 5410  df-dm 5411  df-rn 5412  df-res 5413  df-ima 5414  df-pred 5980  df-ord 6026  df-on 6027  df-lim 6028  df-suc 6029  df-iota 6146  df-fun 6184  df-fn 6185  df-f 6186  df-f1 6187  df-fo 6188  df-f1o 6189  df-fv 6190  df-isom 6191  df-riota 6931  df-ov 6973  df-oprab 6974  df-mpo 6975  df-of 7221  df-om 7391  df-1st 7495  df-2nd 7496  df-supp 7628  df-wrecs 7744  df-recs 7806  df-rdg 7844  df-1o 7899  df-2o 7900  df-oadd 7903  df-er 8083  df-map 8202  df-pm 8203  df-ixp 8254  df-en 8301  df-dom 8302  df-sdom 8303  df-fin 8304  df-fsupp 8623  df-fi 8664  df-sup 8695  df-inf 8696  df-oi 8763  df-card 9156  df-cda 9382  df-pnf 10470  df-mnf 10471  df-xr 10472  df-ltxr 10473  df-le 10474  df-sub 10666  df-neg 10667  df-div 11093  df-nn 11434  df-2 11497  df-3 11498  df-4 11499  df-5 11500  df-6 11501  df-7 11502  df-8 11503  df-9 11504  df-n0 11702  df-z 11788  df-dec 11906  df-uz 12053  df-q 12157  df-rp 12199  df-xneg 12318  df-xadd 12319  df-xmul 12320  df-ioo 12552  df-ioc 12553  df-ico 12554  df-icc 12555  df-fz 12703  df-fzo 12844  df-fl 12971  df-seq 13179  df-exp 13239  df-fac 13443  df-bc 13472  df-hash 13500  df-shft 14281  df-cj 14313  df-re 14314  df-im 14315  df-sqrt 14449  df-abs 14450  df-limsup 14683  df-clim 14700  df-rlim 14701  df-sum 14898  df-ef 15275  df-sin 15277  df-cos 15278  df-pi 15280  df-struct 16335  df-ndx 16336  df-slot 16337  df-base 16339  df-sets 16340  df-ress 16341  df-plusg 16428  df-mulr 16429  df-starv 16430  df-sca 16431  df-vsca 16432  df-ip 16433  df-tset 16434  df-ple 16435  df-ds 16437  df-unif 16438  df-hom 16439  df-cco 16440  df-rest 16546  df-topn 16547  df-0g 16565  df-gsum 16566  df-topgen 16567  df-pt 16568  df-prds 16571  df-xrs 16625  df-qtop 16630  df-imas 16631  df-xps 16633  df-mre 16709  df-mrc 16710  df-acs 16712  df-mgm 17704  df-sgrp 17746  df-mnd 17757  df-submnd 17798  df-mulg 18006  df-cntz 18212  df-cmn 18662  df-psmet 20233  df-xmet 20234  df-met 20235  df-bl 20236  df-mopn 20237  df-fbas 20238  df-fg 20239  df-cnfld 20242  df-top 21200  df-topon 21217  df-topsp 21239  df-bases 21252  df-cld 21325  df-ntr 21326  df-cls 21327  df-nei 21404  df-lp 21442  df-perf 21443  df-cn 21533  df-cnp 21534  df-haus 21621  df-tx 21868  df-hmeo 22061  df-fil 22152  df-fm 22244  df-flim 22245  df-flf 22246  df-xms 22627  df-ms 22628  df-tms 22629  df-cncf 23183  df-limc 24161  df-dv 24162
This theorem is referenced by:  fourierdlem103  41925  fourierdlem104  41926
  Copyright terms: Public domain W3C validator