Proof of Theorem fourierdlem57
Step | Hyp | Ref
| Expression |
1 | | fourierdlem57.fdv |
. . . . . . . . . 10
⊢ (𝜑 → (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))):((𝑋 + 𝐴)(,)(𝑋 + 𝐵))⟶ℝ) |
2 | 1 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))):((𝑋 + 𝐴)(,)(𝑋 + 𝐵))⟶ℝ) |
3 | | fourierdlem57.xre |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝑋 ∈ ℝ) |
4 | | fourierdlem57.a |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐴 ∈ ℝ) |
5 | 3, 4 | readdcld 11004 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑋 + 𝐴) ∈ ℝ) |
6 | 5 | rexrd 11025 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑋 + 𝐴) ∈
ℝ*) |
7 | 6 | adantr 481 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) ∈
ℝ*) |
8 | | fourierdlem57.b |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐵 ∈ ℝ) |
9 | 3, 8 | readdcld 11004 |
. . . . . . . . . . . 12
⊢ (𝜑 → (𝑋 + 𝐵) ∈ ℝ) |
10 | 9 | rexrd 11025 |
. . . . . . . . . . 11
⊢ (𝜑 → (𝑋 + 𝐵) ∈
ℝ*) |
11 | 10 | adantr 481 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐵) ∈
ℝ*) |
12 | 3 | adantr 481 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑋 ∈ ℝ) |
13 | | elioore 13109 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ (𝐴(,)𝐵) → 𝑠 ∈ ℝ) |
14 | 13 | adantl 482 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ ℝ) |
15 | 12, 14 | readdcld 11004 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ℝ) |
16 | 4 | adantr 481 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈ ℝ) |
17 | 16 | rexrd 11025 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 ∈
ℝ*) |
18 | 8 | rexrd 11025 |
. . . . . . . . . . . . 13
⊢ (𝜑 → 𝐵 ∈
ℝ*) |
19 | 18 | adantr 481 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈
ℝ*) |
20 | | simpr 485 |
. . . . . . . . . . . 12
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (𝐴(,)𝐵)) |
21 | | ioogtlb 43033 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝑠
∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠) |
22 | 17, 19, 20, 21 | syl3anc 1370 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐴 < 𝑠) |
23 | 16, 14, 12, 22 | ltadd2dd 11134 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝐴) < (𝑋 + 𝑠)) |
24 | 8 | adantr 481 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐵 ∈ ℝ) |
25 | | iooltub 43048 |
. . . . . . . . . . . 12
⊢ ((𝐴 ∈ ℝ*
∧ 𝐵 ∈
ℝ* ∧ 𝑠
∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵) |
26 | 17, 19, 20, 25 | syl3anc 1370 |
. . . . . . . . . . 11
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 < 𝐵) |
27 | 14, 24, 12, 26 | ltadd2dd 11134 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) < (𝑋 + 𝐵)) |
28 | 7, 11, 15, 23, 27 | eliood 43036 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑋 + 𝑠) ∈ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))) |
29 | 2, 28 | ffvelrnd 6962 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) ∈ ℝ) |
30 | | 2re 12047 |
. . . . . . . . . 10
⊢ 2 ∈
ℝ |
31 | 30 | a1i 11 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 2 ∈ ℝ) |
32 | | rehalfcl 12199 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ ℝ → (𝑠 / 2) ∈
ℝ) |
33 | 14, 32 | syl 17 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝑠 / 2) ∈ ℝ) |
34 | 33 | resincld 15852 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (sin‘(𝑠 / 2)) ∈ ℝ) |
35 | 31, 34 | remulcld 11005 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (2 · (sin‘(𝑠 / 2))) ∈
ℝ) |
36 | 29, 35 | remulcld 11005 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) ∈
ℝ) |
37 | 33 | recoscld 15853 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (cos‘(𝑠 / 2)) ∈ ℝ) |
38 | | fourierdlem57.f |
. . . . . . . . . . 11
⊢ (𝜑 → 𝐹:ℝ⟶ℝ) |
39 | 38 | adantr 481 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐹:ℝ⟶ℝ) |
40 | 39, 15 | ffvelrnd 6962 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℝ) |
41 | | fourierdlem57.c |
. . . . . . . . . 10
⊢ (𝜑 → 𝐶 ∈ ℝ) |
42 | 41 | adantr 481 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐶 ∈ ℝ) |
43 | 40, 42 | resubcld 11403 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − 𝐶) ∈ ℝ) |
44 | 37, 43 | remulcld 11005 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((cos‘(𝑠 / 2)) · ((𝐹‘(𝑋 + 𝑠)) − 𝐶)) ∈ ℝ) |
45 | 36, 44 | resubcld 11403 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) ∈ ℝ) |
46 | 35 | resqcld 13965 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((2 · (sin‘(𝑠 / 2)))↑2) ∈
ℝ) |
47 | | 2cnd 12051 |
. . . . . . . . 9
⊢ (𝑠 ∈ ℝ → 2 ∈
ℂ) |
48 | 32 | recnd 11003 |
. . . . . . . . . 10
⊢ (𝑠 ∈ ℝ → (𝑠 / 2) ∈
ℂ) |
49 | 48 | sincld 15839 |
. . . . . . . . 9
⊢ (𝑠 ∈ ℝ →
(sin‘(𝑠 / 2)) ∈
ℂ) |
50 | 47, 49 | mulcld 10995 |
. . . . . . . 8
⊢ (𝑠 ∈ ℝ → (2
· (sin‘(𝑠 /
2))) ∈ ℂ) |
51 | 14, 50 | syl 17 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (2 · (sin‘(𝑠 / 2))) ∈
ℂ) |
52 | | 2cnd 12051 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 2 ∈ ℂ) |
53 | 14, 49 | syl 17 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (sin‘(𝑠 / 2)) ∈ ℂ) |
54 | | 2ne0 12077 |
. . . . . . . . 9
⊢ 2 ≠
0 |
55 | 54 | a1i 11 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 2 ≠ 0) |
56 | | fourierdlem57.ab |
. . . . . . . . . 10
⊢ (𝜑 → (𝐴(,)𝐵) ⊆ (-π[,]π)) |
57 | 56 | sselda 3921 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ∈ (-π[,]π)) |
58 | | eqcom 2745 |
. . . . . . . . . . . . . . 15
⊢ (𝑠 = 0 ↔ 0 = 𝑠) |
59 | 58 | biimpi 215 |
. . . . . . . . . . . . . 14
⊢ (𝑠 = 0 → 0 = 𝑠) |
60 | 59 | adantl 482 |
. . . . . . . . . . . . 13
⊢ ((𝑠 ∈ (𝐴(,)𝐵) ∧ 𝑠 = 0) → 0 = 𝑠) |
61 | | simpl 483 |
. . . . . . . . . . . . 13
⊢ ((𝑠 ∈ (𝐴(,)𝐵) ∧ 𝑠 = 0) → 𝑠 ∈ (𝐴(,)𝐵)) |
62 | 60, 61 | eqeltrd 2839 |
. . . . . . . . . . . 12
⊢ ((𝑠 ∈ (𝐴(,)𝐵) ∧ 𝑠 = 0) → 0 ∈ (𝐴(,)𝐵)) |
63 | 62 | adantll 711 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) ∧ 𝑠 = 0) → 0 ∈ (𝐴(,)𝐵)) |
64 | | fourierdlem57.n0 |
. . . . . . . . . . . 12
⊢ (𝜑 → ¬ 0 ∈ (𝐴(,)𝐵)) |
65 | 64 | ad2antrr 723 |
. . . . . . . . . . 11
⊢ (((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) ∧ 𝑠 = 0) → ¬ 0 ∈ (𝐴(,)𝐵)) |
66 | 63, 65 | pm2.65da 814 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ¬ 𝑠 = 0) |
67 | 66 | neqned 2950 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝑠 ≠ 0) |
68 | | fourierdlem44 43692 |
. . . . . . . . 9
⊢ ((𝑠 ∈ (-π[,]π) ∧
𝑠 ≠ 0) →
(sin‘(𝑠 / 2)) ≠
0) |
69 | 57, 67, 68 | syl2anc 584 |
. . . . . . . 8
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (sin‘(𝑠 / 2)) ≠ 0) |
70 | 52, 53, 55, 69 | mulne0d 11627 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (2 · (sin‘(𝑠 / 2))) ≠ 0) |
71 | | 2z 12352 |
. . . . . . . 8
⊢ 2 ∈
ℤ |
72 | 71 | a1i 11 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 2 ∈ ℤ) |
73 | 51, 70, 72 | expne0d 13870 |
. . . . . 6
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((2 · (sin‘(𝑠 / 2)))↑2) ≠
0) |
74 | 45, 46, 73 | redivcld 11803 |
. . . . 5
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 / 2)))↑2)) ∈
ℝ) |
75 | | eqid 2738 |
. . . . 5
⊢ (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 / 2)))↑2))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 /
2)))↑2))) |
76 | 74, 75 | fmptd 6988 |
. . . 4
⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 / 2)))↑2))):(𝐴(,)𝐵)⟶ℝ) |
77 | | fourierdlem57.o |
. . . . . . . 8
⊢ 𝑂 = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))) |
78 | 77 | a1i 11 |
. . . . . . 7
⊢ (𝜑 → 𝑂 = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))) |
79 | 78 | oveq2d 7291 |
. . . . . 6
⊢ (𝜑 → (ℝ D 𝑂) = (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2))))))) |
80 | | reelprrecn 10963 |
. . . . . . . 8
⊢ ℝ
∈ {ℝ, ℂ} |
81 | 80 | a1i 11 |
. . . . . . 7
⊢ (𝜑 → ℝ ∈ {ℝ,
ℂ}) |
82 | 43 | recnd 11003 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((𝐹‘(𝑋 + 𝑠)) − 𝐶) ∈ ℂ) |
83 | 40 | recnd 11003 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ) |
84 | | eqid 2738 |
. . . . . . . . . 10
⊢ (ℝ
D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))) = (ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵)))) |
85 | 38, 3, 4, 8, 84, 1 | fourierdlem28 43676 |
. . . . . . . . 9
⊢ (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (𝐹‘(𝑋 + 𝑠)))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))) |
86 | 42 | recnd 11003 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 𝐶 ∈ ℂ) |
87 | | 0red 10978 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → 0 ∈ ℝ) |
88 | | iooretop 23929 |
. . . . . . . . . . . 12
⊢ (𝐴(,)𝐵) ∈ (topGen‘ran
(,)) |
89 | | eqid 2738 |
. . . . . . . . . . . . 13
⊢
(TopOpen‘ℂfld) =
(TopOpen‘ℂfld) |
90 | 89 | tgioo2 23966 |
. . . . . . . . . . . 12
⊢
(topGen‘ran (,)) = ((TopOpen‘ℂfld)
↾t ℝ) |
91 | 88, 90 | eleqtri 2837 |
. . . . . . . . . . 11
⊢ (𝐴(,)𝐵) ∈
((TopOpen‘ℂfld) ↾t
ℝ) |
92 | 91 | a1i 11 |
. . . . . . . . . 10
⊢ (𝜑 → (𝐴(,)𝐵) ∈
((TopOpen‘ℂfld) ↾t
ℝ)) |
93 | 41 | recnd 11003 |
. . . . . . . . . 10
⊢ (𝜑 → 𝐶 ∈ ℂ) |
94 | 81, 92, 93 | dvmptconst 43456 |
. . . . . . . . 9
⊢ (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ 𝐶)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ 0)) |
95 | 81, 83, 29, 85, 86, 87, 94 | dvmptsub 25131 |
. . . . . . . 8
⊢ (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0))) |
96 | 29 | recnd 11003 |
. . . . . . . . . 10
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) ∈ ℂ) |
97 | 96 | subid1d 11321 |
. . . . . . . . 9
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0) = ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠))) |
98 | 97 | mpteq2dva 5174 |
. . . . . . . 8
⊢ (𝜑 → (𝑠 ∈ (𝐴(,)𝐵) ↦ (((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) − 0)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))) |
99 | 95, 98 | eqtrd 2778 |
. . . . . . 7
⊢ (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)))) |
100 | | eldifsn 4720 |
. . . . . . . 8
⊢ ((2
· (sin‘(𝑠 /
2))) ∈ (ℂ ∖ {0}) ↔ ((2 · (sin‘(𝑠 / 2))) ∈ ℂ ∧ (2
· (sin‘(𝑠 /
2))) ≠ 0)) |
101 | 51, 70, 100 | sylanbrc 583 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (2 · (sin‘(𝑠 / 2))) ∈ (ℂ ∖
{0})) |
102 | | recn 10961 |
. . . . . . . . . . . . 13
⊢ (𝑠 ∈ ℝ → 𝑠 ∈
ℂ) |
103 | 54 | a1i 11 |
. . . . . . . . . . . . 13
⊢ (𝑠 ∈ ℝ → 2 ≠
0) |
104 | 102, 47, 103 | divrec2d 11755 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ ℝ → (𝑠 / 2) = ((1 / 2) · 𝑠)) |
105 | 104 | eqcomd 2744 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ ℝ → ((1 / 2)
· 𝑠) = (𝑠 / 2)) |
106 | 13, 105 | syl 17 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (𝐴(,)𝐵) → ((1 / 2) · 𝑠) = (𝑠 / 2)) |
107 | 106 | fveq2d 6778 |
. . . . . . . . 9
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (cos‘((1 / 2) · 𝑠)) = (cos‘(𝑠 / 2))) |
108 | | halfcn 12188 |
. . . . . . . . . . . . 13
⊢ (1 / 2)
∈ ℂ |
109 | 108 | a1i 11 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ ℂ → (1 / 2)
∈ ℂ) |
110 | | id 22 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ ℂ → 𝑠 ∈
ℂ) |
111 | 109, 110 | mulcld 10995 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ ℂ → ((1 / 2)
· 𝑠) ∈
ℂ) |
112 | 111 | coscld 15840 |
. . . . . . . . . 10
⊢ (𝑠 ∈ ℂ →
(cos‘((1 / 2) · 𝑠)) ∈ ℂ) |
113 | 13, 102, 112 | 3syl 18 |
. . . . . . . . 9
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (cos‘((1 / 2) · 𝑠)) ∈
ℂ) |
114 | 107, 113 | eqeltrrd 2840 |
. . . . . . . 8
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (cos‘(𝑠 / 2)) ∈ ℂ) |
115 | 114 | adantl 482 |
. . . . . . 7
⊢ ((𝜑 ∧ 𝑠 ∈ (𝐴(,)𝐵)) → (cos‘(𝑠 / 2)) ∈ ℂ) |
116 | | ioossre 13140 |
. . . . . . . . . . . . 13
⊢ (𝐴(,)𝐵) ⊆ ℝ |
117 | | resmpt 5945 |
. . . . . . . . . . . . 13
⊢ ((𝐴(,)𝐵) ⊆ ℝ → ((𝑠 ∈ ℝ ↦ (2
· (sin‘(𝑠 /
2)))) ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) |
118 | 116, 117 | ax-mp 5 |
. . . . . . . . . . . 12
⊢ ((𝑠 ∈ ℝ ↦ (2
· (sin‘(𝑠 /
2)))) ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2)))) |
119 | 118 | eqcomi 2747 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2)))) = ((𝑠 ∈ ℝ ↦ (2 ·
(sin‘(𝑠 / 2))))
↾ (𝐴(,)𝐵)) |
120 | 119 | oveq2i 7286 |
. . . . . . . . . 10
⊢ (ℝ
D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (ℝ D ((𝑠 ∈ ℝ ↦ (2
· (sin‘(𝑠 /
2)))) ↾ (𝐴(,)𝐵))) |
121 | | ax-resscn 10928 |
. . . . . . . . . . 11
⊢ ℝ
⊆ ℂ |
122 | | eqid 2738 |
. . . . . . . . . . . 12
⊢ (𝑠 ∈ ℝ ↦ (2
· (sin‘(𝑠 /
2)))) = (𝑠 ∈ ℝ
↦ (2 · (sin‘(𝑠 / 2)))) |
123 | 122, 50 | fmpti 6986 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ ℝ ↦ (2
· (sin‘(𝑠 /
2)))):ℝ⟶ℂ |
124 | | ssid 3943 |
. . . . . . . . . . 11
⊢ ℝ
⊆ ℝ |
125 | 89, 90 | dvres 25075 |
. . . . . . . . . . 11
⊢
(((ℝ ⊆ ℂ ∧ (𝑠 ∈ ℝ ↦ (2 ·
(sin‘(𝑠 /
2)))):ℝ⟶ℂ) ∧ (ℝ ⊆ ℝ ∧ (𝐴(,)𝐵) ⊆ ℝ)) → (ℝ D
((𝑠 ∈ ℝ ↦
(2 · (sin‘(𝑠 /
2)))) ↾ (𝐴(,)𝐵))) = ((ℝ D (𝑠 ∈ ℝ ↦ (2
· (sin‘(𝑠 /
2))))) ↾ ((int‘(topGen‘ran (,)))‘(𝐴(,)𝐵)))) |
126 | 121, 123,
124, 116, 125 | mp4an 690 |
. . . . . . . . . 10
⊢ (ℝ
D ((𝑠 ∈ ℝ
↦ (2 · (sin‘(𝑠 / 2)))) ↾ (𝐴(,)𝐵))) = ((ℝ D (𝑠 ∈ ℝ ↦ (2 ·
(sin‘(𝑠 / 2)))))
↾ ((int‘(topGen‘ran (,)))‘(𝐴(,)𝐵))) |
127 | | resmpt 5945 |
. . . . . . . . . . . . . . 15
⊢ (ℝ
⊆ ℂ → ((𝑠
∈ ℂ ↦ (2 · (sin‘((1 / 2) · 𝑠)))) ↾ ℝ) = (𝑠 ∈ ℝ ↦ (2
· (sin‘((1 / 2) · 𝑠))))) |
128 | 121, 127 | ax-mp 5 |
. . . . . . . . . . . . . 14
⊢ ((𝑠 ∈ ℂ ↦ (2
· (sin‘((1 / 2) · 𝑠)))) ↾ ℝ) = (𝑠 ∈ ℝ ↦ (2 ·
(sin‘((1 / 2) · 𝑠)))) |
129 | 105 | fveq2d 6778 |
. . . . . . . . . . . . . . . 16
⊢ (𝑠 ∈ ℝ →
(sin‘((1 / 2) · 𝑠)) = (sin‘(𝑠 / 2))) |
130 | 129 | oveq2d 7291 |
. . . . . . . . . . . . . . 15
⊢ (𝑠 ∈ ℝ → (2
· (sin‘((1 / 2) · 𝑠))) = (2 · (sin‘(𝑠 / 2)))) |
131 | 130 | mpteq2ia 5177 |
. . . . . . . . . . . . . 14
⊢ (𝑠 ∈ ℝ ↦ (2
· (sin‘((1 / 2) · 𝑠)))) = (𝑠 ∈ ℝ ↦ (2 ·
(sin‘(𝑠 /
2)))) |
132 | 128, 131 | eqtr2i 2767 |
. . . . . . . . . . . . 13
⊢ (𝑠 ∈ ℝ ↦ (2
· (sin‘(𝑠 /
2)))) = ((𝑠 ∈ ℂ
↦ (2 · (sin‘((1 / 2) · 𝑠)))) ↾ ℝ) |
133 | 132 | oveq2i 7286 |
. . . . . . . . . . . 12
⊢ (ℝ
D (𝑠 ∈ ℝ ↦
(2 · (sin‘(𝑠 /
2))))) = (ℝ D ((𝑠
∈ ℂ ↦ (2 · (sin‘((1 / 2) · 𝑠)))) ↾
ℝ)) |
134 | | ioontr 43049 |
. . . . . . . . . . . 12
⊢
((int‘(topGen‘ran (,)))‘(𝐴(,)𝐵)) = (𝐴(,)𝐵) |
135 | 133, 134 | reseq12i 5889 |
. . . . . . . . . . 11
⊢ ((ℝ
D (𝑠 ∈ ℝ ↦
(2 · (sin‘(𝑠 /
2))))) ↾ ((int‘(topGen‘ran (,)))‘(𝐴(,)𝐵))) = ((ℝ D ((𝑠 ∈ ℂ ↦ (2 ·
(sin‘((1 / 2) · 𝑠)))) ↾ ℝ)) ↾ (𝐴(,)𝐵)) |
136 | | eqid 2738 |
. . . . . . . . . . . . . 14
⊢ (𝑠 ∈ ℂ ↦ (2
· (sin‘((1 / 2) · 𝑠)))) = (𝑠 ∈ ℂ ↦ (2 ·
(sin‘((1 / 2) · 𝑠)))) |
137 | | 2cnd 12051 |
. . . . . . . . . . . . . . 15
⊢ (𝑠 ∈ ℂ → 2 ∈
ℂ) |
138 | 111 | sincld 15839 |
. . . . . . . . . . . . . . 15
⊢ (𝑠 ∈ ℂ →
(sin‘((1 / 2) · 𝑠)) ∈ ℂ) |
139 | 137, 138 | mulcld 10995 |
. . . . . . . . . . . . . 14
⊢ (𝑠 ∈ ℂ → (2
· (sin‘((1 / 2) · 𝑠))) ∈ ℂ) |
140 | 136, 139 | fmpti 6986 |
. . . . . . . . . . . . 13
⊢ (𝑠 ∈ ℂ ↦ (2
· (sin‘((1 / 2) · 𝑠)))):ℂ⟶ℂ |
141 | | ssid 3943 |
. . . . . . . . . . . . 13
⊢ ℂ
⊆ ℂ |
142 | | dmmptg 6145 |
. . . . . . . . . . . . . . . 16
⊢
(∀𝑠 ∈
ℂ ((2 · (1 / 2)) · (cos‘((1 / 2) · 𝑠))) ∈ ℂ → dom
(𝑠 ∈ ℂ ↦
((2 · (1 / 2)) · (cos‘((1 / 2) · 𝑠)))) = ℂ) |
143 | | 2cn 12048 |
. . . . . . . . . . . . . . . . . . 19
⊢ 2 ∈
ℂ |
144 | 143, 108 | mulcli 10982 |
. . . . . . . . . . . . . . . . . 18
⊢ (2
· (1 / 2)) ∈ ℂ |
145 | 144 | a1i 11 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑠 ∈ ℂ → (2
· (1 / 2)) ∈ ℂ) |
146 | 145, 112 | mulcld 10995 |
. . . . . . . . . . . . . . . 16
⊢ (𝑠 ∈ ℂ → ((2
· (1 / 2)) · (cos‘((1 / 2) · 𝑠))) ∈ ℂ) |
147 | 142, 146 | mprg 3078 |
. . . . . . . . . . . . . . 15
⊢ dom
(𝑠 ∈ ℂ ↦
((2 · (1 / 2)) · (cos‘((1 / 2) · 𝑠)))) = ℂ |
148 | 121, 147 | sseqtrri 3958 |
. . . . . . . . . . . . . 14
⊢ ℝ
⊆ dom (𝑠 ∈
ℂ ↦ ((2 · (1 / 2)) · (cos‘((1 / 2) ·
𝑠)))) |
149 | | dvasinbx 43461 |
. . . . . . . . . . . . . . . 16
⊢ ((2
∈ ℂ ∧ (1 / 2) ∈ ℂ) → (ℂ D (𝑠 ∈ ℂ ↦ (2
· (sin‘((1 / 2) · 𝑠))))) = (𝑠 ∈ ℂ ↦ ((2 · (1 / 2))
· (cos‘((1 / 2) · 𝑠))))) |
150 | 143, 108,
149 | mp2an 689 |
. . . . . . . . . . . . . . 15
⊢ (ℂ
D (𝑠 ∈ ℂ ↦
(2 · (sin‘((1 / 2) · 𝑠))))) = (𝑠 ∈ ℂ ↦ ((2 · (1 / 2))
· (cos‘((1 / 2) · 𝑠)))) |
151 | 150 | dmeqi 5813 |
. . . . . . . . . . . . . 14
⊢ dom
(ℂ D (𝑠 ∈
ℂ ↦ (2 · (sin‘((1 / 2) · 𝑠))))) = dom (𝑠 ∈ ℂ ↦ ((2 · (1 / 2))
· (cos‘((1 / 2) · 𝑠)))) |
152 | 148, 151 | sseqtrri 3958 |
. . . . . . . . . . . . 13
⊢ ℝ
⊆ dom (ℂ D (𝑠
∈ ℂ ↦ (2 · (sin‘((1 / 2) · 𝑠))))) |
153 | | dvres3 25077 |
. . . . . . . . . . . . 13
⊢
(((ℝ ∈ {ℝ, ℂ} ∧ (𝑠 ∈ ℂ ↦ (2 ·
(sin‘((1 / 2) · 𝑠)))):ℂ⟶ℂ) ∧ (ℂ
⊆ ℂ ∧ ℝ ⊆ dom (ℂ D (𝑠 ∈ ℂ ↦ (2 ·
(sin‘((1 / 2) · 𝑠))))))) → (ℝ D ((𝑠 ∈ ℂ ↦ (2
· (sin‘((1 / 2) · 𝑠)))) ↾ ℝ)) = ((ℂ D (𝑠 ∈ ℂ ↦ (2
· (sin‘((1 / 2) · 𝑠))))) ↾ ℝ)) |
154 | 80, 140, 141, 152, 153 | mp4an 690 |
. . . . . . . . . . . 12
⊢ (ℝ
D ((𝑠 ∈ ℂ
↦ (2 · (sin‘((1 / 2) · 𝑠)))) ↾ ℝ)) = ((ℂ D (𝑠 ∈ ℂ ↦ (2
· (sin‘((1 / 2) · 𝑠))))) ↾ ℝ) |
155 | 154 | reseq1i 5887 |
. . . . . . . . . . 11
⊢ ((ℝ
D ((𝑠 ∈ ℂ
↦ (2 · (sin‘((1 / 2) · 𝑠)))) ↾ ℝ)) ↾ (𝐴(,)𝐵)) = (((ℂ D (𝑠 ∈ ℂ ↦ (2 ·
(sin‘((1 / 2) · 𝑠))))) ↾ ℝ) ↾ (𝐴(,)𝐵)) |
156 | 150 | reseq1i 5887 |
. . . . . . . . . . . . 13
⊢ ((ℂ
D (𝑠 ∈ ℂ ↦
(2 · (sin‘((1 / 2) · 𝑠))))) ↾ ℝ) = ((𝑠 ∈ ℂ ↦ ((2 · (1 / 2))
· (cos‘((1 / 2) · 𝑠)))) ↾ ℝ) |
157 | 156 | reseq1i 5887 |
. . . . . . . . . . . 12
⊢
(((ℂ D (𝑠
∈ ℂ ↦ (2 · (sin‘((1 / 2) · 𝑠))))) ↾ ℝ) ↾
(𝐴(,)𝐵)) = (((𝑠 ∈ ℂ ↦ ((2 · (1 / 2))
· (cos‘((1 / 2) · 𝑠)))) ↾ ℝ) ↾ (𝐴(,)𝐵)) |
158 | | resabs1 5921 |
. . . . . . . . . . . . 13
⊢ ((𝐴(,)𝐵) ⊆ ℝ → (((𝑠 ∈ ℂ ↦ ((2
· (1 / 2)) · (cos‘((1 / 2) · 𝑠)))) ↾ ℝ) ↾ (𝐴(,)𝐵)) = ((𝑠 ∈ ℂ ↦ ((2 · (1 / 2))
· (cos‘((1 / 2) · 𝑠)))) ↾ (𝐴(,)𝐵))) |
159 | 116, 158 | ax-mp 5 |
. . . . . . . . . . . 12
⊢ (((𝑠 ∈ ℂ ↦ ((2
· (1 / 2)) · (cos‘((1 / 2) · 𝑠)))) ↾ ℝ) ↾ (𝐴(,)𝐵)) = ((𝑠 ∈ ℂ ↦ ((2 · (1 / 2))
· (cos‘((1 / 2) · 𝑠)))) ↾ (𝐴(,)𝐵)) |
160 | | ioosscn 13141 |
. . . . . . . . . . . . 13
⊢ (𝐴(,)𝐵) ⊆ ℂ |
161 | | resmpt 5945 |
. . . . . . . . . . . . 13
⊢ ((𝐴(,)𝐵) ⊆ ℂ → ((𝑠 ∈ ℂ ↦ ((2
· (1 / 2)) · (cos‘((1 / 2) · 𝑠)))) ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((2 · (1 / 2)) ·
(cos‘((1 / 2) · 𝑠))))) |
162 | 160, 161 | ax-mp 5 |
. . . . . . . . . . . 12
⊢ ((𝑠 ∈ ℂ ↦ ((2
· (1 / 2)) · (cos‘((1 / 2) · 𝑠)))) ↾ (𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((2 · (1 / 2)) ·
(cos‘((1 / 2) · 𝑠)))) |
163 | 157, 159,
162 | 3eqtri 2770 |
. . . . . . . . . . 11
⊢
(((ℂ D (𝑠
∈ ℂ ↦ (2 · (sin‘((1 / 2) · 𝑠))))) ↾ ℝ) ↾
(𝐴(,)𝐵)) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((2 · (1 / 2)) ·
(cos‘((1 / 2) · 𝑠)))) |
164 | 135, 155,
163 | 3eqtri 2770 |
. . . . . . . . . 10
⊢ ((ℝ
D (𝑠 ∈ ℝ ↦
(2 · (sin‘(𝑠 /
2))))) ↾ ((int‘(topGen‘ran (,)))‘(𝐴(,)𝐵))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((2 · (1 / 2)) ·
(cos‘((1 / 2) · 𝑠)))) |
165 | 120, 126,
164 | 3eqtri 2770 |
. . . . . . . . 9
⊢ (ℝ
D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ ((2 · (1 / 2)) ·
(cos‘((1 / 2) · 𝑠)))) |
166 | 143, 54 | recidi 11706 |
. . . . . . . . . . . . 13
⊢ (2
· (1 / 2)) = 1 |
167 | 166 | oveq1i 7285 |
. . . . . . . . . . . 12
⊢ ((2
· (1 / 2)) · (cos‘((1 / 2) · 𝑠))) = (1 · (cos‘((1 / 2)
· 𝑠))) |
168 | 167 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (𝐴(,)𝐵) → ((2 · (1 / 2)) ·
(cos‘((1 / 2) · 𝑠))) = (1 · (cos‘((1 / 2)
· 𝑠)))) |
169 | 113 | mulid2d 10993 |
. . . . . . . . . . 11
⊢ (𝑠 ∈ (𝐴(,)𝐵) → (1 · (cos‘((1 / 2)
· 𝑠))) =
(cos‘((1 / 2) · 𝑠))) |
170 | 168, 169,
107 | 3eqtrd 2782 |
. . . . . . . . . 10
⊢ (𝑠 ∈ (𝐴(,)𝐵) → ((2 · (1 / 2)) ·
(cos‘((1 / 2) · 𝑠))) = (cos‘(𝑠 / 2))) |
171 | 170 | mpteq2ia 5177 |
. . . . . . . . 9
⊢ (𝑠 ∈ (𝐴(,)𝐵) ↦ ((2 · (1 / 2)) ·
(cos‘((1 / 2) · 𝑠)))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2))) |
172 | 165, 171 | eqtri 2766 |
. . . . . . . 8
⊢ (ℝ
D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2))) |
173 | 172 | a1i 11 |
. . . . . . 7
⊢ (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2)))) |
174 | 81, 82, 29, 99, 101, 115, 173 | dvmptdiv 25138 |
. . . . . 6
⊢ (𝜑 → (ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (((𝐹‘(𝑋 + 𝑠)) − 𝐶) / (2 · (sin‘(𝑠 / 2)))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 /
2)))↑2)))) |
175 | 79, 174 | eqtrd 2778 |
. . . . 5
⊢ (𝜑 → (ℝ D 𝑂) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 /
2)))↑2)))) |
176 | 175 | feq1d 6585 |
. . . 4
⊢ (𝜑 → ((ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ ↔ (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 / 2)))↑2))):(𝐴(,)𝐵)⟶ℝ)) |
177 | 76, 176 | mpbird 256 |
. . 3
⊢ (𝜑 → (ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ) |
178 | 177, 175 | jca 512 |
. 2
⊢ (𝜑 → ((ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ ∧ (ℝ D 𝑂) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 /
2)))↑2))))) |
179 | 178, 172 | pm3.2i 471 |
1
⊢ ((𝜑 → ((ℝ D 𝑂):(𝐴(,)𝐵)⟶ℝ ∧ (ℝ D 𝑂) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (((((ℝ D (𝐹 ↾ ((𝑋 + 𝐴)(,)(𝑋 + 𝐵))))‘(𝑋 + 𝑠)) · (2 · (sin‘(𝑠 / 2)))) −
((cos‘(𝑠 / 2))
· ((𝐹‘(𝑋 + 𝑠)) − 𝐶))) / ((2 · (sin‘(𝑠 / 2)))↑2))))) ∧
(ℝ D (𝑠 ∈ (𝐴(,)𝐵) ↦ (2 · (sin‘(𝑠 / 2))))) = (𝑠 ∈ (𝐴(,)𝐵) ↦ (cos‘(𝑠 / 2)))) |