Metamath Proof Explorer


Theorem dirkeritg

Description: The definite integral of the Dirichlet kernel. (Contributed by Glauco Siliprandi, 11-Dec-2019)

Ref Expression
Hypotheses dirkeritg.d ⊢ D = n ∈ ℕ ⟼ x ∈ ℝ ⟼ if x mod 2 ⁢ π = 0 2 ⁢ n + 1 2 ⁢ π sin ⁡ n + 1 2 ⁢ x 2 ⁢ π ⁢ sin ⁡ x 2
dirkeritg.n ⊢ φ → N ∈ ℕ
dirkeritg.f ⊢ F = D ⁡ N
dirkeritg.a ⊢ φ → A ∈ ℝ
dirkeritg.b ⊢ φ → B ∈ ℝ
dirkeritg.aleb ⊢ φ → A ≤ B
dirkeritg.g ⊢ G = x ∈ A B ⟼ x 2 + ∑ k = 1 N sin ⁡ k ⁢ x k π
Assertion dirkeritg ⊢ φ → ∫ A B F ⁡ x dx = G ⁡ B − G ⁡ A

Proof

Step Hyp Ref Expression
1 dirkeritg.d ⊢ D = n ∈ ℕ ⟼ x ∈ ℝ ⟼ if x mod 2 ⁢ π = 0 2 ⁢ n + 1 2 ⁢ π sin ⁡ n + 1 2 ⁢ x 2 ⁢ π ⁢ sin ⁡ x 2
2 dirkeritg.n ⊢ φ → N ∈ ℕ
3 dirkeritg.f ⊢ F = D ⁡ N
4 dirkeritg.a ⊢ φ → A ∈ ℝ
5 dirkeritg.b ⊢ φ → B ∈ ℝ
6 dirkeritg.aleb ⊢ φ → A ≤ B
7 dirkeritg.g ⊢ G = x ∈ A B ⟼ x 2 + ∑ k = 1 N sin ⁡ k ⁢ x k π
8 fveq2 ⊢ x = s → F ⁡ x = F ⁡ s
9 8 cbvitgv ⊢ ∫ A B F ⁡ x dx = ∫ A B F ⁡ s ds
10 9 a1i ⊢ φ → ∫ A B F ⁡ x dx = ∫ A B F ⁡ s ds
11 elioore ⊢ s ∈ A B → s ∈ ℝ
12 11 adantl ⊢ φ ∧ s ∈ A B → s ∈ ℝ
13 halfre ⊢ 1 2 ∈ ℝ
14 13 a1i ⊢ s ∈ ℝ → 1 2 ∈ ℝ
15 fzfid ⊢ s ∈ ℝ → 1 … N ∈ Fin
16 elfzelz ⊢ k ∈ 1 … N → k ∈ ℤ
17 16 zred ⊢ k ∈ 1 … N → k ∈ ℝ
18 17 adantl ⊢ s ∈ ℝ ∧ k ∈ 1 … N → k ∈ ℝ
19 simpl ⊢ s ∈ ℝ ∧ k ∈ 1 … N → s ∈ ℝ
20 18 19 remulcld ⊢ s ∈ ℝ ∧ k ∈ 1 … N → k ⁢ s ∈ ℝ
21 20 recoscld ⊢ s ∈ ℝ ∧ k ∈ 1 … N → cos ⁡ k ⁢ s ∈ ℝ
22 15 21 fsumrecl ⊢ s ∈ ℝ → ∑ k = 1 N cos ⁡ k ⁢ s ∈ ℝ
23 14 22 readdcld ⊢ s ∈ ℝ → 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s ∈ ℝ
24 pire ⊢ π ∈ ℝ
25 24 a1i ⊢ s ∈ ℝ → π ∈ ℝ
26 pipos ⊢ 0 < π
27 24 26 gt0ne0ii ⊢ π ≠ 0
28 27 a1i ⊢ s ∈ ℝ → π ≠ 0
29 23 25 28 redivcld ⊢ s ∈ ℝ → 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ∈ ℝ
30 12 29 syl ⊢ φ ∧ s ∈ A B → 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ∈ ℝ
31 eqid ⊢ s ∈ ℝ ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π = s ∈ ℝ ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π
32 31 fvmpt2 ⊢ s ∈ ℝ ∧ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ∈ ℝ → s ∈ ℝ ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ⁡ s = 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π
33 12 30 32 syl2anc ⊢ φ ∧ s ∈ A B → s ∈ ℝ ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ⁡ s = 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π
34 oveq1 ⊢ x = s → x mod 2 ⁢ π = s mod 2 ⁢ π
35 34 eqeq1d ⊢ x = s → x mod 2 ⁢ π = 0 ↔ s mod 2 ⁢ π = 0
36 oveq2 ⊢ x = s → n + 1 2 ⁢ x = n + 1 2 ⁢ s
37 36 fveq2d ⊢ x = s → sin ⁡ n + 1 2 ⁢ x = sin ⁡ n + 1 2 ⁢ s
38 oveq1 ⊢ x = s → x 2 = s 2
39 38 fveq2d ⊢ x = s → sin ⁡ x 2 = sin ⁡ s 2
40 39 oveq2d ⊢ x = s → 2 ⁢ π ⁢ sin ⁡ x 2 = 2 ⁢ π ⁢ sin ⁡ s 2
41 37 40 oveq12d ⊢ x = s → sin ⁡ n + 1 2 ⁢ x 2 ⁢ π ⁢ sin ⁡ x 2 = sin ⁡ n + 1 2 ⁢ s 2 ⁢ π ⁢ sin ⁡ s 2
42 35 41 ifbieq2d ⊢ x = s → if x mod 2 ⁢ π = 0 2 ⁢ n + 1 2 ⁢ π sin ⁡ n + 1 2 ⁢ x 2 ⁢ π ⁢ sin ⁡ x 2 = if s mod 2 ⁢ π = 0 2 ⁢ n + 1 2 ⁢ π sin ⁡ n + 1 2 ⁢ s 2 ⁢ π ⁢ sin ⁡ s 2
43 42 cbvmptv ⊢ x ∈ ℝ ⟼ if x mod 2 ⁢ π = 0 2 ⁢ n + 1 2 ⁢ π sin ⁡ n + 1 2 ⁢ x 2 ⁢ π ⁢ sin ⁡ x 2 = s ∈ ℝ ⟼ if s mod 2 ⁢ π = 0 2 ⁢ n + 1 2 ⁢ π sin ⁡ n + 1 2 ⁢ s 2 ⁢ π ⁢ sin ⁡ s 2
44 43 mpteq2i ⊢ n ∈ ℕ ⟼ x ∈ ℝ ⟼ if x mod 2 ⁢ π = 0 2 ⁢ n + 1 2 ⁢ π sin ⁡ n + 1 2 ⁢ x 2 ⁢ π ⁢ sin ⁡ x 2 = n ∈ ℕ ⟼ s ∈ ℝ ⟼ if s mod 2 ⁢ π = 0 2 ⁢ n + 1 2 ⁢ π sin ⁡ n + 1 2 ⁢ s 2 ⁢ π ⁢ sin ⁡ s 2
45 1 44 eqtri ⊢ D = n ∈ ℕ ⟼ s ∈ ℝ ⟼ if s mod 2 ⁢ π = 0 2 ⁢ n + 1 2 ⁢ π sin ⁡ n + 1 2 ⁢ s 2 ⁢ π ⁢ sin ⁡ s 2
46 45 2 3 31 dirkertrigeq ⊢ φ → F = s ∈ ℝ ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π
47 46 fveq1d ⊢ φ → F ⁡ s = s ∈ ℝ ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ⁡ s
48 47 adantr ⊢ φ ∧ s ∈ A B → F ⁡ s = s ∈ ℝ ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ⁡ s
49 oveq2 ⊢ x = s → k ⁢ x = k ⁢ s
50 49 fveq2d ⊢ x = s → sin ⁡ k ⁢ x = sin ⁡ k ⁢ s
51 50 oveq1d ⊢ x = s → sin ⁡ k ⁢ x k = sin ⁡ k ⁢ s k
52 51 sumeq2sdv ⊢ x = s → ∑ k = 1 N sin ⁡ k ⁢ x k = ∑ k = 1 N sin ⁡ k ⁢ s k
53 38 52 oveq12d ⊢ x = s → x 2 + ∑ k = 1 N sin ⁡ k ⁢ x k = s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k
54 53 oveq1d ⊢ x = s → x 2 + ∑ k = 1 N sin ⁡ k ⁢ x k π = s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k π
55 54 cbvmptv ⊢ x ∈ A B ⟼ x 2 + ∑ k = 1 N sin ⁡ k ⁢ x k π = s ∈ A B ⟼ s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k π
56 7 55 eqtri ⊢ G = s ∈ A B ⟼ s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k π
57 56 oveq2i ⊢ ℝ D G = ds ∈ A B s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k π d ℝ s
58 reelprrecn ⊢ ℝ ∈ ℝ ℂ
59 58 a1i ⊢ φ → ℝ ∈ ℝ ℂ
60 recn ⊢ s ∈ ℝ → s ∈ ℂ
61 60 halfcld ⊢ s ∈ ℝ → s 2 ∈ ℂ
62 16 zcnd ⊢ k ∈ 1 … N → k ∈ ℂ
63 62 adantl ⊢ s ∈ ℝ ∧ k ∈ 1 … N → k ∈ ℂ
64 60 adantr ⊢ s ∈ ℝ ∧ k ∈ 1 … N → s ∈ ℂ
65 63 64 mulcld ⊢ s ∈ ℝ ∧ k ∈ 1 … N → k ⁢ s ∈ ℂ
66 65 sincld ⊢ s ∈ ℝ ∧ k ∈ 1 … N → sin ⁡ k ⁢ s ∈ ℂ
67 0red ⊢ k ∈ 1 … N → 0 ∈ ℝ
68 1red ⊢ k ∈ 1 … N → 1 ∈ ℝ
69 0lt1 ⊢ 0 < 1
70 69 a1i ⊢ k ∈ 1 … N → 0 < 1
71 elfzle1 ⊢ k ∈ 1 … N → 1 ≤ k
72 67 68 17 70 71 ltletrd ⊢ k ∈ 1 … N → 0 < k
73 72 gt0ne0d ⊢ k ∈ 1 … N → k ≠ 0
74 73 adantl ⊢ s ∈ ℝ ∧ k ∈ 1 … N → k ≠ 0
75 66 63 74 divcld ⊢ s ∈ ℝ ∧ k ∈ 1 … N → sin ⁡ k ⁢ s k ∈ ℂ
76 15 75 fsumcl ⊢ s ∈ ℝ → ∑ k = 1 N sin ⁡ k ⁢ s k ∈ ℂ
77 61 76 addcld ⊢ s ∈ ℝ → s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k ∈ ℂ
78 picn ⊢ π ∈ ℂ
79 78 a1i ⊢ s ∈ ℝ → π ∈ ℂ
80 77 79 28 divcld ⊢ s ∈ ℝ → s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k π ∈ ℂ
81 80 adantl ⊢ φ ∧ s ∈ ℝ → s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k π ∈ ℂ
82 29 adantl ⊢ φ ∧ s ∈ ℝ → 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ∈ ℝ
83 77 adantl ⊢ φ ∧ s ∈ ℝ → s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k ∈ ℂ
84 23 adantl ⊢ φ ∧ s ∈ ℝ → 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s ∈ ℝ
85 61 adantl ⊢ φ ∧ s ∈ ℝ → s 2 ∈ ℂ
86 13 a1i ⊢ φ ∧ s ∈ ℝ → 1 2 ∈ ℝ
87 60 adantl ⊢ φ ∧ s ∈ ℝ → s ∈ ℂ
88 1red ⊢ φ ∧ s ∈ ℝ → 1 ∈ ℝ
89 59 dvmptid ⊢ φ → ds ∈ ℝ s d ℝ s = s ∈ ℝ ⟼ 1
90 2cnd ⊢ φ → 2 ∈ ℂ
91 2ne0 ⊢ 2 ≠ 0
92 91 a1i ⊢ φ → 2 ≠ 0
93 59 87 88 89 90 92 dvmptdivc ⊢ φ → ds ∈ ℝ s 2 d ℝ s = s ∈ ℝ ⟼ 1 2
94 76 adantl ⊢ φ ∧ s ∈ ℝ → ∑ k = 1 N sin ⁡ k ⁢ s k ∈ ℂ
95 22 adantl ⊢ φ ∧ s ∈ ℝ → ∑ k = 1 N cos ⁡ k ⁢ s ∈ ℝ
96 tgioo4 ⊢ topGen ⁡ ran ⁡ . = TopOpen ⁡ ℂ fld ↾ 𝑡 ℝ
97 eqid ⊢ TopOpen ⁡ ℂ fld = TopOpen ⁡ ℂ fld
98 reopn ⊢ ℝ ∈ topGen ⁡ ran ⁡ .
99 98 a1i ⊢ φ → ℝ ∈ topGen ⁡ ran ⁡ .
100 fzfid ⊢ φ → 1 … N ∈ Fin
101 75 ancoms ⊢ k ∈ 1 … N ∧ s ∈ ℝ → sin ⁡ k ⁢ s k ∈ ℂ
102 101 3adant1 ⊢ φ ∧ k ∈ 1 … N ∧ s ∈ ℝ → sin ⁡ k ⁢ s k ∈ ℂ
103 21 ancoms ⊢ k ∈ 1 … N ∧ s ∈ ℝ → cos ⁡ k ⁢ s ∈ ℝ
104 103 recnd ⊢ k ∈ 1 … N ∧ s ∈ ℝ → cos ⁡ k ⁢ s ∈ ℂ
105 104 3adant1 ⊢ φ ∧ k ∈ 1 … N ∧ s ∈ ℝ → cos ⁡ k ⁢ s ∈ ℂ
106 58 a1i ⊢ k ∈ 1 … N → ℝ ∈ ℝ ℂ
107 66 ancoms ⊢ k ∈ 1 … N ∧ s ∈ ℝ → sin ⁡ k ⁢ s ∈ ℂ
108 62 adantr ⊢ k ∈ 1 … N ∧ s ∈ ℂ → k ∈ ℂ
109 simpr ⊢ k ∈ 1 … N ∧ s ∈ ℂ → s ∈ ℂ
110 108 109 mulcld ⊢ k ∈ 1 … N ∧ s ∈ ℂ → k ⁢ s ∈ ℂ
111 110 coscld ⊢ k ∈ 1 … N ∧ s ∈ ℂ → cos ⁡ k ⁢ s ∈ ℂ
112 108 111 mulcld ⊢ k ∈ 1 … N ∧ s ∈ ℂ → k ⁢ cos ⁡ k ⁢ s ∈ ℂ
113 60 112 sylan2 ⊢ k ∈ 1 … N ∧ s ∈ ℝ → k ⁢ cos ⁡ k ⁢ s ∈ ℂ
114 ax-resscn ⊢ ℝ ⊆ ℂ
115 resmpt ⊢ ℝ ⊆ ℂ → s ∈ ℂ ⟼ sin ⁡ k ⁢ s ↾ ℝ = s ∈ ℝ ⟼ sin ⁡ k ⁢ s
116 114 115 mp1i ⊢ k ∈ 1 … N → s ∈ ℂ ⟼ sin ⁡ k ⁢ s ↾ ℝ = s ∈ ℝ ⟼ sin ⁡ k ⁢ s
117 116 eqcomd ⊢ k ∈ 1 … N → s ∈ ℝ ⟼ sin ⁡ k ⁢ s = s ∈ ℂ ⟼ sin ⁡ k ⁢ s ↾ ℝ
118 117 oveq2d ⊢ k ∈ 1 … N → ds ∈ ℝ sin ⁡ k ⁢ s d ℝ s = ℝ D s ∈ ℂ ⟼ sin ⁡ k ⁢ s ↾ ℝ
119 110 sincld ⊢ k ∈ 1 … N ∧ s ∈ ℂ → sin ⁡ k ⁢ s ∈ ℂ
120 119 fmpttd ⊢ k ∈ 1 … N → s ∈ ℂ ⟼ sin ⁡ k ⁢ s : ℂ ⟶ ℂ
121 112 ralrimiva ⊢ k ∈ 1 … N → ∀ s ∈ ℂ k ⁢ cos ⁡ k ⁢ s ∈ ℂ
122 dmmptg ⊢ ∀ s ∈ ℂ k ⁢ cos ⁡ k ⁢ s ∈ ℂ → dom ⁡ s ∈ ℂ ⟼ k ⁢ cos ⁡ k ⁢ s = ℂ
123 121 122 syl ⊢ k ∈ 1 … N → dom ⁡ s ∈ ℂ ⟼ k ⁢ cos ⁡ k ⁢ s = ℂ
124 114 123 sseqtrrid ⊢ k ∈ 1 … N → ℝ ⊆ dom ⁡ s ∈ ℂ ⟼ k ⁢ cos ⁡ k ⁢ s
125 dvsinax ⊢ k ∈ ℂ → ds ∈ ℂ sin ⁡ k ⁢ s d ℂ s = s ∈ ℂ ⟼ k ⁢ cos ⁡ k ⁢ s
126 62 125 syl ⊢ k ∈ 1 … N → ds ∈ ℂ sin ⁡ k ⁢ s d ℂ s = s ∈ ℂ ⟼ k ⁢ cos ⁡ k ⁢ s
127 126 dmeqd ⊢ k ∈ 1 … N → dom ⁡ ds ∈ ℂ sin ⁡ k ⁢ s d ℂ s = dom ⁡ s ∈ ℂ ⟼ k ⁢ cos ⁡ k ⁢ s
128 124 127 sseqtrrd ⊢ k ∈ 1 … N → ℝ ⊆ dom ⁡ ds ∈ ℂ sin ⁡ k ⁢ s d ℂ s
129 dvcnre ⊢ s ∈ ℂ ⟼ sin ⁡ k ⁢ s : ℂ ⟶ ℂ ∧ ℝ ⊆ dom ⁡ ds ∈ ℂ sin ⁡ k ⁢ s d ℂ s → ℝ D s ∈ ℂ ⟼ sin ⁡ k ⁢ s ↾ ℝ = ds ∈ ℂ sin ⁡ k ⁢ s d ℂ s ↾ ℝ
130 120 128 129 syl2anc ⊢ k ∈ 1 … N → ℝ D s ∈ ℂ ⟼ sin ⁡ k ⁢ s ↾ ℝ = ds ∈ ℂ sin ⁡ k ⁢ s d ℂ s ↾ ℝ
131 126 reseq1d ⊢ k ∈ 1 … N → ds ∈ ℂ sin ⁡ k ⁢ s d ℂ s ↾ ℝ = s ∈ ℂ ⟼ k ⁢ cos ⁡ k ⁢ s ↾ ℝ
132 resmpt ⊢ ℝ ⊆ ℂ → s ∈ ℂ ⟼ k ⁢ cos ⁡ k ⁢ s ↾ ℝ = s ∈ ℝ ⟼ k ⁢ cos ⁡ k ⁢ s
133 114 132 ax-mp ⊢ s ∈ ℂ ⟼ k ⁢ cos ⁡ k ⁢ s ↾ ℝ = s ∈ ℝ ⟼ k ⁢ cos ⁡ k ⁢ s
134 131 133 eqtrdi ⊢ k ∈ 1 … N → ds ∈ ℂ sin ⁡ k ⁢ s d ℂ s ↾ ℝ = s ∈ ℝ ⟼ k ⁢ cos ⁡ k ⁢ s
135 118 130 134 3eqtrd ⊢ k ∈ 1 … N → ds ∈ ℝ sin ⁡ k ⁢ s d ℝ s = s ∈ ℝ ⟼ k ⁢ cos ⁡ k ⁢ s
136 106 107 113 135 62 73 dvmptdivc ⊢ k ∈ 1 … N → ds ∈ ℝ sin ⁡ k ⁢ s k d ℝ s = s ∈ ℝ ⟼ k ⁢ cos ⁡ k ⁢ s k
137 62 adantr ⊢ k ∈ 1 … N ∧ s ∈ ℝ → k ∈ ℂ
138 73 adantr ⊢ k ∈ 1 … N ∧ s ∈ ℝ → k ≠ 0
139 104 137 138 divcan3d ⊢ k ∈ 1 … N ∧ s ∈ ℝ → k ⁢ cos ⁡ k ⁢ s k = cos ⁡ k ⁢ s
140 139 mpteq2dva ⊢ k ∈ 1 … N → s ∈ ℝ ⟼ k ⁢ cos ⁡ k ⁢ s k = s ∈ ℝ ⟼ cos ⁡ k ⁢ s
141 136 140 eqtrd ⊢ k ∈ 1 … N → ds ∈ ℝ sin ⁡ k ⁢ s k d ℝ s = s ∈ ℝ ⟼ cos ⁡ k ⁢ s
142 141 adantl ⊢ φ ∧ k ∈ 1 … N → ds ∈ ℝ sin ⁡ k ⁢ s k d ℝ s = s ∈ ℝ ⟼ cos ⁡ k ⁢ s
143 96 97 59 99 100 102 105 142 dvmptfsum ⊢ φ → ds ∈ ℝ ∑ k = 1 N sin ⁡ k ⁢ s k d ℝ s = s ∈ ℝ ⟼ ∑ k = 1 N cos ⁡ k ⁢ s
144 59 85 86 93 94 95 143 dvmptadd ⊢ φ → ds ∈ ℝ s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k d ℝ s = s ∈ ℝ ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s
145 78 a1i ⊢ φ → π ∈ ℂ
146 27 a1i ⊢ φ → π ≠ 0
147 59 83 84 144 145 146 dvmptdivc ⊢ φ → ds ∈ ℝ s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k π d ℝ s = s ∈ ℝ ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π
148 4 5 iccssred ⊢ φ → A B ⊆ ℝ
149 iccntr ⊢ A ∈ ℝ ∧ B ∈ ℝ → int ⁡ topGen ⁡ ran ⁡ . ⁡ A B = A B
150 4 5 149 syl2anc ⊢ φ → int ⁡ topGen ⁡ ran ⁡ . ⁡ A B = A B
151 59 81 82 147 148 96 97 150 dvmptres2 ⊢ φ → ds ∈ A B s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k π d ℝ s = s ∈ A B ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π
152 57 151 eqtrid ⊢ φ → ℝ D G = s ∈ A B ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π
153 152 30 fvmpt2d ⊢ φ ∧ s ∈ A B → G ℝ ′ ⁡ s = 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π
154 33 48 153 3eqtr4d ⊢ φ ∧ s ∈ A B → F ⁡ s = G ℝ ′ ⁡ s
155 154 itgeq2dv ⊢ φ → ∫ A B F ⁡ s ds = ∫ A B G ℝ ′ ⁡ s ds
156 ioosscn ⊢ A B ⊆ ℂ
157 156 a1i ⊢ φ → A B ⊆ ℂ
158 halfcn ⊢ 1 2 ∈ ℂ
159 158 a1i ⊢ φ → 1 2 ∈ ℂ
160 ssid ⊢ ℂ ⊆ ℂ
161 160 a1i ⊢ φ → ℂ ⊆ ℂ
162 157 159 161 constcncfg ⊢ φ → s ∈ A B ⟼ 1 2 : A B ⟶cn ℂ
163 eqid ⊢ s ∈ ℂ ⟼ cos ⁡ k ⁢ s = s ∈ ℂ ⟼ cos ⁡ k ⁢ s
164 coscn ⊢ cos : ℂ ⟶cn ℂ
165 164 a1i ⊢ k ∈ 1 … N → cos : ℂ ⟶cn ℂ
166 eqid ⊢ s ∈ ℂ ⟼ k ⁢ s = s ∈ ℂ ⟼ k ⁢ s
167 166 mulc1cncf ⊢ k ∈ ℂ → s ∈ ℂ ⟼ k ⁢ s : ℂ ⟶cn ℂ
168 62 167 syl ⊢ k ∈ 1 … N → s ∈ ℂ ⟼ k ⁢ s : ℂ ⟶cn ℂ
169 165 168 cncfmpt1f ⊢ k ∈ 1 … N → s ∈ ℂ ⟼ cos ⁡ k ⁢ s : ℂ ⟶cn ℂ
170 156 a1i ⊢ k ∈ 1 … N → A B ⊆ ℂ
171 160 a1i ⊢ k ∈ 1 … N → ℂ ⊆ ℂ
172 11 104 sylan2 ⊢ k ∈ 1 … N ∧ s ∈ A B → cos ⁡ k ⁢ s ∈ ℂ
173 163 169 170 171 172 cncfmptssg ⊢ k ∈ 1 … N → s ∈ A B ⟼ cos ⁡ k ⁢ s : A B ⟶cn ℂ
174 173 adantl ⊢ φ ∧ k ∈ 1 … N → s ∈ A B ⟼ cos ⁡ k ⁢ s : A B ⟶cn ℂ
175 157 100 174 fsumcncf ⊢ φ → s ∈ A B ⟼ ∑ k = 1 N cos ⁡ k ⁢ s : A B ⟶cn ℂ
176 162 175 addcncf ⊢ φ → s ∈ A B ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s : A B ⟶cn ℂ
177 eqid ⊢ s ∈ ℂ ⟼ π = s ∈ ℂ ⟼ π
178 cncfmptc ⊢ π ∈ ℂ ∧ ℂ ⊆ ℂ ∧ ℂ ⊆ ℂ → s ∈ ℂ ⟼ π : ℂ ⟶cn ℂ
179 78 160 160 178 mp3an ⊢ s ∈ ℂ ⟼ π : ℂ ⟶cn ℂ
180 179 a1i ⊢ φ → s ∈ ℂ ⟼ π : ℂ ⟶cn ℂ
181 difssd ⊢ φ → ℂ ∖ 0 ⊆ ℂ
182 eldifsn ⊢ π ∈ ℂ ∖ 0 ↔ π ∈ ℂ ∧ π ≠ 0
183 78 27 182 mpbir2an ⊢ π ∈ ℂ ∖ 0
184 183 a1i ⊢ φ ∧ s ∈ A B → π ∈ ℂ ∖ 0
185 177 180 157 181 184 cncfmptssg ⊢ φ → s ∈ A B ⟼ π : A B ⟶cn ℂ ∖ 0
186 176 185 divcncf ⊢ φ → s ∈ A B ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π : A B ⟶cn ℂ
187 152 186 eqeltrd ⊢ φ → G ℝ ′ : A B ⟶cn ℂ
188 ioossicc ⊢ A B ⊆ A B
189 188 a1i ⊢ φ → A B ⊆ A B
190 ioombl ⊢ A B ∈ dom ⁡ vol
191 190 a1i ⊢ φ → A B ∈ dom ⁡ vol
192 13 a1i ⊢ φ ∧ s ∈ A B → 1 2 ∈ ℝ
193 fzfid ⊢ φ ∧ s ∈ A B → 1 … N ∈ Fin
194 17 adantl ⊢ φ ∧ s ∈ A B ∧ k ∈ 1 … N → k ∈ ℝ
195 148 sselda ⊢ φ ∧ s ∈ A B → s ∈ ℝ
196 195 adantr ⊢ φ ∧ s ∈ A B ∧ k ∈ 1 … N → s ∈ ℝ
197 194 196 remulcld ⊢ φ ∧ s ∈ A B ∧ k ∈ 1 … N → k ⁢ s ∈ ℝ
198 197 recoscld ⊢ φ ∧ s ∈ A B ∧ k ∈ 1 … N → cos ⁡ k ⁢ s ∈ ℝ
199 193 198 fsumrecl ⊢ φ ∧ s ∈ A B → ∑ k = 1 N cos ⁡ k ⁢ s ∈ ℝ
200 192 199 readdcld ⊢ φ ∧ s ∈ A B → 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s ∈ ℝ
201 24 a1i ⊢ φ ∧ s ∈ A B → π ∈ ℝ
202 27 a1i ⊢ φ ∧ s ∈ A B → π ≠ 0
203 200 201 202 redivcld ⊢ φ ∧ s ∈ A B → 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ∈ ℝ
204 148 114 sstrdi ⊢ φ → A B ⊆ ℂ
205 204 159 161 constcncfg ⊢ φ → s ∈ A B ⟼ 1 2 : A B ⟶cn ℂ
206 eqid ⊢ s ∈ ℂ ⟼ ∑ k = 1 N cos ⁡ k ⁢ s = s ∈ ℂ ⟼ ∑ k = 1 N cos ⁡ k ⁢ s
207 169 adantl ⊢ φ ∧ k ∈ 1 … N → s ∈ ℂ ⟼ cos ⁡ k ⁢ s : ℂ ⟶cn ℂ
208 161 100 207 fsumcncf ⊢ φ → s ∈ ℂ ⟼ ∑ k = 1 N cos ⁡ k ⁢ s : ℂ ⟶cn ℂ
209 199 recnd ⊢ φ ∧ s ∈ A B → ∑ k = 1 N cos ⁡ k ⁢ s ∈ ℂ
210 206 208 204 161 209 cncfmptssg ⊢ φ → s ∈ A B ⟼ ∑ k = 1 N cos ⁡ k ⁢ s : A B ⟶cn ℂ
211 205 210 addcncf ⊢ φ → s ∈ A B ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s : A B ⟶cn ℂ
212 183 a1i ⊢ φ → π ∈ ℂ ∖ 0
213 204 212 181 constcncfg ⊢ φ → s ∈ A B ⟼ π : A B ⟶cn ℂ ∖ 0
214 211 213 divcncf ⊢ φ → s ∈ A B ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π : A B ⟶cn ℂ
215 cniccibl ⊢ A ∈ ℝ ∧ B ∈ ℝ ∧ s ∈ A B ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π : A B ⟶cn ℂ → s ∈ A B ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ∈ 𝐿 1
216 4 5 214 215 syl3anc ⊢ φ → s ∈ A B ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ∈ 𝐿 1
217 189 191 203 216 iblss ⊢ φ → s ∈ A B ⟼ 1 2 + ∑ k = 1 N cos ⁡ k ⁢ s π ∈ 𝐿 1
218 152 217 eqeltrd ⊢ φ → ℝ D G ∈ 𝐿 1
219 204 161 idcncfg ⊢ φ → s ∈ A B ⟼ s : A B ⟶cn ℂ
220 2cn ⊢ 2 ∈ ℂ
221 eldifsn ⊢ 2 ∈ ℂ ∖ 0 ↔ 2 ∈ ℂ ∧ 2 ≠ 0
222 220 91 221 mpbir2an ⊢ 2 ∈ ℂ ∖ 0
223 222 a1i ⊢ φ → 2 ∈ ℂ ∖ 0
224 204 223 181 constcncfg ⊢ φ → s ∈ A B ⟼ 2 : A B ⟶cn ℂ ∖ 0
225 219 224 divcncf ⊢ φ → s ∈ A B ⟼ s 2 : A B ⟶cn ℂ
226 eqid ⊢ s ∈ ℂ ⟼ sin ⁡ k ⁢ s = s ∈ ℂ ⟼ sin ⁡ k ⁢ s
227 sincn ⊢ sin : ℂ ⟶cn ℂ
228 227 a1i ⊢ k ∈ 1 … N → sin : ℂ ⟶cn ℂ
229 228 168 cncfmpt1f ⊢ k ∈ 1 … N → s ∈ ℂ ⟼ sin ⁡ k ⁢ s : ℂ ⟶cn ℂ
230 229 adantl ⊢ φ ∧ k ∈ 1 … N → s ∈ ℂ ⟼ sin ⁡ k ⁢ s : ℂ ⟶cn ℂ
231 204 adantr ⊢ φ ∧ k ∈ 1 … N → A B ⊆ ℂ
232 160 a1i ⊢ φ ∧ k ∈ 1 … N → ℂ ⊆ ℂ
233 62 ad2antlr ⊢ φ ∧ k ∈ 1 … N ∧ s ∈ A B → k ∈ ℂ
234 195 recnd ⊢ φ ∧ s ∈ A B → s ∈ ℂ
235 234 adantlr ⊢ φ ∧ k ∈ 1 … N ∧ s ∈ A B → s ∈ ℂ
236 233 235 mulcld ⊢ φ ∧ k ∈ 1 … N ∧ s ∈ A B → k ⁢ s ∈ ℂ
237 236 sincld ⊢ φ ∧ k ∈ 1 … N ∧ s ∈ A B → sin ⁡ k ⁢ s ∈ ℂ
238 226 230 231 232 237 cncfmptssg ⊢ φ ∧ k ∈ 1 … N → s ∈ A B ⟼ sin ⁡ k ⁢ s : A B ⟶cn ℂ
239 eldifsn ⊢ k ∈ ℂ ∖ 0 ↔ k ∈ ℂ ∧ k ≠ 0
240 62 73 239 sylanbrc ⊢ k ∈ 1 … N → k ∈ ℂ ∖ 0
241 240 adantl ⊢ φ ∧ k ∈ 1 … N → k ∈ ℂ ∖ 0
242 difssd ⊢ φ ∧ k ∈ 1 … N → ℂ ∖ 0 ⊆ ℂ
243 231 241 242 constcncfg ⊢ φ ∧ k ∈ 1 … N → s ∈ A B ⟼ k : A B ⟶cn ℂ ∖ 0
244 238 243 divcncf ⊢ φ ∧ k ∈ 1 … N → s ∈ A B ⟼ sin ⁡ k ⁢ s k : A B ⟶cn ℂ
245 204 100 244 fsumcncf ⊢ φ → s ∈ A B ⟼ ∑ k = 1 N sin ⁡ k ⁢ s k : A B ⟶cn ℂ
246 225 245 addcncf ⊢ φ → s ∈ A B ⟼ s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k : A B ⟶cn ℂ
247 246 213 divcncf ⊢ φ → s ∈ A B ⟼ s 2 + ∑ k = 1 N sin ⁡ k ⁢ s k π : A B ⟶cn ℂ
248 56 247 eqeltrid ⊢ φ → G : A B ⟶cn ℂ
249 4 5 6 187 218 248 ftc2 ⊢ φ → ∫ A B G ℝ ′ ⁡ s ds = G ⁡ B − G ⁡ A
250 10 155 249 3eqtrd ⊢ φ → ∫ A B F ⁡ x dx = G ⁡ B − G ⁡ A