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

Theorem fourierdlem39 39039
 Description: Integration by parts of ∫(𝐴(,)𝐵)((𝐹‘𝑥) · (sin‘(𝑅 · 𝑥))) d𝑥 (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem39.a (𝜑𝐴 ∈ ℝ)
fourierdlem39.b (𝜑𝐵 ∈ ℝ)
fourierdlem39.aleb (𝜑𝐴𝐵)
fourierdlem39.f (𝜑𝐹 ∈ ((𝐴[,]𝐵)–cn→ℂ))
fourierdlem39.g 𝐺 = (ℝ D 𝐹)
fourierdlem39.gcn (𝜑𝐺 ∈ ((𝐴(,)𝐵)–cn→ℂ))
fourierdlem39.gbd (𝜑 → ∃𝑦 ∈ ℝ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦)
fourierdlem39.r (𝜑𝑅 ∈ ℝ+)
Assertion
Ref Expression
fourierdlem39 (𝜑 → ∫(𝐴(,)𝐵)((𝐹𝑥) · (sin‘(𝑅 · 𝑥))) d𝑥 = ((((𝐹𝐵) · -((cos‘(𝑅 · 𝐵)) / 𝑅)) − ((𝐹𝐴) · -((cos‘(𝑅 · 𝐴)) / 𝑅))) − ∫(𝐴(,)𝐵)((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) d𝑥))
Distinct variable groups:   𝑥,𝐴,𝑦   𝑥,𝐵,𝑦   𝑥,𝐹,𝑦   𝑥,𝐺,𝑦   𝑥,𝑅,𝑦   𝜑,𝑥,𝑦

Proof of Theorem fourierdlem39
Dummy variables 𝑤 𝑧 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fourierdlem39.a . 2 (𝜑𝐴 ∈ ℝ)
2 fourierdlem39.b . 2 (𝜑𝐵 ∈ ℝ)
3 fourierdlem39.aleb . 2 (𝜑𝐴𝐵)
4 fourierdlem39.f . . . . . 6 (𝜑𝐹 ∈ ((𝐴[,]𝐵)–cn→ℂ))
5 cncff 22504 . . . . . 6 (𝐹 ∈ ((𝐴[,]𝐵)–cn→ℂ) → 𝐹:(𝐴[,]𝐵)⟶ℂ)
64, 5syl 17 . . . . 5 (𝜑𝐹:(𝐴[,]𝐵)⟶ℂ)
76feqmptd 6159 . . . 4 (𝜑𝐹 = (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)))
87eqcomd 2616 . . 3 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)) = 𝐹)
98, 4eqeltrd 2688 . 2 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)) ∈ ((𝐴[,]𝐵)–cn→ℂ))
10 coscn 24003 . . . . . 6 cos ∈ (ℂ–cn→ℂ)
1110a1i 11 . . . . 5 (𝜑 → cos ∈ (ℂ–cn→ℂ))
121, 2iccssred 38574 . . . . . . . 8 (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
13 ax-resscn 9872 . . . . . . . 8 ℝ ⊆ ℂ
1412, 13syl6ss 3580 . . . . . . 7 (𝜑 → (𝐴[,]𝐵) ⊆ ℂ)
15 fourierdlem39.r . . . . . . . . 9 (𝜑𝑅 ∈ ℝ+)
1615rpred 11748 . . . . . . . 8 (𝜑𝑅 ∈ ℝ)
1716recnd 9947 . . . . . . 7 (𝜑𝑅 ∈ ℂ)
18 ssid 3587 . . . . . . . 8 ℂ ⊆ ℂ
1918a1i 11 . . . . . . 7 (𝜑 → ℂ ⊆ ℂ)
2014, 17, 19constcncfg 38756 . . . . . 6 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ 𝑅) ∈ ((𝐴[,]𝐵)–cn→ℂ))
2114, 19idcncfg 38757 . . . . . 6 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ 𝑥) ∈ ((𝐴[,]𝐵)–cn→ℂ))
2220, 21mulcncf 23023 . . . . 5 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝑅 · 𝑥)) ∈ ((𝐴[,]𝐵)–cn→ℂ))
2311, 22cncfmpt1f 22524 . . . 4 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ (cos‘(𝑅 · 𝑥))) ∈ ((𝐴[,]𝐵)–cn→ℂ))
2415rpcnne0d 11757 . . . . . 6 (𝜑 → (𝑅 ∈ ℂ ∧ 𝑅 ≠ 0))
25 eldifsn 4260 . . . . . 6 (𝑅 ∈ (ℂ ∖ {0}) ↔ (𝑅 ∈ ℂ ∧ 𝑅 ≠ 0))
2624, 25sylibr 223 . . . . 5 (𝜑𝑅 ∈ (ℂ ∖ {0}))
27 difssd 3700 . . . . 5 (𝜑 → (ℂ ∖ {0}) ⊆ ℂ)
2814, 26, 27constcncfg 38756 . . . 4 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ 𝑅) ∈ ((𝐴[,]𝐵)–cn→(ℂ ∖ {0})))
2923, 28divcncf 38769 . . 3 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ ((cos‘(𝑅 · 𝑥)) / 𝑅)) ∈ ((𝐴[,]𝐵)–cn→ℂ))
3029negcncfg 38766 . 2 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ -((cos‘(𝑅 · 𝑥)) / 𝑅)) ∈ ((𝐴[,]𝐵)–cn→ℂ))
31 fourierdlem39.gcn . . . . . 6 (𝜑𝐺 ∈ ((𝐴(,)𝐵)–cn→ℂ))
32 cncff 22504 . . . . . 6 (𝐺 ∈ ((𝐴(,)𝐵)–cn→ℂ) → 𝐺:(𝐴(,)𝐵)⟶ℂ)
3331, 32syl 17 . . . . 5 (𝜑𝐺:(𝐴(,)𝐵)⟶ℂ)
3433feqmptd 6159 . . . 4 (𝜑𝐺 = (𝑥 ∈ (𝐴(,)𝐵) ↦ (𝐺𝑥)))
3534eqcomd 2616 . . 3 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ (𝐺𝑥)) = 𝐺)
3635, 31eqeltrd 2688 . 2 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ (𝐺𝑥)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
37 sincn 24002 . . . 4 sin ∈ (ℂ–cn→ℂ)
3837a1i 11 . . 3 (𝜑 → sin ∈ (ℂ–cn→ℂ))
39 ioosscn 38563 . . . . . 6 (𝐴(,)𝐵) ⊆ ℂ
4039a1i 11 . . . . 5 (𝜑 → (𝐴(,)𝐵) ⊆ ℂ)
4140, 17, 19constcncfg 38756 . . . 4 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ 𝑅) ∈ ((𝐴(,)𝐵)–cn→ℂ))
4240, 19idcncfg 38757 . . . 4 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ 𝑥) ∈ ((𝐴(,)𝐵)–cn→ℂ))
4341, 42mulcncf 23023 . . 3 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ (𝑅 · 𝑥)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
4438, 43cncfmpt1f 22524 . 2 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ (sin‘(𝑅 · 𝑥))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
45 ioombl 23140 . . . 4 (𝐴(,)𝐵) ∈ dom vol
4645a1i 11 . . 3 (𝜑 → (𝐴(,)𝐵) ∈ dom vol)
47 volioo 38840 . . . . 5 ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴𝐵) → (vol‘(𝐴(,)𝐵)) = (𝐵𝐴))
481, 2, 3, 47syl3anc 1318 . . . 4 (𝜑 → (vol‘(𝐴(,)𝐵)) = (𝐵𝐴))
492, 1resubcld 10337 . . . 4 (𝜑 → (𝐵𝐴) ∈ ℝ)
5048, 49eqeltrd 2688 . . 3 (𝜑 → (vol‘(𝐴(,)𝐵)) ∈ ℝ)
51 eqid 2610 . . . . 5 (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)) = (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥))
52 ioossicc 12130 . . . . . 6 (𝐴(,)𝐵) ⊆ (𝐴[,]𝐵)
5352a1i 11 . . . . 5 (𝜑 → (𝐴(,)𝐵) ⊆ (𝐴[,]𝐵))
546adantr 480 . . . . . 6 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝐹:(𝐴[,]𝐵)⟶ℂ)
5553sselda 3568 . . . . . 6 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝑥 ∈ (𝐴[,]𝐵))
5654, 55ffvelrnd 6268 . . . . 5 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (𝐹𝑥) ∈ ℂ)
5751, 9, 53, 19, 56cncfmptssg 38755 . . . 4 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ (𝐹𝑥)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
5857, 44mulcncf 23023 . . 3 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥)))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
59 cniccbdd 23037 . . . . . 6 ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐹 ∈ ((𝐴[,]𝐵)–cn→ℂ)) → ∃𝑦 ∈ ℝ ∀𝑧 ∈ (𝐴[,]𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦)
601, 2, 4, 59syl3anc 1318 . . . . 5 (𝜑 → ∃𝑦 ∈ ℝ ∀𝑧 ∈ (𝐴[,]𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦)
61 nfra1 2925 . . . . . . . 8 𝑧𝑧 ∈ (𝐴[,]𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦
6252sseli 3564 . . . . . . . . . 10 (𝑧 ∈ (𝐴(,)𝐵) → 𝑧 ∈ (𝐴[,]𝐵))
63 rspa 2914 . . . . . . . . . 10 ((∀𝑧 ∈ (𝐴[,]𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦𝑧 ∈ (𝐴[,]𝐵)) → (abs‘(𝐹𝑧)) ≤ 𝑦)
6462, 63sylan2 490 . . . . . . . . 9 ((∀𝑧 ∈ (𝐴[,]𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦𝑧 ∈ (𝐴(,)𝐵)) → (abs‘(𝐹𝑧)) ≤ 𝑦)
6564ex 449 . . . . . . . 8 (∀𝑧 ∈ (𝐴[,]𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦 → (𝑧 ∈ (𝐴(,)𝐵) → (abs‘(𝐹𝑧)) ≤ 𝑦))
6661, 65ralrimi 2940 . . . . . . 7 (∀𝑧 ∈ (𝐴[,]𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦 → ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦)
6766a1i 11 . . . . . 6 ((𝜑𝑦 ∈ ℝ) → (∀𝑧 ∈ (𝐴[,]𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦 → ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦))
6867reximdva 3000 . . . . 5 (𝜑 → (∃𝑦 ∈ ℝ ∀𝑧 ∈ (𝐴[,]𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦 → ∃𝑦 ∈ ℝ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦))
6960, 68mpd 15 . . . 4 (𝜑 → ∃𝑦 ∈ ℝ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦)
70 nfv 1830 . . . . . . . 8 𝑧(𝜑𝑦 ∈ ℝ)
71 nfra1 2925 . . . . . . . 8 𝑧𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦
7270, 71nfan 1816 . . . . . . 7 𝑧((𝜑𝑦 ∈ ℝ) ∧ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦)
73 simpll 786 . . . . . . . . 9 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦) ∧ 𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))) → (𝜑𝑦 ∈ ℝ))
74 simpr 476 . . . . . . . . . . 11 ((𝜑𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))) → 𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥)))))
7516adantr 480 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝑅 ∈ ℝ)
76 elioore 12076 . . . . . . . . . . . . . . . . . . 19 (𝑥 ∈ (𝐴(,)𝐵) → 𝑥 ∈ ℝ)
7776adantl 481 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝑥 ∈ ℝ)
7875, 77remulcld 9949 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (𝑅 · 𝑥) ∈ ℝ)
7978resincld 14712 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (sin‘(𝑅 · 𝑥)) ∈ ℝ)
8079recnd 9947 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (sin‘(𝑅 · 𝑥)) ∈ ℂ)
8156, 80mulcld 9939 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))) ∈ ℂ)
8281ralrimiva 2949 . . . . . . . . . . . . 13 (𝜑 → ∀𝑥 ∈ (𝐴(,)𝐵)((𝐹𝑥) · (sin‘(𝑅 · 𝑥))) ∈ ℂ)
83 dmmptg 5549 . . . . . . . . . . . . 13 (∀𝑥 ∈ (𝐴(,)𝐵)((𝐹𝑥) · (sin‘(𝑅 · 𝑥))) ∈ ℂ → dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥)))) = (𝐴(,)𝐵))
8482, 83syl 17 . . . . . . . . . . . 12 (𝜑 → dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥)))) = (𝐴(,)𝐵))
8584adantr 480 . . . . . . . . . . 11 ((𝜑𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))) → dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥)))) = (𝐴(,)𝐵))
8674, 85eleqtrd 2690 . . . . . . . . . 10 ((𝜑𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))) → 𝑧 ∈ (𝐴(,)𝐵))
8786ad4ant14 1285 . . . . . . . . 9 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦) ∧ 𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))) → 𝑧 ∈ (𝐴(,)𝐵))
88 simplr 788 . . . . . . . . . . 11 (((𝜑 ∧ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦) ∧ 𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))) → ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦)
8986adantlr 747 . . . . . . . . . . 11 (((𝜑 ∧ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦) ∧ 𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))) → 𝑧 ∈ (𝐴(,)𝐵))
90 rspa 2914 . . . . . . . . . . 11 ((∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦𝑧 ∈ (𝐴(,)𝐵)) → (abs‘(𝐹𝑧)) ≤ 𝑦)
9188, 89, 90syl2anc 691 . . . . . . . . . 10 (((𝜑 ∧ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦) ∧ 𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))) → (abs‘(𝐹𝑧)) ≤ 𝑦)
9291adantllr 751 . . . . . . . . 9 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦) ∧ 𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))) → (abs‘(𝐹𝑧)) ≤ 𝑦)
93 eqidd 2611 . . . . . . . . . . . . . . . 16 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥)))) = (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥)))))
94 fveq2 6103 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑧 → (𝐹𝑥) = (𝐹𝑧))
95 oveq2 6557 . . . . . . . . . . . . . . . . . . 19 (𝑥 = 𝑧 → (𝑅 · 𝑥) = (𝑅 · 𝑧))
9695fveq2d 6107 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑧 → (sin‘(𝑅 · 𝑥)) = (sin‘(𝑅 · 𝑧)))
9794, 96oveq12d 6567 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑧 → ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))) = ((𝐹𝑧) · (sin‘(𝑅 · 𝑧))))
9897adantl 481 . . . . . . . . . . . . . . . 16 (((𝜑𝑧 ∈ (𝐴(,)𝐵)) ∧ 𝑥 = 𝑧) → ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))) = ((𝐹𝑧) · (sin‘(𝑅 · 𝑧))))
99 simpr 476 . . . . . . . . . . . . . . . 16 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → 𝑧 ∈ (𝐴(,)𝐵))
1006adantr 480 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → 𝐹:(𝐴[,]𝐵)⟶ℂ)
10152, 99sseldi 3566 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → 𝑧 ∈ (𝐴[,]𝐵))
102100, 101ffvelrnd 6268 . . . . . . . . . . . . . . . . 17 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (𝐹𝑧) ∈ ℂ)
10317adantr 480 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → 𝑅 ∈ ℂ)
10439, 99sseldi 3566 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → 𝑧 ∈ ℂ)
105103, 104mulcld 9939 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (𝑅 · 𝑧) ∈ ℂ)
106105sincld 14699 . . . . . . . . . . . . . . . . 17 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (sin‘(𝑅 · 𝑧)) ∈ ℂ)
107102, 106mulcld 9939 . . . . . . . . . . . . . . . 16 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → ((𝐹𝑧) · (sin‘(𝑅 · 𝑧))) ∈ ℂ)
10893, 98, 99, 107fvmptd 6197 . . . . . . . . . . . . . . 15 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → ((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧) = ((𝐹𝑧) · (sin‘(𝑅 · 𝑧))))
109108fveq2d 6107 . . . . . . . . . . . . . 14 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) = (abs‘((𝐹𝑧) · (sin‘(𝑅 · 𝑧)))))
110102, 106absmuld 14041 . . . . . . . . . . . . . 14 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹𝑧) · (sin‘(𝑅 · 𝑧)))) = ((abs‘(𝐹𝑧)) · (abs‘(sin‘(𝑅 · 𝑧)))))
111109, 110eqtrd 2644 . . . . . . . . . . . . 13 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) = ((abs‘(𝐹𝑧)) · (abs‘(sin‘(𝑅 · 𝑧)))))
112111adantlr 747 . . . . . . . . . . . 12 (((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) = ((abs‘(𝐹𝑧)) · (abs‘(sin‘(𝑅 · 𝑧)))))
113112adantr 480 . . . . . . . . . . 11 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) = ((abs‘(𝐹𝑧)) · (abs‘(sin‘(𝑅 · 𝑧)))))
114 simplll 794 . . . . . . . . . . . . . . 15 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → 𝜑)
115 simplr 788 . . . . . . . . . . . . . . 15 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → 𝑧 ∈ (𝐴(,)𝐵))
116114, 115, 102syl2anc 691 . . . . . . . . . . . . . 14 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → (𝐹𝑧) ∈ ℂ)
117116abscld 14023 . . . . . . . . . . . . 13 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → (abs‘(𝐹𝑧)) ∈ ℝ)
11817ad3antrrr 762 . . . . . . . . . . . . . . . 16 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → 𝑅 ∈ ℂ)
11939, 115sseldi 3566 . . . . . . . . . . . . . . . 16 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → 𝑧 ∈ ℂ)
120118, 119mulcld 9939 . . . . . . . . . . . . . . 15 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → (𝑅 · 𝑧) ∈ ℂ)
121120sincld 14699 . . . . . . . . . . . . . 14 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → (sin‘(𝑅 · 𝑧)) ∈ ℂ)
122121abscld 14023 . . . . . . . . . . . . 13 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → (abs‘(sin‘(𝑅 · 𝑧))) ∈ ℝ)
123117, 122remulcld 9949 . . . . . . . . . . . 12 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → ((abs‘(𝐹𝑧)) · (abs‘(sin‘(𝑅 · 𝑧)))) ∈ ℝ)
124 1red 9934 . . . . . . . . . . . . 13 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → 1 ∈ ℝ)
125117, 124remulcld 9949 . . . . . . . . . . . 12 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → ((abs‘(𝐹𝑧)) · 1) ∈ ℝ)
126 simpllr 795 . . . . . . . . . . . . 13 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → 𝑦 ∈ ℝ)
127126, 124remulcld 9949 . . . . . . . . . . . 12 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → (𝑦 · 1) ∈ ℝ)
128106abscld 14023 . . . . . . . . . . . . . . 15 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘(sin‘(𝑅 · 𝑧))) ∈ ℝ)
129 1red 9934 . . . . . . . . . . . . . . 15 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → 1 ∈ ℝ)
130102abscld 14023 . . . . . . . . . . . . . . 15 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘(𝐹𝑧)) ∈ ℝ)
131102absge0d 14031 . . . . . . . . . . . . . . 15 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → 0 ≤ (abs‘(𝐹𝑧)))
13216adantr 480 . . . . . . . . . . . . . . . . 17 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → 𝑅 ∈ ℝ)
133 elioore 12076 . . . . . . . . . . . . . . . . . 18 (𝑧 ∈ (𝐴(,)𝐵) → 𝑧 ∈ ℝ)
134133adantl 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → 𝑧 ∈ ℝ)
135132, 134remulcld 9949 . . . . . . . . . . . . . . . 16 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (𝑅 · 𝑧) ∈ ℝ)
136 abssinbd 38450 . . . . . . . . . . . . . . . 16 ((𝑅 · 𝑧) ∈ ℝ → (abs‘(sin‘(𝑅 · 𝑧))) ≤ 1)
137135, 136syl 17 . . . . . . . . . . . . . . 15 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘(sin‘(𝑅 · 𝑧))) ≤ 1)
138128, 129, 130, 131, 137lemul2ad 10843 . . . . . . . . . . . . . 14 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → ((abs‘(𝐹𝑧)) · (abs‘(sin‘(𝑅 · 𝑧)))) ≤ ((abs‘(𝐹𝑧)) · 1))
139138adantlr 747 . . . . . . . . . . . . 13 (((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → ((abs‘(𝐹𝑧)) · (abs‘(sin‘(𝑅 · 𝑧)))) ≤ ((abs‘(𝐹𝑧)) · 1))
140139adantr 480 . . . . . . . . . . . 12 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → ((abs‘(𝐹𝑧)) · (abs‘(sin‘(𝑅 · 𝑧)))) ≤ ((abs‘(𝐹𝑧)) · 1))
141 0le1 10430 . . . . . . . . . . . . . 14 0 ≤ 1
142141a1i 11 . . . . . . . . . . . . 13 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → 0 ≤ 1)
143 simpr 476 . . . . . . . . . . . . 13 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → (abs‘(𝐹𝑧)) ≤ 𝑦)
144117, 126, 124, 142, 143lemul1ad 10842 . . . . . . . . . . . 12 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → ((abs‘(𝐹𝑧)) · 1) ≤ (𝑦 · 1))
145123, 125, 127, 140, 144letrd 10073 . . . . . . . . . . 11 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → ((abs‘(𝐹𝑧)) · (abs‘(sin‘(𝑅 · 𝑧)))) ≤ (𝑦 · 1))
146113, 145eqbrtrd 4605 . . . . . . . . . 10 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) ≤ (𝑦 · 1))
147126recnd 9947 . . . . . . . . . . 11 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → 𝑦 ∈ ℂ)
148147mulid1d 9936 . . . . . . . . . 10 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → (𝑦 · 1) = 𝑦)
149146, 148breqtrd 4609 . . . . . . . . 9 ((((𝜑𝑦 ∈ ℝ) ∧ 𝑧 ∈ (𝐴(,)𝐵)) ∧ (abs‘(𝐹𝑧)) ≤ 𝑦) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) ≤ 𝑦)
15073, 87, 92, 149syl21anc 1317 . . . . . . . 8 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦) ∧ 𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) ≤ 𝑦)
151150ex 449 . . . . . . 7 (((𝜑𝑦 ∈ ℝ) ∧ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦) → (𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥)))) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) ≤ 𝑦))
15272, 151ralrimi 2940 . . . . . 6 (((𝜑𝑦 ∈ ℝ) ∧ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦) → ∀𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))(abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) ≤ 𝑦)
153152ex 449 . . . . 5 ((𝜑𝑦 ∈ ℝ) → (∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦 → ∀𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))(abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) ≤ 𝑦))
154153reximdva 3000 . . . 4 (𝜑 → (∃𝑦 ∈ ℝ ∀𝑧 ∈ (𝐴(,)𝐵)(abs‘(𝐹𝑧)) ≤ 𝑦 → ∃𝑦 ∈ ℝ ∀𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))(abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) ≤ 𝑦))
15569, 154mpd 15 . . 3 (𝜑 → ∃𝑦 ∈ ℝ ∀𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))(abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥))))‘𝑧)) ≤ 𝑦)
15646, 50, 58, 155cnbdibl 38854 . 2 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐹𝑥) · (sin‘(𝑅 · 𝑥)))) ∈ 𝐿1)
15711, 43cncfmpt1f 22524 . . . . . 6 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑅 · 𝑥))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
15840, 26, 27constcncfg 38756 . . . . . 6 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ 𝑅) ∈ ((𝐴(,)𝐵)–cn→(ℂ ∖ {0})))
159157, 158divcncf 38769 . . . . 5 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ ((cos‘(𝑅 · 𝑥)) / 𝑅)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
160159negcncfg 38766 . . . 4 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ -((cos‘(𝑅 · 𝑥)) / 𝑅)) ∈ ((𝐴(,)𝐵)–cn→ℂ))
16136, 160mulcncf 23023 . . 3 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅))) ∈ ((𝐴(,)𝐵)–cn→ℂ))
162 simpr 476 . . . . . . 7 ((𝜑𝑦 ∈ ℝ) → 𝑦 ∈ ℝ)
16316adantr 480 . . . . . . 7 ((𝜑𝑦 ∈ ℝ) → 𝑅 ∈ ℝ)
16415rpne0d 11753 . . . . . . . 8 (𝜑𝑅 ≠ 0)
165164adantr 480 . . . . . . 7 ((𝜑𝑦 ∈ ℝ) → 𝑅 ≠ 0)
166162, 163, 165redivcld 10732 . . . . . 6 ((𝜑𝑦 ∈ ℝ) → (𝑦 / 𝑅) ∈ ℝ)
167166adantr 480 . . . . 5 (((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) → (𝑦 / 𝑅) ∈ ℝ)
168 simpr 476 . . . . . . . . 9 ((𝜑𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))) → 𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅))))
16933ffvelrnda 6267 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (𝐺𝑥) ∈ ℂ)
17017adantr 480 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝑅 ∈ ℂ)
17176recnd 9947 . . . . . . . . . . . . . . . . . 18 (𝑥 ∈ (𝐴(,)𝐵) → 𝑥 ∈ ℂ)
172171adantl 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝑥 ∈ ℂ)
173170, 172mulcld 9939 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (𝑅 · 𝑥) ∈ ℂ)
174173coscld 14700 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (cos‘(𝑅 · 𝑥)) ∈ ℂ)
175164adantr 480 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → 𝑅 ≠ 0)
176174, 170, 175divcld 10680 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → ((cos‘(𝑅 · 𝑥)) / 𝑅) ∈ ℂ)
177176negcld 10258 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → -((cos‘(𝑅 · 𝑥)) / 𝑅) ∈ ℂ)
178169, 177mulcld 9939 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) ∈ ℂ)
179178ralrimiva 2949 . . . . . . . . . . 11 (𝜑 → ∀𝑥 ∈ (𝐴(,)𝐵)((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) ∈ ℂ)
180179adantr 480 . . . . . . . . . 10 ((𝜑𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))) → ∀𝑥 ∈ (𝐴(,)𝐵)((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) ∈ ℂ)
181 dmmptg 5549 . . . . . . . . . 10 (∀𝑥 ∈ (𝐴(,)𝐵)((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) ∈ ℂ → dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅))) = (𝐴(,)𝐵))
182180, 181syl 17 . . . . . . . . 9 ((𝜑𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))) → dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅))) = (𝐴(,)𝐵))
183168, 182eleqtrd 2690 . . . . . . . 8 ((𝜑𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))) → 𝑧 ∈ (𝐴(,)𝐵))
184183ad4ant14 1285 . . . . . . 7 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))) → 𝑧 ∈ (𝐴(,)𝐵))
185 eqidd 2611 . . . . . . . . . . 11 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅))) = (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅))))
186 fveq2 6103 . . . . . . . . . . . . 13 (𝑥 = 𝑧 → (𝐺𝑥) = (𝐺𝑧))
18795fveq2d 6107 . . . . . . . . . . . . . . 15 (𝑥 = 𝑧 → (cos‘(𝑅 · 𝑥)) = (cos‘(𝑅 · 𝑧)))
188187oveq1d 6564 . . . . . . . . . . . . . 14 (𝑥 = 𝑧 → ((cos‘(𝑅 · 𝑥)) / 𝑅) = ((cos‘(𝑅 · 𝑧)) / 𝑅))
189188negeqd 10154 . . . . . . . . . . . . 13 (𝑥 = 𝑧 → -((cos‘(𝑅 · 𝑥)) / 𝑅) = -((cos‘(𝑅 · 𝑧)) / 𝑅))
190186, 189oveq12d 6567 . . . . . . . . . . . 12 (𝑥 = 𝑧 → ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) = ((𝐺𝑧) · -((cos‘(𝑅 · 𝑧)) / 𝑅)))
191190adantl 481 . . . . . . . . . . 11 (((𝜑𝑧 ∈ (𝐴(,)𝐵)) ∧ 𝑥 = 𝑧) → ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) = ((𝐺𝑧) · -((cos‘(𝑅 · 𝑧)) / 𝑅)))
19233ffvelrnda 6267 . . . . . . . . . . . 12 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (𝐺𝑧) ∈ ℂ)
193105coscld 14700 . . . . . . . . . . . . . 14 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (cos‘(𝑅 · 𝑧)) ∈ ℂ)
194164adantr 480 . . . . . . . . . . . . . 14 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → 𝑅 ≠ 0)
195193, 103, 194divcld 10680 . . . . . . . . . . . . 13 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → ((cos‘(𝑅 · 𝑧)) / 𝑅) ∈ ℂ)
196195negcld 10258 . . . . . . . . . . . 12 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → -((cos‘(𝑅 · 𝑧)) / 𝑅) ∈ ℂ)
197192, 196mulcld 9939 . . . . . . . . . . 11 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → ((𝐺𝑧) · -((cos‘(𝑅 · 𝑧)) / 𝑅)) ∈ ℂ)
198185, 191, 99, 197fvmptd 6197 . . . . . . . . . 10 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → ((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧) = ((𝐺𝑧) · -((cos‘(𝑅 · 𝑧)) / 𝑅)))
199198fveq2d 6107 . . . . . . . . 9 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) = (abs‘((𝐺𝑧) · -((cos‘(𝑅 · 𝑧)) / 𝑅))))
200199ad4ant14 1285 . . . . . . . 8 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) = (abs‘((𝐺𝑧) · -((cos‘(𝑅 · 𝑧)) / 𝑅))))
20133ad2antrr 758 . . . . . . . . . . . 12 (((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) → 𝐺:(𝐴(,)𝐵)⟶ℂ)
202201ffvelrnda 6267 . . . . . . . . . . 11 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (𝐺𝑧) ∈ ℂ)
203202abscld 14023 . . . . . . . . . 10 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (abs‘(𝐺𝑧)) ∈ ℝ)
204 simpllr 795 . . . . . . . . . 10 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → 𝑦 ∈ ℝ)
20517ad3antrrr 762 . . . . . . . . . . . . . . 15 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → 𝑅 ∈ ℂ)
206104ad4ant14 1285 . . . . . . . . . . . . . . 15 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → 𝑧 ∈ ℂ)
207205, 206mulcld 9939 . . . . . . . . . . . . . 14 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (𝑅 · 𝑧) ∈ ℂ)
208207coscld 14700 . . . . . . . . . . . . 13 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (cos‘(𝑅 · 𝑧)) ∈ ℂ)
209164ad3antrrr 762 . . . . . . . . . . . . 13 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → 𝑅 ≠ 0)
210208, 205, 209divcld 10680 . . . . . . . . . . . 12 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → ((cos‘(𝑅 · 𝑧)) / 𝑅) ∈ ℂ)
211210negcld 10258 . . . . . . . . . . 11 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → -((cos‘(𝑅 · 𝑧)) / 𝑅) ∈ ℂ)
212211abscld 14023 . . . . . . . . . 10 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (abs‘-((cos‘(𝑅 · 𝑧)) / 𝑅)) ∈ ℝ)
21315rprecred 11759 . . . . . . . . . . 11 (𝜑 → (1 / 𝑅) ∈ ℝ)
214213ad3antrrr 762 . . . . . . . . . 10 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (1 / 𝑅) ∈ ℝ)
215202absge0d 14031 . . . . . . . . . 10 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → 0 ≤ (abs‘(𝐺𝑧)))
216211absge0d 14031 . . . . . . . . . 10 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → 0 ≤ (abs‘-((cos‘(𝑅 · 𝑧)) / 𝑅)))
217186fveq2d 6107 . . . . . . . . . . . . 13 (𝑥 = 𝑧 → (abs‘(𝐺𝑥)) = (abs‘(𝐺𝑧)))
218217breq1d 4593 . . . . . . . . . . . 12 (𝑥 = 𝑧 → ((abs‘(𝐺𝑥)) ≤ 𝑦 ↔ (abs‘(𝐺𝑧)) ≤ 𝑦))
219218rspccva 3281 . . . . . . . . . . 11 ((∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦𝑧 ∈ (𝐴(,)𝐵)) → (abs‘(𝐺𝑧)) ≤ 𝑦)
220219adantll 746 . . . . . . . . . 10 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (abs‘(𝐺𝑧)) ≤ 𝑦)
221195absnegd 14036 . . . . . . . . . . . . 13 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘-((cos‘(𝑅 · 𝑧)) / 𝑅)) = (abs‘((cos‘(𝑅 · 𝑧)) / 𝑅)))
222193, 103, 194absdivd 14042 . . . . . . . . . . . . 13 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘((cos‘(𝑅 · 𝑧)) / 𝑅)) = ((abs‘(cos‘(𝑅 · 𝑧))) / (abs‘𝑅)))
22315rpge0d 11752 . . . . . . . . . . . . . . . 16 (𝜑 → 0 ≤ 𝑅)
22416, 223absidd 14009 . . . . . . . . . . . . . . 15 (𝜑 → (abs‘𝑅) = 𝑅)
225224oveq2d 6565 . . . . . . . . . . . . . 14 (𝜑 → ((abs‘(cos‘(𝑅 · 𝑧))) / (abs‘𝑅)) = ((abs‘(cos‘(𝑅 · 𝑧))) / 𝑅))
226225adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → ((abs‘(cos‘(𝑅 · 𝑧))) / (abs‘𝑅)) = ((abs‘(cos‘(𝑅 · 𝑧))) / 𝑅))
227221, 222, 2263eqtrd 2648 . . . . . . . . . . . 12 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘-((cos‘(𝑅 · 𝑧)) / 𝑅)) = ((abs‘(cos‘(𝑅 · 𝑧))) / 𝑅))
228193abscld 14023 . . . . . . . . . . . . 13 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘(cos‘(𝑅 · 𝑧))) ∈ ℝ)
22915adantr 480 . . . . . . . . . . . . 13 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → 𝑅 ∈ ℝ+)
230 abscosbd 38431 . . . . . . . . . . . . . 14 ((𝑅 · 𝑧) ∈ ℝ → (abs‘(cos‘(𝑅 · 𝑧))) ≤ 1)
231135, 230syl 17 . . . . . . . . . . . . 13 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘(cos‘(𝑅 · 𝑧))) ≤ 1)
232228, 129, 229, 231lediv1dd 11806 . . . . . . . . . . . 12 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → ((abs‘(cos‘(𝑅 · 𝑧))) / 𝑅) ≤ (1 / 𝑅))
233227, 232eqbrtrd 4605 . . . . . . . . . . 11 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘-((cos‘(𝑅 · 𝑧)) / 𝑅)) ≤ (1 / 𝑅))
234233ad4ant14 1285 . . . . . . . . . 10 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (abs‘-((cos‘(𝑅 · 𝑧)) / 𝑅)) ≤ (1 / 𝑅))
235203, 204, 212, 214, 215, 216, 220, 234lemul12ad 10845 . . . . . . . . 9 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → ((abs‘(𝐺𝑧)) · (abs‘-((cos‘(𝑅 · 𝑧)) / 𝑅))) ≤ (𝑦 · (1 / 𝑅)))
236192, 196absmuld 14041 . . . . . . . . . 10 ((𝜑𝑧 ∈ (𝐴(,)𝐵)) → (abs‘((𝐺𝑧) · -((cos‘(𝑅 · 𝑧)) / 𝑅))) = ((abs‘(𝐺𝑧)) · (abs‘-((cos‘(𝑅 · 𝑧)) / 𝑅))))
237236ad4ant14 1285 . . . . . . . . 9 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (abs‘((𝐺𝑧) · -((cos‘(𝑅 · 𝑧)) / 𝑅))) = ((abs‘(𝐺𝑧)) · (abs‘-((cos‘(𝑅 · 𝑧)) / 𝑅))))
238204recnd 9947 . . . . . . . . . 10 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → 𝑦 ∈ ℂ)
239238, 205, 209divrecd 10683 . . . . . . . . 9 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (𝑦 / 𝑅) = (𝑦 · (1 / 𝑅)))
240235, 237, 2393brtr4d 4615 . . . . . . . 8 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (abs‘((𝐺𝑧) · -((cos‘(𝑅 · 𝑧)) / 𝑅))) ≤ (𝑦 / 𝑅))
241200, 240eqbrtrd 4605 . . . . . . 7 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ (𝐴(,)𝐵)) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) ≤ (𝑦 / 𝑅))
242184, 241syldan 486 . . . . . 6 ((((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) ∧ 𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))) → (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) ≤ (𝑦 / 𝑅))
243242ralrimiva 2949 . . . . 5 (((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) → ∀𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))(abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) ≤ (𝑦 / 𝑅))
244 breq2 4587 . . . . . . 7 (𝑤 = (𝑦 / 𝑅) → ((abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) ≤ 𝑤 ↔ (abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) ≤ (𝑦 / 𝑅)))
245244ralbidv 2969 . . . . . 6 (𝑤 = (𝑦 / 𝑅) → (∀𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))(abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) ≤ 𝑤 ↔ ∀𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))(abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) ≤ (𝑦 / 𝑅)))
246245rspcev 3282 . . . . 5 (((𝑦 / 𝑅) ∈ ℝ ∧ ∀𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))(abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) ≤ (𝑦 / 𝑅)) → ∃𝑤 ∈ ℝ ∀𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))(abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) ≤ 𝑤)
247167, 243, 246syl2anc 691 . . . 4 (((𝜑𝑦 ∈ ℝ) ∧ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦) → ∃𝑤 ∈ ℝ ∀𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))(abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) ≤ 𝑤)
248 fourierdlem39.gbd . . . 4 (𝜑 → ∃𝑦 ∈ ℝ ∀𝑥 ∈ (𝐴(,)𝐵)(abs‘(𝐺𝑥)) ≤ 𝑦)
249247, 248r19.29a 3060 . . 3 (𝜑 → ∃𝑤 ∈ ℝ ∀𝑧 ∈ dom (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))(abs‘((𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)))‘𝑧)) ≤ 𝑤)
25046, 50, 161, 249cnbdibl 38854 . 2 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ ((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅))) ∈ 𝐿1)
2518oveq2d 6565 . . 3 (𝜑 → (ℝ D (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥))) = (ℝ D 𝐹))
252 fourierdlem39.g . . . . 5 𝐺 = (ℝ D 𝐹)
253252eqcomi 2619 . . . 4 (ℝ D 𝐹) = 𝐺
254253a1i 11 . . 3 (𝜑 → (ℝ D 𝐹) = 𝐺)
255251, 254, 343eqtrd 2648 . 2 (𝜑 → (ℝ D (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥))) = (𝑥 ∈ (𝐴(,)𝐵) ↦ (𝐺𝑥)))
256 reelprrecn 9907 . . . . 5 ℝ ∈ {ℝ, ℂ}
257256a1i 11 . . . 4 (𝜑 → ℝ ∈ {ℝ, ℂ})
25817adantr 480 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ) → 𝑅 ∈ ℂ)
259 recn 9905 . . . . . . . . 9 (𝑥 ∈ ℝ → 𝑥 ∈ ℂ)
260259adantl 481 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ) → 𝑥 ∈ ℂ)
261258, 260mulcld 9939 . . . . . . 7 ((𝜑𝑥 ∈ ℝ) → (𝑅 · 𝑥) ∈ ℂ)
262261coscld 14700 . . . . . 6 ((𝜑𝑥 ∈ ℝ) → (cos‘(𝑅 · 𝑥)) ∈ ℂ)
263164adantr 480 . . . . . 6 ((𝜑𝑥 ∈ ℝ) → 𝑅 ≠ 0)
264262, 258, 263divcld 10680 . . . . 5 ((𝜑𝑥 ∈ ℝ) → ((cos‘(𝑅 · 𝑥)) / 𝑅) ∈ ℂ)
265264negcld 10258 . . . 4 ((𝜑𝑥 ∈ ℝ) → -((cos‘(𝑅 · 𝑥)) / 𝑅) ∈ ℂ)
26616adantr 480 . . . . . . . . . 10 ((𝜑𝑥 ∈ ℝ) → 𝑅 ∈ ℝ)
267 simpr 476 . . . . . . . . . 10 ((𝜑𝑥 ∈ ℝ) → 𝑥 ∈ ℝ)
268266, 267remulcld 9949 . . . . . . . . 9 ((𝜑𝑥 ∈ ℝ) → (𝑅 · 𝑥) ∈ ℝ)
269268resincld 14712 . . . . . . . 8 ((𝜑𝑥 ∈ ℝ) → (sin‘(𝑅 · 𝑥)) ∈ ℝ)
270269renegcld 10336 . . . . . . 7 ((𝜑𝑥 ∈ ℝ) → -(sin‘(𝑅 · 𝑥)) ∈ ℝ)
271270, 266remulcld 9949 . . . . . 6 ((𝜑𝑥 ∈ ℝ) → (-(sin‘(𝑅 · 𝑥)) · 𝑅) ∈ ℝ)
272271, 266, 263redivcld 10732 . . . . 5 ((𝜑𝑥 ∈ ℝ) → ((-(sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅) ∈ ℝ)
273272renegcld 10336 . . . 4 ((𝜑𝑥 ∈ ℝ) → -((-(sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅) ∈ ℝ)
274 recoscl 14710 . . . . . . . . 9 (𝑦 ∈ ℝ → (cos‘𝑦) ∈ ℝ)
275274adantl 481 . . . . . . . 8 ((𝜑𝑦 ∈ ℝ) → (cos‘𝑦) ∈ ℝ)
276275recnd 9947 . . . . . . 7 ((𝜑𝑦 ∈ ℝ) → (cos‘𝑦) ∈ ℂ)
277 resincl 14709 . . . . . . . . 9 (𝑦 ∈ ℝ → (sin‘𝑦) ∈ ℝ)
278277renegcld 10336 . . . . . . . 8 (𝑦 ∈ ℝ → -(sin‘𝑦) ∈ ℝ)
279278adantl 481 . . . . . . 7 ((𝜑𝑦 ∈ ℝ) → -(sin‘𝑦) ∈ ℝ)
280 1red 9934 . . . . . . . . 9 ((𝜑𝑥 ∈ ℝ) → 1 ∈ ℝ)
281257dvmptid 23526 . . . . . . . . 9 (𝜑 → (ℝ D (𝑥 ∈ ℝ ↦ 𝑥)) = (𝑥 ∈ ℝ ↦ 1))
282257, 260, 280, 281, 17dvmptcmul 23533 . . . . . . . 8 (𝜑 → (ℝ D (𝑥 ∈ ℝ ↦ (𝑅 · 𝑥))) = (𝑥 ∈ ℝ ↦ (𝑅 · 1)))
283258mulid1d 9936 . . . . . . . . 9 ((𝜑𝑥 ∈ ℝ) → (𝑅 · 1) = 𝑅)
284283mpteq2dva 4672 . . . . . . . 8 (𝜑 → (𝑥 ∈ ℝ ↦ (𝑅 · 1)) = (𝑥 ∈ ℝ ↦ 𝑅))
285282, 284eqtrd 2644 . . . . . . 7 (𝜑 → (ℝ D (𝑥 ∈ ℝ ↦ (𝑅 · 𝑥))) = (𝑥 ∈ ℝ ↦ 𝑅))
286 dvcosre 38799 . . . . . . . 8 (ℝ D (𝑦 ∈ ℝ ↦ (cos‘𝑦))) = (𝑦 ∈ ℝ ↦ -(sin‘𝑦))
287286a1i 11 . . . . . . 7 (𝜑 → (ℝ D (𝑦 ∈ ℝ ↦ (cos‘𝑦))) = (𝑦 ∈ ℝ ↦ -(sin‘𝑦)))
288 fveq2 6103 . . . . . . 7 (𝑦 = (𝑅 · 𝑥) → (cos‘𝑦) = (cos‘(𝑅 · 𝑥)))
289 fveq2 6103 . . . . . . . 8 (𝑦 = (𝑅 · 𝑥) → (sin‘𝑦) = (sin‘(𝑅 · 𝑥)))
290289negeqd 10154 . . . . . . 7 (𝑦 = (𝑅 · 𝑥) → -(sin‘𝑦) = -(sin‘(𝑅 · 𝑥)))
291257, 257, 268, 266, 276, 279, 285, 287, 288, 290dvmptco 23541 . . . . . 6 (𝜑 → (ℝ D (𝑥 ∈ ℝ ↦ (cos‘(𝑅 · 𝑥)))) = (𝑥 ∈ ℝ ↦ (-(sin‘(𝑅 · 𝑥)) · 𝑅)))
292257, 262, 271, 291, 17, 164dvmptdivc 23534 . . . . 5 (𝜑 → (ℝ D (𝑥 ∈ ℝ ↦ ((cos‘(𝑅 · 𝑥)) / 𝑅))) = (𝑥 ∈ ℝ ↦ ((-(sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅)))
293257, 264, 272, 292dvmptneg 23535 . . . 4 (𝜑 → (ℝ D (𝑥 ∈ ℝ ↦ -((cos‘(𝑅 · 𝑥)) / 𝑅))) = (𝑥 ∈ ℝ ↦ -((-(sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅)))
294 eqid 2610 . . . . 5 (TopOpen‘ℂfld) = (TopOpen‘ℂfld)
295294tgioo2 22414 . . . 4 (topGen‘ran (,)) = ((TopOpen‘ℂfld) ↾t ℝ)
296 iccntr 22432 . . . . 5 ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((int‘(topGen‘ran (,)))‘(𝐴[,]𝐵)) = (𝐴(,)𝐵))
2971, 2, 296syl2anc 691 . . . 4 (𝜑 → ((int‘(topGen‘ran (,)))‘(𝐴[,]𝐵)) = (𝐴(,)𝐵))
298257, 265, 273, 293, 12, 295, 294, 297dvmptres2 23531 . . 3 (𝜑 → (ℝ D (𝑥 ∈ (𝐴[,]𝐵) ↦ -((cos‘(𝑅 · 𝑥)) / 𝑅))) = (𝑥 ∈ (𝐴(,)𝐵) ↦ -((-(sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅)))
29980, 170mulneg1d 10362 . . . . . . . 8 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (-(sin‘(𝑅 · 𝑥)) · 𝑅) = -((sin‘(𝑅 · 𝑥)) · 𝑅))
300299oveq1d 6564 . . . . . . 7 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → ((-(sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅) = (-((sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅))
30180, 170mulcld 9939 . . . . . . . 8 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → ((sin‘(𝑅 · 𝑥)) · 𝑅) ∈ ℂ)
302301, 170, 175divnegd 10693 . . . . . . 7 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → -(((sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅) = (-((sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅))
303300, 302eqtr4d 2647 . . . . . 6 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → ((-(sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅) = -(((sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅))
304303negeqd 10154 . . . . 5 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → -((-(sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅) = --(((sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅))
305301, 170, 175divcld 10680 . . . . . 6 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (((sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅) ∈ ℂ)
306305negnegd 10262 . . . . 5 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → --(((sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅) = (((sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅))
30780, 170, 175divcan4d 10686 . . . . 5 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → (((sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅) = (sin‘(𝑅 · 𝑥)))
308304, 306, 3073eqtrd 2648 . . . 4 ((𝜑𝑥 ∈ (𝐴(,)𝐵)) → -((-(sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅) = (sin‘(𝑅 · 𝑥)))
309308mpteq2dva 4672 . . 3 (𝜑 → (𝑥 ∈ (𝐴(,)𝐵) ↦ -((-(sin‘(𝑅 · 𝑥)) · 𝑅) / 𝑅)) = (𝑥 ∈ (𝐴(,)𝐵) ↦ (sin‘(𝑅 · 𝑥))))
310298, 309eqtrd 2644 . 2 (𝜑 → (ℝ D (𝑥 ∈ (𝐴[,]𝐵) ↦ -((cos‘(𝑅 · 𝑥)) / 𝑅))) = (𝑥 ∈ (𝐴(,)𝐵) ↦ (sin‘(𝑅 · 𝑥))))
311 fveq2 6103 . . . 4 (𝑥 = 𝐴 → (𝐹𝑥) = (𝐹𝐴))
312 oveq2 6557 . . . . . . 7 (𝑥 = 𝐴 → (𝑅 · 𝑥) = (𝑅 · 𝐴))
313312fveq2d 6107 . . . . . 6 (𝑥 = 𝐴 → (cos‘(𝑅 · 𝑥)) = (cos‘(𝑅 · 𝐴)))
314313oveq1d 6564 . . . . 5 (𝑥 = 𝐴 → ((cos‘(𝑅 · 𝑥)) / 𝑅) = ((cos‘(𝑅 · 𝐴)) / 𝑅))
315314negeqd 10154 . . . 4 (𝑥 = 𝐴 → -((cos‘(𝑅 · 𝑥)) / 𝑅) = -((cos‘(𝑅 · 𝐴)) / 𝑅))
316311, 315oveq12d 6567 . . 3 (𝑥 = 𝐴 → ((𝐹𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) = ((𝐹𝐴) · -((cos‘(𝑅 · 𝐴)) / 𝑅)))
317316adantl 481 . 2 ((𝜑𝑥 = 𝐴) → ((𝐹𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) = ((𝐹𝐴) · -((cos‘(𝑅 · 𝐴)) / 𝑅)))
318 fveq2 6103 . . . 4 (𝑥 = 𝐵 → (𝐹𝑥) = (𝐹𝐵))
319 oveq2 6557 . . . . . . 7 (𝑥 = 𝐵 → (𝑅 · 𝑥) = (𝑅 · 𝐵))
320319fveq2d 6107 . . . . . 6 (𝑥 = 𝐵 → (cos‘(𝑅 · 𝑥)) = (cos‘(𝑅 · 𝐵)))
321320oveq1d 6564 . . . . 5 (𝑥 = 𝐵 → ((cos‘(𝑅 · 𝑥)) / 𝑅) = ((cos‘(𝑅 · 𝐵)) / 𝑅))
322321negeqd 10154 . . . 4 (𝑥 = 𝐵 → -((cos‘(𝑅 · 𝑥)) / 𝑅) = -((cos‘(𝑅 · 𝐵)) / 𝑅))
323318, 322oveq12d 6567 . . 3 (𝑥 = 𝐵 → ((𝐹𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) = ((𝐹𝐵) · -((cos‘(𝑅 · 𝐵)) / 𝑅)))
324323adantl 481 . 2 ((𝜑𝑥 = 𝐵) → ((𝐹𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) = ((𝐹𝐵) · -((cos‘(𝑅 · 𝐵)) / 𝑅)))
3251, 2, 3, 9, 30, 36, 44, 156, 250, 255, 310, 317, 324itgparts 23614 1 (𝜑 → ∫(𝐴(,)𝐵)((𝐹𝑥) · (sin‘(𝑅 · 𝑥))) d𝑥 = ((((𝐹𝐵) · -((cos‘(𝑅 · 𝐵)) / 𝑅)) − ((𝐹𝐴) · -((cos‘(𝑅 · 𝐴)) / 𝑅))) − ∫(𝐴(,)𝐵)((𝐺𝑥) · -((cos‘(𝑅 · 𝑥)) / 𝑅)) d𝑥))
 Colors of variables: wff setvar class Syntax hints:   → wi 4   ∧ wa 383   = wceq 1475   ∈ wcel 1977   ≠ wne 2780  ∀wral 2896  ∃wrex 2897   ∖ cdif 3537   ⊆ wss 3540  {csn 4125  {cpr 4127   class class class wbr 4583   ↦ cmpt 4643  dom cdm 5038  ran crn 5039  ⟶wf 5800  ‘cfv 5804  (class class class)co 6549  ℂcc 9813  ℝcr 9814  0cc0 9815  1c1 9816   · cmul 9820   ≤ cle 9954   − cmin 10145  -cneg 10146   / cdiv 10563  ℝ+crp 11708  (,)cioo 12046  [,]cicc 12049  abscabs 13822  sincsin 14633  cosccos 14634  TopOpenctopn 15905  topGenctg 15921  ℂfldccnfld 19567  intcnt 20631  –cn→ccncf 22487  volcvol 23039  ∫citg 23193   D cdv 23433 This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1713  ax-4 1728  ax-5 1827  ax-6 1875  ax-7 1922  ax-8 1979  ax-9 1986  ax-10 2006  ax-11 2021  ax-12 2034  ax-13 2234  ax-ext 2590  ax-rep 4699  ax-sep 4709  ax-nul 4717  ax-pow 4769  ax-pr 4833  ax-un 6847  ax-inf2 8421  ax-cc 9140  ax-cnex 9871  ax-resscn 9872  ax-1cn 9873  ax-icn 9874  ax-addcl 9875  ax-addrcl 9876  ax-mulcl 9877  ax-mulrcl 9878  ax-mulcom 9879  ax-addass 9880  ax-mulass 9881  ax-distr 9882  ax-i2m1 9883  ax-1ne0 9884  ax-1rid 9885  ax-rnegex 9886  ax-rrecex 9887  ax-cnre 9888  ax-pre-lttri 9889  ax-pre-lttrn 9890  ax-pre-ltadd 9891  ax-pre-mulgt0 9892  ax-pre-sup 9893  ax-addf 9894  ax-mulf 9895 This theorem depends on definitions:  df-bi 196  df-or 384  df-an 385  df-3or 1032  df-3an 1033  df-tru 1478  df-fal 1481  df-ex 1696  df-nf 1701  df-sb 1868  df-eu 2462  df-mo 2463  df-clab 2597  df-cleq 2603  df-clel 2606  df-nfc 2740  df-ne 2782  df-nel 2783  df-ral 2901  df-rex 2902  df-reu 2903  df-rmo 2904  df-rab 2905  df-v 3175  df-sbc 3403  df-csb 3500  df-dif 3543  df-un 3545  df-in 3547  df-ss 3554  df-pss 3556  df-nul 3875  df-if 4037  df-pw 4110  df-sn 4126  df-pr 4128  df-tp 4130  df-op 4132  df-uni 4373  df-int 4411  df-iun 4457  df-iin 4458  df-disj 4554  df-br 4584  df-opab 4644  df-mpt 4645  df-tr 4681  df-eprel 4949  df-id 4953  df-po 4959  df-so 4960  df-fr 4997  df-se 4998  df-we 4999  df-xp 5044  df-rel 5045  df-cnv 5046  df-co 5047  df-dm 5048  df-rn 5049  df-res 5050  df-ima 5051  df-pred 5597  df-ord 5643  df-on 5644  df-lim 5645  df-suc 5646  df-iota 5768  df-fun 5806  df-fn 5807  df-f 5808  df-f1 5809  df-fo 5810  df-f1o 5811  df-fv 5812  df-isom 5813  df-riota 6511  df-ov 6552  df-oprab 6553  df-mpt2 6554  df-of 6795  df-ofr 6796  df-om 6958  df-1st 7059  df-2nd 7060  df-supp 7183  df-wrecs 7294  df-recs 7355  df-rdg 7393  df-1o 7447  df-2o 7448  df-oadd 7451  df-omul 7452  df-er 7629  df-map 7746  df-pm 7747  df-ixp 7795  df-en 7842  df-dom 7843  df-sdom 7844  df-fin 7845  df-fsupp 8159  df-fi 8200  df-sup 8231  df-inf 8232  df-oi 8298  df-card 8648  df-acn 8651  df-cda 8873  df-pnf 9955  df-mnf 9956  df-xr 9957  df-ltxr 9958  df-le 9959  df-sub 10147  df-neg 10148  df-div 10564  df-nn 10898  df-2 10956  df-3 10957  df-4 10958  df-5 10959  df-6 10960  df-7 10961  df-8 10962  df-9 10963  df-n0 11170  df-z 11255  df-dec 11370  df-uz 11564  df-q 11665  df-rp 11709  df-xneg 11822  df-xadd 11823  df-xmul 11824  df-ioo 12050  df-ioc 12051  df-ico 12052  df-icc 12053  df-fz 12198  df-fzo 12335  df-fl 12455  df-mod 12531  df-seq 12664  df-exp 12723  df-fac 12923  df-bc 12952  df-hash 12980  df-shft 13655  df-cj 13687  df-re 13688  df-im 13689  df-sqrt 13823  df-abs 13824  df-limsup 14050  df-clim 14067  df-rlim 14068  df-sum 14265  df-ef 14637  df-sin 14639  df-cos 14640  df-struct 15697  df-ndx 15698  df-slot 15699  df-base 15700  df-sets 15701  df-ress 15702  df-plusg 15781  df-mulr 15782  df-starv 15783  df-sca 15784  df-vsca 15785  df-ip 15786  df-tset 15787  df-ple 15788  df-ds 15791  df-unif 15792  df-hom 15793  df-cco 15794  df-rest 15906  df-topn 15907  df-0g 15925  df-gsum 15926  df-topgen 15927  df-pt 15928  df-prds 15931  df-xrs 15985  df-qtop 15990  df-imas 15991  df-xps 15993  df-mre 16069  df-mrc 16070  df-acs 16072  df-mgm 17065  df-sgrp 17107  df-mnd 17118  df-submnd 17159  df-mulg 17364  df-cntz 17573  df-cmn 18018  df-psmet 19559  df-xmet 19560  df-met 19561  df-bl 19562  df-mopn 19563  df-fbas 19564  df-fg 19565  df-cnfld 19568  df-top 20521  df-bases 20522  df-topon 20523  df-topsp 20524  df-cld 20633  df-ntr 20634  df-cls 20635  df-nei 20712  df-lp 20750  df-perf 20751  df-cn 20841  df-cnp 20842  df-haus 20929  df-cmp 21000  df-tx 21175  df-hmeo 21368  df-fil 21460  df-fm 21552  df-flim 21553  df-flf 21554  df-xms 21935  df-ms 21936  df-tms 21937  df-cncf 22489  df-ovol 23040  df-vol 23041  df-mbf 23194  df-itg1 23195  df-itg2 23196  df-ibl 23197  df-itg 23198  df-0p 23243  df-limc 23436  df-dv 23437 This theorem is referenced by:  fourierdlem73  39072
 Copyright terms: Public domain W3C validator