Proof of Theorem fourierdlem43
Step | Hyp | Ref
| Expression |
1 | | fourierdlem43.1 |
. 2
⊢ 𝐾 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2)))))) |
2 | | 1red 10907 |
. . 3
⊢ ((𝑠 ∈ (-π[,]π) ∧
𝑠 = 0) → 1 ∈
ℝ) |
3 | | pire 25520 |
. . . . . . . 8
⊢ π
∈ ℝ |
4 | 3 | a1i 11 |
. . . . . . 7
⊢ (𝑠 ∈ (-π[,]π) →
π ∈ ℝ) |
5 | 4 | renegcld 11332 |
. . . . . 6
⊢ (𝑠 ∈ (-π[,]π) →
-π ∈ ℝ) |
6 | | id 22 |
. . . . . 6
⊢ (𝑠 ∈ (-π[,]π) →
𝑠 ∈
(-π[,]π)) |
7 | | eliccre 42933 |
. . . . . 6
⊢ ((-π
∈ ℝ ∧ π ∈ ℝ ∧ 𝑠 ∈ (-π[,]π)) → 𝑠 ∈
ℝ) |
8 | 5, 4, 6, 7 | syl3anc 1369 |
. . . . 5
⊢ (𝑠 ∈ (-π[,]π) →
𝑠 ∈
ℝ) |
9 | 8 | adantr 480 |
. . . 4
⊢ ((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) → 𝑠 ∈
ℝ) |
10 | | 2re 11977 |
. . . . . 6
⊢ 2 ∈
ℝ |
11 | 10 | a1i 11 |
. . . . 5
⊢ ((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) → 2
∈ ℝ) |
12 | 9 | rehalfcld 12150 |
. . . . . 6
⊢ ((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) → (𝑠 / 2) ∈
ℝ) |
13 | 12 | resincld 15780 |
. . . . 5
⊢ ((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) →
(sin‘(𝑠 / 2)) ∈
ℝ) |
14 | 11, 13 | remulcld 10936 |
. . . 4
⊢ ((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) → (2
· (sin‘(𝑠 /
2))) ∈ ℝ) |
15 | | 2cnd 11981 |
. . . . 5
⊢ ((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) → 2
∈ ℂ) |
16 | 13 | recnd 10934 |
. . . . 5
⊢ ((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) →
(sin‘(𝑠 / 2)) ∈
ℂ) |
17 | | 2ne0 12007 |
. . . . . 6
⊢ 2 ≠
0 |
18 | 17 | a1i 11 |
. . . . 5
⊢ ((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) → 2 ≠
0) |
19 | | 0xr 10953 |
. . . . . . . . . 10
⊢ 0 ∈
ℝ* |
20 | 19 | a1i 11 |
. . . . . . . . 9
⊢ ((𝑠 ∈ (-π[,]π) ∧ 0
< 𝑠) → 0 ∈
ℝ*) |
21 | 10, 3 | remulcli 10922 |
. . . . . . . . . . 11
⊢ (2
· π) ∈ ℝ |
22 | 21 | rexri 10964 |
. . . . . . . . . 10
⊢ (2
· π) ∈ ℝ* |
23 | 22 | a1i 11 |
. . . . . . . . 9
⊢ ((𝑠 ∈ (-π[,]π) ∧ 0
< 𝑠) → (2 ·
π) ∈ ℝ*) |
24 | 8 | adantr 480 |
. . . . . . . . 9
⊢ ((𝑠 ∈ (-π[,]π) ∧ 0
< 𝑠) → 𝑠 ∈
ℝ) |
25 | | simpr 484 |
. . . . . . . . 9
⊢ ((𝑠 ∈ (-π[,]π) ∧ 0
< 𝑠) → 0 < 𝑠) |
26 | 21 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (-π[,]π) → (2
· π) ∈ ℝ) |
27 | 5 | rexrd 10956 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (-π[,]π) →
-π ∈ ℝ*) |
28 | 4 | rexrd 10956 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (-π[,]π) →
π ∈ ℝ*) |
29 | | iccleub 13063 |
. . . . . . . . . . . 12
⊢ ((-π
∈ ℝ* ∧ π ∈ ℝ* ∧ 𝑠 ∈ (-π[,]π)) →
𝑠 ≤
π) |
30 | 27, 28, 6, 29 | syl3anc 1369 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (-π[,]π) →
𝑠 ≤
π) |
31 | | pirp 25523 |
. . . . . . . . . . . . 13
⊢ π
∈ ℝ+ |
32 | | 2timesgt 42716 |
. . . . . . . . . . . . 13
⊢ (π
∈ ℝ+ → π < (2 · π)) |
33 | 31, 32 | ax-mp 5 |
. . . . . . . . . . . 12
⊢ π <
(2 · π) |
34 | 33 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (-π[,]π) →
π < (2 · π)) |
35 | 8, 4, 26, 30, 34 | lelttrd 11063 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (-π[,]π) →
𝑠 < (2 ·
π)) |
36 | 35 | adantr 480 |
. . . . . . . . 9
⊢ ((𝑠 ∈ (-π[,]π) ∧ 0
< 𝑠) → 𝑠 < (2 ·
π)) |
37 | 20, 23, 24, 25, 36 | eliood 42926 |
. . . . . . . 8
⊢ ((𝑠 ∈ (-π[,]π) ∧ 0
< 𝑠) → 𝑠 ∈ (0(,)(2 ·
π))) |
38 | | sinaover2ne0 43299 |
. . . . . . . 8
⊢ (𝑠 ∈ (0(,)(2 · π))
→ (sin‘(𝑠 / 2))
≠ 0) |
39 | 37, 38 | syl 17 |
. . . . . . 7
⊢ ((𝑠 ∈ (-π[,]π) ∧ 0
< 𝑠) →
(sin‘(𝑠 / 2)) ≠
0) |
40 | 39 | adantlr 711 |
. . . . . 6
⊢ (((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) ∧ 0 <
𝑠) → (sin‘(𝑠 / 2)) ≠ 0) |
41 | 8 | ad2antrr 722 |
. . . . . . . 8
⊢ (((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) ∧ ¬ 0
< 𝑠) → 𝑠 ∈
ℝ) |
42 | | iccgelb 13064 |
. . . . . . . . . 10
⊢ ((-π
∈ ℝ* ∧ π ∈ ℝ* ∧ 𝑠 ∈ (-π[,]π)) →
-π ≤ 𝑠) |
43 | 27, 28, 6, 42 | syl3anc 1369 |
. . . . . . . . 9
⊢ (𝑠 ∈ (-π[,]π) →
-π ≤ 𝑠) |
44 | 43 | ad2antrr 722 |
. . . . . . . 8
⊢ (((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) ∧ ¬ 0
< 𝑠) → -π ≤
𝑠) |
45 | | 0red 10909 |
. . . . . . . . 9
⊢ (((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) ∧ ¬ 0
< 𝑠) → 0 ∈
ℝ) |
46 | | neqne 2950 |
. . . . . . . . . 10
⊢ (¬
𝑠 = 0 → 𝑠 ≠ 0) |
47 | 46 | ad2antlr 723 |
. . . . . . . . 9
⊢ (((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) ∧ ¬ 0
< 𝑠) → 𝑠 ≠ 0) |
48 | | simpr 484 |
. . . . . . . . 9
⊢ (((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) ∧ ¬ 0
< 𝑠) → ¬ 0 <
𝑠) |
49 | 41, 45, 47, 48 | lttri5d 42728 |
. . . . . . . 8
⊢ (((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) ∧ ¬ 0
< 𝑠) → 𝑠 < 0) |
50 | 5 | ad2antrr 722 |
. . . . . . . . 9
⊢ (((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) ∧ ¬ 0
< 𝑠) → -π ∈
ℝ) |
51 | | elico2 13072 |
. . . . . . . . 9
⊢ ((-π
∈ ℝ ∧ 0 ∈ ℝ*) → (𝑠 ∈ (-π[,)0) ↔ (𝑠 ∈ ℝ ∧ -π ≤
𝑠 ∧ 𝑠 < 0))) |
52 | 50, 19, 51 | sylancl 585 |
. . . . . . . 8
⊢ (((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) ∧ ¬ 0
< 𝑠) → (𝑠 ∈ (-π[,)0) ↔
(𝑠 ∈ ℝ ∧
-π ≤ 𝑠 ∧ 𝑠 < 0))) |
53 | 41, 44, 49, 52 | mpbir3and 1340 |
. . . . . . 7
⊢ (((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) ∧ ¬ 0
< 𝑠) → 𝑠 ∈
(-π[,)0)) |
54 | 3 | renegcli 11212 |
. . . . . . . . . . . . . . 15
⊢ -π
∈ ℝ |
55 | | elicore 13060 |
. . . . . . . . . . . . . . 15
⊢ ((-π
∈ ℝ ∧ 𝑠
∈ (-π[,)0)) → 𝑠 ∈ ℝ) |
56 | 54, 55 | mpan 686 |
. . . . . . . . . . . . . 14
⊢ (𝑠 ∈ (-π[,)0) → 𝑠 ∈
ℝ) |
57 | 56 | recnd 10934 |
. . . . . . . . . . . . 13
⊢ (𝑠 ∈ (-π[,)0) → 𝑠 ∈
ℂ) |
58 | | 2cnd 11981 |
. . . . . . . . . . . . 13
⊢ (𝑠 ∈ (-π[,)0) → 2
∈ ℂ) |
59 | 17 | a1i 11 |
. . . . . . . . . . . . 13
⊢ (𝑠 ∈ (-π[,)0) → 2
≠ 0) |
60 | 57, 58, 59 | divnegd 11694 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (-π[,)0) →
-(𝑠 / 2) = (-𝑠 / 2)) |
61 | 60 | eqcomd 2744 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (-π[,)0) →
(-𝑠 / 2) = -(𝑠 / 2)) |
62 | 61 | fveq2d 6760 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (-π[,)0) →
(sin‘(-𝑠 / 2)) =
(sin‘-(𝑠 /
2))) |
63 | 62 | negeqd 11145 |
. . . . . . . . 9
⊢ (𝑠 ∈ (-π[,)0) →
-(sin‘(-𝑠 / 2)) =
-(sin‘-(𝑠 /
2))) |
64 | 57 | halfcld 12148 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (-π[,)0) →
(𝑠 / 2) ∈
ℂ) |
65 | | sinneg 15783 |
. . . . . . . . . . 11
⊢ ((𝑠 / 2) ∈ ℂ →
(sin‘-(𝑠 / 2)) =
-(sin‘(𝑠 /
2))) |
66 | 64, 65 | syl 17 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (-π[,)0) →
(sin‘-(𝑠 / 2)) =
-(sin‘(𝑠 /
2))) |
67 | 66 | negeqd 11145 |
. . . . . . . . 9
⊢ (𝑠 ∈ (-π[,)0) →
-(sin‘-(𝑠 / 2)) =
--(sin‘(𝑠 /
2))) |
68 | 64 | sincld 15767 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (-π[,)0) →
(sin‘(𝑠 / 2)) ∈
ℂ) |
69 | 68 | negnegd 11253 |
. . . . . . . . 9
⊢ (𝑠 ∈ (-π[,)0) →
--(sin‘(𝑠 / 2)) =
(sin‘(𝑠 /
2))) |
70 | 63, 67, 69 | 3eqtrd 2782 |
. . . . . . . 8
⊢ (𝑠 ∈ (-π[,)0) →
-(sin‘(-𝑠 / 2)) =
(sin‘(𝑠 /
2))) |
71 | 57 | negcld 11249 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (-π[,)0) →
-𝑠 ∈
ℂ) |
72 | 71 | halfcld 12148 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (-π[,)0) →
(-𝑠 / 2) ∈
ℂ) |
73 | 72 | sincld 15767 |
. . . . . . . . 9
⊢ (𝑠 ∈ (-π[,)0) →
(sin‘(-𝑠 / 2)) ∈
ℂ) |
74 | 19 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (-π[,)0) → 0
∈ ℝ*) |
75 | 22 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (-π[,)0) → (2
· π) ∈ ℝ*) |
76 | 56 | renegcld 11332 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (-π[,)0) →
-𝑠 ∈
ℝ) |
77 | 54 | a1i 11 |
. . . . . . . . . . . . . 14
⊢ (𝑠 ∈ (-π[,)0) → -π
∈ ℝ) |
78 | 77 | rexrd 10956 |
. . . . . . . . . . . . 13
⊢ (𝑠 ∈ (-π[,)0) → -π
∈ ℝ*) |
79 | | id 22 |
. . . . . . . . . . . . 13
⊢ (𝑠 ∈ (-π[,)0) → 𝑠 ∈
(-π[,)0)) |
80 | | icoltub 42936 |
. . . . . . . . . . . . 13
⊢ ((-π
∈ ℝ* ∧ 0 ∈ ℝ* ∧ 𝑠 ∈ (-π[,)0)) →
𝑠 < 0) |
81 | 78, 74, 79, 80 | syl3anc 1369 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (-π[,)0) → 𝑠 < 0) |
82 | 56 | lt0neg1d 11474 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (-π[,)0) →
(𝑠 < 0 ↔ 0 <
-𝑠)) |
83 | 81, 82 | mpbid 231 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (-π[,)0) → 0
< -𝑠) |
84 | 3 | a1i 11 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (-π[,)0) → π
∈ ℝ) |
85 | 21 | a1i 11 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (-π[,)0) → (2
· π) ∈ ℝ) |
86 | | icogelb 13059 |
. . . . . . . . . . . . . 14
⊢ ((-π
∈ ℝ* ∧ 0 ∈ ℝ* ∧ 𝑠 ∈ (-π[,)0)) →
-π ≤ 𝑠) |
87 | 78, 74, 79, 86 | syl3anc 1369 |
. . . . . . . . . . . . 13
⊢ (𝑠 ∈ (-π[,)0) → -π
≤ 𝑠) |
88 | 84, 56, 87 | lenegcon1d 11487 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (-π[,)0) →
-𝑠 ≤
π) |
89 | 33 | a1i 11 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (-π[,)0) → π
< (2 · π)) |
90 | 76, 84, 85, 88, 89 | lelttrd 11063 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (-π[,)0) →
-𝑠 < (2 ·
π)) |
91 | 74, 75, 76, 83, 90 | eliood 42926 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (-π[,)0) →
-𝑠 ∈ (0(,)(2 ·
π))) |
92 | | sinaover2ne0 43299 |
. . . . . . . . . 10
⊢ (-𝑠 ∈ (0(,)(2 · π))
→ (sin‘(-𝑠 / 2))
≠ 0) |
93 | 91, 92 | syl 17 |
. . . . . . . . 9
⊢ (𝑠 ∈ (-π[,)0) →
(sin‘(-𝑠 / 2)) ≠
0) |
94 | 73, 93 | negne0d 11260 |
. . . . . . . 8
⊢ (𝑠 ∈ (-π[,)0) →
-(sin‘(-𝑠 / 2)) ≠
0) |
95 | 70, 94 | eqnetrrd 3011 |
. . . . . . 7
⊢ (𝑠 ∈ (-π[,)0) →
(sin‘(𝑠 / 2)) ≠
0) |
96 | 53, 95 | syl 17 |
. . . . . 6
⊢ (((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) ∧ ¬ 0
< 𝑠) →
(sin‘(𝑠 / 2)) ≠
0) |
97 | 40, 96 | pm2.61dan 809 |
. . . . 5
⊢ ((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) →
(sin‘(𝑠 / 2)) ≠
0) |
98 | 15, 16, 18, 97 | mulne0d 11557 |
. . . 4
⊢ ((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) → (2
· (sin‘(𝑠 /
2))) ≠ 0) |
99 | 9, 14, 98 | redivcld 11733 |
. . 3
⊢ ((𝑠 ∈ (-π[,]π) ∧
¬ 𝑠 = 0) → (𝑠 / (2 · (sin‘(𝑠 / 2)))) ∈
ℝ) |
100 | 2, 99 | ifclda 4491 |
. 2
⊢ (𝑠 ∈ (-π[,]π) →
if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))) ∈
ℝ) |
101 | 1, 100 | fmpti 6968 |
1
⊢ 𝐾:(-π[,]π)⟶ℝ |