Step | Hyp | Ref
| Expression |
1 | | fourierdlem68.f |
. . . . . 6
⊢ (𝜑 → 𝐹:ℝ⟶ℝ) |
2 | | fourierdlem68.xre |
. . . . . 6
⊢ (𝜑 → 𝑋 ∈ ℝ) |
3 | | fourierdlem68.a |
. . . . . 6
⊢ (𝜑 → 𝐴 ∈ ℝ) |
4 | | fourierdlem68.b |
. . . . . 6
⊢ (𝜑 → 𝐵 ∈ ℝ) |
5 | | fourierdlem68.fdv |
. . . . . 6
⊢ (𝜑 → (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))):((𝑋 + 𝐴)(,)(𝑋 + 𝐵))⟶ℝ) |
6 | | ioossicc 13094 |
. . . . . . 7
⊢ (𝐴(,)𝐵) ⊆ (𝐴[,]𝐵) |
7 | | fourierdlem68.ab |
. . . . . . 7
⊢ (𝜑 → (𝐴[,]𝐵) ⊆ (-π[,]π)) |
8 | 6, 7 | sstrid 3928 |
. . . . . 6
⊢ (𝜑 → (𝐴(,)𝐵) ⊆ (-π[,]π)) |
9 | | fourierdlem68.n0 |
. . . . . . 7
⊢ (𝜑 → ¬ 0 ∈ (𝐴[,]𝐵)) |
10 | 6 | sseli 3913 |
. . . . . . 7
⊢ (0 ∈
(𝐴(,)𝐵) → 0 ∈ (𝐴[,]𝐵)) |
11 | 9, 10 | nsyl 140 |
. . . . . 6
⊢ (𝜑 → ¬ 0 ∈ (𝐴(,)𝐵)) |
12 | | fourierdlem68.c |
. . . . . 6
⊢ (𝜑 → 𝐶 ∈ ℝ) |
13 | | fourierdlem68.o |
. . . . . 6
⊢ 𝑂 = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))) |
14 | 1, 2, 3, 4, 5, 8, 11, 12, 13 | fourierdlem57 43594 |
. . . . 5
⊢ ((𝜑 → ((ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ ∧ (ℝ D 𝑂) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 / 2)))↑2))))) ∧
(ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2)))) |
15 | 14 | simpli 483 |
. . . 4
⊢ (𝜑 → ((ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ ∧ (ℝ D 𝑂) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 /
2)))↑2))))) |
16 | 15 | simpld 494 |
. . 3
⊢ (𝜑 → (ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ) |
17 | 16 | fdmd 6595 |
. 2
⊢ (𝜑 → dom (ℝ D 𝑂) = (𝐴(,)𝐵)) |
18 | | eqid 2738 |
. . . . . 6
⊢ (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) = (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) |
19 | | fourierdlem68.altb |
. . . . . . 7
⊢ (𝜑 → 𝐴 < 𝐵) |
20 | 3, 4, 19 | ltled 11053 |
. . . . . 6
⊢ (𝜑 → 𝐴 ≤ 𝐵) |
21 | | 2re 11977 |
. . . . . . . . . . 11
⊢ 2 ∈
ℝ |
22 | 21 | a1i 11 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → 2 ∈ ℝ) |
23 | 3, 4 | iccssred 13095 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝐴[,]𝐵) ⊆ ℝ) |
24 | 23 | sselda 3917 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → 𝑡 ∈ ℝ) |
25 | 24 | rehalfcld 12150 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → (𝑡 / 2) ∈ ℝ) |
26 | 25 | resincld 15780 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → (sin‘(𝑡 / 2)) ∈ ℝ) |
27 | 22, 26 | remulcld 10936 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → (2 · (sin‘(𝑡 / 2))) ∈
ℝ) |
28 | | 2cnd 11981 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → 2 ∈ ℂ) |
29 | 26 | recnd 10934 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → (sin‘(𝑡 / 2)) ∈ ℂ) |
30 | | 2ne0 12007 |
. . . . . . . . . . 11
⊢ 2 ≠
0 |
31 | 30 | a1i 11 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → 2 ≠ 0) |
32 | 7 | sselda 3917 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → 𝑡 ∈ (-π[,]π)) |
33 | | eqcom 2745 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑡 = 0 ↔ 0 = 𝑡) |
34 | 33 | biimpi 215 |
. . . . . . . . . . . . . . . 16
⊢ (𝑡 = 0 → 0 = 𝑡) |
35 | 34 | adantl 481 |
. . . . . . . . . . . . . . 15
⊢ ((𝑡 ∈ (𝐴[,]𝐵) ∧ 𝑡 = 0) → 0 = 𝑡) |
36 | | simpl 482 |
. . . . . . . . . . . . . . 15
⊢ ((𝑡 ∈ (𝐴[,]𝐵) ∧ 𝑡 = 0) → 𝑡 ∈ (𝐴[,]𝐵)) |
37 | 35, 36 | eqeltrd 2839 |
. . . . . . . . . . . . . 14
⊢ ((𝑡 ∈ (𝐴[,]𝐵) ∧ 𝑡 = 0) → 0 ∈ (𝐴[,]𝐵)) |
38 | 37 | adantll 710 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) ∧ 𝑡 = 0) → 0 ∈ (𝐴[,]𝐵)) |
39 | 9 | ad2antrr 722 |
. . . . . . . . . . . . 13
⊢ (((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) ∧ 𝑡 = 0) → ¬ 0 ∈ (𝐴[,]𝐵)) |
40 | 38, 39 | pm2.65da 813 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → ¬ 𝑡 = 0) |
41 | 40 | neqned 2949 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → 𝑡 ≠ 0) |
42 | | fourierdlem44 43582 |
. . . . . . . . . . 11
⊢ ((𝑡 ∈ (-π[,]π) ∧
𝑡 ≠ 0) →
(sin‘(𝑡 / 2)) ≠
0) |
43 | 32, 41, 42 | syl2anc 583 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → (sin‘(𝑡 / 2)) ≠ 0) |
44 | 28, 29, 31, 43 | mulne0d 11557 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → (2 · (sin‘(𝑡 / 2))) ≠ 0) |
45 | | eldifsn 4717 |
. . . . . . . . 9
⊢ ((2
· (sin‘(𝑡 /
2))) ∈ (ℝ ∖ {0}) ↔ ((2 · (sin‘(𝑡 / 2))) ∈ ℝ ∧ (2
· (sin‘(𝑡 /
2))) ≠ 0)) |
46 | 27, 44, 45 | sylanbrc 582 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → (2 · (sin‘(𝑡 / 2))) ∈ (ℝ ∖
{0})) |
47 | 46, 18 | fmptd 6970 |
. . . . . . 7
⊢ (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))):(𝐴[,]𝐵)⟶(ℝ ∖
{0})) |
48 | | difss 4062 |
. . . . . . . . . 10
⊢ (ℝ
∖ {0}) ⊆ ℝ |
49 | | ax-resscn 10859 |
. . . . . . . . . 10
⊢ ℝ
⊆ ℂ |
50 | 48, 49 | sstri 3926 |
. . . . . . . . 9
⊢ (ℝ
∖ {0}) ⊆ ℂ |
51 | 50 | a1i 11 |
. . . . . . . 8
⊢ (𝜑 → (ℝ ∖ {0})
⊆ ℂ) |
52 | 23, 49 | sstrdi 3929 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐴[,]𝐵) ⊆ ℂ) |
53 | | 2cnd 11981 |
. . . . . . . . . 10
⊢ (𝜑 → 2 ∈
ℂ) |
54 | | ssid 3939 |
. . . . . . . . . . 11
⊢ ℂ
⊆ ℂ |
55 | 54 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → ℂ ⊆
ℂ) |
56 | 52, 53, 55 | constcncfg 43303 |
. . . . . . . . 9
⊢ (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→ℂ)) |
57 | | sincn 25508 |
. . . . . . . . . . 11
⊢ sin
∈ (ℂ–cn→ℂ) |
58 | 57 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → sin ∈
(ℂ–cn→ℂ)) |
59 | 52, 55 | idcncfg 43304 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 𝑡) ∈ ((𝐴[,]𝐵)–cn→ℂ)) |
60 | | eldifsn 4717 |
. . . . . . . . . . . . . 14
⊢ (2 ∈
(ℂ ∖ {0}) ↔ (2 ∈ ℂ ∧ 2 ≠
0)) |
61 | 28, 31, 60 | sylanbrc 582 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑡 ∈ (𝐴[,]𝐵)) → 2 ∈ (ℂ ∖
{0})) |
62 | | eqid 2738 |
. . . . . . . . . . . . 13
⊢ (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) = (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) |
63 | 61, 62 | fmptd 6970 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 2):(𝐴[,]𝐵)⟶(ℂ ∖
{0})) |
64 | | difssd 4063 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (ℂ ∖ {0})
⊆ ℂ) |
65 | | cncffvrn 23967 |
. . . . . . . . . . . . 13
⊢
(((ℂ ∖ {0}) ⊆ ℂ ∧ (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→ℂ)) → ((𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→(ℂ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ 2):(𝐴[,]𝐵)⟶(ℂ ∖
{0}))) |
66 | 64, 56, 65 | syl2anc 583 |
. . . . . . . . . . . 12
⊢ (𝜑 → ((𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→(ℂ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ 2):(𝐴[,]𝐵)⟶(ℂ ∖
{0}))) |
67 | 63, 66 | mpbird 256 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ 2) ∈ ((𝐴[,]𝐵)–cn→(ℂ ∖ {0}))) |
68 | 59, 67 | divcncf 24516 |
. . . . . . . . . 10
⊢ (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (𝑡 / 2)) ∈ ((𝐴[,]𝐵)–cn→ℂ)) |
69 | 58, 68 | cncfmpt1f 23983 |
. . . . . . . . 9
⊢ (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (sin‘(𝑡 / 2))) ∈ ((𝐴[,]𝐵)–cn→ℂ)) |
70 | 56, 69 | mulcncf 24515 |
. . . . . . . 8
⊢ (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→ℂ)) |
71 | | cncffvrn 23967 |
. . . . . . . 8
⊢
(((ℝ ∖ {0}) ⊆ ℂ ∧ (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→ℂ)) → ((𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→(ℝ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))):(𝐴[,]𝐵)⟶(ℝ ∖
{0}))) |
72 | 51, 70, 71 | syl2anc 583 |
. . . . . . 7
⊢ (𝜑 → ((𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→(ℝ ∖ {0})) ↔ (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))):(𝐴[,]𝐵)⟶(ℝ ∖
{0}))) |
73 | 47, 72 | mpbird 256 |
. . . . . 6
⊢ (𝜑 → (𝑡 ∈ (𝐴[,]𝐵) ↦ (2 · (sin‘(𝑡 / 2)))) ∈ ((𝐴[,]𝐵)–cn→(ℝ ∖ {0}))) |
74 | 18, 3, 4, 20, 73 | cncficcgt0 43319 |
. . . . 5
⊢ (𝜑 → ∃𝑐 ∈ ℝ+ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 /
2))))) |
75 | | reelprrecn 10894 |
. . . . . . . 8
⊢ ℝ
∈ {ℝ, ℂ} |
76 | 75 | a1i 11 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
→ ℝ ∈ {ℝ, ℂ}) |
77 | 1 | adantr 480 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐹:ℝ⟶ℝ) |
78 | 2 | adantr 480 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑋 ∈ ℝ) |
79 | | elioore 13038 |
. . . . . . . . . . . . 13
⊢ (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ ℝ) |
80 | 79 | adantl 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ) |
81 | 78, 80 | readdcld 10935 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ℝ) |
82 | 77, 81 | ffvelrnd 6944 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℝ) |
83 | 12 | adantr 480 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐶 ∈ ℝ) |
84 | 82, 83 | resubcld 11333 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − 𝐶) ∈ ℝ) |
85 | 84 | recnd 10934 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − 𝐶) ∈ ℂ) |
86 | 85 | 3ad2antl1 1183 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − 𝐶) ∈ ℂ) |
87 | 75 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → ℝ ∈ {ℝ,
ℂ}) |
88 | 82 | recnd 10934 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ) |
89 | 5 | adantr 480 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))):((𝑋 + 𝐴)(,)(𝑋 + 𝐵))⟶ℝ) |
90 | 2, 3 | readdcld 10935 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑋 + 𝐴) ∈ ℝ) |
91 | 90 | rexrd 10956 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑋 + 𝐴) ∈
ℝ*) |
92 | 91 | adantr 480 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) ∈
ℝ*) |
93 | 2, 4 | readdcld 10935 |
. . . . . . . . . . . . . 14
⊢ (𝜑 → (𝑋 + 𝐵) ∈ ℝ) |
94 | 93 | rexrd 10956 |
. . . . . . . . . . . . 13
⊢ (𝜑 → (𝑋 + 𝐵) ∈
ℝ*) |
95 | 94 | adantr 480 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐵) ∈
ℝ*) |
96 | 3 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ) |
97 | 96 | rexrd 10956 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈
ℝ*) |
98 | 4 | rexrd 10956 |
. . . . . . . . . . . . . . 15
⊢ (𝜑 → 𝐵 ∈
ℝ*) |
99 | 98 | adantr 480 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈
ℝ*) |
100 | | simpr 484 |
. . . . . . . . . . . . . 14
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴(,)𝐵)) |
101 | | ioogtlb 42923 |
. . . . . . . . . . . . . 14
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝑠
∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠) |
102 | 97, 99, 100, 101 | syl3anc 1369 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠) |
103 | 96, 80, 78, 102 | ltadd2dd 11064 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) < (𝑋 + 𝑠)) |
104 | 4 | adantr 480 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ) |
105 | | iooltub 42938 |
. . . . . . . . . . . . . 14
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝑠
∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵) |
106 | 97, 99, 100, 105 | syl3anc 1369 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵) |
107 | 80, 104, 78, 106 | ltadd2dd 11064 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝑋 + 𝐵)) |
108 | 92, 95, 81, 103, 107 | eliood 42926 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) |
109 | 89, 108 | ffvelrnd 6944 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) ∈ ℝ) |
110 | | eqid 2738 |
. . . . . . . . . . 11
⊢ (ℝ
D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))) = (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))) |
111 | 1, 2, 3, 4, 110, 5 | fourierdlem28 43566 |
. . . . . . . . . 10
⊢ (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠)))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))) |
112 | 83 | recnd 10934 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐶 ∈ ℂ) |
113 | | 0red 10909 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ) |
114 | | iooretop 23835 |
. . . . . . . . . . . . 13
⊢ (𝐴(,)𝐵) ∈ (topGen‘ran
(,)) |
115 | | eqid 2738 |
. . . . . . . . . . . . . 14
⊢
(TopOpen‘ℂfld) =
(TopOpen‘ℂfld) |
116 | 115 | tgioo2 23872 |
. . . . . . . . . . . . 13
⊢
(topGen‘ran (,)) = ((TopOpen‘ℂfld)
↾t ℝ) |
117 | 114, 116 | eleqtri 2837 |
. . . . . . . . . . . 12
⊢ (𝐴(,)𝐵) ∈
((TopOpen‘ℂfld) ↾t
ℝ) |
118 | 117 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝐴(,)𝐵) ∈
((TopOpen‘ℂfld) ↾t
ℝ)) |
119 | 12 | recnd 10934 |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐶 ∈ ℂ) |
120 | 87, 118, 119 | dvmptconst 43346 |
. . . . . . . . . 10
⊢ (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ 𝐶)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ 0)) |
121 | 87, 88, 109, 111, 112, 113, 120 | dvmptsub 25036 |
. . . . . . . . 9
⊢ (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0))) |
122 | 109 | recnd 10934 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) ∈ ℂ) |
123 | 122 | subid1d 11251 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0) = ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) |
124 | 123 | mpteq2dva 5170 |
. . . . . . . . 9
⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))) |
125 | 121, 124 | eqtrd 2778 |
. . . . . . . 8
⊢ (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))) |
126 | 125 | 3ad2ant1 1131 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
→ (ℝ D (𝑠 ∈
(𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))) |
127 | 122 | 3ad2antl1 1183 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) ∈ ℂ) |
128 | | 2cnd 11981 |
. . . . . . . . 9
⊢ (𝑠 ∈ (𝐴(,)𝐵) → 2 ∈ ℂ) |
129 | 79 | recnd 10934 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ ℂ) |
130 | 129 | halfcld 12148 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (𝑠 / 2) ∈ ℂ) |
131 | 130 | sincld 15767 |
. . . . . . . . 9
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (sin‘(𝑠 / 2)) ∈ ℂ) |
132 | 128, 131 | mulcld 10926 |
. . . . . . . 8
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (2 · (sin‘(𝑠 / 2))) ∈
ℂ) |
133 | 132 | adantl 481 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
∧ 𝑠 ∈ (𝐴(,)𝐵)) → (2 · (sin‘(𝑠 / 2))) ∈
ℂ) |
134 | | fourierdlem68.e |
. . . . . . . 8
⊢ (𝜑 → 𝐸 ∈ ℝ) |
135 | 134 | 3ad2ant1 1131 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
→ 𝐸 ∈
ℝ) |
136 | | 1re 10906 |
. . . . . . . . 9
⊢ 1 ∈
ℝ |
137 | 21, 136 | remulcli 10922 |
. . . . . . . 8
⊢ (2
· 1) ∈ ℝ |
138 | 137 | a1i 11 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
→ (2 · 1) ∈ ℝ) |
139 | | 1red 10907 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
→ 1 ∈ ℝ) |
140 | | fourierdlem68.d |
. . . . . . . . 9
⊢ (𝜑 → 𝐷 ∈ ℝ) |
141 | 119 | abscld 15076 |
. . . . . . . . 9
⊢ (𝜑 → (abs‘𝐶) ∈
ℝ) |
142 | 140, 141 | readdcld 10935 |
. . . . . . . 8
⊢ (𝜑 → (𝐷 + (abs‘𝐶)) ∈ ℝ) |
143 | 142 | 3ad2ant1 1131 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
→ (𝐷 +
(abs‘𝐶)) ∈
ℝ) |
144 | | simpl 482 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝜑) |
145 | 144, 108 | jca 511 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))) |
146 | | eleq1 2826 |
. . . . . . . . . . . 12
⊢ (𝑡 = (𝑋 + 𝑠) → (𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)) ↔ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))) |
147 | 146 | anbi2d 628 |
. . . . . . . . . . 11
⊢ (𝑡 = (𝑋 + 𝑠) → ((𝜑 ∧ 𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) ↔ (𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))) |
148 | | fveq2 6756 |
. . . . . . . . . . . . 13
⊢ (𝑡 = (𝑋 + 𝑠) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡) = ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) |
149 | 148 | fveq2d 6760 |
. . . . . . . . . . . 12
⊢ (𝑡 = (𝑋 + 𝑠) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) = (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))) |
150 | 149 | breq1d 5080 |
. . . . . . . . . . 11
⊢ (𝑡 = (𝑋 + 𝑠) → ((abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) ≤ 𝐸 ↔ (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸)) |
151 | 147, 150 | imbi12d 344 |
. . . . . . . . . 10
⊢ (𝑡 = (𝑋 + 𝑠) → (((𝜑 ∧ 𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) ≤ 𝐸) ↔ ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸))) |
152 | | fourierdlem68.fdvbd |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘𝑡)) ≤ 𝐸) |
153 | 151, 152 | vtoclg 3495 |
. . . . . . . . 9
⊢ ((𝑋 + 𝑠) ∈ ℝ → ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸)) |
154 | 81, 145, 153 | sylc 65 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸) |
155 | 154 | 3ad2antl1 1183 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) ≤ 𝐸) |
156 | 128, 131 | absmuld 15094 |
. . . . . . . . 9
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(2 ·
(sin‘(𝑠 / 2)))) =
((abs‘2) · (abs‘(sin‘(𝑠 / 2))))) |
157 | | 0le2 12005 |
. . . . . . . . . . . 12
⊢ 0 ≤
2 |
158 | | absid 14936 |
. . . . . . . . . . . 12
⊢ ((2
∈ ℝ ∧ 0 ≤ 2) → (abs‘2) = 2) |
159 | 21, 157, 158 | mp2an 688 |
. . . . . . . . . . 11
⊢
(abs‘2) = 2 |
160 | 159 | oveq1i 7265 |
. . . . . . . . . 10
⊢
((abs‘2) · (abs‘(sin‘(𝑠 / 2)))) = (2 ·
(abs‘(sin‘(𝑠 /
2)))) |
161 | 131 | abscld 15076 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(sin‘(𝑠 / 2))) ∈
ℝ) |
162 | | 1red 10907 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (𝐴(,)𝐵) → 1 ∈ ℝ) |
163 | 21 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (𝐴(,)𝐵) → 2 ∈ ℝ) |
164 | 157 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (𝐴(,)𝐵) → 0 ≤ 2) |
165 | 79 | rehalfcld 12150 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (𝑠 / 2) ∈ ℝ) |
166 | | abssinbd 42724 |
. . . . . . . . . . . 12
⊢ ((𝑠 / 2) ∈ ℝ →
(abs‘(sin‘(𝑠 /
2))) ≤ 1) |
167 | 165, 166 | syl 17 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(sin‘(𝑠 / 2))) ≤ 1) |
168 | 161, 162,
163, 164, 167 | lemul2ad 11845 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (2 ·
(abs‘(sin‘(𝑠 /
2)))) ≤ (2 · 1)) |
169 | 160, 168 | eqbrtrid 5105 |
. . . . . . . . 9
⊢ (𝑠 ∈ (𝐴(,)𝐵) → ((abs‘2) ·
(abs‘(sin‘(𝑠 /
2)))) ≤ (2 · 1)) |
170 | 156, 169 | eqbrtrd 5092 |
. . . . . . . 8
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (abs‘(2 ·
(sin‘(𝑠 / 2)))) ≤
(2 · 1)) |
171 | 170 | adantl 481 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(2 ·
(sin‘(𝑠 / 2)))) ≤
(2 · 1)) |
172 | | abscosbd 42706 |
. . . . . . . . 9
⊢ ((𝑠 / 2) ∈ ℝ →
(abs‘(cos‘(𝑠 /
2))) ≤ 1) |
173 | 100, 165,
172 | 3syl 18 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(cos‘(𝑠 / 2))) ≤ 1) |
174 | 173 | 3ad2antl1 1183 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(cos‘(𝑠 / 2))) ≤ 1) |
175 | 85 | abscld 15076 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ∈ ℝ) |
176 | 88 | abscld 15076 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(𝐹‘(𝑋 + 𝑠))) ∈ ℝ) |
177 | 112 | abscld 15076 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘𝐶) ∈ ℝ) |
178 | 176, 177 | readdcld 10935 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((abs‘(𝐹‘(𝑋 + 𝑠))) + (abs‘𝐶)) ∈ ℝ) |
179 | 140 | adantr 480 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐷 ∈ ℝ) |
180 | 179, 177 | readdcld 10935 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐷 + (abs‘𝐶)) ∈ ℝ) |
181 | 88, 112 | abs2dif2d 15098 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ≤ ((abs‘(𝐹‘(𝑋 + 𝑠))) + (abs‘𝐶))) |
182 | | fveq2 6756 |
. . . . . . . . . . . . . . 15
⊢ (𝑡 = (𝑋 + 𝑠) → (𝐹‘𝑡) = (𝐹‘(𝑋 + 𝑠))) |
183 | 182 | fveq2d 6760 |
. . . . . . . . . . . . . 14
⊢ (𝑡 = (𝑋 + 𝑠) → (abs‘(𝐹‘𝑡)) = (abs‘(𝐹‘(𝑋 + 𝑠)))) |
184 | 183 | breq1d 5080 |
. . . . . . . . . . . . 13
⊢ (𝑡 = (𝑋 + 𝑠) → ((abs‘(𝐹‘𝑡)) ≤ 𝐷 ↔ (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷)) |
185 | 147, 184 | imbi12d 344 |
. . . . . . . . . . . 12
⊢ (𝑡 = (𝑋 + 𝑠) → (((𝜑 ∧ 𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹‘𝑡)) ≤ 𝐷) ↔ ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷))) |
186 | | fourierdlem68.fbd |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑡 ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹‘𝑡)) ≤ 𝐷) |
187 | 185, 186 | vtoclg 3495 |
. . . . . . . . . . 11
⊢ ((𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)) → ((𝜑 ∧ (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) → (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷)) |
188 | 108, 145,
187 | sylc 65 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘(𝐹‘(𝑋 + 𝑠))) ≤ 𝐷) |
189 | 176, 179,
177, 188 | leadd1dd 11519 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((abs‘(𝐹‘(𝑋 + 𝑠))) + (abs‘𝐶)) ≤ (𝐷 + (abs‘𝐶))) |
190 | 175, 178,
180, 181, 189 | letrd 11062 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ≤ (𝐷 + (abs‘𝐶))) |
191 | 190 | 3ad2antl1 1183 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
∧ 𝑠 ∈ (𝐴(,)𝐵)) → (abs‘((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ≤ (𝐷 + (abs‘𝐶))) |
192 | 14 | simpri 485 |
. . . . . . . 8
⊢ (ℝ
D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2))) |
193 | 192 | a1i 11 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
→ (ℝ D (𝑠 ∈
(𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2)))) |
194 | 130 | coscld 15768 |
. . . . . . . 8
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (cos‘(𝑠 / 2)) ∈ ℂ) |
195 | 194 | adantl 481 |
. . . . . . 7
⊢ (((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
∧ 𝑠 ∈ (𝐴(,)𝐵)) → (cos‘(𝑠 / 2)) ∈ ℂ) |
196 | | simp2 1135 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
→ 𝑐 ∈
ℝ+) |
197 | | oveq1 7262 |
. . . . . . . . . . . . . 14
⊢ (𝑡 = 𝑠 → (𝑡 / 2) = (𝑠 / 2)) |
198 | 197 | fveq2d 6760 |
. . . . . . . . . . . . 13
⊢ (𝑡 = 𝑠 → (sin‘(𝑡 / 2)) = (sin‘(𝑠 / 2))) |
199 | 198 | oveq2d 7271 |
. . . . . . . . . . . 12
⊢ (𝑡 = 𝑠 → (2 · (sin‘(𝑡 / 2))) = (2 ·
(sin‘(𝑠 /
2)))) |
200 | 199 | fveq2d 6760 |
. . . . . . . . . . 11
⊢ (𝑡 = 𝑠 → (abs‘(2 ·
(sin‘(𝑡 / 2)))) =
(abs‘(2 · (sin‘(𝑠 / 2))))) |
201 | 200 | breq2d 5082 |
. . . . . . . . . 10
⊢ (𝑡 = 𝑠 → (𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2))))
↔ 𝑐 ≤ (abs‘(2
· (sin‘(𝑠 /
2)))))) |
202 | 201 | cbvralvw 3372 |
. . . . . . . . 9
⊢
(∀𝑡 ∈
(𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2))))
↔ ∀𝑠 ∈
(𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 /
2))))) |
203 | | nfv 1918 |
. . . . . . . . . . 11
⊢
Ⅎ𝑠𝜑 |
204 | | nfra1 3142 |
. . . . . . . . . . 11
⊢
Ⅎ𝑠∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 /
2)))) |
205 | 203, 204 | nfan 1903 |
. . . . . . . . . 10
⊢
Ⅎ𝑠(𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 /
2))))) |
206 | | simplr 765 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 / 2)))))
∧ 𝑠 ∈ (𝐴(,)𝐵)) → ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 /
2))))) |
207 | 6, 100 | sselid 3915 |
. . . . . . . . . . . . 13
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴[,]𝐵)) |
208 | 207 | adantlr 711 |
. . . . . . . . . . . 12
⊢ (((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 / 2)))))
∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴[,]𝐵)) |
209 | | rspa 3130 |
. . . . . . . . . . . 12
⊢
((∀𝑠 ∈
(𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 / 2)))) ∧
𝑠 ∈ (𝐴[,]𝐵)) → 𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 /
2))))) |
210 | 206, 208,
209 | syl2anc 583 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 / 2)))))
∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 /
2))))) |
211 | 210 | ex 412 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 / 2)))))
→ (𝑠 ∈ (𝐴(,)𝐵) → 𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 /
2)))))) |
212 | 205, 211 | ralrimi 3139 |
. . . . . . . . 9
⊢ ((𝜑 ∧ ∀𝑠 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 / 2)))))
→ ∀𝑠 ∈
(𝐴(,)𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 /
2))))) |
213 | 202, 212 | sylan2b 593 |
. . . . . . . 8
⊢ ((𝜑 ∧ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
→ ∀𝑠 ∈
(𝐴(,)𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 /
2))))) |
214 | 213 | 3adant2 1129 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
→ ∀𝑠 ∈
(𝐴(,)𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑠 /
2))))) |
215 | | eqid 2738 |
. . . . . . 7
⊢ (ℝ
D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))) = (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))) |
216 | 76, 86, 126, 127, 133, 135, 138, 139, 143, 155, 171, 174, 191, 193, 195, 196, 214, 215 | dvdivbd 43354 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑐 ∈ ℝ+ ∧
∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2)))))
→ ∃𝑏 ∈
ℝ ∀𝑠 ∈
(𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏) |
217 | 216 | rexlimdv3a 3214 |
. . . . 5
⊢ (𝜑 → (∃𝑐 ∈ ℝ+ ∀𝑡 ∈ (𝐴[,]𝐵)𝑐 ≤ (abs‘(2 ·
(sin‘(𝑡 / 2))))
→ ∃𝑏 ∈
ℝ ∀𝑠 ∈
(𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)) |
218 | 74, 217 | mpd 15 |
. . . 4
⊢ (𝜑 → ∃𝑏 ∈ ℝ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏) |
219 | | nfcv 2906 |
. . . . . . . . 9
⊢
Ⅎ𝑠ℝ |
220 | | nfcv 2906 |
. . . . . . . . 9
⊢
Ⅎ𝑠
D |
221 | | nfmpt1 5178 |
. . . . . . . . . 10
⊢
Ⅎ𝑠(𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))) |
222 | 13, 221 | nfcxfr 2904 |
. . . . . . . . 9
⊢
Ⅎ𝑠𝑂 |
223 | 219, 220,
222 | nfov 7285 |
. . . . . . . 8
⊢
Ⅎ𝑠(ℝ D 𝑂) |
224 | 223 | nfdm 5849 |
. . . . . . 7
⊢
Ⅎ𝑠dom
(ℝ D 𝑂) |
225 | | nfcv 2906 |
. . . . . . 7
⊢
Ⅎ𝑠(𝐴(,)𝐵) |
226 | 224, 225 | raleqf 3323 |
. . . . . 6
⊢ (dom
(ℝ D 𝑂) = (𝐴(,)𝐵) → (∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏 ↔ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)) |
227 | 17, 226 | syl 17 |
. . . . 5
⊢ (𝜑 → (∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏 ↔ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)) |
228 | 227 | rexbidv 3225 |
. . . 4
⊢ (𝜑 → (∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏 ↔ ∃𝑏 ∈ ℝ ∀𝑠 ∈ (𝐴(,)𝐵)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)) |
229 | 218, 228 | mpbird 256 |
. . 3
⊢ (𝜑 → ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏) |
230 | 13 | a1i 11 |
. . . . . . . 8
⊢ (𝜑 → 𝑂 = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))) |
231 | 230 | oveq2d 7271 |
. . . . . . 7
⊢ (𝜑 → (ℝ D 𝑂) = (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))) |
232 | 231 | fveq1d 6758 |
. . . . . 6
⊢ (𝜑 → ((ℝ D 𝑂)‘𝑠) = ((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) |
233 | 232 | fveq2d 6760 |
. . . . 5
⊢ (𝜑 → (abs‘((ℝ D
𝑂)‘𝑠)) = (abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠))) |
234 | 233 | breq1d 5080 |
. . . 4
⊢ (𝜑 → ((abs‘((ℝ D
𝑂)‘𝑠)) ≤ 𝑏 ↔ (abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)) |
235 | 234 | rexralbidv 3229 |
. . 3
⊢ (𝜑 → (∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏 ↔ ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))‘𝑠)) ≤ 𝑏)) |
236 | 229, 235 | mpbird 256 |
. 2
⊢ (𝜑 → ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏) |
237 | 17, 236 | jca 511 |
1
⊢ (𝜑 → (dom (ℝ D 𝑂) = (𝐴(,)𝐵) ∧ ∃𝑏 ∈ ℝ ∀𝑠 ∈ dom (ℝ D 𝑂)(abs‘((ℝ D 𝑂)‘𝑠)) ≤ 𝑏)) |