Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  fourierdlem62 Structured version   Visualization version   GIF version

Theorem fourierdlem62 44871
Description: The function 𝐾 is continuous. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypothesis
Ref Expression
fourierdlem62.k 𝐾 = (𝑦 ∈ (-Ο€[,]Ο€) ↦ if(𝑦 = 0, 1, (𝑦 / (2 Β· (sinβ€˜(𝑦 / 2))))))
Assertion
Ref Expression
fourierdlem62 𝐾 ∈ ((-Ο€[,]Ο€)–cn→ℝ)

Proof of Theorem fourierdlem62
Dummy variables 𝑠 π‘₯ are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 fourierdlem62.k . . . 4 𝐾 = (𝑦 ∈ (-Ο€[,]Ο€) ↦ if(𝑦 = 0, 1, (𝑦 / (2 Β· (sinβ€˜(𝑦 / 2))))))
2 eqeq1 2737 . . . . . 6 (𝑦 = 𝑠 β†’ (𝑦 = 0 ↔ 𝑠 = 0))
3 id 22 . . . . . . 7 (𝑦 = 𝑠 β†’ 𝑦 = 𝑠)
4 oveq1 7413 . . . . . . . . 9 (𝑦 = 𝑠 β†’ (𝑦 / 2) = (𝑠 / 2))
54fveq2d 6893 . . . . . . . 8 (𝑦 = 𝑠 β†’ (sinβ€˜(𝑦 / 2)) = (sinβ€˜(𝑠 / 2)))
65oveq2d 7422 . . . . . . 7 (𝑦 = 𝑠 β†’ (2 Β· (sinβ€˜(𝑦 / 2))) = (2 Β· (sinβ€˜(𝑠 / 2))))
73, 6oveq12d 7424 . . . . . 6 (𝑦 = 𝑠 β†’ (𝑦 / (2 Β· (sinβ€˜(𝑦 / 2)))) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
82, 7ifbieq2d 4554 . . . . 5 (𝑦 = 𝑠 β†’ if(𝑦 = 0, 1, (𝑦 / (2 Β· (sinβ€˜(𝑦 / 2))))) = if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
98cbvmptv 5261 . . . 4 (𝑦 ∈ (-Ο€[,]Ο€) ↦ if(𝑦 = 0, 1, (𝑦 / (2 Β· (sinβ€˜(𝑦 / 2)))))) = (𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
101, 9eqtri 2761 . . 3 𝐾 = (𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
1110fourierdlem43 44853 . 2 𝐾:(-Ο€[,]Ο€)βŸΆβ„
12 ax-resscn 11164 . . 3 ℝ βŠ† β„‚
13 fss 6732 . . . . . 6 ((𝐾:(-Ο€[,]Ο€)βŸΆβ„ ∧ ℝ βŠ† β„‚) β†’ 𝐾:(-Ο€[,]Ο€)βŸΆβ„‚)
1411, 12, 13mp2an 691 . . . . 5 𝐾:(-Ο€[,]Ο€)βŸΆβ„‚
1514a1i 11 . . . . . . . . 9 (𝑠 = 0 β†’ 𝐾:(-Ο€[,]Ο€)βŸΆβ„‚)
16 difss 4131 . . . . . . . . . . . . . . . . 17 ((-Ο€(,)Ο€) βˆ– {0}) βŠ† (-Ο€(,)Ο€)
17 elioore 13351 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ (-Ο€(,)Ο€) β†’ 𝑠 ∈ ℝ)
1817ssriv 3986 . . . . . . . . . . . . . . . . 17 (-Ο€(,)Ο€) βŠ† ℝ
1916, 18sstri 3991 . . . . . . . . . . . . . . . 16 ((-Ο€(,)Ο€) βˆ– {0}) βŠ† ℝ
2019a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ ((-Ο€(,)Ο€) βˆ– {0}) βŠ† ℝ)
21 eqid 2733 . . . . . . . . . . . . . . . . 17 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯)
2219sseli 3978 . . . . . . . . . . . . . . . . 17 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ π‘₯ ∈ ℝ)
2321, 22fmpti 7109 . . . . . . . . . . . . . . . 16 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯):((-Ο€(,)Ο€) βˆ– {0})βŸΆβ„
2423a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯):((-Ο€(,)Ο€) βˆ– {0})βŸΆβ„)
25 eqid 2733 . . . . . . . . . . . . . . . . 17 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))
26 2re 12283 . . . . . . . . . . . . . . . . . . 19 2 ∈ ℝ
2726a1i 11 . . . . . . . . . . . . . . . . . 18 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 2 ∈ ℝ)
2822rehalfcld 12456 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (π‘₯ / 2) ∈ ℝ)
2928resincld 16083 . . . . . . . . . . . . . . . . . 18 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (sinβ€˜(π‘₯ / 2)) ∈ ℝ)
3027, 29remulcld 11241 . . . . . . . . . . . . . . . . 17 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (2 Β· (sinβ€˜(π‘₯ / 2))) ∈ ℝ)
3125, 30fmpti 7109 . . . . . . . . . . . . . . . 16 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))):((-Ο€(,)Ο€) βˆ– {0})βŸΆβ„
3231a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))):((-Ο€(,)Ο€) βˆ– {0})βŸΆβ„)
33 iooretop 24274 . . . . . . . . . . . . . . . 16 (-Ο€(,)Ο€) ∈ (topGenβ€˜ran (,))
3433a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ (-Ο€(,)Ο€) ∈ (topGenβ€˜ran (,)))
35 0re 11213 . . . . . . . . . . . . . . . . 17 0 ∈ ℝ
36 negpilt0 43977 . . . . . . . . . . . . . . . . 17 -Ο€ < 0
37 pipos 25962 . . . . . . . . . . . . . . . . 17 0 < Ο€
38 pire 25960 . . . . . . . . . . . . . . . . . . . 20 Ο€ ∈ ℝ
3938renegcli 11518 . . . . . . . . . . . . . . . . . . 19 -Ο€ ∈ ℝ
4039rexri 11269 . . . . . . . . . . . . . . . . . 18 -Ο€ ∈ ℝ*
4138rexri 11269 . . . . . . . . . . . . . . . . . 18 Ο€ ∈ ℝ*
42 elioo2 13362 . . . . . . . . . . . . . . . . . 18 ((-Ο€ ∈ ℝ* ∧ Ο€ ∈ ℝ*) β†’ (0 ∈ (-Ο€(,)Ο€) ↔ (0 ∈ ℝ ∧ -Ο€ < 0 ∧ 0 < Ο€)))
4340, 41, 42mp2an 691 . . . . . . . . . . . . . . . . 17 (0 ∈ (-Ο€(,)Ο€) ↔ (0 ∈ ℝ ∧ -Ο€ < 0 ∧ 0 < Ο€))
4435, 36, 37, 43mpbir3an 1342 . . . . . . . . . . . . . . . 16 0 ∈ (-Ο€(,)Ο€)
4544a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ 0 ∈ (-Ο€(,)Ο€))
46 eqid 2733 . . . . . . . . . . . . . . 15 ((-Ο€(,)Ο€) βˆ– {0}) = ((-Ο€(,)Ο€) βˆ– {0})
47 1ex 11207 . . . . . . . . . . . . . . . . . . 19 1 ∈ V
48 eqid 2733 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ 1) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ 1)
4947, 48dmmpti 6692 . . . . . . . . . . . . . . . . . 18 dom (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ 1) = ((-Ο€(,)Ο€) βˆ– {0})
50 reelprrecn 11199 . . . . . . . . . . . . . . . . . . . . . . 23 ℝ ∈ {ℝ, β„‚}
5150a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ ℝ ∈ {ℝ, β„‚})
5212sseli 3978 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ ∈ ℝ β†’ π‘₯ ∈ β„‚)
5352adantl 483 . . . . . . . . . . . . . . . . . . . . . 22 ((⊀ ∧ π‘₯ ∈ ℝ) β†’ π‘₯ ∈ β„‚)
54 1red 11212 . . . . . . . . . . . . . . . . . . . . . 22 ((⊀ ∧ π‘₯ ∈ ℝ) β†’ 1 ∈ ℝ)
5551dvmptid 25466 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ (ℝ D (π‘₯ ∈ ℝ ↦ π‘₯)) = (π‘₯ ∈ ℝ ↦ 1))
56 eqid 2733 . . . . . . . . . . . . . . . . . . . . . . 23 (TopOpenβ€˜β„‚fld) = (TopOpenβ€˜β„‚fld)
5756tgioo2 24311 . . . . . . . . . . . . . . . . . . . . . 22 (topGenβ€˜ran (,)) = ((TopOpenβ€˜β„‚fld) β†Ύt ℝ)
58 sncldre 43715 . . . . . . . . . . . . . . . . . . . . . . . . 25 (0 ∈ ℝ β†’ {0} ∈ (Clsdβ€˜(topGenβ€˜ran (,))))
5935, 58ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . 24 {0} ∈ (Clsdβ€˜(topGenβ€˜ran (,)))
60 retopon 24272 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (topGenβ€˜ran (,)) ∈ (TopOnβ€˜β„)
6160toponunii 22410 . . . . . . . . . . . . . . . . . . . . . . . . 25 ℝ = βˆͺ (topGenβ€˜ran (,))
6261difopn 22530 . . . . . . . . . . . . . . . . . . . . . . . 24 (((-Ο€(,)Ο€) ∈ (topGenβ€˜ran (,)) ∧ {0} ∈ (Clsdβ€˜(topGenβ€˜ran (,)))) β†’ ((-Ο€(,)Ο€) βˆ– {0}) ∈ (topGenβ€˜ran (,)))
6333, 59, 62mp2an 691 . . . . . . . . . . . . . . . . . . . . . . 23 ((-Ο€(,)Ο€) βˆ– {0}) ∈ (topGenβ€˜ran (,))
6463a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ ((-Ο€(,)Ο€) βˆ– {0}) ∈ (topGenβ€˜ran (,)))
6551, 53, 54, 55, 20, 57, 56, 64dvmptres 25472 . . . . . . . . . . . . . . . . . . . . 21 (⊀ β†’ (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯)) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ 1))
6665mptru 1549 . . . . . . . . . . . . . . . . . . . 20 (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯)) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ 1)
6766eqcomi 2742 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ 1) = (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))
6867dmeqi 5903 . . . . . . . . . . . . . . . . . 18 dom (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ 1) = dom (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))
6949, 68eqtr3i 2763 . . . . . . . . . . . . . . . . 17 ((-Ο€(,)Ο€) βˆ– {0}) = dom (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))
7069eqimssi 4042 . . . . . . . . . . . . . . . 16 ((-Ο€(,)Ο€) βˆ– {0}) βŠ† dom (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))
7170a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ ((-Ο€(,)Ο€) βˆ– {0}) βŠ† dom (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯)))
72 fvex 6902 . . . . . . . . . . . . . . . . . . 19 (cosβ€˜(π‘₯ / 2)) ∈ V
73 eqid 2733 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2)))
7472, 73dmmpti 6692 . . . . . . . . . . . . . . . . . 18 dom (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) = ((-Ο€(,)Ο€) βˆ– {0})
75 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . . 23 ((⊀ ∧ π‘₯ ∈ ℝ) β†’ 2 ∈ β„‚)
7653halfcld 12454 . . . . . . . . . . . . . . . . . . . . . . . 24 ((⊀ ∧ π‘₯ ∈ ℝ) β†’ (π‘₯ / 2) ∈ β„‚)
7776sincld 16070 . . . . . . . . . . . . . . . . . . . . . . 23 ((⊀ ∧ π‘₯ ∈ ℝ) β†’ (sinβ€˜(π‘₯ / 2)) ∈ β„‚)
7875, 77mulcld 11231 . . . . . . . . . . . . . . . . . . . . . 22 ((⊀ ∧ π‘₯ ∈ ℝ) β†’ (2 Β· (sinβ€˜(π‘₯ / 2))) ∈ β„‚)
7976coscld 16071 . . . . . . . . . . . . . . . . . . . . . 22 ((⊀ ∧ π‘₯ ∈ ℝ) β†’ (cosβ€˜(π‘₯ / 2)) ∈ β„‚)
80 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘₯ ∈ ℝ β†’ 2 ∈ β„‚)
81 2ne0 12313 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 2 β‰  0
8281a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘₯ ∈ ℝ β†’ 2 β‰  0)
8352, 80, 82divrec2d 11991 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (π‘₯ ∈ ℝ β†’ (π‘₯ / 2) = ((1 / 2) Β· π‘₯))
8483fveq2d 6893 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (π‘₯ ∈ ℝ β†’ (sinβ€˜(π‘₯ / 2)) = (sinβ€˜((1 / 2) Β· π‘₯)))
8584oveq2d 7422 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘₯ ∈ ℝ β†’ (2 Β· (sinβ€˜(π‘₯ / 2))) = (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))
8685mpteq2ia 5251 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘₯ ∈ ℝ ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) = (π‘₯ ∈ ℝ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))
8786oveq2i 7417 . . . . . . . . . . . . . . . . . . . . . . . 24 (ℝ D (π‘₯ ∈ ℝ ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))) = (ℝ D (π‘₯ ∈ ℝ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))))
88 resmpt 6036 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (ℝ βŠ† β„‚ β†’ ((π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))) β†Ύ ℝ) = (π‘₯ ∈ ℝ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))))
8912, 88ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))) β†Ύ ℝ) = (π‘₯ ∈ ℝ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))
9089eqcomi 2742 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘₯ ∈ ℝ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))) = ((π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))) β†Ύ ℝ)
9190oveq2i 7417 . . . . . . . . . . . . . . . . . . . . . . . . 25 (ℝ D (π‘₯ ∈ ℝ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))) = (ℝ D ((π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))) β†Ύ ℝ))
92 eqid 2733 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))) = (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))
93 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (π‘₯ ∈ β„‚ β†’ 2 ∈ β„‚)
94 halfcn 12424 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (1 / 2) ∈ β„‚
9594a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘₯ ∈ β„‚ β†’ (1 / 2) ∈ β„‚)
96 id 22 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘₯ ∈ β„‚ β†’ π‘₯ ∈ β„‚)
9795, 96mulcld 11231 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘₯ ∈ β„‚ β†’ ((1 / 2) Β· π‘₯) ∈ β„‚)
9897sincld 16070 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (π‘₯ ∈ β„‚ β†’ (sinβ€˜((1 / 2) Β· π‘₯)) ∈ β„‚)
9993, 98mulcld 11231 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (π‘₯ ∈ β„‚ β†’ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))) ∈ β„‚)
10092, 99fmpti 7109 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))):β„‚βŸΆβ„‚
101 eqid 2733 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘₯ ∈ β„‚ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯)))) = (π‘₯ ∈ β„‚ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯))))
102 2cn 12284 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34 2 ∈ β„‚
103102, 94mulcli 11218 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33 (2 Β· (1 / 2)) ∈ β„‚
104103a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (π‘₯ ∈ β„‚ β†’ (2 Β· (1 / 2)) ∈ β„‚)
10597coscld 16071 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32 (π‘₯ ∈ β„‚ β†’ (cosβ€˜((1 / 2) Β· π‘₯)) ∈ β„‚)
106104, 105mulcld 11231 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31 (π‘₯ ∈ β„‚ β†’ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯))) ∈ β„‚)
107106adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 ((⊀ ∧ π‘₯ ∈ β„‚) β†’ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯))) ∈ β„‚)
108101, 107dmmptd 6693 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (⊀ β†’ dom (π‘₯ ∈ β„‚ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯)))) = β„‚)
109108mptru 1549 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 dom (π‘₯ ∈ β„‚ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯)))) = β„‚
11012, 109sseqtrri 4019 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ℝ βŠ† dom (π‘₯ ∈ β„‚ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯))))
111 dvasinbx 44623 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 ((2 ∈ β„‚ ∧ (1 / 2) ∈ β„‚) β†’ (β„‚ D (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))) = (π‘₯ ∈ β„‚ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯)))))
112102, 94, 111mp2an 691 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (β„‚ D (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))) = (π‘₯ ∈ β„‚ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯))))
113112dmeqi 5903 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 dom (β„‚ D (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))) = dom (π‘₯ ∈ β„‚ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯))))
114110, 113sseqtrri 4019 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ℝ βŠ† dom (β„‚ D (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))))
115 dvcnre 44619 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (((π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))):β„‚βŸΆβ„‚ ∧ ℝ βŠ† dom (β„‚ D (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))))) β†’ (ℝ D ((π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))) β†Ύ ℝ)) = ((β„‚ D (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))) β†Ύ ℝ))
116100, 114, 115mp2an 691 . . . . . . . . . . . . . . . . . . . . . . . . 25 (ℝ D ((π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯)))) β†Ύ ℝ)) = ((β„‚ D (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))) β†Ύ ℝ)
117112reseq1i 5976 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((β„‚ D (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))) β†Ύ ℝ) = ((π‘₯ ∈ β„‚ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯)))) β†Ύ ℝ)
118 resmpt 6036 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (ℝ βŠ† β„‚ β†’ ((π‘₯ ∈ β„‚ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯)))) β†Ύ ℝ) = (π‘₯ ∈ ℝ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯)))))
11912, 118ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((π‘₯ ∈ β„‚ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯)))) β†Ύ ℝ) = (π‘₯ ∈ ℝ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯))))
120102, 81recidi 11942 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (2 Β· (1 / 2)) = 1
121120a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘₯ ∈ ℝ β†’ (2 Β· (1 / 2)) = 1)
12283eqcomd 2739 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘₯ ∈ ℝ β†’ ((1 / 2) Β· π‘₯) = (π‘₯ / 2))
123122fveq2d 6893 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘₯ ∈ ℝ β†’ (cosβ€˜((1 / 2) Β· π‘₯)) = (cosβ€˜(π‘₯ / 2)))
124121, 123oveq12d 7424 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (π‘₯ ∈ ℝ β†’ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯))) = (1 Β· (cosβ€˜(π‘₯ / 2))))
12552halfcld 12454 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30 (π‘₯ ∈ ℝ β†’ (π‘₯ / 2) ∈ β„‚)
126125coscld 16071 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29 (π‘₯ ∈ ℝ β†’ (cosβ€˜(π‘₯ / 2)) ∈ β„‚)
127126mullidd 11229 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28 (π‘₯ ∈ ℝ β†’ (1 Β· (cosβ€˜(π‘₯ / 2))) = (cosβ€˜(π‘₯ / 2)))
128124, 127eqtrd 2773 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (π‘₯ ∈ ℝ β†’ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯))) = (cosβ€˜(π‘₯ / 2)))
129128mpteq2ia 5251 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (π‘₯ ∈ ℝ ↦ ((2 Β· (1 / 2)) Β· (cosβ€˜((1 / 2) Β· π‘₯)))) = (π‘₯ ∈ ℝ ↦ (cosβ€˜(π‘₯ / 2)))
130117, 119, 1293eqtri 2765 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((β„‚ D (π‘₯ ∈ β„‚ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))) β†Ύ ℝ) = (π‘₯ ∈ ℝ ↦ (cosβ€˜(π‘₯ / 2)))
13191, 116, 1303eqtri 2765 . . . . . . . . . . . . . . . . . . . . . . . 24 (ℝ D (π‘₯ ∈ ℝ ↦ (2 Β· (sinβ€˜((1 / 2) Β· π‘₯))))) = (π‘₯ ∈ ℝ ↦ (cosβ€˜(π‘₯ / 2)))
13287, 131eqtri 2761 . . . . . . . . . . . . . . . . . . . . . . 23 (ℝ D (π‘₯ ∈ ℝ ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))) = (π‘₯ ∈ ℝ ↦ (cosβ€˜(π‘₯ / 2)))
133132a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ (ℝ D (π‘₯ ∈ ℝ ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))) = (π‘₯ ∈ ℝ ↦ (cosβ€˜(π‘₯ / 2))))
13451, 78, 79, 133, 20, 57, 56, 64dvmptres 25472 . . . . . . . . . . . . . . . . . . . . 21 (⊀ β†’ (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))))
135134mptru 1549 . . . . . . . . . . . . . . . . . . . 20 (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2)))
136135eqcomi 2742 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) = (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))
137136dmeqi 5903 . . . . . . . . . . . . . . . . . 18 dom (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) = dom (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))
13874, 137eqtr3i 2763 . . . . . . . . . . . . . . . . 17 ((-Ο€(,)Ο€) βˆ– {0}) = dom (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))
139138eqimssi 4042 . . . . . . . . . . . . . . . 16 ((-Ο€(,)Ο€) βˆ– {0}) βŠ† dom (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))
140139a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ ((-Ο€(,)Ο€) βˆ– {0}) βŠ† dom (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))))
14117recnd 11239 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ (-Ο€(,)Ο€) β†’ 𝑠 ∈ β„‚)
142141ssriv 3986 . . . . . . . . . . . . . . . . . . . . . . 23 (-Ο€(,)Ο€) βŠ† β„‚
143142a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ (-Ο€(,)Ο€) βŠ† β„‚)
144 ssid 4004 . . . . . . . . . . . . . . . . . . . . . . 23 β„‚ βŠ† β„‚
145144a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ β„‚ βŠ† β„‚)
146143, 145idcncfg 44576 . . . . . . . . . . . . . . . . . . . . 21 (⊀ β†’ (π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚))
147146mptru 1549 . . . . . . . . . . . . . . . . . . . 20 (π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚)
148 cnlimc 25397 . . . . . . . . . . . . . . . . . . . . 21 ((-Ο€(,)Ο€) βŠ† β„‚ β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚) ↔ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯):(-Ο€(,)Ο€)βŸΆβ„‚ ∧ βˆ€π‘¦ ∈ (-Ο€(,)Ο€)((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 𝑦))))
149142, 148ax-mp 5 . . . . . . . . . . . . . . . . . . . 20 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚) ↔ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯):(-Ο€(,)Ο€)βŸΆβ„‚ ∧ βˆ€π‘¦ ∈ (-Ο€(,)Ο€)((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 𝑦)))
150147, 149mpbi 229 . . . . . . . . . . . . . . . . . . 19 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯):(-Ο€(,)Ο€)βŸΆβ„‚ ∧ βˆ€π‘¦ ∈ (-Ο€(,)Ο€)((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 𝑦))
151150simpri 487 . . . . . . . . . . . . . . . . . 18 βˆ€π‘¦ ∈ (-Ο€(,)Ο€)((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 𝑦)
152 fveq2 6889 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = 0 β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜π‘¦) = ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜0))
153 oveq2 7414 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = 0 β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 𝑦) = ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 0))
154152, 153eleq12d 2828 . . . . . . . . . . . . . . . . . . 19 (𝑦 = 0 β†’ (((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 𝑦) ↔ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜0) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 0)))
155154rspccva 3612 . . . . . . . . . . . . . . . . . 18 ((βˆ€π‘¦ ∈ (-Ο€(,)Ο€)((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 𝑦) ∧ 0 ∈ (-Ο€(,)Ο€)) β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜0) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 0))
156151, 44, 155mp2an 691 . . . . . . . . . . . . . . . . 17 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜0) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 0)
157 id 22 . . . . . . . . . . . . . . . . . . 19 (π‘₯ = 0 β†’ π‘₯ = 0)
158 eqid 2733 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) = (π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)
159 c0ex 11205 . . . . . . . . . . . . . . . . . . 19 0 ∈ V
160157, 158, 159fvmpt 6996 . . . . . . . . . . . . . . . . . 18 (0 ∈ (-Ο€(,)Ο€) β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜0) = 0)
16144, 160ax-mp 5 . . . . . . . . . . . . . . . . 17 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯)β€˜0) = 0
162 elioore 13351 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ ∈ (-Ο€(,)Ο€) β†’ π‘₯ ∈ ℝ)
163162recnd 11239 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ ∈ (-Ο€(,)Ο€) β†’ π‘₯ ∈ β„‚)
164158, 163fmpti 7109 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯):(-Ο€(,)Ο€)βŸΆβ„‚
165164a1i 11 . . . . . . . . . . . . . . . . . . . 20 (⊀ β†’ (π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯):(-Ο€(,)Ο€)βŸΆβ„‚)
166165limcdif 25385 . . . . . . . . . . . . . . . . . . 19 (⊀ β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 0) = (((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0))
167166mptru 1549 . . . . . . . . . . . . . . . . . 18 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 0) = (((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0)
168 resmpt 6036 . . . . . . . . . . . . . . . . . . . 20 (((-Ο€(,)Ο€) βˆ– {0}) βŠ† (-Ο€(,)Ο€) β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))
16916, 168ax-mp 5 . . . . . . . . . . . . . . . . . . 19 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯)
170169oveq1i 7416 . . . . . . . . . . . . . . . . . 18 (((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0) = ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯) limβ„‚ 0)
171167, 170eqtri 2761 . . . . . . . . . . . . . . . . 17 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ π‘₯) limβ„‚ 0) = ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯) limβ„‚ 0)
172156, 161, 1713eltr3i 2846 . . . . . . . . . . . . . . . 16 0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯) limβ„‚ 0)
173172a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ 0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯) limβ„‚ 0))
174 eqid 2733 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ ∈ β„‚ ↦ 2) = (π‘₯ ∈ β„‚ ↦ 2)
175144a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (2 ∈ β„‚ β†’ β„‚ βŠ† β„‚)
176 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . . . . 25 (2 ∈ β„‚ β†’ 2 ∈ β„‚)
177175, 176, 175constcncfg 44575 . . . . . . . . . . . . . . . . . . . . . . . 24 (2 ∈ β„‚ β†’ (π‘₯ ∈ β„‚ ↦ 2) ∈ (ℂ–cnβ†’β„‚))
178102, 177mp1i 13 . . . . . . . . . . . . . . . . . . . . . . 23 (⊀ β†’ (π‘₯ ∈ β„‚ ↦ 2) ∈ (ℂ–cnβ†’β„‚))
179 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . . 23 ((⊀ ∧ π‘₯ ∈ (-Ο€(,)Ο€)) β†’ 2 ∈ β„‚)
180174, 178, 143, 145, 179cncfmptssg 44574 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ (π‘₯ ∈ (-Ο€(,)Ο€) ↦ 2) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚))
181 sincn 25948 . . . . . . . . . . . . . . . . . . . . . . . 24 sin ∈ (ℂ–cnβ†’β„‚)
182181a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (⊀ β†’ sin ∈ (ℂ–cnβ†’β„‚))
183 eqid 2733 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ ∈ β„‚ ↦ (π‘₯ / 2)) = (π‘₯ ∈ β„‚ ↦ (π‘₯ / 2))
184183divccncf 24414 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((2 ∈ β„‚ ∧ 2 β‰  0) β†’ (π‘₯ ∈ β„‚ ↦ (π‘₯ / 2)) ∈ (ℂ–cnβ†’β„‚))
185102, 81, 184mp2an 691 . . . . . . . . . . . . . . . . . . . . . . . . 25 (π‘₯ ∈ β„‚ ↦ (π‘₯ / 2)) ∈ (ℂ–cnβ†’β„‚)
186185a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24 (⊀ β†’ (π‘₯ ∈ β„‚ ↦ (π‘₯ / 2)) ∈ (ℂ–cnβ†’β„‚))
187163adantl 483 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((⊀ ∧ π‘₯ ∈ (-Ο€(,)Ο€)) β†’ π‘₯ ∈ β„‚)
188187halfcld 12454 . . . . . . . . . . . . . . . . . . . . . . . 24 ((⊀ ∧ π‘₯ ∈ (-Ο€(,)Ο€)) β†’ (π‘₯ / 2) ∈ β„‚)
189183, 186, 143, 145, 188cncfmptssg 44574 . . . . . . . . . . . . . . . . . . . . . . 23 (⊀ β†’ (π‘₯ ∈ (-Ο€(,)Ο€) ↦ (π‘₯ / 2)) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚))
190182, 189cncfmpt1f 24422 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ (π‘₯ ∈ (-Ο€(,)Ο€) ↦ (sinβ€˜(π‘₯ / 2))) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚))
191180, 190mulcncf 24955 . . . . . . . . . . . . . . . . . . . . 21 (⊀ β†’ (π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚))
192191mptru 1549 . . . . . . . . . . . . . . . . . . . 20 (π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚)
193 cnlimc 25397 . . . . . . . . . . . . . . . . . . . . 21 ((-Ο€(,)Ο€) βŠ† β„‚ β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚) ↔ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))):(-Ο€(,)Ο€)βŸΆβ„‚ ∧ βˆ€π‘¦ ∈ (-Ο€(,)Ο€)((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 𝑦))))
194142, 193ax-mp 5 . . . . . . . . . . . . . . . . . . . 20 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚) ↔ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))):(-Ο€(,)Ο€)βŸΆβ„‚ ∧ βˆ€π‘¦ ∈ (-Ο€(,)Ο€)((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 𝑦)))
195192, 194mpbi 229 . . . . . . . . . . . . . . . . . . 19 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))):(-Ο€(,)Ο€)βŸΆβ„‚ ∧ βˆ€π‘¦ ∈ (-Ο€(,)Ο€)((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 𝑦))
196195simpri 487 . . . . . . . . . . . . . . . . . 18 βˆ€π‘¦ ∈ (-Ο€(,)Ο€)((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 𝑦)
197 fveq2 6889 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = 0 β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) = ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜0))
198 oveq2 7414 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = 0 β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 𝑦) = ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 0))
199197, 198eleq12d 2828 . . . . . . . . . . . . . . . . . . 19 (𝑦 = 0 β†’ (((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 𝑦) ↔ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜0) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 0)))
200199rspccva 3612 . . . . . . . . . . . . . . . . . 18 ((βˆ€π‘¦ ∈ (-Ο€(,)Ο€)((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 𝑦) ∧ 0 ∈ (-Ο€(,)Ο€)) β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜0) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 0))
201196, 44, 200mp2an 691 . . . . . . . . . . . . . . . . 17 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜0) ∈ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 0)
202 oveq1 7413 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ = 0 β†’ (π‘₯ / 2) = (0 / 2))
203102, 81div0i 11945 . . . . . . . . . . . . . . . . . . . . . . . 24 (0 / 2) = 0
204202, 203eqtrdi 2789 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ = 0 β†’ (π‘₯ / 2) = 0)
205204fveq2d 6893 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ = 0 β†’ (sinβ€˜(π‘₯ / 2)) = (sinβ€˜0))
206 sin0 16089 . . . . . . . . . . . . . . . . . . . . . 22 (sinβ€˜0) = 0
207205, 206eqtrdi 2789 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ = 0 β†’ (sinβ€˜(π‘₯ / 2)) = 0)
208207oveq2d 7422 . . . . . . . . . . . . . . . . . . . 20 (π‘₯ = 0 β†’ (2 Β· (sinβ€˜(π‘₯ / 2))) = (2 Β· 0))
209 2t0e0 12378 . . . . . . . . . . . . . . . . . . . 20 (2 Β· 0) = 0
210208, 209eqtrdi 2789 . . . . . . . . . . . . . . . . . . 19 (π‘₯ = 0 β†’ (2 Β· (sinβ€˜(π‘₯ / 2))) = 0)
211 eqid 2733 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) = (π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))
212210, 211, 159fvmpt 6996 . . . . . . . . . . . . . . . . . 18 (0 ∈ (-Ο€(,)Ο€) β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜0) = 0)
21344, 212ax-mp 5 . . . . . . . . . . . . . . . . 17 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜0) = 0
214 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ ∈ (-Ο€(,)Ο€) β†’ 2 ∈ β„‚)
215163halfcld 12454 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ ∈ (-Ο€(,)Ο€) β†’ (π‘₯ / 2) ∈ β„‚)
216215sincld 16070 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ ∈ (-Ο€(,)Ο€) β†’ (sinβ€˜(π‘₯ / 2)) ∈ β„‚)
217214, 216mulcld 11231 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ ∈ (-Ο€(,)Ο€) β†’ (2 Β· (sinβ€˜(π‘₯ / 2))) ∈ β„‚)
218211, 217fmpti 7109 . . . . . . . . . . . . . . . . . . . . 21 (π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))):(-Ο€(,)Ο€)βŸΆβ„‚
219218a1i 11 . . . . . . . . . . . . . . . . . . . 20 (⊀ β†’ (π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))):(-Ο€(,)Ο€)βŸΆβ„‚)
220219limcdif 25385 . . . . . . . . . . . . . . . . . . 19 (⊀ β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 0) = (((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0))
221220mptru 1549 . . . . . . . . . . . . . . . . . 18 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 0) = (((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0)
222 resmpt 6036 . . . . . . . . . . . . . . . . . . . 20 (((-Ο€(,)Ο€) βˆ– {0}) βŠ† (-Ο€(,)Ο€) β†’ ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))
22316, 222ax-mp 5 . . . . . . . . . . . . . . . . . . 19 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))
224223oveq1i 7416 . . . . . . . . . . . . . . . . . 18 (((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0) = ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 0)
225221, 224eqtri 2761 . . . . . . . . . . . . . . . . 17 ((π‘₯ ∈ (-Ο€(,)Ο€) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 0) = ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 0)
226201, 213, 2253eltr3i 2846 . . . . . . . . . . . . . . . 16 0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 0)
227226a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ 0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) limβ„‚ 0))
228 eqidd 2734 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))
229 oveq1 7413 . . . . . . . . . . . . . . . . . . . . . . . 24 (π‘₯ = 𝑦 β†’ (π‘₯ / 2) = (𝑦 / 2))
230229fveq2d 6893 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ = 𝑦 β†’ (sinβ€˜(π‘₯ / 2)) = (sinβ€˜(𝑦 / 2)))
231230oveq2d 7422 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ = 𝑦 β†’ (2 Β· (sinβ€˜(π‘₯ / 2))) = (2 Β· (sinβ€˜(𝑦 / 2))))
232231adantl 483 . . . . . . . . . . . . . . . . . . . . 21 ((𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ∧ π‘₯ = 𝑦) β†’ (2 Β· (sinβ€˜(π‘₯ / 2))) = (2 Β· (sinβ€˜(𝑦 / 2))))
233 id 22 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}))
23426a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 2 ∈ ℝ)
23519sseli 3978 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑦 ∈ ℝ)
236235rehalfcld 12456 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (𝑦 / 2) ∈ ℝ)
237236resincld 16083 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (sinβ€˜(𝑦 / 2)) ∈ ℝ)
238234, 237remulcld 11241 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (2 Β· (sinβ€˜(𝑦 / 2))) ∈ ℝ)
239228, 232, 233, 238fvmptd 7003 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) = (2 Β· (sinβ€˜(𝑦 / 2))))
240 2cnd 12287 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 2 ∈ β„‚)
241237recnd 11239 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (sinβ€˜(𝑦 / 2)) ∈ β„‚)
24281a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 2 β‰  0)
243 ioossicc 13407 . . . . . . . . . . . . . . . . . . . . . . 23 (-Ο€(,)Ο€) βŠ† (-Ο€[,]Ο€)
244 eldifi 4126 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑦 ∈ (-Ο€(,)Ο€))
245243, 244sselid 3980 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑦 ∈ (-Ο€[,]Ο€))
246 eldifsni 4793 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑦 β‰  0)
247 fourierdlem44 44854 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 ∈ (-Ο€[,]Ο€) ∧ 𝑦 β‰  0) β†’ (sinβ€˜(𝑦 / 2)) β‰  0)
248245, 246, 247syl2anc 585 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (sinβ€˜(𝑦 / 2)) β‰  0)
249240, 241, 242, 248mulne0d 11863 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (2 Β· (sinβ€˜(𝑦 / 2))) β‰  0)
250239, 249eqnetrd 3009 . . . . . . . . . . . . . . . . . . 19 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) β‰  0)
251250neneqd 2946 . . . . . . . . . . . . . . . . . 18 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ Β¬ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) = 0)
252251nrex 3075 . . . . . . . . . . . . . . . . 17 Β¬ βˆƒπ‘¦ ∈ ((-Ο€(,)Ο€) βˆ– {0})((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) = 0
25325fnmpt 6688 . . . . . . . . . . . . . . . . . . 19 (βˆ€π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0})(2 Β· (sinβ€˜(π‘₯ / 2))) ∈ ℝ β†’ (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) Fn ((-Ο€(,)Ο€) βˆ– {0}))
254253, 30mprg 3068 . . . . . . . . . . . . . . . . . 18 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) Fn ((-Ο€(,)Ο€) βˆ– {0})
255 ssid 4004 . . . . . . . . . . . . . . . . . 18 ((-Ο€(,)Ο€) βˆ– {0}) βŠ† ((-Ο€(,)Ο€) βˆ– {0})
256 fvelimab 6962 . . . . . . . . . . . . . . . . . 18 (((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) Fn ((-Ο€(,)Ο€) βˆ– {0}) ∧ ((-Ο€(,)Ο€) βˆ– {0}) βŠ† ((-Ο€(,)Ο€) βˆ– {0})) β†’ (0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) β€œ ((-Ο€(,)Ο€) βˆ– {0})) ↔ βˆƒπ‘¦ ∈ ((-Ο€(,)Ο€) βˆ– {0})((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) = 0))
257254, 255, 256mp2an 691 . . . . . . . . . . . . . . . . 17 (0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) β€œ ((-Ο€(,)Ο€) βˆ– {0})) ↔ βˆƒπ‘¦ ∈ ((-Ο€(,)Ο€) βˆ– {0})((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘¦) = 0)
258252, 257mtbir 323 . . . . . . . . . . . . . . . 16 Β¬ 0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) β€œ ((-Ο€(,)Ο€) βˆ– {0}))
259258a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ Β¬ 0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) β€œ ((-Ο€(,)Ο€) βˆ– {0})))
260 eqidd 2734 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))))
261229fveq2d 6893 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ = 𝑦 β†’ (cosβ€˜(π‘₯ / 2)) = (cosβ€˜(𝑦 / 2)))
262261adantl 483 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ∧ π‘₯ = 𝑦) β†’ (cosβ€˜(π‘₯ / 2)) = (cosβ€˜(𝑦 / 2)))
263235recnd 11239 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑦 ∈ β„‚)
264263halfcld 12454 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (𝑦 / 2) ∈ β„‚)
265264coscld 16071 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (cosβ€˜(𝑦 / 2)) ∈ β„‚)
266260, 262, 233, 265fvmptd 7003 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2)))β€˜π‘¦) = (cosβ€˜(𝑦 / 2)))
267236rered 15168 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (β„œβ€˜(𝑦 / 2)) = (𝑦 / 2))
268 halfpire 25966 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (Ο€ / 2) ∈ ℝ
269268renegcli 11518 . . . . . . . . . . . . . . . . . . . . . . . . . 26 -(Ο€ / 2) ∈ ℝ
270269a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -(Ο€ / 2) ∈ ℝ)
271270rexrd 11261 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -(Ο€ / 2) ∈ ℝ*)
272268a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (Ο€ / 2) ∈ ℝ)
273272rexrd 11261 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (Ο€ / 2) ∈ ℝ*)
274 picn 25961 . . . . . . . . . . . . . . . . . . . . . . . . . 26 Ο€ ∈ β„‚
275 divneg 11903 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((Ο€ ∈ β„‚ ∧ 2 ∈ β„‚ ∧ 2 β‰  0) β†’ -(Ο€ / 2) = (-Ο€ / 2))
276274, 102, 81, 275mp3an 1462 . . . . . . . . . . . . . . . . . . . . . . . . 25 -(Ο€ / 2) = (-Ο€ / 2)
27739a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -Ο€ ∈ ℝ)
278 2rp 12976 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 2 ∈ ℝ+
279278a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 2 ∈ ℝ+)
28040a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -Ο€ ∈ ℝ*)
28141a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ Ο€ ∈ ℝ*)
282 ioogtlb 44195 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((-Ο€ ∈ ℝ* ∧ Ο€ ∈ ℝ* ∧ 𝑦 ∈ (-Ο€(,)Ο€)) β†’ -Ο€ < 𝑦)
283280, 281, 244, 282syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -Ο€ < 𝑦)
284277, 235, 279, 283ltdiv1dd 13070 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (-Ο€ / 2) < (𝑦 / 2))
285276, 284eqbrtrid 5183 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -(Ο€ / 2) < (𝑦 / 2))
28638a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ Ο€ ∈ ℝ)
287 iooltub 44210 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((-Ο€ ∈ ℝ* ∧ Ο€ ∈ ℝ* ∧ 𝑦 ∈ (-Ο€(,)Ο€)) β†’ 𝑦 < Ο€)
288280, 281, 244, 287syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑦 < Ο€)
289235, 286, 279, 288ltdiv1dd 13070 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (𝑦 / 2) < (Ο€ / 2))
290271, 273, 236, 285, 289eliood 44198 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (𝑦 / 2) ∈ (-(Ο€ / 2)(,)(Ο€ / 2)))
291267, 290eqeltrd 2834 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (β„œβ€˜(𝑦 / 2)) ∈ (-(Ο€ / 2)(,)(Ο€ / 2)))
292 cosne0 26030 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑦 / 2) ∈ β„‚ ∧ (β„œβ€˜(𝑦 / 2)) ∈ (-(Ο€ / 2)(,)(Ο€ / 2))) β†’ (cosβ€˜(𝑦 / 2)) β‰  0)
293264, 291, 292syl2anc 585 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (cosβ€˜(𝑦 / 2)) β‰  0)
294266, 293eqnetrd 3009 . . . . . . . . . . . . . . . . . . . 20 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2)))β€˜π‘¦) β‰  0)
295294neneqd 2946 . . . . . . . . . . . . . . . . . . 19 (𝑦 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ Β¬ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2)))β€˜π‘¦) = 0)
296295nrex 3075 . . . . . . . . . . . . . . . . . 18 Β¬ βˆƒπ‘¦ ∈ ((-Ο€(,)Ο€) βˆ– {0})((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2)))β€˜π‘¦) = 0
29772, 73fnmpti 6691 . . . . . . . . . . . . . . . . . . 19 (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) Fn ((-Ο€(,)Ο€) βˆ– {0})
298 fvelimab 6962 . . . . . . . . . . . . . . . . . . 19 (((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) Fn ((-Ο€(,)Ο€) βˆ– {0}) ∧ ((-Ο€(,)Ο€) βˆ– {0}) βŠ† ((-Ο€(,)Ο€) βˆ– {0})) β†’ (0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) β€œ ((-Ο€(,)Ο€) βˆ– {0})) ↔ βˆƒπ‘¦ ∈ ((-Ο€(,)Ο€) βˆ– {0})((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2)))β€˜π‘¦) = 0))
299297, 255, 298mp2an 691 . . . . . . . . . . . . . . . . . 18 (0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) β€œ ((-Ο€(,)Ο€) βˆ– {0})) ↔ βˆƒπ‘¦ ∈ ((-Ο€(,)Ο€) βˆ– {0})((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2)))β€˜π‘¦) = 0)
300296, 299mtbir 323 . . . . . . . . . . . . . . . . 17 Β¬ 0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) β€œ ((-Ο€(,)Ο€) βˆ– {0}))
301135imaeq1i 6055 . . . . . . . . . . . . . . . . . 18 ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))) β€œ ((-Ο€(,)Ο€) βˆ– {0})) = ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) β€œ ((-Ο€(,)Ο€) βˆ– {0}))
302301eleq2i 2826 . . . . . . . . . . . . . . . . 17 (0 ∈ ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))) β€œ ((-Ο€(,)Ο€) βˆ– {0})) ↔ 0 ∈ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))) β€œ ((-Ο€(,)Ο€) βˆ– {0})))
303300, 302mtbir 323 . . . . . . . . . . . . . . . 16 Β¬ 0 ∈ ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))) β€œ ((-Ο€(,)Ο€) βˆ– {0}))
304303a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ Β¬ 0 ∈ ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))) β€œ ((-Ο€(,)Ο€) βˆ– {0})))
305 eqid 2733 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(𝑠 / 2))) = (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(𝑠 / 2)))
306 eqid 2733 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (1 / (cosβ€˜(𝑠 / 2)))) = (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (1 / (cosβ€˜(𝑠 / 2))))
30719sseli 3978 . . . . . . . . . . . . . . . . . . . . . 22 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑠 ∈ ℝ)
308307recnd 11239 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑠 ∈ β„‚)
309308halfcld 12454 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (𝑠 / 2) ∈ β„‚)
310309coscld 16071 . . . . . . . . . . . . . . . . . . 19 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (cosβ€˜(𝑠 / 2)) ∈ β„‚)
311307rehalfcld 12456 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (𝑠 / 2) ∈ ℝ)
312311rered 15168 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (β„œβ€˜(𝑠 / 2)) = (𝑠 / 2))
313269a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -(Ο€ / 2) ∈ ℝ)
314313rexrd 11261 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -(Ο€ / 2) ∈ ℝ*)
315268a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (Ο€ / 2) ∈ ℝ)
316315rexrd 11261 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (Ο€ / 2) ∈ ℝ*)
31738a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ Ο€ ∈ ℝ)
318317renegcld 11638 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -Ο€ ∈ ℝ)
319278a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 2 ∈ ℝ+)
32040a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -Ο€ ∈ ℝ*)
32141a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ Ο€ ∈ ℝ*)
322 eldifi 4126 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑠 ∈ (-Ο€(,)Ο€))
323 ioogtlb 44195 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((-Ο€ ∈ ℝ* ∧ Ο€ ∈ ℝ* ∧ 𝑠 ∈ (-Ο€(,)Ο€)) β†’ -Ο€ < 𝑠)
324320, 321, 322, 323syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -Ο€ < 𝑠)
325318, 307, 319, 324ltdiv1dd 13070 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (-Ο€ / 2) < (𝑠 / 2))
326276, 325eqbrtrid 5183 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ -(Ο€ / 2) < (𝑠 / 2))
327 iooltub 44210 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((-Ο€ ∈ ℝ* ∧ Ο€ ∈ ℝ* ∧ 𝑠 ∈ (-Ο€(,)Ο€)) β†’ 𝑠 < Ο€)
328320, 321, 322, 327syl3anc 1372 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑠 < Ο€)
329307, 317, 319, 328ltdiv1dd 13070 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (𝑠 / 2) < (Ο€ / 2))
330314, 316, 311, 326, 329eliood 44198 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (𝑠 / 2) ∈ (-(Ο€ / 2)(,)(Ο€ / 2)))
331312, 330eqeltrd 2834 . . . . . . . . . . . . . . . . . . . . . 22 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (β„œβ€˜(𝑠 / 2)) ∈ (-(Ο€ / 2)(,)(Ο€ / 2)))
332 cosne0 26030 . . . . . . . . . . . . . . . . . . . . . 22 (((𝑠 / 2) ∈ β„‚ ∧ (β„œβ€˜(𝑠 / 2)) ∈ (-(Ο€ / 2)(,)(Ο€ / 2))) β†’ (cosβ€˜(𝑠 / 2)) β‰  0)
333309, 331, 332syl2anc 585 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (cosβ€˜(𝑠 / 2)) β‰  0)
334333neneqd 2946 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ Β¬ (cosβ€˜(𝑠 / 2)) = 0)
335311recoscld 16084 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (cosβ€˜(𝑠 / 2)) ∈ ℝ)
336 elsng 4642 . . . . . . . . . . . . . . . . . . . . 21 ((cosβ€˜(𝑠 / 2)) ∈ ℝ β†’ ((cosβ€˜(𝑠 / 2)) ∈ {0} ↔ (cosβ€˜(𝑠 / 2)) = 0))
337335, 336syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ ((cosβ€˜(𝑠 / 2)) ∈ {0} ↔ (cosβ€˜(𝑠 / 2)) = 0))
338334, 337mtbird 325 . . . . . . . . . . . . . . . . . . 19 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ Β¬ (cosβ€˜(𝑠 / 2)) ∈ {0})
339310, 338eldifd 3959 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (cosβ€˜(𝑠 / 2)) ∈ (β„‚ βˆ– {0}))
340339adantl 483 . . . . . . . . . . . . . . . . 17 ((⊀ ∧ 𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0})) β†’ (cosβ€˜(𝑠 / 2)) ∈ (β„‚ βˆ– {0}))
341309ad2antrl 727 . . . . . . . . . . . . . . . . . 18 ((⊀ ∧ (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ∧ (𝑠 / 2) β‰  0)) β†’ (𝑠 / 2) ∈ β„‚)
342 cosf 16065 . . . . . . . . . . . . . . . . . . . 20 cos:β„‚βŸΆβ„‚
343342a1i 11 . . . . . . . . . . . . . . . . . . 19 (⊀ β†’ cos:β„‚βŸΆβ„‚)
344343ffvelcdmda 7084 . . . . . . . . . . . . . . . . . 18 ((⊀ ∧ π‘₯ ∈ β„‚) β†’ (cosβ€˜π‘₯) ∈ β„‚)
345 eqid 2733 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ β„‚ ↦ (𝑠 / 2)) = (𝑠 ∈ β„‚ ↦ (𝑠 / 2))
346345divccncf 24414 . . . . . . . . . . . . . . . . . . . . . . 23 ((2 ∈ β„‚ ∧ 2 β‰  0) β†’ (𝑠 ∈ β„‚ ↦ (𝑠 / 2)) ∈ (ℂ–cnβ†’β„‚))
347102, 81, 346mp2an 691 . . . . . . . . . . . . . . . . . . . . . 22 (𝑠 ∈ β„‚ ↦ (𝑠 / 2)) ∈ (ℂ–cnβ†’β„‚)
348347a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (⊀ β†’ (𝑠 ∈ β„‚ ↦ (𝑠 / 2)) ∈ (ℂ–cnβ†’β„‚))
349141adantl 483 . . . . . . . . . . . . . . . . . . . . . 22 ((⊀ ∧ 𝑠 ∈ (-Ο€(,)Ο€)) β†’ 𝑠 ∈ β„‚)
350349halfcld 12454 . . . . . . . . . . . . . . . . . . . . 21 ((⊀ ∧ 𝑠 ∈ (-Ο€(,)Ο€)) β†’ (𝑠 / 2) ∈ β„‚)
351345, 348, 143, 145, 350cncfmptssg 44574 . . . . . . . . . . . . . . . . . . . 20 (⊀ β†’ (𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)) ∈ ((-Ο€(,)Ο€)–cnβ†’β„‚))
352 oveq1 7413 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 = 0 β†’ (𝑠 / 2) = (0 / 2))
353352, 203eqtrdi 2789 . . . . . . . . . . . . . . . . . . . 20 (𝑠 = 0 β†’ (𝑠 / 2) = 0)
354351, 45, 353cnmptlimc 25399 . . . . . . . . . . . . . . . . . . 19 (⊀ β†’ 0 ∈ ((𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)) limβ„‚ 0))
355 eqid 2733 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)) = (𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2))
356141halfcld 12454 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ (-Ο€(,)Ο€) β†’ (𝑠 / 2) ∈ β„‚)
357355, 356fmpti 7109 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)):(-Ο€(,)Ο€)βŸΆβ„‚
358357a1i 11 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ (𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)):(-Ο€(,)Ο€)βŸΆβ„‚)
359358limcdif 25385 . . . . . . . . . . . . . . . . . . . . 21 (⊀ β†’ ((𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)) limβ„‚ 0) = (((𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0))
360359mptru 1549 . . . . . . . . . . . . . . . . . . . 20 ((𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)) limβ„‚ 0) = (((𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0)
361 resmpt 6036 . . . . . . . . . . . . . . . . . . . . . 22 (((-Ο€(,)Ο€) βˆ– {0}) βŠ† (-Ο€(,)Ο€) β†’ ((𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) = (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / 2)))
36216, 361ax-mp 5 . . . . . . . . . . . . . . . . . . . . 21 ((𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) = (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / 2))
363362oveq1i 7416 . . . . . . . . . . . . . . . . . . . 20 (((𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0) = ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / 2)) limβ„‚ 0)
364360, 363eqtri 2761 . . . . . . . . . . . . . . . . . . 19 ((𝑠 ∈ (-Ο€(,)Ο€) ↦ (𝑠 / 2)) limβ„‚ 0) = ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / 2)) limβ„‚ 0)
365354, 364eleqtrdi 2844 . . . . . . . . . . . . . . . . . 18 (⊀ β†’ 0 ∈ ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / 2)) limβ„‚ 0))
366 ffn 6715 . . . . . . . . . . . . . . . . . . . . . . 23 (cos:β„‚βŸΆβ„‚ β†’ cos Fn β„‚)
367342, 366ax-mp 5 . . . . . . . . . . . . . . . . . . . . . 22 cos Fn β„‚
368 dffn5 6948 . . . . . . . . . . . . . . . . . . . . . 22 (cos Fn β„‚ ↔ cos = (π‘₯ ∈ β„‚ ↦ (cosβ€˜π‘₯)))
369367, 368mpbi 229 . . . . . . . . . . . . . . . . . . . . 21 cos = (π‘₯ ∈ β„‚ ↦ (cosβ€˜π‘₯))
370 coscn 25949 . . . . . . . . . . . . . . . . . . . . 21 cos ∈ (ℂ–cnβ†’β„‚)
371369, 370eqeltrri 2831 . . . . . . . . . . . . . . . . . . . 20 (π‘₯ ∈ β„‚ ↦ (cosβ€˜π‘₯)) ∈ (ℂ–cnβ†’β„‚)
372371a1i 11 . . . . . . . . . . . . . . . . . . 19 (⊀ β†’ (π‘₯ ∈ β„‚ ↦ (cosβ€˜π‘₯)) ∈ (ℂ–cnβ†’β„‚))
373 0cnd 11204 . . . . . . . . . . . . . . . . . . 19 (⊀ β†’ 0 ∈ β„‚)
374 fveq2 6889 . . . . . . . . . . . . . . . . . . . 20 (π‘₯ = 0 β†’ (cosβ€˜π‘₯) = (cosβ€˜0))
375 cos0 16090 . . . . . . . . . . . . . . . . . . . 20 (cosβ€˜0) = 1
376374, 375eqtrdi 2789 . . . . . . . . . . . . . . . . . . 19 (π‘₯ = 0 β†’ (cosβ€˜π‘₯) = 1)
377372, 373, 376cnmptlimc 25399 . . . . . . . . . . . . . . . . . 18 (⊀ β†’ 1 ∈ ((π‘₯ ∈ β„‚ ↦ (cosβ€˜π‘₯)) limβ„‚ 0))
378 fveq2 6889 . . . . . . . . . . . . . . . . . 18 (π‘₯ = (𝑠 / 2) β†’ (cosβ€˜π‘₯) = (cosβ€˜(𝑠 / 2)))
379 fveq2 6889 . . . . . . . . . . . . . . . . . . . 20 ((𝑠 / 2) = 0 β†’ (cosβ€˜(𝑠 / 2)) = (cosβ€˜0))
380379, 375eqtrdi 2789 . . . . . . . . . . . . . . . . . . 19 ((𝑠 / 2) = 0 β†’ (cosβ€˜(𝑠 / 2)) = 1)
381380ad2antll 728 . . . . . . . . . . . . . . . . . 18 ((⊀ ∧ (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ∧ (𝑠 / 2) = 0)) β†’ (cosβ€˜(𝑠 / 2)) = 1)
382341, 344, 365, 377, 378, 381limcco 25402 . . . . . . . . . . . . . . . . 17 (⊀ β†’ 1 ∈ ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(𝑠 / 2))) limβ„‚ 0))
383 ax-1ne0 11176 . . . . . . . . . . . . . . . . . 18 1 β‰  0
384383a1i 11 . . . . . . . . . . . . . . . . 17 (⊀ β†’ 1 β‰  0)
385305, 306, 340, 382, 384reclimc 44356 . . . . . . . . . . . . . . . 16 (⊀ β†’ (1 / 1) ∈ ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (1 / (cosβ€˜(𝑠 / 2)))) limβ„‚ 0))
386 1div1e1 11901 . . . . . . . . . . . . . . . 16 (1 / 1) = 1
38766fveq1i 6890 . . . . . . . . . . . . . . . . . . . 20 ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))β€˜π‘ ) = ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ 1)β€˜π‘ )
388 eqidd 2734 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ 1) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ 1))
389 eqidd 2734 . . . . . . . . . . . . . . . . . . . . 21 ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ∧ π‘₯ = 𝑠) β†’ 1 = 1)
390 id 22 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}))
391 1red 11212 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 1 ∈ ℝ)
392388, 389, 390, 391fvmptd 7003 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ 1)β€˜π‘ ) = 1)
393387, 392eqtr2id 2786 . . . . . . . . . . . . . . . . . . 19 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 1 = ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))β€˜π‘ ))
394135a1i 11 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (cosβ€˜(π‘₯ / 2))))
395 oveq1 7413 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘₯ = 𝑠 β†’ (π‘₯ / 2) = (𝑠 / 2))
396395fveq2d 6893 . . . . . . . . . . . . . . . . . . . . . 22 (π‘₯ = 𝑠 β†’ (cosβ€˜(π‘₯ / 2)) = (cosβ€˜(𝑠 / 2)))
397396adantl 483 . . . . . . . . . . . . . . . . . . . . 21 ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ∧ π‘₯ = 𝑠) β†’ (cosβ€˜(π‘₯ / 2)) = (cosβ€˜(𝑠 / 2)))
398394, 397, 390, 335fvmptd 7003 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))β€˜π‘ ) = (cosβ€˜(𝑠 / 2)))
399398eqcomd 2739 . . . . . . . . . . . . . . . . . . 19 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (cosβ€˜(𝑠 / 2)) = ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))β€˜π‘ ))
400393, 399oveq12d 7424 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (1 / (cosβ€˜(𝑠 / 2))) = (((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))β€˜π‘ ) / ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))β€˜π‘ )))
401400mpteq2ia 5251 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (1 / (cosβ€˜(𝑠 / 2)))) = (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))β€˜π‘ ) / ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))β€˜π‘ )))
402401oveq1i 7416 . . . . . . . . . . . . . . . 16 ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (1 / (cosβ€˜(𝑠 / 2)))) limβ„‚ 0) = ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))β€˜π‘ ) / ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))β€˜π‘ ))) limβ„‚ 0)
403385, 386, 4023eltr3g 2850 . . . . . . . . . . . . . . 15 (⊀ β†’ 1 ∈ ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))β€˜π‘ ) / ((ℝ D (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))β€˜π‘ ))) limβ„‚ 0))
40420, 24, 32, 34, 45, 46, 71, 140, 173, 227, 259, 304, 403lhop 25525 . . . . . . . . . . . . . 14 (⊀ β†’ 1 ∈ ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯)β€˜π‘ ) / ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘ ))) limβ„‚ 0))
405404mptru 1549 . . . . . . . . . . . . 13 1 ∈ ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯)β€˜π‘ ) / ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘ ))) limβ„‚ 0)
406 eqidd 2734 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯))
407 simpr 486 . . . . . . . . . . . . . . . . 17 ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ∧ π‘₯ = 𝑠) β†’ π‘₯ = 𝑠)
408406, 407, 390, 307fvmptd 7003 . . . . . . . . . . . . . . . 16 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯)β€˜π‘ ) = 𝑠)
409 eqidd 2734 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))) = (π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2)))))
410407oveq1d 7421 . . . . . . . . . . . . . . . . . . 19 ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ∧ π‘₯ = 𝑠) β†’ (π‘₯ / 2) = (𝑠 / 2))
411410fveq2d 6893 . . . . . . . . . . . . . . . . . 18 ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ∧ π‘₯ = 𝑠) β†’ (sinβ€˜(π‘₯ / 2)) = (sinβ€˜(𝑠 / 2)))
412411oveq2d 7422 . . . . . . . . . . . . . . . . 17 ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ∧ π‘₯ = 𝑠) β†’ (2 Β· (sinβ€˜(π‘₯ / 2))) = (2 Β· (sinβ€˜(𝑠 / 2))))
41326a1i 11 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ 2 ∈ ℝ)
414311resincld 16083 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (sinβ€˜(𝑠 / 2)) ∈ ℝ)
415413, 414remulcld 11241 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (2 Β· (sinβ€˜(𝑠 / 2))) ∈ ℝ)
416409, 412, 390, 415fvmptd 7003 . . . . . . . . . . . . . . . 16 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘ ) = (2 Β· (sinβ€˜(𝑠 / 2))))
417408, 416oveq12d 7424 . . . . . . . . . . . . . . 15 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ (((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯)β€˜π‘ ) / ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘ )) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
418417mpteq2ia 5251 . . . . . . . . . . . . . 14 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯)β€˜π‘ ) / ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘ ))) = (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
419418oveq1i 7416 . . . . . . . . . . . . 13 ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ π‘₯)β€˜π‘ ) / ((π‘₯ ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(π‘₯ / 2))))β€˜π‘ ))) limβ„‚ 0) = ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) limβ„‚ 0)
420405, 419eleqtri 2832 . . . . . . . . . . . 12 1 ∈ ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) limβ„‚ 0)
42110oveq1i 7416 . . . . . . . . . . . . . 14 (𝐾 limβ„‚ 0) = ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) limβ„‚ 0)
42210feq1i 6706 . . . . . . . . . . . . . . . . . . 19 (𝐾:(-Ο€[,]Ο€)βŸΆβ„‚ ↔ (𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))):(-Ο€[,]Ο€)βŸΆβ„‚)
42314, 422mpbi 229 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))):(-Ο€[,]Ο€)βŸΆβ„‚
424423a1i 11 . . . . . . . . . . . . . . . . 17 (⊀ β†’ (𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))):(-Ο€[,]Ο€)βŸΆβ„‚)
425243a1i 11 . . . . . . . . . . . . . . . . 17 (⊀ β†’ (-Ο€(,)Ο€) βŠ† (-Ο€[,]Ο€))
426 iccssre 13403 . . . . . . . . . . . . . . . . . . . 20 ((-Ο€ ∈ ℝ ∧ Ο€ ∈ ℝ) β†’ (-Ο€[,]Ο€) βŠ† ℝ)
42739, 38, 426mp2an 691 . . . . . . . . . . . . . . . . . . 19 (-Ο€[,]Ο€) βŠ† ℝ
428427a1i 11 . . . . . . . . . . . . . . . . . 18 (⊀ β†’ (-Ο€[,]Ο€) βŠ† ℝ)
429428, 12sstrdi 3994 . . . . . . . . . . . . . . . . 17 (⊀ β†’ (-Ο€[,]Ο€) βŠ† β„‚)
430 eqid 2733 . . . . . . . . . . . . . . . . 17 ((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆͺ {0})) = ((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆͺ {0}))
43139, 35, 36ltleii 11334 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 -Ο€ ≀ 0
43235, 38, 37ltleii 11334 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 0 ≀ Ο€
43339, 38elicc2i 13387 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 (0 ∈ (-Ο€[,]Ο€) ↔ (0 ∈ ℝ ∧ -Ο€ ≀ 0 ∧ 0 ≀ Ο€))
43435, 431, 432, 433mpbir3an 1342 . . . . . . . . . . . . . . . . . . . . . . . . . 26 0 ∈ (-Ο€[,]Ο€)
435159snss 4789 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (0 ∈ (-Ο€[,]Ο€) ↔ {0} βŠ† (-Ο€[,]Ο€))
436434, 435mpbi 229 . . . . . . . . . . . . . . . . . . . . . . . . 25 {0} βŠ† (-Ο€[,]Ο€)
437 ssequn2 4183 . . . . . . . . . . . . . . . . . . . . . . . . 25 ({0} βŠ† (-Ο€[,]Ο€) ↔ ((-Ο€[,]Ο€) βˆͺ {0}) = (-Ο€[,]Ο€))
438436, 437mpbi 229 . . . . . . . . . . . . . . . . . . . . . . . 24 ((-Ο€[,]Ο€) βˆͺ {0}) = (-Ο€[,]Ο€)
439438oveq2i 7417 . . . . . . . . . . . . . . . . . . . . . . 23 ((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆͺ {0})) = ((TopOpenβ€˜β„‚fld) β†Ύt (-Ο€[,]Ο€))
440 eqid 2733 . . . . . . . . . . . . . . . . . . . . . . . . 25 (topGenβ€˜ran (,)) = (topGenβ€˜ran (,))
44156, 440rerest 24312 . . . . . . . . . . . . . . . . . . . . . . . 24 ((-Ο€[,]Ο€) βŠ† ℝ β†’ ((TopOpenβ€˜β„‚fld) β†Ύt (-Ο€[,]Ο€)) = ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)))
442427, 441ax-mp 5 . . . . . . . . . . . . . . . . . . . . . . 23 ((TopOpenβ€˜β„‚fld) β†Ύt (-Ο€[,]Ο€)) = ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€))
443439, 442eqtri 2761 . . . . . . . . . . . . . . . . . . . . . 22 ((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆͺ {0})) = ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€))
444443fveq2i 6892 . . . . . . . . . . . . . . . . . . . . 21 (intβ€˜((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆͺ {0}))) = (intβ€˜((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)))
445159snss 4789 . . . . . . . . . . . . . . . . . . . . . . 23 (0 ∈ (-Ο€(,)Ο€) ↔ {0} βŠ† (-Ο€(,)Ο€))
44644, 445mpbi 229 . . . . . . . . . . . . . . . . . . . . . 22 {0} βŠ† (-Ο€(,)Ο€)
447 ssequn2 4183 . . . . . . . . . . . . . . . . . . . . . 22 ({0} βŠ† (-Ο€(,)Ο€) ↔ ((-Ο€(,)Ο€) βˆͺ {0}) = (-Ο€(,)Ο€))
448446, 447mpbi 229 . . . . . . . . . . . . . . . . . . . . 21 ((-Ο€(,)Ο€) βˆͺ {0}) = (-Ο€(,)Ο€)
449444, 448fveq12i 6895 . . . . . . . . . . . . . . . . . . . 20 ((intβ€˜((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆͺ {0})))β€˜((-Ο€(,)Ο€) βˆͺ {0})) = ((intβ€˜((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)))β€˜(-Ο€(,)Ο€))
450 resttopon 22657 . . . . . . . . . . . . . . . . . . . . . . 23 (((topGenβ€˜ran (,)) ∈ (TopOnβ€˜β„) ∧ (-Ο€[,]Ο€) βŠ† ℝ) β†’ ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) ∈ (TopOnβ€˜(-Ο€[,]Ο€)))
45160, 427, 450mp2an 691 . . . . . . . . . . . . . . . . . . . . . 22 ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) ∈ (TopOnβ€˜(-Ο€[,]Ο€))
452451topontopi 22409 . . . . . . . . . . . . . . . . . . . . 21 ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) ∈ Top
453 retop 24270 . . . . . . . . . . . . . . . . . . . . . . . 24 (topGenβ€˜ran (,)) ∈ Top
454 ovex 7439 . . . . . . . . . . . . . . . . . . . . . . . 24 (-Ο€[,]Ο€) ∈ V
455453, 454pm3.2i 472 . . . . . . . . . . . . . . . . . . . . . . 23 ((topGenβ€˜ran (,)) ∈ Top ∧ (-Ο€[,]Ο€) ∈ V)
456 ssid 4004 . . . . . . . . . . . . . . . . . . . . . . . 24 (-Ο€(,)Ο€) βŠ† (-Ο€(,)Ο€)
45733, 243, 4563pm3.2i 1340 . . . . . . . . . . . . . . . . . . . . . . 23 ((-Ο€(,)Ο€) ∈ (topGenβ€˜ran (,)) ∧ (-Ο€(,)Ο€) βŠ† (-Ο€[,]Ο€) ∧ (-Ο€(,)Ο€) βŠ† (-Ο€(,)Ο€))
458 restopnb 22671 . . . . . . . . . . . . . . . . . . . . . . 23 ((((topGenβ€˜ran (,)) ∈ Top ∧ (-Ο€[,]Ο€) ∈ V) ∧ ((-Ο€(,)Ο€) ∈ (topGenβ€˜ran (,)) ∧ (-Ο€(,)Ο€) βŠ† (-Ο€[,]Ο€) ∧ (-Ο€(,)Ο€) βŠ† (-Ο€(,)Ο€))) β†’ ((-Ο€(,)Ο€) ∈ (topGenβ€˜ran (,)) ↔ (-Ο€(,)Ο€) ∈ ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€))))
459455, 457, 458mp2an 691 . . . . . . . . . . . . . . . . . . . . . 22 ((-Ο€(,)Ο€) ∈ (topGenβ€˜ran (,)) ↔ (-Ο€(,)Ο€) ∈ ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)))
46033, 459mpbi 229 . . . . . . . . . . . . . . . . . . . . 21 (-Ο€(,)Ο€) ∈ ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€))
461 isopn3i 22578 . . . . . . . . . . . . . . . . . . . . 21 ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) ∈ Top ∧ (-Ο€(,)Ο€) ∈ ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€))) β†’ ((intβ€˜((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)))β€˜(-Ο€(,)Ο€)) = (-Ο€(,)Ο€))
462452, 460, 461mp2an 691 . . . . . . . . . . . . . . . . . . . 20 ((intβ€˜((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)))β€˜(-Ο€(,)Ο€)) = (-Ο€(,)Ο€)
463 eqid 2733 . . . . . . . . . . . . . . . . . . . 20 (-Ο€(,)Ο€) = (-Ο€(,)Ο€)
464449, 462, 4633eqtrri 2766 . . . . . . . . . . . . . . . . . . 19 (-Ο€(,)Ο€) = ((intβ€˜((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆͺ {0})))β€˜((-Ο€(,)Ο€) βˆͺ {0}))
46544, 464eleqtri 2832 . . . . . . . . . . . . . . . . . 18 0 ∈ ((intβ€˜((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆͺ {0})))β€˜((-Ο€(,)Ο€) βˆͺ {0}))
466465a1i 11 . . . . . . . . . . . . . . . . 17 (⊀ β†’ 0 ∈ ((intβ€˜((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆͺ {0})))β€˜((-Ο€(,)Ο€) βˆͺ {0})))
467424, 425, 429, 56, 430, 466limcres 25395 . . . . . . . . . . . . . . . 16 (⊀ β†’ (((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ (-Ο€(,)Ο€)) limβ„‚ 0) = ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) limβ„‚ 0))
468467mptru 1549 . . . . . . . . . . . . . . 15 (((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ (-Ο€(,)Ο€)) limβ„‚ 0) = ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) limβ„‚ 0)
469468eqcomi 2742 . . . . . . . . . . . . . 14 ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) limβ„‚ 0) = (((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ (-Ο€(,)Ο€)) limβ„‚ 0)
470 resmpt 6036 . . . . . . . . . . . . . . . 16 ((-Ο€(,)Ο€) βŠ† (-Ο€[,]Ο€) β†’ ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ (-Ο€(,)Ο€)) = (𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))))
471243, 470ax-mp 5 . . . . . . . . . . . . . . 15 ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ (-Ο€(,)Ο€)) = (𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
472471oveq1i 7416 . . . . . . . . . . . . . 14 (((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ (-Ο€(,)Ο€)) limβ„‚ 0) = ((𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) limβ„‚ 0)
473421, 469, 4723eqtri 2765 . . . . . . . . . . . . 13 (𝐾 limβ„‚ 0) = ((𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) limβ„‚ 0)
474 eqid 2733 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) = (𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
475 iftrue 4534 . . . . . . . . . . . . . . . . . . . 20 (𝑠 = 0 β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) = 1)
476 1cnd 11206 . . . . . . . . . . . . . . . . . . . 20 (𝑠 = 0 β†’ 1 ∈ β„‚)
477475, 476eqeltrd 2834 . . . . . . . . . . . . . . . . . . 19 (𝑠 = 0 β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ β„‚)
478477adantl 483 . . . . . . . . . . . . . . . . . 18 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ 𝑠 = 0) β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ β„‚)
479 iffalse 4537 . . . . . . . . . . . . . . . . . . . 20 (Β¬ 𝑠 = 0 β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
480479adantl 483 . . . . . . . . . . . . . . . . . . 19 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ Β¬ 𝑠 = 0) β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
481141adantr 482 . . . . . . . . . . . . . . . . . . . 20 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ Β¬ 𝑠 = 0) β†’ 𝑠 ∈ β„‚)
482 2cnd 12287 . . . . . . . . . . . . . . . . . . . . 21 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ Β¬ 𝑠 = 0) β†’ 2 ∈ β„‚)
483481halfcld 12454 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ Β¬ 𝑠 = 0) β†’ (𝑠 / 2) ∈ β„‚)
484483sincld 16070 . . . . . . . . . . . . . . . . . . . . 21 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ Β¬ 𝑠 = 0) β†’ (sinβ€˜(𝑠 / 2)) ∈ β„‚)
485482, 484mulcld 11231 . . . . . . . . . . . . . . . . . . . 20 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ Β¬ 𝑠 = 0) β†’ (2 Β· (sinβ€˜(𝑠 / 2))) ∈ β„‚)
48681a1i 11 . . . . . . . . . . . . . . . . . . . . 21 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ Β¬ 𝑠 = 0) β†’ 2 β‰  0)
487243sseli 3978 . . . . . . . . . . . . . . . . . . . . . 22 (𝑠 ∈ (-Ο€(,)Ο€) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
488 neqne 2949 . . . . . . . . . . . . . . . . . . . . . 22 (Β¬ 𝑠 = 0 β†’ 𝑠 β‰  0)
489 fourierdlem44 44854 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ 𝑠 β‰  0) β†’ (sinβ€˜(𝑠 / 2)) β‰  0)
490487, 488, 489syl2an 597 . . . . . . . . . . . . . . . . . . . . 21 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ Β¬ 𝑠 = 0) β†’ (sinβ€˜(𝑠 / 2)) β‰  0)
491482, 484, 486, 490mulne0d 11863 . . . . . . . . . . . . . . . . . . . 20 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ Β¬ 𝑠 = 0) β†’ (2 Β· (sinβ€˜(𝑠 / 2))) β‰  0)
492481, 485, 491divcld 11987 . . . . . . . . . . . . . . . . . . 19 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ Β¬ 𝑠 = 0) β†’ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))) ∈ β„‚)
493480, 492eqeltrd 2834 . . . . . . . . . . . . . . . . . 18 ((𝑠 ∈ (-Ο€(,)Ο€) ∧ Β¬ 𝑠 = 0) β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ β„‚)
494478, 493pm2.61dan 812 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ (-Ο€(,)Ο€) β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ β„‚)
495474, 494fmpti 7109 . . . . . . . . . . . . . . . 16 (𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))):(-Ο€(,)Ο€)βŸΆβ„‚
496495a1i 11 . . . . . . . . . . . . . . 15 (⊀ β†’ (𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))):(-Ο€(,)Ο€)βŸΆβ„‚)
497496limcdif 25385 . . . . . . . . . . . . . 14 (⊀ β†’ ((𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) limβ„‚ 0) = (((𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0))
498497mptru 1549 . . . . . . . . . . . . 13 ((𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) limβ„‚ 0) = (((𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0)
499 resmpt 6036 . . . . . . . . . . . . . . . 16 (((-Ο€(,)Ο€) βˆ– {0}) βŠ† (-Ο€(,)Ο€) β†’ ((𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) = (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))))
50016, 499ax-mp 5 . . . . . . . . . . . . . . 15 ((𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) = (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
501 eldifn 4127 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ Β¬ 𝑠 ∈ {0})
502 velsn 4644 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ {0} ↔ 𝑠 = 0)
503501, 502sylnib 328 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ Β¬ 𝑠 = 0)
504503, 479syl 17 . . . . . . . . . . . . . . . 16 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
505504mpteq2ia 5251 . . . . . . . . . . . . . . 15 (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) = (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
506500, 505eqtri 2761 . . . . . . . . . . . . . 14 ((𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) = (𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
507506oveq1i 7416 . . . . . . . . . . . . 13 (((𝑠 ∈ (-Ο€(,)Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((-Ο€(,)Ο€) βˆ– {0})) limβ„‚ 0) = ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) limβ„‚ 0)
508473, 498, 5073eqtrri 2766 . . . . . . . . . . . 12 ((𝑠 ∈ ((-Ο€(,)Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) limβ„‚ 0) = (𝐾 limβ„‚ 0)
509420, 508eleqtri 2832 . . . . . . . . . . 11 1 ∈ (𝐾 limβ„‚ 0)
510509a1i 11 . . . . . . . . . 10 (𝑠 = 0 β†’ 1 ∈ (𝐾 limβ„‚ 0))
511 fveq2 6889 . . . . . . . . . . 11 (𝑠 = 0 β†’ (πΎβ€˜π‘ ) = (πΎβ€˜0))
512475, 10, 47fvmpt 6996 . . . . . . . . . . . 12 (0 ∈ (-Ο€[,]Ο€) β†’ (πΎβ€˜0) = 1)
513434, 512ax-mp 5 . . . . . . . . . . 11 (πΎβ€˜0) = 1
514511, 513eqtrdi 2789 . . . . . . . . . 10 (𝑠 = 0 β†’ (πΎβ€˜π‘ ) = 1)
515 oveq2 7414 . . . . . . . . . 10 (𝑠 = 0 β†’ (𝐾 limβ„‚ 𝑠) = (𝐾 limβ„‚ 0))
516510, 514, 5153eltr4d 2849 . . . . . . . . 9 (𝑠 = 0 β†’ (πΎβ€˜π‘ ) ∈ (𝐾 limβ„‚ 𝑠))
517427, 12sstri 3991 . . . . . . . . . . 11 (-Ο€[,]Ο€) βŠ† β„‚
518517a1i 11 . . . . . . . . . 10 (𝑠 = 0 β†’ (-Ο€[,]Ο€) βŠ† β„‚)
51938a1i 11 . . . . . . . . . . . 12 (𝑠 = 0 β†’ Ο€ ∈ ℝ)
520519renegcld 11638 . . . . . . . . . . 11 (𝑠 = 0 β†’ -Ο€ ∈ ℝ)
521 id 22 . . . . . . . . . . . 12 (𝑠 = 0 β†’ 𝑠 = 0)
52235a1i 11 . . . . . . . . . . . 12 (𝑠 = 0 β†’ 0 ∈ ℝ)
523521, 522eqeltrd 2834 . . . . . . . . . . 11 (𝑠 = 0 β†’ 𝑠 ∈ ℝ)
524431, 521breqtrrid 5186 . . . . . . . . . . 11 (𝑠 = 0 β†’ -Ο€ ≀ 𝑠)
525521, 432eqbrtrdi 5187 . . . . . . . . . . 11 (𝑠 = 0 β†’ 𝑠 ≀ Ο€)
526520, 519, 523, 524, 525eliccd 44204 . . . . . . . . . 10 (𝑠 = 0 β†’ 𝑠 ∈ (-Ο€[,]Ο€))
52757oveq1i 7416 . . . . . . . . . . . 12 ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) = (((TopOpenβ€˜β„‚fld) β†Ύt ℝ) β†Ύt (-Ο€[,]Ο€))
52856cnfldtop 24292 . . . . . . . . . . . . 13 (TopOpenβ€˜β„‚fld) ∈ Top
529 reex 11198 . . . . . . . . . . . . 13 ℝ ∈ V
530 restabs 22661 . . . . . . . . . . . . 13 (((TopOpenβ€˜β„‚fld) ∈ Top ∧ (-Ο€[,]Ο€) βŠ† ℝ ∧ ℝ ∈ V) β†’ (((TopOpenβ€˜β„‚fld) β†Ύt ℝ) β†Ύt (-Ο€[,]Ο€)) = ((TopOpenβ€˜β„‚fld) β†Ύt (-Ο€[,]Ο€)))
531528, 427, 529, 530mp3an 1462 . . . . . . . . . . . 12 (((TopOpenβ€˜β„‚fld) β†Ύt ℝ) β†Ύt (-Ο€[,]Ο€)) = ((TopOpenβ€˜β„‚fld) β†Ύt (-Ο€[,]Ο€))
532527, 531eqtri 2761 . . . . . . . . . . 11 ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) = ((TopOpenβ€˜β„‚fld) β†Ύt (-Ο€[,]Ο€))
53356, 532cnplimc 25396 . . . . . . . . . 10 (((-Ο€[,]Ο€) βŠ† β„‚ ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ (𝐾 ∈ ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) ↔ (𝐾:(-Ο€[,]Ο€)βŸΆβ„‚ ∧ (πΎβ€˜π‘ ) ∈ (𝐾 limβ„‚ 𝑠))))
534518, 526, 533syl2anc 585 . . . . . . . . 9 (𝑠 = 0 β†’ (𝐾 ∈ ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) ↔ (𝐾:(-Ο€[,]Ο€)βŸΆβ„‚ ∧ (πΎβ€˜π‘ ) ∈ (𝐾 limβ„‚ 𝑠))))
53515, 516, 534mpbir2and 712 . . . . . . . 8 (𝑠 = 0 β†’ 𝐾 ∈ ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
536535adantl 483 . . . . . . 7 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ 𝑠 = 0) β†’ 𝐾 ∈ ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
537 simpl 484 . . . . . . . . . . 11 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
538502notbii 320 . . . . . . . . . . . . 13 (Β¬ 𝑠 ∈ {0} ↔ Β¬ 𝑠 = 0)
539538biimpri 227 . . . . . . . . . . . 12 (Β¬ 𝑠 = 0 β†’ Β¬ 𝑠 ∈ {0})
540539adantl 483 . . . . . . . . . . 11 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ Β¬ 𝑠 ∈ {0})
541537, 540eldifd 3959 . . . . . . . . . 10 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ 𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}))
542 fveq2 6889 . . . . . . . . . . . 12 (π‘₯ = 𝑠 β†’ ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘₯) = ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
543542eleq2d 2820 . . . . . . . . . . 11 (π‘₯ = 𝑠 β†’ ((𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘₯) ↔ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ )))
544429ssdifssd 4142 . . . . . . . . . . . . . . . . 17 (⊀ β†’ ((-Ο€[,]Ο€) βˆ– {0}) βŠ† β„‚)
545544, 145idcncfg 44576 . . . . . . . . . . . . . . . 16 (⊀ β†’ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ 𝑠) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚))
546 eqid 2733 . . . . . . . . . . . . . . . . . . 19 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2)))) = (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2))))
547 2cnd 12287 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ 2 ∈ β„‚)
548 eldifi 4126 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
549517, 548sselid 3980 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ 𝑠 ∈ β„‚)
550549halfcld 12454 . . . . . . . . . . . . . . . . . . . . . 22 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ (𝑠 / 2) ∈ β„‚)
551550sincld 16070 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ (sinβ€˜(𝑠 / 2)) ∈ β„‚)
552547, 551mulcld 11231 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ (2 Β· (sinβ€˜(𝑠 / 2))) ∈ β„‚)
55381a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ 2 β‰  0)
554 eldifsni 4793 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ 𝑠 β‰  0)
555548, 554, 489syl2anc 585 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ (sinβ€˜(𝑠 / 2)) β‰  0)
556547, 551, 553, 555mulne0d 11863 . . . . . . . . . . . . . . . . . . . . . 22 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ (2 Β· (sinβ€˜(𝑠 / 2))) β‰  0)
557556neneqd 2946 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ Β¬ (2 Β· (sinβ€˜(𝑠 / 2))) = 0)
558 elsng 4642 . . . . . . . . . . . . . . . . . . . . . 22 ((2 Β· (sinβ€˜(𝑠 / 2))) ∈ β„‚ β†’ ((2 Β· (sinβ€˜(𝑠 / 2))) ∈ {0} ↔ (2 Β· (sinβ€˜(𝑠 / 2))) = 0))
559552, 558syl 17 . . . . . . . . . . . . . . . . . . . . 21 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ ((2 Β· (sinβ€˜(𝑠 / 2))) ∈ {0} ↔ (2 Β· (sinβ€˜(𝑠 / 2))) = 0))
560557, 559mtbird 325 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ Β¬ (2 Β· (sinβ€˜(𝑠 / 2))) ∈ {0})
561552, 560eldifd 3959 . . . . . . . . . . . . . . . . . . 19 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ (2 Β· (sinβ€˜(𝑠 / 2))) ∈ (β„‚ βˆ– {0}))
562546, 561fmpti 7109 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2)))):((-Ο€[,]Ο€) βˆ– {0})⟢(β„‚ βˆ– {0})
563 difss 4131 . . . . . . . . . . . . . . . . . . 19 (β„‚ βˆ– {0}) βŠ† β„‚
564 eqid 2733 . . . . . . . . . . . . . . . . . . . . . 22 (𝑠 ∈ β„‚ ↦ 2) = (𝑠 ∈ β„‚ ↦ 2)
565175, 176, 175constcncfg 44575 . . . . . . . . . . . . . . . . . . . . . . 23 (2 ∈ β„‚ β†’ (𝑠 ∈ β„‚ ↦ 2) ∈ (ℂ–cnβ†’β„‚))
566102, 565mp1i 13 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ (𝑠 ∈ β„‚ ↦ 2) ∈ (ℂ–cnβ†’β„‚))
567 2cnd 12287 . . . . . . . . . . . . . . . . . . . . . 22 ((⊀ ∧ 𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0})) β†’ 2 ∈ β„‚)
568564, 566, 544, 145, 567cncfmptssg 44574 . . . . . . . . . . . . . . . . . . . . 21 (⊀ β†’ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ 2) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚))
569549, 547, 553divrecd 11990 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ (𝑠 / 2) = (𝑠 Β· (1 / 2)))
570569mpteq2ia 5251 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / 2)) = (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 Β· (1 / 2)))
571 eqid 2733 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑠 ∈ β„‚ ↦ (1 / 2)) = (𝑠 ∈ β„‚ ↦ (1 / 2))
572144a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((1 / 2) ∈ β„‚ β†’ β„‚ βŠ† β„‚)
573 id 22 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 ((1 / 2) ∈ β„‚ β†’ (1 / 2) ∈ β„‚)
574572, 573, 572constcncfg 44575 . . . . . . . . . . . . . . . . . . . . . . . . . 26 ((1 / 2) ∈ β„‚ β†’ (𝑠 ∈ β„‚ ↦ (1 / 2)) ∈ (ℂ–cnβ†’β„‚))
57594, 574mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . 25 (⊀ β†’ (𝑠 ∈ β„‚ ↦ (1 / 2)) ∈ (ℂ–cnβ†’β„‚))
57694a1i 11 . . . . . . . . . . . . . . . . . . . . . . . . 25 ((⊀ ∧ 𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0})) β†’ (1 / 2) ∈ β„‚)
577571, 575, 544, 145, 576cncfmptssg 44574 . . . . . . . . . . . . . . . . . . . . . . . 24 (⊀ β†’ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (1 / 2)) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚))
578545, 577mulcncf 24955 . . . . . . . . . . . . . . . . . . . . . . 23 (⊀ β†’ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 Β· (1 / 2))) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚))
579570, 578eqeltrid 2838 . . . . . . . . . . . . . . . . . . . . . 22 (⊀ β†’ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / 2)) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚))
580182, 579cncfmpt1f 24422 . . . . . . . . . . . . . . . . . . . . 21 (⊀ β†’ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (sinβ€˜(𝑠 / 2))) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚))
581568, 580mulcncf 24955 . . . . . . . . . . . . . . . . . . . 20 (⊀ β†’ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2)))) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚))
582581mptru 1549 . . . . . . . . . . . . . . . . . . 19 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2)))) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚)
583 cncfcdm 24406 . . . . . . . . . . . . . . . . . . 19 (((β„‚ βˆ– {0}) βŠ† β„‚ ∧ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2)))) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚)) β†’ ((𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2)))) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’(β„‚ βˆ– {0})) ↔ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2)))):((-Ο€[,]Ο€) βˆ– {0})⟢(β„‚ βˆ– {0})))
584563, 582, 583mp2an 691 . . . . . . . . . . . . . . . . . 18 ((𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2)))) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’(β„‚ βˆ– {0})) ↔ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2)))):((-Ο€[,]Ο€) βˆ– {0})⟢(β„‚ βˆ– {0}))
585562, 584mpbir 230 . . . . . . . . . . . . . . . . 17 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2)))) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’(β„‚ βˆ– {0}))
586585a1i 11 . . . . . . . . . . . . . . . 16 (⊀ β†’ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (2 Β· (sinβ€˜(𝑠 / 2)))) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’(β„‚ βˆ– {0})))
587545, 586divcncf 24956 . . . . . . . . . . . . . . 15 (⊀ β†’ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚))
588587mptru 1549 . . . . . . . . . . . . . 14 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚)
589428ssdifssd 4142 . . . . . . . . . . . . . . . . 17 (⊀ β†’ ((-Ο€[,]Ο€) βˆ– {0}) βŠ† ℝ)
590589mptru 1549 . . . . . . . . . . . . . . . 16 ((-Ο€[,]Ο€) βˆ– {0}) βŠ† ℝ
591590, 12sstri 3991 . . . . . . . . . . . . . . 15 ((-Ο€[,]Ο€) βˆ– {0}) βŠ† β„‚
59257oveq1i 7416 . . . . . . . . . . . . . . . . 17 ((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) = (((TopOpenβ€˜β„‚fld) β†Ύt ℝ) β†Ύt ((-Ο€[,]Ο€) βˆ– {0}))
593 restabs 22661 . . . . . . . . . . . . . . . . . 18 (((TopOpenβ€˜β„‚fld) ∈ Top ∧ ((-Ο€[,]Ο€) βˆ– {0}) βŠ† ℝ ∧ ℝ ∈ V) β†’ (((TopOpenβ€˜β„‚fld) β†Ύt ℝ) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) = ((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})))
594528, 590, 529, 593mp3an 1462 . . . . . . . . . . . . . . . . 17 (((TopOpenβ€˜β„‚fld) β†Ύt ℝ) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) = ((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆ– {0}))
595592, 594eqtri 2761 . . . . . . . . . . . . . . . 16 ((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) = ((TopOpenβ€˜β„‚fld) β†Ύt ((-Ο€[,]Ο€) βˆ– {0}))
596 unicntop 24294 . . . . . . . . . . . . . . . . . . 19 β„‚ = βˆͺ (TopOpenβ€˜β„‚fld)
597596restid 17376 . . . . . . . . . . . . . . . . . 18 ((TopOpenβ€˜β„‚fld) ∈ Top β†’ ((TopOpenβ€˜β„‚fld) β†Ύt β„‚) = (TopOpenβ€˜β„‚fld))
598528, 597ax-mp 5 . . . . . . . . . . . . . . . . 17 ((TopOpenβ€˜β„‚fld) β†Ύt β„‚) = (TopOpenβ€˜β„‚fld)
599598eqcomi 2742 . . . . . . . . . . . . . . . 16 (TopOpenβ€˜β„‚fld) = ((TopOpenβ€˜β„‚fld) β†Ύt β„‚)
60056, 595, 599cncfcn 24418 . . . . . . . . . . . . . . 15 ((((-Ο€[,]Ο€) βˆ– {0}) βŠ† β„‚ ∧ β„‚ βŠ† β„‚) β†’ (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚) = (((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) Cn (TopOpenβ€˜β„‚fld)))
601591, 144, 600mp2an 691 . . . . . . . . . . . . . 14 (((-Ο€[,]Ο€) βˆ– {0})–cnβ†’β„‚) = (((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) Cn (TopOpenβ€˜β„‚fld))
602588, 601eleqtri 2832 . . . . . . . . . . . . 13 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ (((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) Cn (TopOpenβ€˜β„‚fld))
603 resttopon 22657 . . . . . . . . . . . . . . 15 (((topGenβ€˜ran (,)) ∈ (TopOnβ€˜β„) ∧ ((-Ο€[,]Ο€) βˆ– {0}) βŠ† ℝ) β†’ ((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) ∈ (TopOnβ€˜((-Ο€[,]Ο€) βˆ– {0})))
60460, 590, 603mp2an 691 . . . . . . . . . . . . . 14 ((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) ∈ (TopOnβ€˜((-Ο€[,]Ο€) βˆ– {0}))
60556cnfldtopon 24291 . . . . . . . . . . . . . 14 (TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚)
606 cncnp 22776 . . . . . . . . . . . . . 14 ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) ∈ (TopOnβ€˜((-Ο€[,]Ο€) βˆ– {0})) ∧ (TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚)) β†’ ((𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ (((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) Cn (TopOpenβ€˜β„‚fld)) ↔ ((𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))):((-Ο€[,]Ο€) βˆ– {0})βŸΆβ„‚ ∧ βˆ€π‘₯ ∈ ((-Ο€[,]Ο€) βˆ– {0})(𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘₯))))
607604, 605, 606mp2an 691 . . . . . . . . . . . . 13 ((𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ (((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) Cn (TopOpenβ€˜β„‚fld)) ↔ ((𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))):((-Ο€[,]Ο€) βˆ– {0})βŸΆβ„‚ ∧ βˆ€π‘₯ ∈ ((-Ο€[,]Ο€) βˆ– {0})(𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘₯)))
608602, 607mpbi 229 . . . . . . . . . . . 12 ((𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))):((-Ο€[,]Ο€) βˆ– {0})βŸΆβ„‚ ∧ βˆ€π‘₯ ∈ ((-Ο€[,]Ο€) βˆ– {0})(𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘₯))
609608simpri 487 . . . . . . . . . . 11 βˆ€π‘₯ ∈ ((-Ο€[,]Ο€) βˆ– {0})(𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘₯)
610543, 609vtoclri 3577 . . . . . . . . . 10 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
611541, 610syl 17 . . . . . . . . 9 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) ∈ ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
61210reseq1i 5976 . . . . . . . . . 10 (𝐾 β†Ύ ((-Ο€[,]Ο€) βˆ– {0})) = ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((-Ο€[,]Ο€) βˆ– {0}))
613 difss 4131 . . . . . . . . . . 11 ((-Ο€[,]Ο€) βˆ– {0}) βŠ† (-Ο€[,]Ο€)
614 resmpt 6036 . . . . . . . . . . 11 (((-Ο€[,]Ο€) βˆ– {0}) βŠ† (-Ο€[,]Ο€) β†’ ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((-Ο€[,]Ο€) βˆ– {0})) = (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))))
615613, 614ax-mp 5 . . . . . . . . . 10 ((𝑠 ∈ (-Ο€[,]Ο€) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) β†Ύ ((-Ο€[,]Ο€) βˆ– {0})) = (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))))
616 eldifn 4127 . . . . . . . . . . . . 13 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ Β¬ 𝑠 ∈ {0})
617616, 502sylnib 328 . . . . . . . . . . . 12 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ Β¬ 𝑠 = 0)
618617, 479syl 17 . . . . . . . . . . 11 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2))))) = (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
619618mpteq2ia 5251 . . . . . . . . . 10 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ if(𝑠 = 0, 1, (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))) = (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
620612, 615, 6193eqtri 2765 . . . . . . . . 9 (𝐾 β†Ύ ((-Ο€[,]Ο€) βˆ– {0})) = (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) ↦ (𝑠 / (2 Β· (sinβ€˜(𝑠 / 2)))))
621 restabs 22661 . . . . . . . . . . . 12 (((topGenβ€˜ran (,)) ∈ Top ∧ ((-Ο€[,]Ο€) βˆ– {0}) βŠ† (-Ο€[,]Ο€) ∧ (-Ο€[,]Ο€) ∈ V) β†’ (((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) = ((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})))
622453, 613, 454, 621mp3an 1462 . . . . . . . . . . 11 (((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) = ((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0}))
623622oveq1i 7416 . . . . . . . . . 10 ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld)) = (((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))
624623fveq1i 6890 . . . . . . . . 9 (((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) = ((((topGenβ€˜ran (,)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ )
625611, 620, 6243eltr4g 2851 . . . . . . . 8 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ (𝐾 β†Ύ ((-Ο€[,]Ο€) βˆ– {0})) ∈ (((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
626452, 613pm3.2i 472 . . . . . . . . . 10 (((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) ∈ Top ∧ ((-Ο€[,]Ο€) βˆ– {0}) βŠ† (-Ο€[,]Ο€))
627626a1i 11 . . . . . . . . 9 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ (((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) ∈ Top ∧ ((-Ο€[,]Ο€) βˆ– {0}) βŠ† (-Ο€[,]Ο€)))
628 ssdif 4139 . . . . . . . . . . . . . 14 ((-Ο€[,]Ο€) βŠ† ℝ β†’ ((-Ο€[,]Ο€) βˆ– {0}) βŠ† (ℝ βˆ– {0}))
629427, 628ax-mp 5 . . . . . . . . . . . . 13 ((-Ο€[,]Ο€) βˆ– {0}) βŠ† (ℝ βˆ– {0})
630629, 541sselid 3980 . . . . . . . . . . . 12 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ 𝑠 ∈ (ℝ βˆ– {0}))
631 sscon 4138 . . . . . . . . . . . . . . . . 17 ({0} βŠ† (-Ο€[,]Ο€) β†’ (ℝ βˆ– (-Ο€[,]Ο€)) βŠ† (ℝ βˆ– {0}))
632436, 631ax-mp 5 . . . . . . . . . . . . . . . 16 (ℝ βˆ– (-Ο€[,]Ο€)) βŠ† (ℝ βˆ– {0})
633629, 632unssi 4185 . . . . . . . . . . . . . . 15 (((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€))) βŠ† (ℝ βˆ– {0})
634 simpr 486 . . . . . . . . . . . . . . . . . . 19 ((𝑠 ∈ (ℝ βˆ– {0}) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝑠 ∈ (-Ο€[,]Ο€))
635 eldifn 4127 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ (ℝ βˆ– {0}) β†’ Β¬ 𝑠 ∈ {0})
636635adantr 482 . . . . . . . . . . . . . . . . . . 19 ((𝑠 ∈ (ℝ βˆ– {0}) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ Β¬ 𝑠 ∈ {0})
637634, 636eldifd 3959 . . . . . . . . . . . . . . . . . 18 ((𝑠 ∈ (ℝ βˆ– {0}) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}))
638 elun1 4176 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ ((-Ο€[,]Ο€) βˆ– {0}) β†’ 𝑠 ∈ (((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€))))
639637, 638syl 17 . . . . . . . . . . . . . . . . 17 ((𝑠 ∈ (ℝ βˆ– {0}) ∧ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝑠 ∈ (((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€))))
640 eldifi 4126 . . . . . . . . . . . . . . . . . . . 20 (𝑠 ∈ (ℝ βˆ– {0}) β†’ 𝑠 ∈ ℝ)
641640adantr 482 . . . . . . . . . . . . . . . . . . 19 ((𝑠 ∈ (ℝ βˆ– {0}) ∧ Β¬ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝑠 ∈ ℝ)
642 simpr 486 . . . . . . . . . . . . . . . . . . 19 ((𝑠 ∈ (ℝ βˆ– {0}) ∧ Β¬ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ Β¬ 𝑠 ∈ (-Ο€[,]Ο€))
643641, 642eldifd 3959 . . . . . . . . . . . . . . . . . 18 ((𝑠 ∈ (ℝ βˆ– {0}) ∧ Β¬ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝑠 ∈ (ℝ βˆ– (-Ο€[,]Ο€)))
644 elun2 4177 . . . . . . . . . . . . . . . . . 18 (𝑠 ∈ (ℝ βˆ– (-Ο€[,]Ο€)) β†’ 𝑠 ∈ (((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€))))
645643, 644syl 17 . . . . . . . . . . . . . . . . 17 ((𝑠 ∈ (ℝ βˆ– {0}) ∧ Β¬ 𝑠 ∈ (-Ο€[,]Ο€)) β†’ 𝑠 ∈ (((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€))))
646639, 645pm2.61dan 812 . . . . . . . . . . . . . . . 16 (𝑠 ∈ (ℝ βˆ– {0}) β†’ 𝑠 ∈ (((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€))))
647646ssriv 3986 . . . . . . . . . . . . . . 15 (ℝ βˆ– {0}) βŠ† (((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€)))
648633, 647eqssi 3998 . . . . . . . . . . . . . 14 (((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€))) = (ℝ βˆ– {0})
649648fveq2i 6892 . . . . . . . . . . . . 13 ((intβ€˜(topGenβ€˜ran (,)))β€˜(((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€)))) = ((intβ€˜(topGenβ€˜ran (,)))β€˜(ℝ βˆ– {0}))
65061cldopn 22527 . . . . . . . . . . . . . . 15 ({0} ∈ (Clsdβ€˜(topGenβ€˜ran (,))) β†’ (ℝ βˆ– {0}) ∈ (topGenβ€˜ran (,)))
65159, 650ax-mp 5 . . . . . . . . . . . . . 14 (ℝ βˆ– {0}) ∈ (topGenβ€˜ran (,))
652 isopn3i 22578 . . . . . . . . . . . . . 14 (((topGenβ€˜ran (,)) ∈ Top ∧ (ℝ βˆ– {0}) ∈ (topGenβ€˜ran (,))) β†’ ((intβ€˜(topGenβ€˜ran (,)))β€˜(ℝ βˆ– {0})) = (ℝ βˆ– {0}))
653453, 651, 652mp2an 691 . . . . . . . . . . . . 13 ((intβ€˜(topGenβ€˜ran (,)))β€˜(ℝ βˆ– {0})) = (ℝ βˆ– {0})
654649, 653eqtri 2761 . . . . . . . . . . . 12 ((intβ€˜(topGenβ€˜ran (,)))β€˜(((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€)))) = (ℝ βˆ– {0})
655630, 654eleqtrrdi 2845 . . . . . . . . . . 11 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ 𝑠 ∈ ((intβ€˜(topGenβ€˜ran (,)))β€˜(((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€)))))
656655, 537elind 4194 . . . . . . . . . 10 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ 𝑠 ∈ (((intβ€˜(topGenβ€˜ran (,)))β€˜(((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€)))) ∩ (-Ο€[,]Ο€)))
657 eqid 2733 . . . . . . . . . . . 12 ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) = ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€))
65861, 657restntr 22678 . . . . . . . . . . 11 (((topGenβ€˜ran (,)) ∈ Top ∧ (-Ο€[,]Ο€) βŠ† ℝ ∧ ((-Ο€[,]Ο€) βˆ– {0}) βŠ† (-Ο€[,]Ο€)) β†’ ((intβ€˜((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)))β€˜((-Ο€[,]Ο€) βˆ– {0})) = (((intβ€˜(topGenβ€˜ran (,)))β€˜(((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€)))) ∩ (-Ο€[,]Ο€)))
659453, 427, 613, 658mp3an 1462 . . . . . . . . . 10 ((intβ€˜((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)))β€˜((-Ο€[,]Ο€) βˆ– {0})) = (((intβ€˜(topGenβ€˜ran (,)))β€˜(((-Ο€[,]Ο€) βˆ– {0}) βˆͺ (ℝ βˆ– (-Ο€[,]Ο€)))) ∩ (-Ο€[,]Ο€))
660656, 659eleqtrrdi 2845 . . . . . . . . 9 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ 𝑠 ∈ ((intβ€˜((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)))β€˜((-Ο€[,]Ο€) βˆ– {0})))
66114a1i 11 . . . . . . . . 9 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ 𝐾:(-Ο€[,]Ο€)βŸΆβ„‚)
662451toponunii 22410 . . . . . . . . . 10 (-Ο€[,]Ο€) = βˆͺ ((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€))
663662, 596cnprest 22785 . . . . . . . . 9 (((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) ∈ Top ∧ ((-Ο€[,]Ο€) βˆ– {0}) βŠ† (-Ο€[,]Ο€)) ∧ (𝑠 ∈ ((intβ€˜((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)))β€˜((-Ο€[,]Ο€) βˆ– {0})) ∧ 𝐾:(-Ο€[,]Ο€)βŸΆβ„‚)) β†’ (𝐾 ∈ ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) ↔ (𝐾 β†Ύ ((-Ο€[,]Ο€) βˆ– {0})) ∈ (((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ )))
664627, 660, 661, 663syl12anc 836 . . . . . . . 8 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ (𝐾 ∈ ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ) ↔ (𝐾 β†Ύ ((-Ο€[,]Ο€) βˆ– {0})) ∈ (((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) β†Ύt ((-Ο€[,]Ο€) βˆ– {0})) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ )))
665625, 664mpbird 257 . . . . . . 7 ((𝑠 ∈ (-Ο€[,]Ο€) ∧ Β¬ 𝑠 = 0) β†’ 𝐾 ∈ ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
666536, 665pm2.61dan 812 . . . . . 6 (𝑠 ∈ (-Ο€[,]Ο€) β†’ 𝐾 ∈ ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))
667666rgen 3064 . . . . 5 βˆ€π‘  ∈ (-Ο€[,]Ο€)𝐾 ∈ ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ )
668 cncnp 22776 . . . . . 6 ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) ∈ (TopOnβ€˜(-Ο€[,]Ο€)) ∧ (TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚)) β†’ (𝐾 ∈ (((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) Cn (TopOpenβ€˜β„‚fld)) ↔ (𝐾:(-Ο€[,]Ο€)βŸΆβ„‚ ∧ βˆ€π‘  ∈ (-Ο€[,]Ο€)𝐾 ∈ ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ ))))
669451, 605, 668mp2an 691 . . . . 5 (𝐾 ∈ (((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) Cn (TopOpenβ€˜β„‚fld)) ↔ (𝐾:(-Ο€[,]Ο€)βŸΆβ„‚ ∧ βˆ€π‘  ∈ (-Ο€[,]Ο€)𝐾 ∈ ((((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) CnP (TopOpenβ€˜β„‚fld))β€˜π‘ )))
67014, 667, 669mpbir2an 710 . . . 4 𝐾 ∈ (((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) Cn (TopOpenβ€˜β„‚fld))
67156, 532, 599cncfcn 24418 . . . . . 6 (((-Ο€[,]Ο€) βŠ† β„‚ ∧ β„‚ βŠ† β„‚) β†’ ((-Ο€[,]Ο€)–cnβ†’β„‚) = (((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) Cn (TopOpenβ€˜β„‚fld)))
672517, 144, 671mp2an 691 . . . . 5 ((-Ο€[,]Ο€)–cnβ†’β„‚) = (((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) Cn (TopOpenβ€˜β„‚fld))
673672eqcomi 2742 . . . 4 (((topGenβ€˜ran (,)) β†Ύt (-Ο€[,]Ο€)) Cn (TopOpenβ€˜β„‚fld)) = ((-Ο€[,]Ο€)–cnβ†’β„‚)
674670, 673eleqtri 2832 . . 3 𝐾 ∈ ((-Ο€[,]Ο€)–cnβ†’β„‚)
675 cncfcdm 24406 . . 3 ((ℝ βŠ† β„‚ ∧ 𝐾 ∈ ((-Ο€[,]Ο€)–cnβ†’β„‚)) β†’ (𝐾 ∈ ((-Ο€[,]Ο€)–cn→ℝ) ↔ 𝐾:(-Ο€[,]Ο€)βŸΆβ„))
67612, 674, 675mp2an 691 . 2 (𝐾 ∈ ((-Ο€[,]Ο€)–cn→ℝ) ↔ 𝐾:(-Ο€[,]Ο€)βŸΆβ„)
67711, 676mpbir 230 1 𝐾 ∈ ((-Ο€[,]Ο€)–cn→ℝ)
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542  βŠ€wtru 1543   ∈ wcel 2107   β‰  wne 2941  βˆ€wral 3062  βˆƒwrex 3071  Vcvv 3475   βˆ– cdif 3945   βˆͺ cun 3946   ∩ cin 3947   βŠ† wss 3948  ifcif 4528  {csn 4628  {cpr 4630   class class class wbr 5148   ↦ cmpt 5231  dom cdm 5676  ran crn 5677   β†Ύ cres 5678   β€œ cima 5679   Fn wfn 6536  βŸΆwf 6537  β€˜cfv 6541  (class class class)co 7406  β„‚cc 11105  β„cr 11106  0cc0 11107  1c1 11108   Β· cmul 11112  β„*cxr 11244   < clt 11245   ≀ cle 11246  -cneg 11442   / cdiv 11868  2c2 12264  β„+crp 12971  (,)cioo 13321  [,]cicc 13324  β„œcre 15041  sincsin 16004  cosccos 16005  Ο€cpi 16007   β†Ύt crest 17363  TopOpenctopn 17364  topGenctg 17380  β„‚fldccnfld 20937  Topctop 22387  TopOnctopon 22404  Clsdccld 22512  intcnt 22513   Cn ccn 22720   CnP ccnp 22721  β€“cnβ†’ccncf 24384   limβ„‚ climc 25371   D cdv 25372
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-inf2 9633  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184  ax-pre-sup 11185  ax-addf 11186  ax-mulf 11187
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-of 7667  df-om 7853  df-1st 7972  df-2nd 7973  df-supp 8144  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-2o 8464  df-er 8700  df-map 8819  df-pm 8820  df-ixp 8889  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-fsupp 9359  df-fi 9403  df-sup 9434  df-inf 9435  df-oi 9502  df-card 9931  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-div 11869  df-nn 12210  df-2 12272  df-3 12273  df-4 12274  df-5 12275  df-6 12276  df-7 12277  df-8 12278  df-9 12279  df-n0 12470  df-z 12556  df-dec 12675  df-uz 12820  df-q 12930  df-rp 12972  df-xneg 13089  df-xadd 13090  df-xmul 13091  df-ioo 13325  df-ioc 13326  df-ico 13327  df-icc 13328  df-fz 13482  df-fzo 13625  df-fl 13754  df-mod 13832  df-seq 13964  df-exp 14025  df-fac 14231  df-bc 14260  df-hash 14288  df-shft 15011  df-cj 15043  df-re 15044  df-im 15045  df-sqrt 15179  df-abs 15180  df-limsup 15412  df-clim 15429  df-rlim 15430  df-sum 15630  df-ef 16008  df-sin 16010  df-cos 16011  df-pi 16013  df-struct 17077  df-sets 17094  df-slot 17112  df-ndx 17124  df-base 17142  df-ress 17171  df-plusg 17207  df-mulr 17208  df-starv 17209  df-sca 17210  df-vsca 17211  df-ip 17212  df-tset 17213  df-ple 17214  df-ds 17216  df-unif 17217  df-hom 17218  df-cco 17219  df-rest 17365  df-topn 17366  df-0g 17384  df-gsum 17385  df-topgen 17386  df-pt 17387  df-prds 17390  df-xrs 17445  df-qtop 17450  df-imas 17451  df-xps 17453  df-mre 17527  df-mrc 17528  df-acs 17530  df-mgm 18558  df-sgrp 18607  df-mnd 18623  df-submnd 18669  df-mulg 18946  df-cntz 19176  df-cmn 19645  df-psmet 20929  df-xmet 20930  df-met 20931  df-bl 20932  df-mopn 20933  df-fbas 20934  df-fg 20935  df-cnfld 20938  df-top 22388  df-topon 22405  df-topsp 22427  df-bases 22441  df-cld 22515  df-ntr 22516  df-cls 22517  df-nei 22594  df-lp 22632  df-perf 22633  df-cn 22723  df-cnp 22724  df-t1 22810  df-haus 22811  df-cmp 22883  df-tx 23058  df-hmeo 23251  df-fil 23342  df-fm 23434  df-flim 23435  df-flf 23436  df-xms 23818  df-ms 23819  df-tms 23820  df-cncf 24386  df-limc 25375  df-dv 25376
This theorem is referenced by:  fourierdlem77  44886  fourierdlem78  44887  fourierdlem85  44894  fourierdlem88  44897
  Copyright terms: Public domain W3C validator