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

Theorem fourierdlem22 43677
Description: The coefficients of the fourier series are integrable and reals. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem22.f (𝜑𝐹:ℝ⟶ℝ)
fourierdlem22.c 𝐶 = (-π(,)π)
fourierdlem22.fibl (𝜑 → (𝐹𝐶) ∈ 𝐿1)
fourierdlem22.a 𝐴 = (𝑛 ∈ ℕ0 ↦ (∫𝐶((𝐹𝑥) · (cos‘(𝑛 · 𝑥))) d𝑥 / π))
fourierdlem22.b 𝐵 = (𝑛 ∈ ℕ ↦ (∫𝐶((𝐹𝑥) · (sin‘(𝑛 · 𝑥))) d𝑥 / π))
Assertion
Ref Expression
fourierdlem22 (𝜑 → ((𝑛 ∈ ℕ0 → (𝐴𝑛) ∈ ℝ) ∧ (𝑛 ∈ ℕ → (𝐵𝑛) ∈ ℝ)))
Distinct variable groups:   𝑥,𝐶   𝑥,𝐹   𝑥,𝑛,𝜑
Allowed substitution hints:   𝐴(𝑥,𝑛)   𝐵(𝑥,𝑛)   𝐶(𝑛)   𝐹(𝑛)

Proof of Theorem fourierdlem22
Dummy variables 𝑏 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fourierdlem22.f . . . . . . . . . . 11 (𝜑𝐹:ℝ⟶ℝ)
21adantr 481 . . . . . . . . . 10 ((𝜑𝑥𝐶) → 𝐹:ℝ⟶ℝ)
3 ioossre 13149 . . . . . . . . . . . 12 (-π(,)π) ⊆ ℝ
4 id 22 . . . . . . . . . . . . 13 (𝑥𝐶𝑥𝐶)
5 fourierdlem22.c . . . . . . . . . . . . 13 𝐶 = (-π(,)π)
64, 5eleqtrdi 2850 . . . . . . . . . . . 12 (𝑥𝐶𝑥 ∈ (-π(,)π))
73, 6sselid 3920 . . . . . . . . . . 11 (𝑥𝐶𝑥 ∈ ℝ)
87adantl 482 . . . . . . . . . 10 ((𝜑𝑥𝐶) → 𝑥 ∈ ℝ)
92, 8ffvelrnd 6971 . . . . . . . . 9 ((𝜑𝑥𝐶) → (𝐹𝑥) ∈ ℝ)
109adantlr 712 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ0) ∧ 𝑥𝐶) → (𝐹𝑥) ∈ ℝ)
11 nn0re 12251 . . . . . . . . . . . 12 (𝑛 ∈ ℕ0𝑛 ∈ ℝ)
1211adantr 481 . . . . . . . . . . 11 ((𝑛 ∈ ℕ0𝑥𝐶) → 𝑛 ∈ ℝ)
137adantl 482 . . . . . . . . . . 11 ((𝑛 ∈ ℕ0𝑥𝐶) → 𝑥 ∈ ℝ)
1412, 13remulcld 11014 . . . . . . . . . 10 ((𝑛 ∈ ℕ0𝑥𝐶) → (𝑛 · 𝑥) ∈ ℝ)
1514recoscld 15862 . . . . . . . . 9 ((𝑛 ∈ ℕ0𝑥𝐶) → (cos‘(𝑛 · 𝑥)) ∈ ℝ)
1615adantll 711 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ0) ∧ 𝑥𝐶) → (cos‘(𝑛 · 𝑥)) ∈ ℝ)
1710, 16remulcld 11014 . . . . . . 7 (((𝜑𝑛 ∈ ℕ0) ∧ 𝑥𝐶) → ((𝐹𝑥) · (cos‘(𝑛 · 𝑥))) ∈ ℝ)
18 ioombl 24738 . . . . . . . . . . . 12 (-π(,)π) ∈ dom vol
195, 18eqeltri 2836 . . . . . . . . . . 11 𝐶 ∈ dom vol
2019a1i 11 . . . . . . . . . 10 ((𝜑𝑛 ∈ ℕ0) → 𝐶 ∈ dom vol)
21 eqidd 2740 . . . . . . . . . 10 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) = (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))))
22 eqidd 2740 . . . . . . . . . 10 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ (𝐹𝑥)) = (𝑥𝐶 ↦ (𝐹𝑥)))
2320, 16, 10, 21, 22offval2 7562 . . . . . . . . 9 ((𝜑𝑛 ∈ ℕ0) → ((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) ∘f · (𝑥𝐶 ↦ (𝐹𝑥))) = (𝑥𝐶 ↦ ((cos‘(𝑛 · 𝑥)) · (𝐹𝑥))))
2416recnd 11012 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ0) ∧ 𝑥𝐶) → (cos‘(𝑛 · 𝑥)) ∈ ℂ)
2510recnd 11012 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ0) ∧ 𝑥𝐶) → (𝐹𝑥) ∈ ℂ)
2624, 25mulcomd 11005 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ0) ∧ 𝑥𝐶) → ((cos‘(𝑛 · 𝑥)) · (𝐹𝑥)) = ((𝐹𝑥) · (cos‘(𝑛 · 𝑥))))
2726mpteq2dva 5175 . . . . . . . . 9 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ ((cos‘(𝑛 · 𝑥)) · (𝐹𝑥))) = (𝑥𝐶 ↦ ((𝐹𝑥) · (cos‘(𝑛 · 𝑥)))))
2823, 27eqtr2d 2780 . . . . . . . 8 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ ((𝐹𝑥) · (cos‘(𝑛 · 𝑥)))) = ((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) ∘f · (𝑥𝐶 ↦ (𝐹𝑥))))
29 coscn 25613 . . . . . . . . . . . . 13 cos ∈ (ℂ–cn→ℂ)
3029a1i 11 . . . . . . . . . . . 12 (𝑛 ∈ ℕ0 → cos ∈ (ℂ–cn→ℂ))
315, 3eqsstri 3956 . . . . . . . . . . . . . . . 16 𝐶 ⊆ ℝ
32 ax-resscn 10937 . . . . . . . . . . . . . . . 16 ℝ ⊆ ℂ
3331, 32sstri 3931 . . . . . . . . . . . . . . 15 𝐶 ⊆ ℂ
3433a1i 11 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ0𝐶 ⊆ ℂ)
3511recnd 11012 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ0𝑛 ∈ ℂ)
36 ssid 3944 . . . . . . . . . . . . . . 15 ℂ ⊆ ℂ
3736a1i 11 . . . . . . . . . . . . . 14 (𝑛 ∈ ℕ0 → ℂ ⊆ ℂ)
3834, 35, 37constcncfg 43420 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ0 → (𝑥𝐶𝑛) ∈ (𝐶cn→ℂ))
39 cncfmptid 24085 . . . . . . . . . . . . . . 15 ((𝐶 ⊆ ℂ ∧ ℂ ⊆ ℂ) → (𝑥𝐶𝑥) ∈ (𝐶cn→ℂ))
4033, 36, 39mp2an 689 . . . . . . . . . . . . . 14 (𝑥𝐶𝑥) ∈ (𝐶cn→ℂ)
4140a1i 11 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ0 → (𝑥𝐶𝑥) ∈ (𝐶cn→ℂ))
4238, 41mulcncf 24619 . . . . . . . . . . . 12 (𝑛 ∈ ℕ0 → (𝑥𝐶 ↦ (𝑛 · 𝑥)) ∈ (𝐶cn→ℂ))
4330, 42cncfmpt1f 24086 . . . . . . . . . . 11 (𝑛 ∈ ℕ0 → (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) ∈ (𝐶cn→ℂ))
44 cnmbf 24832 . . . . . . . . . . 11 ((𝐶 ∈ dom vol ∧ (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) ∈ (𝐶cn→ℂ)) → (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) ∈ MblFn)
4519, 43, 44sylancr 587 . . . . . . . . . 10 (𝑛 ∈ ℕ0 → (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) ∈ MblFn)
4645adantl 482 . . . . . . . . 9 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) ∈ MblFn)
471feqmptd 6846 . . . . . . . . . . . . 13 (𝜑𝐹 = (𝑥 ∈ ℝ ↦ (𝐹𝑥)))
4847reseq1d 5893 . . . . . . . . . . . 12 (𝜑 → (𝐹𝐶) = ((𝑥 ∈ ℝ ↦ (𝐹𝑥)) ↾ 𝐶))
49 resmpt 5948 . . . . . . . . . . . . 13 (𝐶 ⊆ ℝ → ((𝑥 ∈ ℝ ↦ (𝐹𝑥)) ↾ 𝐶) = (𝑥𝐶 ↦ (𝐹𝑥)))
5031, 49mp1i 13 . . . . . . . . . . . 12 (𝜑 → ((𝑥 ∈ ℝ ↦ (𝐹𝑥)) ↾ 𝐶) = (𝑥𝐶 ↦ (𝐹𝑥)))
5148, 50eqtr2d 2780 . . . . . . . . . . 11 (𝜑 → (𝑥𝐶 ↦ (𝐹𝑥)) = (𝐹𝐶))
52 fourierdlem22.fibl . . . . . . . . . . 11 (𝜑 → (𝐹𝐶) ∈ 𝐿1)
5351, 52eqeltrd 2840 . . . . . . . . . 10 (𝜑 → (𝑥𝐶 ↦ (𝐹𝑥)) ∈ 𝐿1)
5453adantr 481 . . . . . . . . 9 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ (𝐹𝑥)) ∈ 𝐿1)
55 1re 10984 . . . . . . . . . . 11 1 ∈ ℝ
56 simpr 485 . . . . . . . . . . . . . 14 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))) → 𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))))
57 nfv 1918 . . . . . . . . . . . . . . . . 17 𝑥 𝑛 ∈ ℕ0
58 nfmpt1 5183 . . . . . . . . . . . . . . . . . . 19 𝑥(𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))
5958nfdm 5863 . . . . . . . . . . . . . . . . . 18 𝑥dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))
6059nfcri 2895 . . . . . . . . . . . . . . . . 17 𝑥 𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))
6157, 60nfan 1903 . . . . . . . . . . . . . . . 16 𝑥(𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))))
6215ex 413 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ ℕ0 → (𝑥𝐶 → (cos‘(𝑛 · 𝑥)) ∈ ℝ))
6362adantr 481 . . . . . . . . . . . . . . . 16 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))) → (𝑥𝐶 → (cos‘(𝑛 · 𝑥)) ∈ ℝ))
6461, 63ralrimi 3142 . . . . . . . . . . . . . . 15 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))) → ∀𝑥𝐶 (cos‘(𝑛 · 𝑥)) ∈ ℝ)
65 dmmptg 6150 . . . . . . . . . . . . . . 15 (∀𝑥𝐶 (cos‘(𝑛 · 𝑥)) ∈ ℝ → dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) = 𝐶)
6664, 65syl 17 . . . . . . . . . . . . . 14 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))) → dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) = 𝐶)
6756, 66eleqtrd 2842 . . . . . . . . . . . . 13 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))) → 𝑦𝐶)
68 eqidd 2740 . . . . . . . . . . . . . . . 16 ((𝑛 ∈ ℕ0𝑦𝐶) → (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) = (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))))
69 oveq2 7292 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑦 → (𝑛 · 𝑥) = (𝑛 · 𝑦))
7069fveq2d 6787 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑦 → (cos‘(𝑛 · 𝑥)) = (cos‘(𝑛 · 𝑦)))
7170adantl 482 . . . . . . . . . . . . . . . 16 (((𝑛 ∈ ℕ0𝑦𝐶) ∧ 𝑥 = 𝑦) → (cos‘(𝑛 · 𝑥)) = (cos‘(𝑛 · 𝑦)))
72 simpr 485 . . . . . . . . . . . . . . . 16 ((𝑛 ∈ ℕ0𝑦𝐶) → 𝑦𝐶)
7311adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝑛 ∈ ℕ0𝑦𝐶) → 𝑛 ∈ ℝ)
7431, 72sselid 3920 . . . . . . . . . . . . . . . . . 18 ((𝑛 ∈ ℕ0𝑦𝐶) → 𝑦 ∈ ℝ)
7573, 74remulcld 11014 . . . . . . . . . . . . . . . . 17 ((𝑛 ∈ ℕ0𝑦𝐶) → (𝑛 · 𝑦) ∈ ℝ)
7675recoscld 15862 . . . . . . . . . . . . . . . 16 ((𝑛 ∈ ℕ0𝑦𝐶) → (cos‘(𝑛 · 𝑦)) ∈ ℝ)
7768, 71, 72, 76fvmptd 6891 . . . . . . . . . . . . . . 15 ((𝑛 ∈ ℕ0𝑦𝐶) → ((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦) = (cos‘(𝑛 · 𝑦)))
7877fveq2d 6787 . . . . . . . . . . . . . 14 ((𝑛 ∈ ℕ0𝑦𝐶) → (abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) = (abs‘(cos‘(𝑛 · 𝑦))))
79 abscosbd 42824 . . . . . . . . . . . . . . 15 ((𝑛 · 𝑦) ∈ ℝ → (abs‘(cos‘(𝑛 · 𝑦))) ≤ 1)
8075, 79syl 17 . . . . . . . . . . . . . 14 ((𝑛 ∈ ℕ0𝑦𝐶) → (abs‘(cos‘(𝑛 · 𝑦))) ≤ 1)
8178, 80eqbrtrd 5097 . . . . . . . . . . . . 13 ((𝑛 ∈ ℕ0𝑦𝐶) → (abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1)
8267, 81syldan 591 . . . . . . . . . . . 12 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))) → (abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1)
8382ralrimiva 3104 . . . . . . . . . . 11 (𝑛 ∈ ℕ0 → ∀𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1)
84 breq2 5079 . . . . . . . . . . . . 13 (𝑏 = 1 → ((abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏 ↔ (abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1))
8584ralbidv 3113 . . . . . . . . . . . 12 (𝑏 = 1 → (∀𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏 ↔ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1))
8685rspcev 3562 . . . . . . . . . . 11 ((1 ∈ ℝ ∧ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1) → ∃𝑏 ∈ ℝ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏)
8755, 83, 86sylancr 587 . . . . . . . . . 10 (𝑛 ∈ ℕ0 → ∃𝑏 ∈ ℝ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏)
8887adantl 482 . . . . . . . . 9 ((𝜑𝑛 ∈ ℕ0) → ∃𝑏 ∈ ℝ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏)
89 bddmulibl 25012 . . . . . . . . 9 (((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) ∈ MblFn ∧ (𝑥𝐶 ↦ (𝐹𝑥)) ∈ 𝐿1 ∧ ∃𝑏 ∈ ℝ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏) → ((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) ∘f · (𝑥𝐶 ↦ (𝐹𝑥))) ∈ 𝐿1)
9046, 54, 88, 89syl3anc 1370 . . . . . . . 8 ((𝜑𝑛 ∈ ℕ0) → ((𝑥𝐶 ↦ (cos‘(𝑛 · 𝑥))) ∘f · (𝑥𝐶 ↦ (𝐹𝑥))) ∈ 𝐿1)
9128, 90eqeltrd 2840 . . . . . . 7 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ ((𝐹𝑥) · (cos‘(𝑛 · 𝑥)))) ∈ 𝐿1)
9217, 91itgrecl 24971 . . . . . 6 ((𝜑𝑛 ∈ ℕ0) → ∫𝐶((𝐹𝑥) · (cos‘(𝑛 · 𝑥))) d𝑥 ∈ ℝ)
93 pire 25624 . . . . . . 7 π ∈ ℝ
9493a1i 11 . . . . . 6 ((𝜑𝑛 ∈ ℕ0) → π ∈ ℝ)
95 0re 10986 . . . . . . . 8 0 ∈ ℝ
96 pipos 25626 . . . . . . . 8 0 < π
9795, 96gtneii 11096 . . . . . . 7 π ≠ 0
9897a1i 11 . . . . . 6 ((𝜑𝑛 ∈ ℕ0) → π ≠ 0)
9992, 94, 98redivcld 11812 . . . . 5 ((𝜑𝑛 ∈ ℕ0) → (∫𝐶((𝐹𝑥) · (cos‘(𝑛 · 𝑥))) d𝑥 / π) ∈ ℝ)
100 fourierdlem22.a . . . . 5 𝐴 = (𝑛 ∈ ℕ0 ↦ (∫𝐶((𝐹𝑥) · (cos‘(𝑛 · 𝑥))) d𝑥 / π))
10199, 100fmptd 6997 . . . 4 (𝜑𝐴:ℕ0⟶ℝ)
102101ffvelrnda 6970 . . 3 ((𝜑𝑛 ∈ ℕ0) → (𝐴𝑛) ∈ ℝ)
103102ex 413 . 2 (𝜑 → (𝑛 ∈ ℕ0 → (𝐴𝑛) ∈ ℝ))
104 nnnn0 12249 . . . . . . 7 (𝑛 ∈ ℕ → 𝑛 ∈ ℕ0)
10514resincld 15861 . . . . . . . . . 10 ((𝑛 ∈ ℕ0𝑥𝐶) → (sin‘(𝑛 · 𝑥)) ∈ ℝ)
106105adantll 711 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ0) ∧ 𝑥𝐶) → (sin‘(𝑛 · 𝑥)) ∈ ℝ)
10710, 106remulcld 11014 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ0) ∧ 𝑥𝐶) → ((𝐹𝑥) · (sin‘(𝑛 · 𝑥))) ∈ ℝ)
108 eqidd 2740 . . . . . . . . . . 11 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) = (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))))
10920, 106, 10, 108, 22offval2 7562 . . . . . . . . . 10 ((𝜑𝑛 ∈ ℕ0) → ((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) ∘f · (𝑥𝐶 ↦ (𝐹𝑥))) = (𝑥𝐶 ↦ ((sin‘(𝑛 · 𝑥)) · (𝐹𝑥))))
110106recnd 11012 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ0) ∧ 𝑥𝐶) → (sin‘(𝑛 · 𝑥)) ∈ ℂ)
111110, 25mulcomd 11005 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ0) ∧ 𝑥𝐶) → ((sin‘(𝑛 · 𝑥)) · (𝐹𝑥)) = ((𝐹𝑥) · (sin‘(𝑛 · 𝑥))))
112111mpteq2dva 5175 . . . . . . . . . 10 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ ((sin‘(𝑛 · 𝑥)) · (𝐹𝑥))) = (𝑥𝐶 ↦ ((𝐹𝑥) · (sin‘(𝑛 · 𝑥)))))
113109, 112eqtr2d 2780 . . . . . . . . 9 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ ((𝐹𝑥) · (sin‘(𝑛 · 𝑥)))) = ((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) ∘f · (𝑥𝐶 ↦ (𝐹𝑥))))
114 sincn 25612 . . . . . . . . . . . . 13 sin ∈ (ℂ–cn→ℂ)
115114a1i 11 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ ℕ0) → sin ∈ (ℂ–cn→ℂ))
11642adantl 482 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ (𝑛 · 𝑥)) ∈ (𝐶cn→ℂ))
117115, 116cncfmpt1f 24086 . . . . . . . . . . 11 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) ∈ (𝐶cn→ℂ))
118 cnmbf 24832 . . . . . . . . . . 11 ((𝐶 ∈ dom vol ∧ (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) ∈ (𝐶cn→ℂ)) → (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) ∈ MblFn)
11919, 117, 118sylancr 587 . . . . . . . . . 10 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) ∈ MblFn)
120 simpr 485 . . . . . . . . . . . . . . 15 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))) → 𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))))
121 nfmpt1 5183 . . . . . . . . . . . . . . . . . . . 20 𝑥(𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))
122121nfdm 5863 . . . . . . . . . . . . . . . . . . 19 𝑥dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))
123122nfcri 2895 . . . . . . . . . . . . . . . . . 18 𝑥 𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))
12457, 123nfan 1903 . . . . . . . . . . . . . . . . 17 𝑥(𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))))
125105ex 413 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ ℕ0 → (𝑥𝐶 → (sin‘(𝑛 · 𝑥)) ∈ ℝ))
126125adantr 481 . . . . . . . . . . . . . . . . 17 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))) → (𝑥𝐶 → (sin‘(𝑛 · 𝑥)) ∈ ℝ))
127124, 126ralrimi 3142 . . . . . . . . . . . . . . . 16 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))) → ∀𝑥𝐶 (sin‘(𝑛 · 𝑥)) ∈ ℝ)
128 dmmptg 6150 . . . . . . . . . . . . . . . 16 (∀𝑥𝐶 (sin‘(𝑛 · 𝑥)) ∈ ℝ → dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) = 𝐶)
129127, 128syl 17 . . . . . . . . . . . . . . 15 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))) → dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) = 𝐶)
130120, 129eleqtrd 2842 . . . . . . . . . . . . . 14 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))) → 𝑦𝐶)
131 eqidd 2740 . . . . . . . . . . . . . . . . 17 ((𝑛 ∈ ℕ0𝑦𝐶) → (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) = (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))))
13269fveq2d 6787 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑦 → (sin‘(𝑛 · 𝑥)) = (sin‘(𝑛 · 𝑦)))
133132adantl 482 . . . . . . . . . . . . . . . . 17 (((𝑛 ∈ ℕ0𝑦𝐶) ∧ 𝑥 = 𝑦) → (sin‘(𝑛 · 𝑥)) = (sin‘(𝑛 · 𝑦)))
13475resincld 15861 . . . . . . . . . . . . . . . . 17 ((𝑛 ∈ ℕ0𝑦𝐶) → (sin‘(𝑛 · 𝑦)) ∈ ℝ)
135131, 133, 72, 134fvmptd 6891 . . . . . . . . . . . . . . . 16 ((𝑛 ∈ ℕ0𝑦𝐶) → ((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦) = (sin‘(𝑛 · 𝑦)))
136135fveq2d 6787 . . . . . . . . . . . . . . 15 ((𝑛 ∈ ℕ0𝑦𝐶) → (abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) = (abs‘(sin‘(𝑛 · 𝑦))))
137 abssinbd 42841 . . . . . . . . . . . . . . . 16 ((𝑛 · 𝑦) ∈ ℝ → (abs‘(sin‘(𝑛 · 𝑦))) ≤ 1)
13875, 137syl 17 . . . . . . . . . . . . . . 15 ((𝑛 ∈ ℕ0𝑦𝐶) → (abs‘(sin‘(𝑛 · 𝑦))) ≤ 1)
139136, 138eqbrtrd 5097 . . . . . . . . . . . . . 14 ((𝑛 ∈ ℕ0𝑦𝐶) → (abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1)
140130, 139syldan 591 . . . . . . . . . . . . 13 ((𝑛 ∈ ℕ0𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))) → (abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1)
141140ralrimiva 3104 . . . . . . . . . . . 12 (𝑛 ∈ ℕ0 → ∀𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1)
142 breq2 5079 . . . . . . . . . . . . . 14 (𝑏 = 1 → ((abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏 ↔ (abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1))
143142ralbidv 3113 . . . . . . . . . . . . 13 (𝑏 = 1 → (∀𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏 ↔ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1))
144143rspcev 3562 . . . . . . . . . . . 12 ((1 ∈ ℝ ∧ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 1) → ∃𝑏 ∈ ℝ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏)
14555, 141, 144sylancr 587 . . . . . . . . . . 11 (𝑛 ∈ ℕ0 → ∃𝑏 ∈ ℝ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏)
146145adantl 482 . . . . . . . . . 10 ((𝜑𝑛 ∈ ℕ0) → ∃𝑏 ∈ ℝ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏)
147 bddmulibl 25012 . . . . . . . . . 10 (((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) ∈ MblFn ∧ (𝑥𝐶 ↦ (𝐹𝑥)) ∈ 𝐿1 ∧ ∃𝑏 ∈ ℝ ∀𝑦 ∈ dom (𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))(abs‘((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥)))‘𝑦)) ≤ 𝑏) → ((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) ∘f · (𝑥𝐶 ↦ (𝐹𝑥))) ∈ 𝐿1)
148119, 54, 146, 147syl3anc 1370 . . . . . . . . 9 ((𝜑𝑛 ∈ ℕ0) → ((𝑥𝐶 ↦ (sin‘(𝑛 · 𝑥))) ∘f · (𝑥𝐶 ↦ (𝐹𝑥))) ∈ 𝐿1)
149113, 148eqeltrd 2840 . . . . . . . 8 ((𝜑𝑛 ∈ ℕ0) → (𝑥𝐶 ↦ ((𝐹𝑥) · (sin‘(𝑛 · 𝑥)))) ∈ 𝐿1)
150107, 149itgrecl 24971 . . . . . . 7 ((𝜑𝑛 ∈ ℕ0) → ∫𝐶((𝐹𝑥) · (sin‘(𝑛 · 𝑥))) d𝑥 ∈ ℝ)
151104, 150sylan2 593 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → ∫𝐶((𝐹𝑥) · (sin‘(𝑛 · 𝑥))) d𝑥 ∈ ℝ)
15293a1i 11 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → π ∈ ℝ)
15397a1i 11 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → π ≠ 0)
154151, 152, 153redivcld 11812 . . . . 5 ((𝜑𝑛 ∈ ℕ) → (∫𝐶((𝐹𝑥) · (sin‘(𝑛 · 𝑥))) d𝑥 / π) ∈ ℝ)
155 fourierdlem22.b . . . . 5 𝐵 = (𝑛 ∈ ℕ ↦ (∫𝐶((𝐹𝑥) · (sin‘(𝑛 · 𝑥))) d𝑥 / π))
156154, 155fmptd 6997 . . . 4 (𝜑𝐵:ℕ⟶ℝ)
157156ffvelrnda 6970 . . 3 ((𝜑𝑛 ∈ ℕ) → (𝐵𝑛) ∈ ℝ)
158157ex 413 . 2 (𝜑 → (𝑛 ∈ ℕ → (𝐵𝑛) ∈ ℝ))
159103, 158jca 512 1 (𝜑 → ((𝑛 ∈ ℕ0 → (𝐴𝑛) ∈ ℝ) ∧ (𝑛 ∈ ℕ → (𝐵𝑛) ∈ ℝ)))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396   = wceq 1539  wcel 2107  wne 2944  wral 3065  wrex 3066  wss 3888   class class class wbr 5075  cmpt 5158  dom cdm 5590  cres 5592  wf 6433  cfv 6437  (class class class)co 7284  f cof 7540  cc 10878  cr 10879  0cc0 10880  1c1 10881   · cmul 10885  cle 11019  -cneg 11215   / cdiv 11641  cn 11982  0cn0 12242  (,)cioo 13088  abscabs 14954  sincsin 15782  cosccos 15783  πcpi 15785  cnccncf 24048  volcvol 24636  MblFncmbf 24787  𝐿1cibl 24790  citg 24791
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2710  ax-rep 5210  ax-sep 5224  ax-nul 5231  ax-pow 5289  ax-pr 5353  ax-un 7597  ax-inf2 9408  ax-cc 10200  ax-cnex 10936  ax-resscn 10937  ax-1cn 10938  ax-icn 10939  ax-addcl 10940  ax-addrcl 10941  ax-mulcl 10942  ax-mulrcl 10943  ax-mulcom 10944  ax-addass 10945  ax-mulass 10946  ax-distr 10947  ax-i2m1 10948  ax-1ne0 10949  ax-1rid 10950  ax-rnegex 10951  ax-rrecex 10952  ax-cnre 10953  ax-pre-lttri 10954  ax-pre-lttrn 10955  ax-pre-ltadd 10956  ax-pre-mulgt0 10957  ax-pre-sup 10958  ax-addf 10959  ax-mulf 10960
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1542  df-fal 1552  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2541  df-eu 2570  df-clab 2717  df-cleq 2731  df-clel 2817  df-nfc 2890  df-ne 2945  df-nel 3051  df-ral 3070  df-rex 3071  df-rmo 3072  df-reu 3073  df-rab 3074  df-v 3435  df-sbc 3718  df-csb 3834  df-dif 3891  df-un 3893  df-in 3895  df-ss 3905  df-pss 3907  df-nul 4258  df-if 4461  df-pw 4536  df-sn 4563  df-pr 4565  df-tp 4567  df-op 4569  df-uni 4841  df-int 4881  df-iun 4927  df-iin 4928  df-disj 5041  df-br 5076  df-opab 5138  df-mpt 5159  df-tr 5193  df-id 5490  df-eprel 5496  df-po 5504  df-so 5505  df-fr 5545  df-se 5546  df-we 5547  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-pred 6206  df-ord 6273  df-on 6274  df-lim 6275  df-suc 6276  df-iota 6395  df-fun 6439  df-fn 6440  df-f 6441  df-f1 6442  df-fo 6443  df-f1o 6444  df-fv 6445  df-isom 6446  df-riota 7241  df-ov 7287  df-oprab 7288  df-mpo 7289  df-of 7542  df-ofr 7543  df-om 7722  df-1st 7840  df-2nd 7841  df-supp 7987  df-frecs 8106  df-wrecs 8137  df-recs 8211  df-rdg 8250  df-1o 8306  df-2o 8307  df-oadd 8310  df-omul 8311  df-er 8507  df-map 8626  df-pm 8627  df-ixp 8695  df-en 8743  df-dom 8744  df-sdom 8745  df-fin 8746  df-fsupp 9138  df-fi 9179  df-sup 9210  df-inf 9211  df-oi 9278  df-dju 9668  df-card 9706  df-acn 9709  df-pnf 11020  df-mnf 11021  df-xr 11022  df-ltxr 11023  df-le 11024  df-sub 11216  df-neg 11217  df-div 11642  df-nn 11983  df-2 12045  df-3 12046  df-4 12047  df-5 12048  df-6 12049  df-7 12050  df-8 12051  df-9 12052  df-n0 12243  df-z 12329  df-dec 12447  df-uz 12592  df-q 12698  df-rp 12740  df-xneg 12857  df-xadd 12858  df-xmul 12859  df-ioo 13092  df-ioc 13093  df-ico 13094  df-icc 13095  df-fz 13249  df-fzo 13392  df-fl 13521  df-mod 13599  df-seq 13731  df-exp 13792  df-fac 13997  df-bc 14026  df-hash 14054  df-shft 14787  df-cj 14819  df-re 14820  df-im 14821  df-sqrt 14955  df-abs 14956  df-limsup 15189  df-clim 15206  df-rlim 15207  df-sum 15407  df-ef 15786  df-sin 15788  df-cos 15789  df-pi 15791  df-struct 16857  df-sets 16874  df-slot 16892  df-ndx 16904  df-base 16922  df-ress 16951  df-plusg 16984  df-mulr 16985  df-starv 16986  df-sca 16987  df-vsca 16988  df-ip 16989  df-tset 16990  df-ple 16991  df-ds 16993  df-unif 16994  df-hom 16995  df-cco 16996  df-rest 17142  df-topn 17143  df-0g 17161  df-gsum 17162  df-topgen 17163  df-pt 17164  df-prds 17167  df-xrs 17222  df-qtop 17227  df-imas 17228  df-xps 17230  df-mre 17304  df-mrc 17305  df-acs 17307  df-mgm 18335  df-sgrp 18384  df-mnd 18395  df-submnd 18440  df-mulg 18710  df-cntz 18932  df-cmn 19397  df-psmet 20598  df-xmet 20599  df-met 20600  df-bl 20601  df-mopn 20602  df-fbas 20603  df-fg 20604  df-cnfld 20607  df-top 22052  df-topon 22069  df-topsp 22091  df-bases 22105  df-cld 22179  df-ntr 22180  df-cls 22181  df-nei 22258  df-lp 22296  df-perf 22297  df-cn 22387  df-cnp 22388  df-haus 22475  df-cmp 22547  df-tx 22722  df-hmeo 22915  df-fil 23006  df-fm 23098  df-flim 23099  df-flf 23100  df-xms 23482  df-ms 23483  df-tms 23484  df-cncf 24050  df-ovol 24637  df-vol 24638  df-mbf 24792  df-itg1 24793  df-itg2 24794  df-ibl 24795  df-itg 24796  df-0p 24843  df-limc 25039  df-dv 25040
This theorem is referenced by:  fourierdlem83  43737
  Copyright terms: Public domain W3C validator