Metamath Proof Explorer


Theorem fourierdlem56

Description: Derivative of the K function on an interval not containing ' 0 '. (Contributed by Glauco Siliprandi, 11-Dec-2019)

Ref Expression
Hypotheses fourierdlem56.k ⊢ K = s ∈ − π π ⟼ if s = 0 1 s 2 ⁢ sin ⁡ s 2
fourierdlem56.a ⊢ φ → A B ⊆ − π π ∖ 0
fourierdlem56.r4 ⊢ φ ∧ s ∈ A B → s ≠ 0
Assertion fourierdlem56 ⊢ φ → ds ∈ A B K ⁡ s d ℝ s = s ∈ A B ⟼ sin ⁡ s 2 − cos ⁡ s 2 2 ⁢ s sin ⁡ s 2 2 2

Proof

Step Hyp Ref Expression
1 fourierdlem56.k ⊢ K = s ∈ − π π ⟼ if s = 0 1 s 2 ⁢ sin ⁡ s 2
2 fourierdlem56.a ⊢ φ → A B ⊆ − π π ∖ 0
3 fourierdlem56.r4 ⊢ φ ∧ s ∈ A B → s ≠ 0
4 2 difss2d ⊢ φ → A B ⊆ − π π
5 4 sselda ⊢ φ ∧ s ∈ A B → s ∈ − π π
6 1ex ⊢ 1 ∈ V
7 ovex ⊢ s 2 ⁢ sin ⁡ s 2 ∈ V
8 6 7 ifex ⊢ if s = 0 1 s 2 ⁢ sin ⁡ s 2 ∈ V
9 8 a1i ⊢ φ ∧ s ∈ A B → if s = 0 1 s 2 ⁢ sin ⁡ s 2 ∈ V
10 1 fvmpt2 ⊢ s ∈ − π π ∧ if s = 0 1 s 2 ⁢ sin ⁡ s 2 ∈ V → K ⁡ s = if s = 0 1 s 2 ⁢ sin ⁡ s 2
11 5 9 10 syl2anc ⊢ φ ∧ s ∈ A B → K ⁡ s = if s = 0 1 s 2 ⁢ sin ⁡ s 2
12 3 neneqd ⊢ φ ∧ s ∈ A B → ¬ s = 0
13 12 iffalsed ⊢ φ ∧ s ∈ A B → if s = 0 1 s 2 ⁢ sin ⁡ s 2 = s 2 ⁢ sin ⁡ s 2
14 elioore ⊢ s ∈ A B → s ∈ ℝ
15 14 adantl ⊢ φ ∧ s ∈ A B → s ∈ ℝ
16 15 recnd ⊢ φ ∧ s ∈ A B → s ∈ ℂ
17 16 halfcld ⊢ φ ∧ s ∈ A B → s 2 ∈ ℂ
18 17 sincld ⊢ φ ∧ s ∈ A B → sin ⁡ s 2 ∈ ℂ
19 2cnd ⊢ φ ∧ s ∈ A B → 2 ∈ ℂ
20 fourierdlem44 ⊢ s ∈ − π π ∧ s ≠ 0 → sin ⁡ s 2 ≠ 0
21 5 3 20 syl2anc ⊢ φ ∧ s ∈ A B → sin ⁡ s 2 ≠ 0
22 2ne0 ⊢ 2 ≠ 0
23 22 a1i ⊢ φ ∧ s ∈ A B → 2 ≠ 0
24 16 18 19 21 23 divdiv1d ⊢ φ ∧ s ∈ A B → s sin ⁡ s 2 2 = s sin ⁡ s 2 ⋅ 2
25 18 19 mulcomd ⊢ φ ∧ s ∈ A B → sin ⁡ s 2 ⋅ 2 = 2 ⁢ sin ⁡ s 2
26 25 oveq2d ⊢ φ ∧ s ∈ A B → s sin ⁡ s 2 ⋅ 2 = s 2 ⁢ sin ⁡ s 2
27 24 26 eqtr2d ⊢ φ ∧ s ∈ A B → s 2 ⁢ sin ⁡ s 2 = s sin ⁡ s 2 2
28 11 13 27 3eqtrd ⊢ φ ∧ s ∈ A B → K ⁡ s = s sin ⁡ s 2 2
29 28 mpteq2dva ⊢ φ → s ∈ A B ⟼ K ⁡ s = s ∈ A B ⟼ s sin ⁡ s 2 2
30 29 oveq2d ⊢ φ → ds ∈ A B K ⁡ s d ℝ s = ds ∈ A B s sin ⁡ s 2 2 d ℝ s
31 reelprrecn ⊢ ℝ ∈ ℝ ℂ
32 31 a1i ⊢ φ → ℝ ∈ ℝ ℂ
33 16 18 21 divcld ⊢ φ ∧ s ∈ A B → s sin ⁡ s 2 ∈ ℂ
34 1red ⊢ φ ∧ s ∈ A B → 1 ∈ ℝ
35 15 rehalfcld ⊢ φ ∧ s ∈ A B → s 2 ∈ ℝ
36 35 resincld ⊢ φ ∧ s ∈ A B → sin ⁡ s 2 ∈ ℝ
37 34 36 remulcld ⊢ φ ∧ s ∈ A B → 1 ⁢ sin ⁡ s 2 ∈ ℝ
38 35 recoscld ⊢ φ ∧ s ∈ A B → cos ⁡ s 2 ∈ ℝ
39 34 rehalfcld ⊢ φ ∧ s ∈ A B → 1 2 ∈ ℝ
40 38 39 remulcld ⊢ φ ∧ s ∈ A B → cos ⁡ s 2 ⁢ 1 2 ∈ ℝ
41 40 15 remulcld ⊢ φ ∧ s ∈ A B → cos ⁡ s 2 ⁢ 1 2 ⁢ s ∈ ℝ
42 37 41 resubcld ⊢ φ ∧ s ∈ A B → 1 ⁢ sin ⁡ s 2 − cos ⁡ s 2 ⁢ 1 2 ⁢ s ∈ ℝ
43 36 resqcld ⊢ φ ∧ s ∈ A B → sin ⁡ s 2 2 ∈ ℝ
44 2z ⊢ 2 ∈ ℤ
45 44 a1i ⊢ φ ∧ s ∈ A B → 2 ∈ ℤ
46 18 21 45 expne0d ⊢ φ ∧ s ∈ A B → sin ⁡ s 2 2 ≠ 0
47 42 43 46 redivcld ⊢ φ ∧ s ∈ A B → 1 ⁢ sin ⁡ s 2 − cos ⁡ s 2 ⁢ 1 2 ⁢ s sin ⁡ s 2 2 ∈ ℝ
48 1cnd ⊢ φ ∧ s ∈ A B → 1 ∈ ℂ
49 recn ⊢ s ∈ ℝ → s ∈ ℂ
50 49 adantl ⊢ φ ∧ s ∈ ℝ → s ∈ ℂ
51 1red ⊢ φ ∧ s ∈ ℝ → 1 ∈ ℝ
52 32 dvmptid ⊢ φ → ds ∈ ℝ s d ℝ s = s ∈ ℝ ⟼ 1
53 ioossre ⊢ A B ⊆ ℝ
54 53 a1i ⊢ φ → A B ⊆ ℝ
55 tgioo4 ⊢ topGen ⁡ ran ⁡ . = TopOpen ⁡ ℂ fld ↾ 𝑡 ℝ
56 eqid ⊢ TopOpen ⁡ ℂ fld = TopOpen ⁡ ℂ fld
57 iooretop ⊢ A B ∈ topGen ⁡ ran ⁡ .
58 57 a1i ⊢ φ → A B ∈ topGen ⁡ ran ⁡ .
59 32 50 51 52 54 55 56 58 dvmptres ⊢ φ → ds ∈ A B s d ℝ s = s ∈ A B ⟼ 1
60 elsni ⊢ sin ⁡ s 2 ∈ 0 → sin ⁡ s 2 = 0
61 60 necon3ai ⊢ sin ⁡ s 2 ≠ 0 → ¬ sin ⁡ s 2 ∈ 0
62 21 61 syl ⊢ φ ∧ s ∈ A B → ¬ sin ⁡ s 2 ∈ 0
63 18 62 eldifd ⊢ φ ∧ s ∈ A B → sin ⁡ s 2 ∈ ℂ ∖ 0
64 17 coscld ⊢ φ ∧ s ∈ A B → cos ⁡ s 2 ∈ ℂ
65 48 halfcld ⊢ φ ∧ s ∈ A B → 1 2 ∈ ℂ
66 64 65 mulcld ⊢ φ ∧ s ∈ A B → cos ⁡ s 2 ⁢ 1 2 ∈ ℂ
67 cnelprrecn ⊢ ℂ ∈ ℝ ℂ
68 67 a1i ⊢ φ → ℂ ∈ ℝ ℂ
69 sinf ⊢ sin : ℂ ⟶ ℂ
70 69 a1i ⊢ φ → sin : ℂ ⟶ ℂ
71 70 ffvelcdmda ⊢ φ ∧ x ∈ ℂ → sin ⁡ x ∈ ℂ
72 cosf ⊢ cos : ℂ ⟶ ℂ
73 72 a1i ⊢ φ → cos : ℂ ⟶ ℂ
74 73 ffvelcdmda ⊢ φ ∧ x ∈ ℂ → cos ⁡ x ∈ ℂ
75 2cnd ⊢ φ → 2 ∈ ℂ
76 22 a1i ⊢ φ → 2 ≠ 0
77 32 16 34 59 75 76 dvmptdivc ⊢ φ → ds ∈ A B s 2 d ℝ s = s ∈ A B ⟼ 1 2
78 ffn ⊢ sin : ℂ ⟶ ℂ → sin Fn ℂ
79 69 78 ax-mp ⊢ sin Fn ℂ
80 dffn5 ⊢ sin Fn ℂ ↔ sin = x ∈ ℂ ⟼ sin ⁡ x
81 79 80 mpbi ⊢ sin = x ∈ ℂ ⟼ sin ⁡ x
82 81 eqcomi ⊢ x ∈ ℂ ⟼ sin ⁡ x = sin
83 82 oveq2i ⊢ dx ∈ ℂ sin ⁡ x d ℂ x = ℂ D sin
84 dvsin ⊢ ℂ D sin = cos
85 ffn ⊢ cos : ℂ ⟶ ℂ → cos Fn ℂ
86 72 85 ax-mp ⊢ cos Fn ℂ
87 dffn5 ⊢ cos Fn ℂ ↔ cos = x ∈ ℂ ⟼ cos ⁡ x
88 86 87 mpbi ⊢ cos = x ∈ ℂ ⟼ cos ⁡ x
89 83 84 88 3eqtri ⊢ dx ∈ ℂ sin ⁡ x d ℂ x = x ∈ ℂ ⟼ cos ⁡ x
90 89 a1i ⊢ φ → dx ∈ ℂ sin ⁡ x d ℂ x = x ∈ ℂ ⟼ cos ⁡ x
91 fveq2 ⊢ x = s 2 → sin ⁡ x = sin ⁡ s 2
92 fveq2 ⊢ x = s 2 → cos ⁡ x = cos ⁡ s 2
93 32 68 17 39 71 74 77 90 91 92 dvmptco ⊢ φ → ds ∈ A B sin ⁡ s 2 d ℝ s = s ∈ A B ⟼ cos ⁡ s 2 ⁢ 1 2
94 32 16 48 59 63 66 93 dvmptdiv ⊢ φ → ds ∈ A B s sin ⁡ s 2 d ℝ s = s ∈ A B ⟼ 1 ⁢ sin ⁡ s 2 − cos ⁡ s 2 ⁢ 1 2 ⁢ s sin ⁡ s 2 2
95 32 33 47 94 75 76 dvmptdivc ⊢ φ → ds ∈ A B s sin ⁡ s 2 2 d ℝ s = s ∈ A B ⟼ 1 ⁢ sin ⁡ s 2 − cos ⁡ s 2 ⁢ 1 2 ⁢ s sin ⁡ s 2 2 2
96 14 recnd ⊢ s ∈ A B → s ∈ ℂ
97 96 halfcld ⊢ s ∈ A B → s 2 ∈ ℂ
98 97 sincld ⊢ s ∈ A B → sin ⁡ s 2 ∈ ℂ
99 98 mullidd ⊢ s ∈ A B → 1 ⁢ sin ⁡ s 2 = sin ⁡ s 2
100 97 coscld ⊢ s ∈ A B → cos ⁡ s 2 ∈ ℂ
101 2cnd ⊢ s ∈ A B → 2 ∈ ℂ
102 22 a1i ⊢ s ∈ A B → 2 ≠ 0
103 100 101 102 divrecd ⊢ s ∈ A B → cos ⁡ s 2 2 = cos ⁡ s 2 ⁢ 1 2
104 103 eqcomd ⊢ s ∈ A B → cos ⁡ s 2 ⁢ 1 2 = cos ⁡ s 2 2
105 104 oveq1d ⊢ s ∈ A B → cos ⁡ s 2 ⁢ 1 2 ⁢ s = cos ⁡ s 2 2 ⁢ s
106 99 105 oveq12d ⊢ s ∈ A B → 1 ⁢ sin ⁡ s 2 − cos ⁡ s 2 ⁢ 1 2 ⁢ s = sin ⁡ s 2 − cos ⁡ s 2 2 ⁢ s
107 106 oveq1d ⊢ s ∈ A B → 1 ⁢ sin ⁡ s 2 − cos ⁡ s 2 ⁢ 1 2 ⁢ s sin ⁡ s 2 2 = sin ⁡ s 2 − cos ⁡ s 2 2 ⁢ s sin ⁡ s 2 2
108 107 oveq1d ⊢ s ∈ A B → 1 ⁢ sin ⁡ s 2 − cos ⁡ s 2 ⁢ 1 2 ⁢ s sin ⁡ s 2 2 2 = sin ⁡ s 2 − cos ⁡ s 2 2 ⁢ s sin ⁡ s 2 2 2
109 108 mpteq2ia ⊢ s ∈ A B ⟼ 1 ⁢ sin ⁡ s 2 − cos ⁡ s 2 ⁢ 1 2 ⁢ s sin ⁡ s 2 2 2 = s ∈ A B ⟼ sin ⁡ s 2 − cos ⁡ s 2 2 ⁢ s sin ⁡ s 2 2 2
110 109 a1i ⊢ φ → s ∈ A B ⟼ 1 ⁢ sin ⁡ s 2 − cos ⁡ s 2 ⁢ 1 2 ⁢ s sin ⁡ s 2 2 2 = s ∈ A B ⟼ sin ⁡ s 2 − cos ⁡ s 2 2 ⁢ s sin ⁡ s 2 2 2
111 30 95 110 3eqtrd ⊢ φ → ds ∈ A B K ⁡ s d ℝ s = s ∈ A B ⟼ sin ⁡ s 2 − cos ⁡ s 2 2 ⁢ s sin ⁡ s 2 2 2