Step |
Hyp |
Ref |
Expression |
1 |
|
fourierdlem62.k |
|- K = ( y e. ( -u _pi [,] _pi ) |-> if ( y = 0 , 1 , ( y / ( 2 x. ( sin ` ( y / 2 ) ) ) ) ) ) |
2 |
|
eqeq1 |
|- ( y = s -> ( y = 0 <-> s = 0 ) ) |
3 |
|
id |
|- ( y = s -> y = s ) |
4 |
|
oveq1 |
|- ( y = s -> ( y / 2 ) = ( s / 2 ) ) |
5 |
4
|
fveq2d |
|- ( y = s -> ( sin ` ( y / 2 ) ) = ( sin ` ( s / 2 ) ) ) |
6 |
5
|
oveq2d |
|- ( y = s -> ( 2 x. ( sin ` ( y / 2 ) ) ) = ( 2 x. ( sin ` ( s / 2 ) ) ) ) |
7 |
3 6
|
oveq12d |
|- ( y = s -> ( y / ( 2 x. ( sin ` ( y / 2 ) ) ) ) = ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) |
8 |
2 7
|
ifbieq2d |
|- ( y = s -> if ( y = 0 , 1 , ( y / ( 2 x. ( sin ` ( y / 2 ) ) ) ) ) = if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |
9 |
8
|
cbvmptv |
|- ( y e. ( -u _pi [,] _pi ) |-> if ( y = 0 , 1 , ( y / ( 2 x. ( sin ` ( y / 2 ) ) ) ) ) ) = ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |
10 |
1 9
|
eqtri |
|- K = ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |
11 |
10
|
fourierdlem43 |
|- K : ( -u _pi [,] _pi ) --> RR |
12 |
|
ax-resscn |
|- RR C_ CC |
13 |
|
fss |
|- ( ( K : ( -u _pi [,] _pi ) --> RR /\ RR C_ CC ) -> K : ( -u _pi [,] _pi ) --> CC ) |
14 |
11 12 13
|
mp2an |
|- K : ( -u _pi [,] _pi ) --> CC |
15 |
14
|
a1i |
|- ( s = 0 -> K : ( -u _pi [,] _pi ) --> CC ) |
16 |
|
difss |
|- ( ( -u _pi (,) _pi ) \ { 0 } ) C_ ( -u _pi (,) _pi ) |
17 |
|
elioore |
|- ( s e. ( -u _pi (,) _pi ) -> s e. RR ) |
18 |
17
|
ssriv |
|- ( -u _pi (,) _pi ) C_ RR |
19 |
16 18
|
sstri |
|- ( ( -u _pi (,) _pi ) \ { 0 } ) C_ RR |
20 |
19
|
a1i |
|- ( T. -> ( ( -u _pi (,) _pi ) \ { 0 } ) C_ RR ) |
21 |
|
eqid |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) |
22 |
19
|
sseli |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> x e. RR ) |
23 |
21 22
|
fmpti |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) : ( ( -u _pi (,) _pi ) \ { 0 } ) --> RR |
24 |
23
|
a1i |
|- ( T. -> ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) : ( ( -u _pi (,) _pi ) \ { 0 } ) --> RR ) |
25 |
|
eqid |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) |
26 |
|
2re |
|- 2 e. RR |
27 |
26
|
a1i |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> 2 e. RR ) |
28 |
22
|
rehalfcld |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( x / 2 ) e. RR ) |
29 |
28
|
resincld |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( sin ` ( x / 2 ) ) e. RR ) |
30 |
27 29
|
remulcld |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( 2 x. ( sin ` ( x / 2 ) ) ) e. RR ) |
31 |
25 30
|
fmpti |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) : ( ( -u _pi (,) _pi ) \ { 0 } ) --> RR |
32 |
31
|
a1i |
|- ( T. -> ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) : ( ( -u _pi (,) _pi ) \ { 0 } ) --> RR ) |
33 |
|
iooretop |
|- ( -u _pi (,) _pi ) e. ( topGen ` ran (,) ) |
34 |
33
|
a1i |
|- ( T. -> ( -u _pi (,) _pi ) e. ( topGen ` ran (,) ) ) |
35 |
|
0re |
|- 0 e. RR |
36 |
|
negpilt0 |
|- -u _pi < 0 |
37 |
|
pipos |
|- 0 < _pi |
38 |
|
pire |
|- _pi e. RR |
39 |
38
|
renegcli |
|- -u _pi e. RR |
40 |
39
|
rexri |
|- -u _pi e. RR* |
41 |
38
|
rexri |
|- _pi e. RR* |
42 |
|
elioo2 |
|- ( ( -u _pi e. RR* /\ _pi e. RR* ) -> ( 0 e. ( -u _pi (,) _pi ) <-> ( 0 e. RR /\ -u _pi < 0 /\ 0 < _pi ) ) ) |
43 |
40 41 42
|
mp2an |
|- ( 0 e. ( -u _pi (,) _pi ) <-> ( 0 e. RR /\ -u _pi < 0 /\ 0 < _pi ) ) |
44 |
35 36 37 43
|
mpbir3an |
|- 0 e. ( -u _pi (,) _pi ) |
45 |
44
|
a1i |
|- ( T. -> 0 e. ( -u _pi (,) _pi ) ) |
46 |
|
eqid |
|- ( ( -u _pi (,) _pi ) \ { 0 } ) = ( ( -u _pi (,) _pi ) \ { 0 } ) |
47 |
|
1ex |
|- 1 e. _V |
48 |
|
eqid |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> 1 ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> 1 ) |
49 |
47 48
|
dmmpti |
|- dom ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> 1 ) = ( ( -u _pi (,) _pi ) \ { 0 } ) |
50 |
|
reelprrecn |
|- RR e. { RR , CC } |
51 |
50
|
a1i |
|- ( T. -> RR e. { RR , CC } ) |
52 |
12
|
sseli |
|- ( x e. RR -> x e. CC ) |
53 |
52
|
adantl |
|- ( ( T. /\ x e. RR ) -> x e. CC ) |
54 |
|
1red |
|- ( ( T. /\ x e. RR ) -> 1 e. RR ) |
55 |
51
|
dvmptid |
|- ( T. -> ( RR _D ( x e. RR |-> x ) ) = ( x e. RR |-> 1 ) ) |
56 |
|
eqid |
|- ( TopOpen ` CCfld ) = ( TopOpen ` CCfld ) |
57 |
56
|
tgioo2 |
|- ( topGen ` ran (,) ) = ( ( TopOpen ` CCfld ) |`t RR ) |
58 |
|
sncldre |
|- ( 0 e. RR -> { 0 } e. ( Clsd ` ( topGen ` ran (,) ) ) ) |
59 |
35 58
|
ax-mp |
|- { 0 } e. ( Clsd ` ( topGen ` ran (,) ) ) |
60 |
|
retopon |
|- ( topGen ` ran (,) ) e. ( TopOn ` RR ) |
61 |
60
|
toponunii |
|- RR = U. ( topGen ` ran (,) ) |
62 |
61
|
difopn |
|- ( ( ( -u _pi (,) _pi ) e. ( topGen ` ran (,) ) /\ { 0 } e. ( Clsd ` ( topGen ` ran (,) ) ) ) -> ( ( -u _pi (,) _pi ) \ { 0 } ) e. ( topGen ` ran (,) ) ) |
63 |
33 59 62
|
mp2an |
|- ( ( -u _pi (,) _pi ) \ { 0 } ) e. ( topGen ` ran (,) ) |
64 |
63
|
a1i |
|- ( T. -> ( ( -u _pi (,) _pi ) \ { 0 } ) e. ( topGen ` ran (,) ) ) |
65 |
51 53 54 55 20 57 56 64
|
dvmptres |
|- ( T. -> ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> 1 ) ) |
66 |
65
|
mptru |
|- ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> 1 ) |
67 |
66
|
eqcomi |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> 1 ) = ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) |
68 |
67
|
dmeqi |
|- dom ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> 1 ) = dom ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) |
69 |
49 68
|
eqtr3i |
|- ( ( -u _pi (,) _pi ) \ { 0 } ) = dom ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) |
70 |
69
|
eqimssi |
|- ( ( -u _pi (,) _pi ) \ { 0 } ) C_ dom ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) |
71 |
70
|
a1i |
|- ( T. -> ( ( -u _pi (,) _pi ) \ { 0 } ) C_ dom ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) ) |
72 |
|
fvex |
|- ( cos ` ( x / 2 ) ) e. _V |
73 |
|
eqid |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) |
74 |
72 73
|
dmmpti |
|- dom ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) = ( ( -u _pi (,) _pi ) \ { 0 } ) |
75 |
|
2cnd |
|- ( ( T. /\ x e. RR ) -> 2 e. CC ) |
76 |
53
|
halfcld |
|- ( ( T. /\ x e. RR ) -> ( x / 2 ) e. CC ) |
77 |
76
|
sincld |
|- ( ( T. /\ x e. RR ) -> ( sin ` ( x / 2 ) ) e. CC ) |
78 |
75 77
|
mulcld |
|- ( ( T. /\ x e. RR ) -> ( 2 x. ( sin ` ( x / 2 ) ) ) e. CC ) |
79 |
76
|
coscld |
|- ( ( T. /\ x e. RR ) -> ( cos ` ( x / 2 ) ) e. CC ) |
80 |
|
2cnd |
|- ( x e. RR -> 2 e. CC ) |
81 |
|
2ne0 |
|- 2 =/= 0 |
82 |
81
|
a1i |
|- ( x e. RR -> 2 =/= 0 ) |
83 |
52 80 82
|
divrec2d |
|- ( x e. RR -> ( x / 2 ) = ( ( 1 / 2 ) x. x ) ) |
84 |
83
|
fveq2d |
|- ( x e. RR -> ( sin ` ( x / 2 ) ) = ( sin ` ( ( 1 / 2 ) x. x ) ) ) |
85 |
84
|
oveq2d |
|- ( x e. RR -> ( 2 x. ( sin ` ( x / 2 ) ) ) = ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) |
86 |
85
|
mpteq2ia |
|- ( x e. RR |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) = ( x e. RR |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) |
87 |
86
|
oveq2i |
|- ( RR _D ( x e. RR |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) = ( RR _D ( x e. RR |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) |
88 |
|
resmpt |
|- ( RR C_ CC -> ( ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) |` RR ) = ( x e. RR |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) |
89 |
12 88
|
ax-mp |
|- ( ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) |` RR ) = ( x e. RR |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) |
90 |
89
|
eqcomi |
|- ( x e. RR |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) = ( ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) |` RR ) |
91 |
90
|
oveq2i |
|- ( RR _D ( x e. RR |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) = ( RR _D ( ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) |` RR ) ) |
92 |
|
eqid |
|- ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) = ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) |
93 |
|
2cnd |
|- ( x e. CC -> 2 e. CC ) |
94 |
|
halfcn |
|- ( 1 / 2 ) e. CC |
95 |
94
|
a1i |
|- ( x e. CC -> ( 1 / 2 ) e. CC ) |
96 |
|
id |
|- ( x e. CC -> x e. CC ) |
97 |
95 96
|
mulcld |
|- ( x e. CC -> ( ( 1 / 2 ) x. x ) e. CC ) |
98 |
97
|
sincld |
|- ( x e. CC -> ( sin ` ( ( 1 / 2 ) x. x ) ) e. CC ) |
99 |
93 98
|
mulcld |
|- ( x e. CC -> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) e. CC ) |
100 |
92 99
|
fmpti |
|- ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) : CC --> CC |
101 |
|
eqid |
|- ( x e. CC |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) = ( x e. CC |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) |
102 |
|
2cn |
|- 2 e. CC |
103 |
102 94
|
mulcli |
|- ( 2 x. ( 1 / 2 ) ) e. CC |
104 |
103
|
a1i |
|- ( x e. CC -> ( 2 x. ( 1 / 2 ) ) e. CC ) |
105 |
97
|
coscld |
|- ( x e. CC -> ( cos ` ( ( 1 / 2 ) x. x ) ) e. CC ) |
106 |
104 105
|
mulcld |
|- ( x e. CC -> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) e. CC ) |
107 |
106
|
adantl |
|- ( ( T. /\ x e. CC ) -> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) e. CC ) |
108 |
101 107
|
dmmptd |
|- ( T. -> dom ( x e. CC |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) = CC ) |
109 |
108
|
mptru |
|- dom ( x e. CC |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) = CC |
110 |
12 109
|
sseqtrri |
|- RR C_ dom ( x e. CC |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) |
111 |
|
dvasinbx |
|- ( ( 2 e. CC /\ ( 1 / 2 ) e. CC ) -> ( CC _D ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) = ( x e. CC |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) ) |
112 |
102 94 111
|
mp2an |
|- ( CC _D ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) = ( x e. CC |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) |
113 |
112
|
dmeqi |
|- dom ( CC _D ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) = dom ( x e. CC |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) |
114 |
110 113
|
sseqtrri |
|- RR C_ dom ( CC _D ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) |
115 |
|
dvcnre |
|- ( ( ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) : CC --> CC /\ RR C_ dom ( CC _D ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) ) -> ( RR _D ( ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) |` RR ) ) = ( ( CC _D ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) |` RR ) ) |
116 |
100 114 115
|
mp2an |
|- ( RR _D ( ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) |` RR ) ) = ( ( CC _D ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) |` RR ) |
117 |
112
|
reseq1i |
|- ( ( CC _D ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) |` RR ) = ( ( x e. CC |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) |` RR ) |
118 |
|
resmpt |
|- ( RR C_ CC -> ( ( x e. CC |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) |` RR ) = ( x e. RR |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) ) |
119 |
12 118
|
ax-mp |
|- ( ( x e. CC |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) |` RR ) = ( x e. RR |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) |
120 |
102 81
|
recidi |
|- ( 2 x. ( 1 / 2 ) ) = 1 |
121 |
120
|
a1i |
|- ( x e. RR -> ( 2 x. ( 1 / 2 ) ) = 1 ) |
122 |
83
|
eqcomd |
|- ( x e. RR -> ( ( 1 / 2 ) x. x ) = ( x / 2 ) ) |
123 |
122
|
fveq2d |
|- ( x e. RR -> ( cos ` ( ( 1 / 2 ) x. x ) ) = ( cos ` ( x / 2 ) ) ) |
124 |
121 123
|
oveq12d |
|- ( x e. RR -> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) = ( 1 x. ( cos ` ( x / 2 ) ) ) ) |
125 |
52
|
halfcld |
|- ( x e. RR -> ( x / 2 ) e. CC ) |
126 |
125
|
coscld |
|- ( x e. RR -> ( cos ` ( x / 2 ) ) e. CC ) |
127 |
126
|
mulid2d |
|- ( x e. RR -> ( 1 x. ( cos ` ( x / 2 ) ) ) = ( cos ` ( x / 2 ) ) ) |
128 |
124 127
|
eqtrd |
|- ( x e. RR -> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) = ( cos ` ( x / 2 ) ) ) |
129 |
128
|
mpteq2ia |
|- ( x e. RR |-> ( ( 2 x. ( 1 / 2 ) ) x. ( cos ` ( ( 1 / 2 ) x. x ) ) ) ) = ( x e. RR |-> ( cos ` ( x / 2 ) ) ) |
130 |
117 119 129
|
3eqtri |
|- ( ( CC _D ( x e. CC |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) |` RR ) = ( x e. RR |-> ( cos ` ( x / 2 ) ) ) |
131 |
91 116 130
|
3eqtri |
|- ( RR _D ( x e. RR |-> ( 2 x. ( sin ` ( ( 1 / 2 ) x. x ) ) ) ) ) = ( x e. RR |-> ( cos ` ( x / 2 ) ) ) |
132 |
87 131
|
eqtri |
|- ( RR _D ( x e. RR |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) = ( x e. RR |-> ( cos ` ( x / 2 ) ) ) |
133 |
132
|
a1i |
|- ( T. -> ( RR _D ( x e. RR |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) = ( x e. RR |-> ( cos ` ( x / 2 ) ) ) ) |
134 |
51 78 79 133 20 57 56 64
|
dvmptres |
|- ( T. -> ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) ) |
135 |
134
|
mptru |
|- ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) |
136 |
135
|
eqcomi |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) = ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) |
137 |
136
|
dmeqi |
|- dom ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) = dom ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) |
138 |
74 137
|
eqtr3i |
|- ( ( -u _pi (,) _pi ) \ { 0 } ) = dom ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) |
139 |
138
|
eqimssi |
|- ( ( -u _pi (,) _pi ) \ { 0 } ) C_ dom ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) |
140 |
139
|
a1i |
|- ( T. -> ( ( -u _pi (,) _pi ) \ { 0 } ) C_ dom ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) ) |
141 |
17
|
recnd |
|- ( s e. ( -u _pi (,) _pi ) -> s e. CC ) |
142 |
141
|
ssriv |
|- ( -u _pi (,) _pi ) C_ CC |
143 |
142
|
a1i |
|- ( T. -> ( -u _pi (,) _pi ) C_ CC ) |
144 |
|
ssid |
|- CC C_ CC |
145 |
144
|
a1i |
|- ( T. -> CC C_ CC ) |
146 |
143 145
|
idcncfg |
|- ( T. -> ( x e. ( -u _pi (,) _pi ) |-> x ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) ) |
147 |
146
|
mptru |
|- ( x e. ( -u _pi (,) _pi ) |-> x ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) |
148 |
|
cnlimc |
|- ( ( -u _pi (,) _pi ) C_ CC -> ( ( x e. ( -u _pi (,) _pi ) |-> x ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) <-> ( ( x e. ( -u _pi (,) _pi ) |-> x ) : ( -u _pi (,) _pi ) --> CC /\ A. y e. ( -u _pi (,) _pi ) ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC y ) ) ) ) |
149 |
142 148
|
ax-mp |
|- ( ( x e. ( -u _pi (,) _pi ) |-> x ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) <-> ( ( x e. ( -u _pi (,) _pi ) |-> x ) : ( -u _pi (,) _pi ) --> CC /\ A. y e. ( -u _pi (,) _pi ) ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC y ) ) ) |
150 |
147 149
|
mpbi |
|- ( ( x e. ( -u _pi (,) _pi ) |-> x ) : ( -u _pi (,) _pi ) --> CC /\ A. y e. ( -u _pi (,) _pi ) ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC y ) ) |
151 |
150
|
simpri |
|- A. y e. ( -u _pi (,) _pi ) ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC y ) |
152 |
|
fveq2 |
|- ( y = 0 -> ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` y ) = ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` 0 ) ) |
153 |
|
oveq2 |
|- ( y = 0 -> ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC y ) = ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC 0 ) ) |
154 |
152 153
|
eleq12d |
|- ( y = 0 -> ( ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC y ) <-> ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` 0 ) e. ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC 0 ) ) ) |
155 |
154
|
rspccva |
|- ( ( A. y e. ( -u _pi (,) _pi ) ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC y ) /\ 0 e. ( -u _pi (,) _pi ) ) -> ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` 0 ) e. ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC 0 ) ) |
156 |
151 44 155
|
mp2an |
|- ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` 0 ) e. ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC 0 ) |
157 |
|
id |
|- ( x = 0 -> x = 0 ) |
158 |
|
eqid |
|- ( x e. ( -u _pi (,) _pi ) |-> x ) = ( x e. ( -u _pi (,) _pi ) |-> x ) |
159 |
|
c0ex |
|- 0 e. _V |
160 |
157 158 159
|
fvmpt |
|- ( 0 e. ( -u _pi (,) _pi ) -> ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` 0 ) = 0 ) |
161 |
44 160
|
ax-mp |
|- ( ( x e. ( -u _pi (,) _pi ) |-> x ) ` 0 ) = 0 |
162 |
|
elioore |
|- ( x e. ( -u _pi (,) _pi ) -> x e. RR ) |
163 |
162
|
recnd |
|- ( x e. ( -u _pi (,) _pi ) -> x e. CC ) |
164 |
158 163
|
fmpti |
|- ( x e. ( -u _pi (,) _pi ) |-> x ) : ( -u _pi (,) _pi ) --> CC |
165 |
164
|
a1i |
|- ( T. -> ( x e. ( -u _pi (,) _pi ) |-> x ) : ( -u _pi (,) _pi ) --> CC ) |
166 |
165
|
limcdif |
|- ( T. -> ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC 0 ) = ( ( ( x e. ( -u _pi (,) _pi ) |-> x ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) ) |
167 |
166
|
mptru |
|- ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC 0 ) = ( ( ( x e. ( -u _pi (,) _pi ) |-> x ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) |
168 |
|
resmpt |
|- ( ( ( -u _pi (,) _pi ) \ { 0 } ) C_ ( -u _pi (,) _pi ) -> ( ( x e. ( -u _pi (,) _pi ) |-> x ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) |
169 |
16 168
|
ax-mp |
|- ( ( x e. ( -u _pi (,) _pi ) |-> x ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) |
170 |
169
|
oveq1i |
|- ( ( ( x e. ( -u _pi (,) _pi ) |-> x ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) = ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) limCC 0 ) |
171 |
167 170
|
eqtri |
|- ( ( x e. ( -u _pi (,) _pi ) |-> x ) limCC 0 ) = ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) limCC 0 ) |
172 |
156 161 171
|
3eltr3i |
|- 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) limCC 0 ) |
173 |
172
|
a1i |
|- ( T. -> 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) limCC 0 ) ) |
174 |
|
eqid |
|- ( x e. CC |-> 2 ) = ( x e. CC |-> 2 ) |
175 |
144
|
a1i |
|- ( 2 e. CC -> CC C_ CC ) |
176 |
|
2cnd |
|- ( 2 e. CC -> 2 e. CC ) |
177 |
175 176 175
|
constcncfg |
|- ( 2 e. CC -> ( x e. CC |-> 2 ) e. ( CC -cn-> CC ) ) |
178 |
102 177
|
mp1i |
|- ( T. -> ( x e. CC |-> 2 ) e. ( CC -cn-> CC ) ) |
179 |
|
2cnd |
|- ( ( T. /\ x e. ( -u _pi (,) _pi ) ) -> 2 e. CC ) |
180 |
174 178 143 145 179
|
cncfmptssg |
|- ( T. -> ( x e. ( -u _pi (,) _pi ) |-> 2 ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) ) |
181 |
|
sincn |
|- sin e. ( CC -cn-> CC ) |
182 |
181
|
a1i |
|- ( T. -> sin e. ( CC -cn-> CC ) ) |
183 |
|
eqid |
|- ( x e. CC |-> ( x / 2 ) ) = ( x e. CC |-> ( x / 2 ) ) |
184 |
183
|
divccncf |
|- ( ( 2 e. CC /\ 2 =/= 0 ) -> ( x e. CC |-> ( x / 2 ) ) e. ( CC -cn-> CC ) ) |
185 |
102 81 184
|
mp2an |
|- ( x e. CC |-> ( x / 2 ) ) e. ( CC -cn-> CC ) |
186 |
185
|
a1i |
|- ( T. -> ( x e. CC |-> ( x / 2 ) ) e. ( CC -cn-> CC ) ) |
187 |
163
|
adantl |
|- ( ( T. /\ x e. ( -u _pi (,) _pi ) ) -> x e. CC ) |
188 |
187
|
halfcld |
|- ( ( T. /\ x e. ( -u _pi (,) _pi ) ) -> ( x / 2 ) e. CC ) |
189 |
183 186 143 145 188
|
cncfmptssg |
|- ( T. -> ( x e. ( -u _pi (,) _pi ) |-> ( x / 2 ) ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) ) |
190 |
182 189
|
cncfmpt1f |
|- ( T. -> ( x e. ( -u _pi (,) _pi ) |-> ( sin ` ( x / 2 ) ) ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) ) |
191 |
180 190
|
mulcncf |
|- ( T. -> ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) ) |
192 |
191
|
mptru |
|- ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) |
193 |
|
cnlimc |
|- ( ( -u _pi (,) _pi ) C_ CC -> ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) <-> ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) : ( -u _pi (,) _pi ) --> CC /\ A. y e. ( -u _pi (,) _pi ) ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC y ) ) ) ) |
194 |
142 193
|
ax-mp |
|- ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) <-> ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) : ( -u _pi (,) _pi ) --> CC /\ A. y e. ( -u _pi (,) _pi ) ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC y ) ) ) |
195 |
192 194
|
mpbi |
|- ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) : ( -u _pi (,) _pi ) --> CC /\ A. y e. ( -u _pi (,) _pi ) ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC y ) ) |
196 |
195
|
simpri |
|- A. y e. ( -u _pi (,) _pi ) ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC y ) |
197 |
|
fveq2 |
|- ( y = 0 -> ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) = ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` 0 ) ) |
198 |
|
oveq2 |
|- ( y = 0 -> ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC y ) = ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC 0 ) ) |
199 |
197 198
|
eleq12d |
|- ( y = 0 -> ( ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC y ) <-> ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` 0 ) e. ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC 0 ) ) ) |
200 |
199
|
rspccva |
|- ( ( A. y e. ( -u _pi (,) _pi ) ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) e. ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC y ) /\ 0 e. ( -u _pi (,) _pi ) ) -> ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` 0 ) e. ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC 0 ) ) |
201 |
196 44 200
|
mp2an |
|- ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` 0 ) e. ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC 0 ) |
202 |
|
oveq1 |
|- ( x = 0 -> ( x / 2 ) = ( 0 / 2 ) ) |
203 |
102 81
|
div0i |
|- ( 0 / 2 ) = 0 |
204 |
202 203
|
eqtrdi |
|- ( x = 0 -> ( x / 2 ) = 0 ) |
205 |
204
|
fveq2d |
|- ( x = 0 -> ( sin ` ( x / 2 ) ) = ( sin ` 0 ) ) |
206 |
|
sin0 |
|- ( sin ` 0 ) = 0 |
207 |
205 206
|
eqtrdi |
|- ( x = 0 -> ( sin ` ( x / 2 ) ) = 0 ) |
208 |
207
|
oveq2d |
|- ( x = 0 -> ( 2 x. ( sin ` ( x / 2 ) ) ) = ( 2 x. 0 ) ) |
209 |
|
2t0e0 |
|- ( 2 x. 0 ) = 0 |
210 |
208 209
|
eqtrdi |
|- ( x = 0 -> ( 2 x. ( sin ` ( x / 2 ) ) ) = 0 ) |
211 |
|
eqid |
|- ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) = ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) |
212 |
210 211 159
|
fvmpt |
|- ( 0 e. ( -u _pi (,) _pi ) -> ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` 0 ) = 0 ) |
213 |
44 212
|
ax-mp |
|- ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` 0 ) = 0 |
214 |
|
2cnd |
|- ( x e. ( -u _pi (,) _pi ) -> 2 e. CC ) |
215 |
163
|
halfcld |
|- ( x e. ( -u _pi (,) _pi ) -> ( x / 2 ) e. CC ) |
216 |
215
|
sincld |
|- ( x e. ( -u _pi (,) _pi ) -> ( sin ` ( x / 2 ) ) e. CC ) |
217 |
214 216
|
mulcld |
|- ( x e. ( -u _pi (,) _pi ) -> ( 2 x. ( sin ` ( x / 2 ) ) ) e. CC ) |
218 |
211 217
|
fmpti |
|- ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) : ( -u _pi (,) _pi ) --> CC |
219 |
218
|
a1i |
|- ( T. -> ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) : ( -u _pi (,) _pi ) --> CC ) |
220 |
219
|
limcdif |
|- ( T. -> ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC 0 ) = ( ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) ) |
221 |
220
|
mptru |
|- ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC 0 ) = ( ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) |
222 |
|
resmpt |
|- ( ( ( -u _pi (,) _pi ) \ { 0 } ) C_ ( -u _pi (,) _pi ) -> ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) |
223 |
16 222
|
ax-mp |
|- ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) |
224 |
223
|
oveq1i |
|- ( ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) = ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC 0 ) |
225 |
221 224
|
eqtri |
|- ( ( x e. ( -u _pi (,) _pi ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC 0 ) = ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC 0 ) |
226 |
201 213 225
|
3eltr3i |
|- 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC 0 ) |
227 |
226
|
a1i |
|- ( T. -> 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) limCC 0 ) ) |
228 |
|
eqidd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) |
229 |
|
oveq1 |
|- ( x = y -> ( x / 2 ) = ( y / 2 ) ) |
230 |
229
|
fveq2d |
|- ( x = y -> ( sin ` ( x / 2 ) ) = ( sin ` ( y / 2 ) ) ) |
231 |
230
|
oveq2d |
|- ( x = y -> ( 2 x. ( sin ` ( x / 2 ) ) ) = ( 2 x. ( sin ` ( y / 2 ) ) ) ) |
232 |
231
|
adantl |
|- ( ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) /\ x = y ) -> ( 2 x. ( sin ` ( x / 2 ) ) ) = ( 2 x. ( sin ` ( y / 2 ) ) ) ) |
233 |
|
id |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> y e. ( ( -u _pi (,) _pi ) \ { 0 } ) ) |
234 |
26
|
a1i |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> 2 e. RR ) |
235 |
19
|
sseli |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> y e. RR ) |
236 |
235
|
rehalfcld |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( y / 2 ) e. RR ) |
237 |
236
|
resincld |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( sin ` ( y / 2 ) ) e. RR ) |
238 |
234 237
|
remulcld |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( 2 x. ( sin ` ( y / 2 ) ) ) e. RR ) |
239 |
228 232 233 238
|
fvmptd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) = ( 2 x. ( sin ` ( y / 2 ) ) ) ) |
240 |
|
2cnd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> 2 e. CC ) |
241 |
237
|
recnd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( sin ` ( y / 2 ) ) e. CC ) |
242 |
81
|
a1i |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> 2 =/= 0 ) |
243 |
|
ioossicc |
|- ( -u _pi (,) _pi ) C_ ( -u _pi [,] _pi ) |
244 |
|
eldifi |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> y e. ( -u _pi (,) _pi ) ) |
245 |
243 244
|
sseldi |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> y e. ( -u _pi [,] _pi ) ) |
246 |
|
eldifsni |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> y =/= 0 ) |
247 |
|
fourierdlem44 |
|- ( ( y e. ( -u _pi [,] _pi ) /\ y =/= 0 ) -> ( sin ` ( y / 2 ) ) =/= 0 ) |
248 |
245 246 247
|
syl2anc |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( sin ` ( y / 2 ) ) =/= 0 ) |
249 |
240 241 242 248
|
mulne0d |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( 2 x. ( sin ` ( y / 2 ) ) ) =/= 0 ) |
250 |
239 249
|
eqnetrd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) =/= 0 ) |
251 |
250
|
neneqd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) = 0 ) |
252 |
251
|
nrex |
|- -. E. y e. ( ( -u _pi (,) _pi ) \ { 0 } ) ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) = 0 |
253 |
25
|
fnmpt |
|- ( A. x e. ( ( -u _pi (,) _pi ) \ { 0 } ) ( 2 x. ( sin ` ( x / 2 ) ) ) e. RR -> ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) Fn ( ( -u _pi (,) _pi ) \ { 0 } ) ) |
254 |
253 30
|
mprg |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) Fn ( ( -u _pi (,) _pi ) \ { 0 } ) |
255 |
|
ssid |
|- ( ( -u _pi (,) _pi ) \ { 0 } ) C_ ( ( -u _pi (,) _pi ) \ { 0 } ) |
256 |
|
fvelimab |
|- ( ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) Fn ( ( -u _pi (,) _pi ) \ { 0 } ) /\ ( ( -u _pi (,) _pi ) \ { 0 } ) C_ ( ( -u _pi (,) _pi ) \ { 0 } ) ) -> ( 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) <-> E. y e. ( ( -u _pi (,) _pi ) \ { 0 } ) ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) = 0 ) ) |
257 |
254 255 256
|
mp2an |
|- ( 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) <-> E. y e. ( ( -u _pi (,) _pi ) \ { 0 } ) ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` y ) = 0 ) |
258 |
252 257
|
mtbir |
|- -. 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) |
259 |
258
|
a1i |
|- ( T. -> -. 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) ) |
260 |
|
eqidd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) ) |
261 |
229
|
fveq2d |
|- ( x = y -> ( cos ` ( x / 2 ) ) = ( cos ` ( y / 2 ) ) ) |
262 |
261
|
adantl |
|- ( ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) /\ x = y ) -> ( cos ` ( x / 2 ) ) = ( cos ` ( y / 2 ) ) ) |
263 |
235
|
recnd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> y e. CC ) |
264 |
263
|
halfcld |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( y / 2 ) e. CC ) |
265 |
264
|
coscld |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( cos ` ( y / 2 ) ) e. CC ) |
266 |
260 262 233 265
|
fvmptd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) ` y ) = ( cos ` ( y / 2 ) ) ) |
267 |
236
|
rered |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( Re ` ( y / 2 ) ) = ( y / 2 ) ) |
268 |
|
halfpire |
|- ( _pi / 2 ) e. RR |
269 |
268
|
renegcli |
|- -u ( _pi / 2 ) e. RR |
270 |
269
|
a1i |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u ( _pi / 2 ) e. RR ) |
271 |
270
|
rexrd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u ( _pi / 2 ) e. RR* ) |
272 |
268
|
a1i |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( _pi / 2 ) e. RR ) |
273 |
272
|
rexrd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( _pi / 2 ) e. RR* ) |
274 |
|
picn |
|- _pi e. CC |
275 |
|
divneg |
|- ( ( _pi e. CC /\ 2 e. CC /\ 2 =/= 0 ) -> -u ( _pi / 2 ) = ( -u _pi / 2 ) ) |
276 |
274 102 81 275
|
mp3an |
|- -u ( _pi / 2 ) = ( -u _pi / 2 ) |
277 |
39
|
a1i |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u _pi e. RR ) |
278 |
|
2rp |
|- 2 e. RR+ |
279 |
278
|
a1i |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> 2 e. RR+ ) |
280 |
40
|
a1i |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u _pi e. RR* ) |
281 |
41
|
a1i |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> _pi e. RR* ) |
282 |
|
ioogtlb |
|- ( ( -u _pi e. RR* /\ _pi e. RR* /\ y e. ( -u _pi (,) _pi ) ) -> -u _pi < y ) |
283 |
280 281 244 282
|
syl3anc |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u _pi < y ) |
284 |
277 235 279 283
|
ltdiv1dd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( -u _pi / 2 ) < ( y / 2 ) ) |
285 |
276 284
|
eqbrtrid |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u ( _pi / 2 ) < ( y / 2 ) ) |
286 |
38
|
a1i |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> _pi e. RR ) |
287 |
|
iooltub |
|- ( ( -u _pi e. RR* /\ _pi e. RR* /\ y e. ( -u _pi (,) _pi ) ) -> y < _pi ) |
288 |
280 281 244 287
|
syl3anc |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> y < _pi ) |
289 |
235 286 279 288
|
ltdiv1dd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( y / 2 ) < ( _pi / 2 ) ) |
290 |
271 273 236 285 289
|
eliood |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( y / 2 ) e. ( -u ( _pi / 2 ) (,) ( _pi / 2 ) ) ) |
291 |
267 290
|
eqeltrd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( Re ` ( y / 2 ) ) e. ( -u ( _pi / 2 ) (,) ( _pi / 2 ) ) ) |
292 |
|
cosne0 |
|- ( ( ( y / 2 ) e. CC /\ ( Re ` ( y / 2 ) ) e. ( -u ( _pi / 2 ) (,) ( _pi / 2 ) ) ) -> ( cos ` ( y / 2 ) ) =/= 0 ) |
293 |
264 291 292
|
syl2anc |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( cos ` ( y / 2 ) ) =/= 0 ) |
294 |
266 293
|
eqnetrd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) ` y ) =/= 0 ) |
295 |
294
|
neneqd |
|- ( y e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) ` y ) = 0 ) |
296 |
295
|
nrex |
|- -. E. y e. ( ( -u _pi (,) _pi ) \ { 0 } ) ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) ` y ) = 0 |
297 |
72 73
|
fnmpti |
|- ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) Fn ( ( -u _pi (,) _pi ) \ { 0 } ) |
298 |
|
fvelimab |
|- ( ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) Fn ( ( -u _pi (,) _pi ) \ { 0 } ) /\ ( ( -u _pi (,) _pi ) \ { 0 } ) C_ ( ( -u _pi (,) _pi ) \ { 0 } ) ) -> ( 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) <-> E. y e. ( ( -u _pi (,) _pi ) \ { 0 } ) ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) ` y ) = 0 ) ) |
299 |
297 255 298
|
mp2an |
|- ( 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) <-> E. y e. ( ( -u _pi (,) _pi ) \ { 0 } ) ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) ` y ) = 0 ) |
300 |
296 299
|
mtbir |
|- -. 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) |
301 |
135
|
imaeq1i |
|- ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) = ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) |
302 |
301
|
eleq2i |
|- ( 0 e. ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) <-> 0 e. ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) ) |
303 |
300 302
|
mtbir |
|- -. 0 e. ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) |
304 |
303
|
a1i |
|- ( T. -> -. 0 e. ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) " ( ( -u _pi (,) _pi ) \ { 0 } ) ) ) |
305 |
|
eqid |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( s / 2 ) ) ) = ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( s / 2 ) ) ) |
306 |
|
eqid |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 1 / ( cos ` ( s / 2 ) ) ) ) = ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 1 / ( cos ` ( s / 2 ) ) ) ) |
307 |
19
|
sseli |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> s e. RR ) |
308 |
307
|
recnd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> s e. CC ) |
309 |
308
|
halfcld |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( s / 2 ) e. CC ) |
310 |
309
|
coscld |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( cos ` ( s / 2 ) ) e. CC ) |
311 |
307
|
rehalfcld |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( s / 2 ) e. RR ) |
312 |
311
|
rered |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( Re ` ( s / 2 ) ) = ( s / 2 ) ) |
313 |
269
|
a1i |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u ( _pi / 2 ) e. RR ) |
314 |
313
|
rexrd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u ( _pi / 2 ) e. RR* ) |
315 |
268
|
a1i |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( _pi / 2 ) e. RR ) |
316 |
315
|
rexrd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( _pi / 2 ) e. RR* ) |
317 |
38
|
a1i |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> _pi e. RR ) |
318 |
317
|
renegcld |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u _pi e. RR ) |
319 |
278
|
a1i |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> 2 e. RR+ ) |
320 |
40
|
a1i |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u _pi e. RR* ) |
321 |
41
|
a1i |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> _pi e. RR* ) |
322 |
|
eldifi |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> s e. ( -u _pi (,) _pi ) ) |
323 |
|
ioogtlb |
|- ( ( -u _pi e. RR* /\ _pi e. RR* /\ s e. ( -u _pi (,) _pi ) ) -> -u _pi < s ) |
324 |
320 321 322 323
|
syl3anc |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u _pi < s ) |
325 |
318 307 319 324
|
ltdiv1dd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( -u _pi / 2 ) < ( s / 2 ) ) |
326 |
276 325
|
eqbrtrid |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -u ( _pi / 2 ) < ( s / 2 ) ) |
327 |
|
iooltub |
|- ( ( -u _pi e. RR* /\ _pi e. RR* /\ s e. ( -u _pi (,) _pi ) ) -> s < _pi ) |
328 |
320 321 322 327
|
syl3anc |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> s < _pi ) |
329 |
307 317 319 328
|
ltdiv1dd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( s / 2 ) < ( _pi / 2 ) ) |
330 |
314 316 311 326 329
|
eliood |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( s / 2 ) e. ( -u ( _pi / 2 ) (,) ( _pi / 2 ) ) ) |
331 |
312 330
|
eqeltrd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( Re ` ( s / 2 ) ) e. ( -u ( _pi / 2 ) (,) ( _pi / 2 ) ) ) |
332 |
|
cosne0 |
|- ( ( ( s / 2 ) e. CC /\ ( Re ` ( s / 2 ) ) e. ( -u ( _pi / 2 ) (,) ( _pi / 2 ) ) ) -> ( cos ` ( s / 2 ) ) =/= 0 ) |
333 |
309 331 332
|
syl2anc |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( cos ` ( s / 2 ) ) =/= 0 ) |
334 |
333
|
neneqd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -. ( cos ` ( s / 2 ) ) = 0 ) |
335 |
311
|
recoscld |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( cos ` ( s / 2 ) ) e. RR ) |
336 |
|
elsng |
|- ( ( cos ` ( s / 2 ) ) e. RR -> ( ( cos ` ( s / 2 ) ) e. { 0 } <-> ( cos ` ( s / 2 ) ) = 0 ) ) |
337 |
335 336
|
syl |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( ( cos ` ( s / 2 ) ) e. { 0 } <-> ( cos ` ( s / 2 ) ) = 0 ) ) |
338 |
334 337
|
mtbird |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -. ( cos ` ( s / 2 ) ) e. { 0 } ) |
339 |
310 338
|
eldifd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( cos ` ( s / 2 ) ) e. ( CC \ { 0 } ) ) |
340 |
339
|
adantl |
|- ( ( T. /\ s e. ( ( -u _pi (,) _pi ) \ { 0 } ) ) -> ( cos ` ( s / 2 ) ) e. ( CC \ { 0 } ) ) |
341 |
309
|
ad2antrl |
|- ( ( T. /\ ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) /\ ( s / 2 ) =/= 0 ) ) -> ( s / 2 ) e. CC ) |
342 |
|
cosf |
|- cos : CC --> CC |
343 |
342
|
a1i |
|- ( T. -> cos : CC --> CC ) |
344 |
343
|
ffvelrnda |
|- ( ( T. /\ x e. CC ) -> ( cos ` x ) e. CC ) |
345 |
|
eqid |
|- ( s e. CC |-> ( s / 2 ) ) = ( s e. CC |-> ( s / 2 ) ) |
346 |
345
|
divccncf |
|- ( ( 2 e. CC /\ 2 =/= 0 ) -> ( s e. CC |-> ( s / 2 ) ) e. ( CC -cn-> CC ) ) |
347 |
102 81 346
|
mp2an |
|- ( s e. CC |-> ( s / 2 ) ) e. ( CC -cn-> CC ) |
348 |
347
|
a1i |
|- ( T. -> ( s e. CC |-> ( s / 2 ) ) e. ( CC -cn-> CC ) ) |
349 |
141
|
adantl |
|- ( ( T. /\ s e. ( -u _pi (,) _pi ) ) -> s e. CC ) |
350 |
349
|
halfcld |
|- ( ( T. /\ s e. ( -u _pi (,) _pi ) ) -> ( s / 2 ) e. CC ) |
351 |
345 348 143 145 350
|
cncfmptssg |
|- ( T. -> ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) e. ( ( -u _pi (,) _pi ) -cn-> CC ) ) |
352 |
|
oveq1 |
|- ( s = 0 -> ( s / 2 ) = ( 0 / 2 ) ) |
353 |
352 203
|
eqtrdi |
|- ( s = 0 -> ( s / 2 ) = 0 ) |
354 |
351 45 353
|
cnmptlimc |
|- ( T. -> 0 e. ( ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) limCC 0 ) ) |
355 |
|
eqid |
|- ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) = ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) |
356 |
141
|
halfcld |
|- ( s e. ( -u _pi (,) _pi ) -> ( s / 2 ) e. CC ) |
357 |
355 356
|
fmpti |
|- ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) : ( -u _pi (,) _pi ) --> CC |
358 |
357
|
a1i |
|- ( T. -> ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) : ( -u _pi (,) _pi ) --> CC ) |
359 |
358
|
limcdif |
|- ( T. -> ( ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) limCC 0 ) = ( ( ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) ) |
360 |
359
|
mptru |
|- ( ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) limCC 0 ) = ( ( ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) |
361 |
|
resmpt |
|- ( ( ( -u _pi (,) _pi ) \ { 0 } ) C_ ( -u _pi (,) _pi ) -> ( ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) = ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / 2 ) ) ) |
362 |
16 361
|
ax-mp |
|- ( ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) = ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / 2 ) ) |
363 |
362
|
oveq1i |
|- ( ( ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) = ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / 2 ) ) limCC 0 ) |
364 |
360 363
|
eqtri |
|- ( ( s e. ( -u _pi (,) _pi ) |-> ( s / 2 ) ) limCC 0 ) = ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / 2 ) ) limCC 0 ) |
365 |
354 364
|
eleqtrdi |
|- ( T. -> 0 e. ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / 2 ) ) limCC 0 ) ) |
366 |
|
ffn |
|- ( cos : CC --> CC -> cos Fn CC ) |
367 |
342 366
|
ax-mp |
|- cos Fn CC |
368 |
|
dffn5 |
|- ( cos Fn CC <-> cos = ( x e. CC |-> ( cos ` x ) ) ) |
369 |
367 368
|
mpbi |
|- cos = ( x e. CC |-> ( cos ` x ) ) |
370 |
|
coscn |
|- cos e. ( CC -cn-> CC ) |
371 |
369 370
|
eqeltrri |
|- ( x e. CC |-> ( cos ` x ) ) e. ( CC -cn-> CC ) |
372 |
371
|
a1i |
|- ( T. -> ( x e. CC |-> ( cos ` x ) ) e. ( CC -cn-> CC ) ) |
373 |
|
0cnd |
|- ( T. -> 0 e. CC ) |
374 |
|
fveq2 |
|- ( x = 0 -> ( cos ` x ) = ( cos ` 0 ) ) |
375 |
|
cos0 |
|- ( cos ` 0 ) = 1 |
376 |
374 375
|
eqtrdi |
|- ( x = 0 -> ( cos ` x ) = 1 ) |
377 |
372 373 376
|
cnmptlimc |
|- ( T. -> 1 e. ( ( x e. CC |-> ( cos ` x ) ) limCC 0 ) ) |
378 |
|
fveq2 |
|- ( x = ( s / 2 ) -> ( cos ` x ) = ( cos ` ( s / 2 ) ) ) |
379 |
|
fveq2 |
|- ( ( s / 2 ) = 0 -> ( cos ` ( s / 2 ) ) = ( cos ` 0 ) ) |
380 |
379 375
|
eqtrdi |
|- ( ( s / 2 ) = 0 -> ( cos ` ( s / 2 ) ) = 1 ) |
381 |
380
|
ad2antll |
|- ( ( T. /\ ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) /\ ( s / 2 ) = 0 ) ) -> ( cos ` ( s / 2 ) ) = 1 ) |
382 |
341 344 365 377 378 381
|
limcco |
|- ( T. -> 1 e. ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( s / 2 ) ) ) limCC 0 ) ) |
383 |
|
ax-1ne0 |
|- 1 =/= 0 |
384 |
383
|
a1i |
|- ( T. -> 1 =/= 0 ) |
385 |
305 306 340 382 384
|
reclimc |
|- ( T. -> ( 1 / 1 ) e. ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 1 / ( cos ` ( s / 2 ) ) ) ) limCC 0 ) ) |
386 |
|
1div1e1 |
|- ( 1 / 1 ) = 1 |
387 |
66
|
fveq1i |
|- ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) ` s ) = ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> 1 ) ` s ) |
388 |
|
eqidd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> 1 ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> 1 ) ) |
389 |
|
eqidd |
|- ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) /\ x = s ) -> 1 = 1 ) |
390 |
|
id |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> s e. ( ( -u _pi (,) _pi ) \ { 0 } ) ) |
391 |
|
1red |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> 1 e. RR ) |
392 |
388 389 390 391
|
fvmptd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> 1 ) ` s ) = 1 ) |
393 |
387 392
|
eqtr2id |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> 1 = ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) ` s ) ) |
394 |
135
|
a1i |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( cos ` ( x / 2 ) ) ) ) |
395 |
|
oveq1 |
|- ( x = s -> ( x / 2 ) = ( s / 2 ) ) |
396 |
395
|
fveq2d |
|- ( x = s -> ( cos ` ( x / 2 ) ) = ( cos ` ( s / 2 ) ) ) |
397 |
396
|
adantl |
|- ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) /\ x = s ) -> ( cos ` ( x / 2 ) ) = ( cos ` ( s / 2 ) ) ) |
398 |
394 397 390 335
|
fvmptd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) ` s ) = ( cos ` ( s / 2 ) ) ) |
399 |
398
|
eqcomd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( cos ` ( s / 2 ) ) = ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) ` s ) ) |
400 |
393 399
|
oveq12d |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( 1 / ( cos ` ( s / 2 ) ) ) = ( ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) ` s ) / ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) ` s ) ) ) |
401 |
400
|
mpteq2ia |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 1 / ( cos ` ( s / 2 ) ) ) ) = ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) ` s ) / ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) ` s ) ) ) |
402 |
401
|
oveq1i |
|- ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 1 / ( cos ` ( s / 2 ) ) ) ) limCC 0 ) = ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) ` s ) / ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) ` s ) ) ) limCC 0 ) |
403 |
385 386 402
|
3eltr3g |
|- ( T. -> 1 e. ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) ` s ) / ( ( RR _D ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) ` s ) ) ) limCC 0 ) ) |
404 |
20 24 32 34 45 46 71 140 173 227 259 304 403
|
lhop |
|- ( T. -> 1 e. ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ` s ) / ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` s ) ) ) limCC 0 ) ) |
405 |
404
|
mptru |
|- 1 e. ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ` s ) / ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` s ) ) ) limCC 0 ) |
406 |
|
eqidd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ) |
407 |
|
simpr |
|- ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) /\ x = s ) -> x = s ) |
408 |
406 407 390 307
|
fvmptd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ` s ) = s ) |
409 |
|
eqidd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) = ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ) |
410 |
407
|
oveq1d |
|- ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) /\ x = s ) -> ( x / 2 ) = ( s / 2 ) ) |
411 |
410
|
fveq2d |
|- ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) /\ x = s ) -> ( sin ` ( x / 2 ) ) = ( sin ` ( s / 2 ) ) ) |
412 |
411
|
oveq2d |
|- ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) /\ x = s ) -> ( 2 x. ( sin ` ( x / 2 ) ) ) = ( 2 x. ( sin ` ( s / 2 ) ) ) ) |
413 |
26
|
a1i |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> 2 e. RR ) |
414 |
311
|
resincld |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( sin ` ( s / 2 ) ) e. RR ) |
415 |
413 414
|
remulcld |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( 2 x. ( sin ` ( s / 2 ) ) ) e. RR ) |
416 |
409 412 390 415
|
fvmptd |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` s ) = ( 2 x. ( sin ` ( s / 2 ) ) ) ) |
417 |
408 416
|
oveq12d |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> ( ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ` s ) / ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` s ) ) = ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) |
418 |
417
|
mpteq2ia |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ` s ) / ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` s ) ) ) = ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) |
419 |
418
|
oveq1i |
|- ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> x ) ` s ) / ( ( x e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( x / 2 ) ) ) ) ` s ) ) ) limCC 0 ) = ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) limCC 0 ) |
420 |
405 419
|
eleqtri |
|- 1 e. ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) limCC 0 ) |
421 |
10
|
oveq1i |
|- ( K limCC 0 ) = ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) limCC 0 ) |
422 |
10
|
feq1i |
|- ( K : ( -u _pi [,] _pi ) --> CC <-> ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) : ( -u _pi [,] _pi ) --> CC ) |
423 |
14 422
|
mpbi |
|- ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) : ( -u _pi [,] _pi ) --> CC |
424 |
423
|
a1i |
|- ( T. -> ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) : ( -u _pi [,] _pi ) --> CC ) |
425 |
243
|
a1i |
|- ( T. -> ( -u _pi (,) _pi ) C_ ( -u _pi [,] _pi ) ) |
426 |
|
iccssre |
|- ( ( -u _pi e. RR /\ _pi e. RR ) -> ( -u _pi [,] _pi ) C_ RR ) |
427 |
39 38 426
|
mp2an |
|- ( -u _pi [,] _pi ) C_ RR |
428 |
427
|
a1i |
|- ( T. -> ( -u _pi [,] _pi ) C_ RR ) |
429 |
428 12
|
sstrdi |
|- ( T. -> ( -u _pi [,] _pi ) C_ CC ) |
430 |
|
eqid |
|- ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) u. { 0 } ) ) = ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) u. { 0 } ) ) |
431 |
39 35 36
|
ltleii |
|- -u _pi <_ 0 |
432 |
35 38 37
|
ltleii |
|- 0 <_ _pi |
433 |
39 38
|
elicc2i |
|- ( 0 e. ( -u _pi [,] _pi ) <-> ( 0 e. RR /\ -u _pi <_ 0 /\ 0 <_ _pi ) ) |
434 |
35 431 432 433
|
mpbir3an |
|- 0 e. ( -u _pi [,] _pi ) |
435 |
159
|
snss |
|- ( 0 e. ( -u _pi [,] _pi ) <-> { 0 } C_ ( -u _pi [,] _pi ) ) |
436 |
434 435
|
mpbi |
|- { 0 } C_ ( -u _pi [,] _pi ) |
437 |
|
ssequn2 |
|- ( { 0 } C_ ( -u _pi [,] _pi ) <-> ( ( -u _pi [,] _pi ) u. { 0 } ) = ( -u _pi [,] _pi ) ) |
438 |
436 437
|
mpbi |
|- ( ( -u _pi [,] _pi ) u. { 0 } ) = ( -u _pi [,] _pi ) |
439 |
438
|
oveq2i |
|- ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) u. { 0 } ) ) = ( ( TopOpen ` CCfld ) |`t ( -u _pi [,] _pi ) ) |
440 |
|
eqid |
|- ( topGen ` ran (,) ) = ( topGen ` ran (,) ) |
441 |
56 440
|
rerest |
|- ( ( -u _pi [,] _pi ) C_ RR -> ( ( TopOpen ` CCfld ) |`t ( -u _pi [,] _pi ) ) = ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) |
442 |
427 441
|
ax-mp |
|- ( ( TopOpen ` CCfld ) |`t ( -u _pi [,] _pi ) ) = ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |
443 |
439 442
|
eqtri |
|- ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) u. { 0 } ) ) = ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |
444 |
443
|
fveq2i |
|- ( int ` ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) u. { 0 } ) ) ) = ( int ` ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) |
445 |
159
|
snss |
|- ( 0 e. ( -u _pi (,) _pi ) <-> { 0 } C_ ( -u _pi (,) _pi ) ) |
446 |
44 445
|
mpbi |
|- { 0 } C_ ( -u _pi (,) _pi ) |
447 |
|
ssequn2 |
|- ( { 0 } C_ ( -u _pi (,) _pi ) <-> ( ( -u _pi (,) _pi ) u. { 0 } ) = ( -u _pi (,) _pi ) ) |
448 |
446 447
|
mpbi |
|- ( ( -u _pi (,) _pi ) u. { 0 } ) = ( -u _pi (,) _pi ) |
449 |
444 448
|
fveq12i |
|- ( ( int ` ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) u. { 0 } ) ) ) ` ( ( -u _pi (,) _pi ) u. { 0 } ) ) = ( ( int ` ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) ` ( -u _pi (,) _pi ) ) |
450 |
|
resttopon |
|- ( ( ( topGen ` ran (,) ) e. ( TopOn ` RR ) /\ ( -u _pi [,] _pi ) C_ RR ) -> ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) e. ( TopOn ` ( -u _pi [,] _pi ) ) ) |
451 |
60 427 450
|
mp2an |
|- ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) e. ( TopOn ` ( -u _pi [,] _pi ) ) |
452 |
451
|
topontopi |
|- ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) e. Top |
453 |
|
retop |
|- ( topGen ` ran (,) ) e. Top |
454 |
|
ovex |
|- ( -u _pi [,] _pi ) e. _V |
455 |
453 454
|
pm3.2i |
|- ( ( topGen ` ran (,) ) e. Top /\ ( -u _pi [,] _pi ) e. _V ) |
456 |
|
ssid |
|- ( -u _pi (,) _pi ) C_ ( -u _pi (,) _pi ) |
457 |
33 243 456
|
3pm3.2i |
|- ( ( -u _pi (,) _pi ) e. ( topGen ` ran (,) ) /\ ( -u _pi (,) _pi ) C_ ( -u _pi [,] _pi ) /\ ( -u _pi (,) _pi ) C_ ( -u _pi (,) _pi ) ) |
458 |
|
restopnb |
|- ( ( ( ( topGen ` ran (,) ) e. Top /\ ( -u _pi [,] _pi ) e. _V ) /\ ( ( -u _pi (,) _pi ) e. ( topGen ` ran (,) ) /\ ( -u _pi (,) _pi ) C_ ( -u _pi [,] _pi ) /\ ( -u _pi (,) _pi ) C_ ( -u _pi (,) _pi ) ) ) -> ( ( -u _pi (,) _pi ) e. ( topGen ` ran (,) ) <-> ( -u _pi (,) _pi ) e. ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) ) |
459 |
455 457 458
|
mp2an |
|- ( ( -u _pi (,) _pi ) e. ( topGen ` ran (,) ) <-> ( -u _pi (,) _pi ) e. ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) |
460 |
33 459
|
mpbi |
|- ( -u _pi (,) _pi ) e. ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |
461 |
|
isopn3i |
|- ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) e. Top /\ ( -u _pi (,) _pi ) e. ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) -> ( ( int ` ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) ` ( -u _pi (,) _pi ) ) = ( -u _pi (,) _pi ) ) |
462 |
452 460 461
|
mp2an |
|- ( ( int ` ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) ` ( -u _pi (,) _pi ) ) = ( -u _pi (,) _pi ) |
463 |
|
eqid |
|- ( -u _pi (,) _pi ) = ( -u _pi (,) _pi ) |
464 |
449 462 463
|
3eqtrri |
|- ( -u _pi (,) _pi ) = ( ( int ` ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) u. { 0 } ) ) ) ` ( ( -u _pi (,) _pi ) u. { 0 } ) ) |
465 |
44 464
|
eleqtri |
|- 0 e. ( ( int ` ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) u. { 0 } ) ) ) ` ( ( -u _pi (,) _pi ) u. { 0 } ) ) |
466 |
465
|
a1i |
|- ( T. -> 0 e. ( ( int ` ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) u. { 0 } ) ) ) ` ( ( -u _pi (,) _pi ) u. { 0 } ) ) ) |
467 |
424 425 429 56 430 466
|
limcres |
|- ( T. -> ( ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( -u _pi (,) _pi ) ) limCC 0 ) = ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) limCC 0 ) ) |
468 |
467
|
mptru |
|- ( ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( -u _pi (,) _pi ) ) limCC 0 ) = ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) limCC 0 ) |
469 |
468
|
eqcomi |
|- ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) limCC 0 ) = ( ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( -u _pi (,) _pi ) ) limCC 0 ) |
470 |
|
resmpt |
|- ( ( -u _pi (,) _pi ) C_ ( -u _pi [,] _pi ) -> ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( -u _pi (,) _pi ) ) = ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) ) |
471 |
243 470
|
ax-mp |
|- ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( -u _pi (,) _pi ) ) = ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |
472 |
471
|
oveq1i |
|- ( ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( -u _pi (,) _pi ) ) limCC 0 ) = ( ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) limCC 0 ) |
473 |
421 469 472
|
3eqtri |
|- ( K limCC 0 ) = ( ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) limCC 0 ) |
474 |
|
eqid |
|- ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) = ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |
475 |
|
iftrue |
|- ( s = 0 -> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) = 1 ) |
476 |
|
1cnd |
|- ( s = 0 -> 1 e. CC ) |
477 |
475 476
|
eqeltrd |
|- ( s = 0 -> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. CC ) |
478 |
477
|
adantl |
|- ( ( s e. ( -u _pi (,) _pi ) /\ s = 0 ) -> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. CC ) |
479 |
|
iffalse |
|- ( -. s = 0 -> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) = ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) |
480 |
479
|
adantl |
|- ( ( s e. ( -u _pi (,) _pi ) /\ -. s = 0 ) -> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) = ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) |
481 |
141
|
adantr |
|- ( ( s e. ( -u _pi (,) _pi ) /\ -. s = 0 ) -> s e. CC ) |
482 |
|
2cnd |
|- ( ( s e. ( -u _pi (,) _pi ) /\ -. s = 0 ) -> 2 e. CC ) |
483 |
481
|
halfcld |
|- ( ( s e. ( -u _pi (,) _pi ) /\ -. s = 0 ) -> ( s / 2 ) e. CC ) |
484 |
483
|
sincld |
|- ( ( s e. ( -u _pi (,) _pi ) /\ -. s = 0 ) -> ( sin ` ( s / 2 ) ) e. CC ) |
485 |
482 484
|
mulcld |
|- ( ( s e. ( -u _pi (,) _pi ) /\ -. s = 0 ) -> ( 2 x. ( sin ` ( s / 2 ) ) ) e. CC ) |
486 |
81
|
a1i |
|- ( ( s e. ( -u _pi (,) _pi ) /\ -. s = 0 ) -> 2 =/= 0 ) |
487 |
243
|
sseli |
|- ( s e. ( -u _pi (,) _pi ) -> s e. ( -u _pi [,] _pi ) ) |
488 |
|
neqne |
|- ( -. s = 0 -> s =/= 0 ) |
489 |
|
fourierdlem44 |
|- ( ( s e. ( -u _pi [,] _pi ) /\ s =/= 0 ) -> ( sin ` ( s / 2 ) ) =/= 0 ) |
490 |
487 488 489
|
syl2an |
|- ( ( s e. ( -u _pi (,) _pi ) /\ -. s = 0 ) -> ( sin ` ( s / 2 ) ) =/= 0 ) |
491 |
482 484 486 490
|
mulne0d |
|- ( ( s e. ( -u _pi (,) _pi ) /\ -. s = 0 ) -> ( 2 x. ( sin ` ( s / 2 ) ) ) =/= 0 ) |
492 |
481 485 491
|
divcld |
|- ( ( s e. ( -u _pi (,) _pi ) /\ -. s = 0 ) -> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) e. CC ) |
493 |
480 492
|
eqeltrd |
|- ( ( s e. ( -u _pi (,) _pi ) /\ -. s = 0 ) -> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. CC ) |
494 |
478 493
|
pm2.61dan |
|- ( s e. ( -u _pi (,) _pi ) -> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. CC ) |
495 |
474 494
|
fmpti |
|- ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) : ( -u _pi (,) _pi ) --> CC |
496 |
495
|
a1i |
|- ( T. -> ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) : ( -u _pi (,) _pi ) --> CC ) |
497 |
496
|
limcdif |
|- ( T. -> ( ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) limCC 0 ) = ( ( ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) ) |
498 |
497
|
mptru |
|- ( ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) limCC 0 ) = ( ( ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) |
499 |
|
resmpt |
|- ( ( ( -u _pi (,) _pi ) \ { 0 } ) C_ ( -u _pi (,) _pi ) -> ( ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) = ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) ) |
500 |
16 499
|
ax-mp |
|- ( ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) = ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |
501 |
|
eldifn |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -. s e. { 0 } ) |
502 |
|
velsn |
|- ( s e. { 0 } <-> s = 0 ) |
503 |
501 502
|
sylnib |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> -. s = 0 ) |
504 |
503 479
|
syl |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) -> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) = ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) |
505 |
504
|
mpteq2ia |
|- ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) = ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) |
506 |
500 505
|
eqtri |
|- ( ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) = ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) |
507 |
506
|
oveq1i |
|- ( ( ( s e. ( -u _pi (,) _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( ( -u _pi (,) _pi ) \ { 0 } ) ) limCC 0 ) = ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) limCC 0 ) |
508 |
473 498 507
|
3eqtrri |
|- ( ( s e. ( ( -u _pi (,) _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) limCC 0 ) = ( K limCC 0 ) |
509 |
420 508
|
eleqtri |
|- 1 e. ( K limCC 0 ) |
510 |
509
|
a1i |
|- ( s = 0 -> 1 e. ( K limCC 0 ) ) |
511 |
|
fveq2 |
|- ( s = 0 -> ( K ` s ) = ( K ` 0 ) ) |
512 |
475 10 47
|
fvmpt |
|- ( 0 e. ( -u _pi [,] _pi ) -> ( K ` 0 ) = 1 ) |
513 |
434 512
|
ax-mp |
|- ( K ` 0 ) = 1 |
514 |
511 513
|
eqtrdi |
|- ( s = 0 -> ( K ` s ) = 1 ) |
515 |
|
oveq2 |
|- ( s = 0 -> ( K limCC s ) = ( K limCC 0 ) ) |
516 |
510 514 515
|
3eltr4d |
|- ( s = 0 -> ( K ` s ) e. ( K limCC s ) ) |
517 |
427 12
|
sstri |
|- ( -u _pi [,] _pi ) C_ CC |
518 |
517
|
a1i |
|- ( s = 0 -> ( -u _pi [,] _pi ) C_ CC ) |
519 |
38
|
a1i |
|- ( s = 0 -> _pi e. RR ) |
520 |
519
|
renegcld |
|- ( s = 0 -> -u _pi e. RR ) |
521 |
|
id |
|- ( s = 0 -> s = 0 ) |
522 |
35
|
a1i |
|- ( s = 0 -> 0 e. RR ) |
523 |
521 522
|
eqeltrd |
|- ( s = 0 -> s e. RR ) |
524 |
431 521
|
breqtrrid |
|- ( s = 0 -> -u _pi <_ s ) |
525 |
521 432
|
eqbrtrdi |
|- ( s = 0 -> s <_ _pi ) |
526 |
520 519 523 524 525
|
eliccd |
|- ( s = 0 -> s e. ( -u _pi [,] _pi ) ) |
527 |
57
|
oveq1i |
|- ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) = ( ( ( TopOpen ` CCfld ) |`t RR ) |`t ( -u _pi [,] _pi ) ) |
528 |
56
|
cnfldtop |
|- ( TopOpen ` CCfld ) e. Top |
529 |
|
reex |
|- RR e. _V |
530 |
|
restabs |
|- ( ( ( TopOpen ` CCfld ) e. Top /\ ( -u _pi [,] _pi ) C_ RR /\ RR e. _V ) -> ( ( ( TopOpen ` CCfld ) |`t RR ) |`t ( -u _pi [,] _pi ) ) = ( ( TopOpen ` CCfld ) |`t ( -u _pi [,] _pi ) ) ) |
531 |
528 427 529 530
|
mp3an |
|- ( ( ( TopOpen ` CCfld ) |`t RR ) |`t ( -u _pi [,] _pi ) ) = ( ( TopOpen ` CCfld ) |`t ( -u _pi [,] _pi ) ) |
532 |
527 531
|
eqtri |
|- ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) = ( ( TopOpen ` CCfld ) |`t ( -u _pi [,] _pi ) ) |
533 |
56 532
|
cnplimc |
|- ( ( ( -u _pi [,] _pi ) C_ CC /\ s e. ( -u _pi [,] _pi ) ) -> ( K e. ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) CnP ( TopOpen ` CCfld ) ) ` s ) <-> ( K : ( -u _pi [,] _pi ) --> CC /\ ( K ` s ) e. ( K limCC s ) ) ) ) |
534 |
518 526 533
|
syl2anc |
|- ( s = 0 -> ( K e. ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) CnP ( TopOpen ` CCfld ) ) ` s ) <-> ( K : ( -u _pi [,] _pi ) --> CC /\ ( K ` s ) e. ( K limCC s ) ) ) ) |
535 |
15 516 534
|
mpbir2and |
|- ( s = 0 -> K e. ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) |
536 |
535
|
adantl |
|- ( ( s e. ( -u _pi [,] _pi ) /\ s = 0 ) -> K e. ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) |
537 |
|
simpl |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> s e. ( -u _pi [,] _pi ) ) |
538 |
502
|
notbii |
|- ( -. s e. { 0 } <-> -. s = 0 ) |
539 |
538
|
biimpri |
|- ( -. s = 0 -> -. s e. { 0 } ) |
540 |
539
|
adantl |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> -. s e. { 0 } ) |
541 |
537 540
|
eldifd |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> s e. ( ( -u _pi [,] _pi ) \ { 0 } ) ) |
542 |
|
fveq2 |
|- ( x = s -> ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` x ) = ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) |
543 |
542
|
eleq2d |
|- ( x = s -> ( ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` x ) <-> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) ) |
544 |
429
|
ssdifssd |
|- ( T. -> ( ( -u _pi [,] _pi ) \ { 0 } ) C_ CC ) |
545 |
544 145
|
idcncfg |
|- ( T. -> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> s ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) ) |
546 |
|
eqid |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) = ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) |
547 |
|
2cnd |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> 2 e. CC ) |
548 |
|
eldifi |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> s e. ( -u _pi [,] _pi ) ) |
549 |
517 548
|
sseldi |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> s e. CC ) |
550 |
549
|
halfcld |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> ( s / 2 ) e. CC ) |
551 |
550
|
sincld |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> ( sin ` ( s / 2 ) ) e. CC ) |
552 |
547 551
|
mulcld |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> ( 2 x. ( sin ` ( s / 2 ) ) ) e. CC ) |
553 |
81
|
a1i |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> 2 =/= 0 ) |
554 |
|
eldifsni |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> s =/= 0 ) |
555 |
548 554 489
|
syl2anc |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> ( sin ` ( s / 2 ) ) =/= 0 ) |
556 |
547 551 553 555
|
mulne0d |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> ( 2 x. ( sin ` ( s / 2 ) ) ) =/= 0 ) |
557 |
556
|
neneqd |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> -. ( 2 x. ( sin ` ( s / 2 ) ) ) = 0 ) |
558 |
|
elsng |
|- ( ( 2 x. ( sin ` ( s / 2 ) ) ) e. CC -> ( ( 2 x. ( sin ` ( s / 2 ) ) ) e. { 0 } <-> ( 2 x. ( sin ` ( s / 2 ) ) ) = 0 ) ) |
559 |
552 558
|
syl |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> ( ( 2 x. ( sin ` ( s / 2 ) ) ) e. { 0 } <-> ( 2 x. ( sin ` ( s / 2 ) ) ) = 0 ) ) |
560 |
557 559
|
mtbird |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> -. ( 2 x. ( sin ` ( s / 2 ) ) ) e. { 0 } ) |
561 |
552 560
|
eldifd |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> ( 2 x. ( sin ` ( s / 2 ) ) ) e. ( CC \ { 0 } ) ) |
562 |
546 561
|
fmpti |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) : ( ( -u _pi [,] _pi ) \ { 0 } ) --> ( CC \ { 0 } ) |
563 |
|
difss |
|- ( CC \ { 0 } ) C_ CC |
564 |
|
eqid |
|- ( s e. CC |-> 2 ) = ( s e. CC |-> 2 ) |
565 |
175 176 175
|
constcncfg |
|- ( 2 e. CC -> ( s e. CC |-> 2 ) e. ( CC -cn-> CC ) ) |
566 |
102 565
|
mp1i |
|- ( T. -> ( s e. CC |-> 2 ) e. ( CC -cn-> CC ) ) |
567 |
|
2cnd |
|- ( ( T. /\ s e. ( ( -u _pi [,] _pi ) \ { 0 } ) ) -> 2 e. CC ) |
568 |
564 566 544 145 567
|
cncfmptssg |
|- ( T. -> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> 2 ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) ) |
569 |
549 547 553
|
divrecd |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> ( s / 2 ) = ( s x. ( 1 / 2 ) ) ) |
570 |
569
|
mpteq2ia |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / 2 ) ) = ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s x. ( 1 / 2 ) ) ) |
571 |
|
eqid |
|- ( s e. CC |-> ( 1 / 2 ) ) = ( s e. CC |-> ( 1 / 2 ) ) |
572 |
144
|
a1i |
|- ( ( 1 / 2 ) e. CC -> CC C_ CC ) |
573 |
|
id |
|- ( ( 1 / 2 ) e. CC -> ( 1 / 2 ) e. CC ) |
574 |
572 573 572
|
constcncfg |
|- ( ( 1 / 2 ) e. CC -> ( s e. CC |-> ( 1 / 2 ) ) e. ( CC -cn-> CC ) ) |
575 |
94 574
|
mp1i |
|- ( T. -> ( s e. CC |-> ( 1 / 2 ) ) e. ( CC -cn-> CC ) ) |
576 |
94
|
a1i |
|- ( ( T. /\ s e. ( ( -u _pi [,] _pi ) \ { 0 } ) ) -> ( 1 / 2 ) e. CC ) |
577 |
571 575 544 145 576
|
cncfmptssg |
|- ( T. -> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 1 / 2 ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) ) |
578 |
545 577
|
mulcncf |
|- ( T. -> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s x. ( 1 / 2 ) ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) ) |
579 |
570 578
|
eqeltrid |
|- ( T. -> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / 2 ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) ) |
580 |
182 579
|
cncfmpt1f |
|- ( T. -> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( sin ` ( s / 2 ) ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) ) |
581 |
568 580
|
mulcncf |
|- ( T. -> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) ) |
582 |
581
|
mptru |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) |
583 |
|
cncffvrn |
|- ( ( ( CC \ { 0 } ) C_ CC /\ ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) ) -> ( ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> ( CC \ { 0 } ) ) <-> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) : ( ( -u _pi [,] _pi ) \ { 0 } ) --> ( CC \ { 0 } ) ) ) |
584 |
563 582 583
|
mp2an |
|- ( ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> ( CC \ { 0 } ) ) <-> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) : ( ( -u _pi [,] _pi ) \ { 0 } ) --> ( CC \ { 0 } ) ) |
585 |
562 584
|
mpbir |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> ( CC \ { 0 } ) ) |
586 |
585
|
a1i |
|- ( T. -> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( 2 x. ( sin ` ( s / 2 ) ) ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> ( CC \ { 0 } ) ) ) |
587 |
545 586
|
divcncf |
|- ( T. -> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) ) |
588 |
587
|
mptru |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) |
589 |
428
|
ssdifssd |
|- ( T. -> ( ( -u _pi [,] _pi ) \ { 0 } ) C_ RR ) |
590 |
589
|
mptru |
|- ( ( -u _pi [,] _pi ) \ { 0 } ) C_ RR |
591 |
590 12
|
sstri |
|- ( ( -u _pi [,] _pi ) \ { 0 } ) C_ CC |
592 |
57
|
oveq1i |
|- ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( ( ( TopOpen ` CCfld ) |`t RR ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) |
593 |
|
restabs |
|- ( ( ( TopOpen ` CCfld ) e. Top /\ ( ( -u _pi [,] _pi ) \ { 0 } ) C_ RR /\ RR e. _V ) -> ( ( ( TopOpen ` CCfld ) |`t RR ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) ) |
594 |
528 590 529 593
|
mp3an |
|- ( ( ( TopOpen ` CCfld ) |`t RR ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) |
595 |
592 594
|
eqtri |
|- ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( ( TopOpen ` CCfld ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) |
596 |
|
unicntop |
|- CC = U. ( TopOpen ` CCfld ) |
597 |
596
|
restid |
|- ( ( TopOpen ` CCfld ) e. Top -> ( ( TopOpen ` CCfld ) |`t CC ) = ( TopOpen ` CCfld ) ) |
598 |
528 597
|
ax-mp |
|- ( ( TopOpen ` CCfld ) |`t CC ) = ( TopOpen ` CCfld ) |
599 |
598
|
eqcomi |
|- ( TopOpen ` CCfld ) = ( ( TopOpen ` CCfld ) |`t CC ) |
600 |
56 595 599
|
cncfcn |
|- ( ( ( ( -u _pi [,] _pi ) \ { 0 } ) C_ CC /\ CC C_ CC ) -> ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) = ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) Cn ( TopOpen ` CCfld ) ) ) |
601 |
591 144 600
|
mp2an |
|- ( ( ( -u _pi [,] _pi ) \ { 0 } ) -cn-> CC ) = ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) Cn ( TopOpen ` CCfld ) ) |
602 |
588 601
|
eleqtri |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) Cn ( TopOpen ` CCfld ) ) |
603 |
|
resttopon |
|- ( ( ( topGen ` ran (,) ) e. ( TopOn ` RR ) /\ ( ( -u _pi [,] _pi ) \ { 0 } ) C_ RR ) -> ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) e. ( TopOn ` ( ( -u _pi [,] _pi ) \ { 0 } ) ) ) |
604 |
60 590 603
|
mp2an |
|- ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) e. ( TopOn ` ( ( -u _pi [,] _pi ) \ { 0 } ) ) |
605 |
56
|
cnfldtopon |
|- ( TopOpen ` CCfld ) e. ( TopOn ` CC ) |
606 |
|
cncnp |
|- ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) e. ( TopOn ` ( ( -u _pi [,] _pi ) \ { 0 } ) ) /\ ( TopOpen ` CCfld ) e. ( TopOn ` CC ) ) -> ( ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) Cn ( TopOpen ` CCfld ) ) <-> ( ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) : ( ( -u _pi [,] _pi ) \ { 0 } ) --> CC /\ A. x e. ( ( -u _pi [,] _pi ) \ { 0 } ) ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` x ) ) ) ) |
607 |
604 605 606
|
mp2an |
|- ( ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) Cn ( TopOpen ` CCfld ) ) <-> ( ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) : ( ( -u _pi [,] _pi ) \ { 0 } ) --> CC /\ A. x e. ( ( -u _pi [,] _pi ) \ { 0 } ) ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` x ) ) ) |
608 |
602 607
|
mpbi |
|- ( ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) : ( ( -u _pi [,] _pi ) \ { 0 } ) --> CC /\ A. x e. ( ( -u _pi [,] _pi ) \ { 0 } ) ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` x ) ) |
609 |
608
|
simpri |
|- A. x e. ( ( -u _pi [,] _pi ) \ { 0 } ) ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` x ) |
610 |
543 609
|
vtoclri |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) |
611 |
541 610
|
syl |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) e. ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) |
612 |
10
|
reseq1i |
|- ( K |` ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( ( -u _pi [,] _pi ) \ { 0 } ) ) |
613 |
|
difss |
|- ( ( -u _pi [,] _pi ) \ { 0 } ) C_ ( -u _pi [,] _pi ) |
614 |
|
resmpt |
|- ( ( ( -u _pi [,] _pi ) \ { 0 } ) C_ ( -u _pi [,] _pi ) -> ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) ) |
615 |
613 614
|
ax-mp |
|- ( ( s e. ( -u _pi [,] _pi ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |` ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) |
616 |
|
eldifn |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> -. s e. { 0 } ) |
617 |
616 502
|
sylnib |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> -. s = 0 ) |
618 |
617 479
|
syl |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) = ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) |
619 |
618
|
mpteq2ia |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> if ( s = 0 , 1 , ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) ) = ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) |
620 |
612 615 619
|
3eqtri |
|- ( K |` ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) |-> ( s / ( 2 x. ( sin ` ( s / 2 ) ) ) ) ) |
621 |
|
restabs |
|- ( ( ( topGen ` ran (,) ) e. Top /\ ( ( -u _pi [,] _pi ) \ { 0 } ) C_ ( -u _pi [,] _pi ) /\ ( -u _pi [,] _pi ) e. _V ) -> ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) ) |
622 |
453 613 454 621
|
mp3an |
|- ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) |
623 |
622
|
oveq1i |
|- ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) = ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) |
624 |
623
|
fveq1i |
|- ( ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` s ) = ( ( ( ( topGen ` ran (,) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` s ) |
625 |
611 620 624
|
3eltr4g |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> ( K |` ( ( -u _pi [,] _pi ) \ { 0 } ) ) e. ( ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) |
626 |
452 613
|
pm3.2i |
|- ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) e. Top /\ ( ( -u _pi [,] _pi ) \ { 0 } ) C_ ( -u _pi [,] _pi ) ) |
627 |
626
|
a1i |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) e. Top /\ ( ( -u _pi [,] _pi ) \ { 0 } ) C_ ( -u _pi [,] _pi ) ) ) |
628 |
|
ssdif |
|- ( ( -u _pi [,] _pi ) C_ RR -> ( ( -u _pi [,] _pi ) \ { 0 } ) C_ ( RR \ { 0 } ) ) |
629 |
427 628
|
ax-mp |
|- ( ( -u _pi [,] _pi ) \ { 0 } ) C_ ( RR \ { 0 } ) |
630 |
629 541
|
sseldi |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> s e. ( RR \ { 0 } ) ) |
631 |
|
sscon |
|- ( { 0 } C_ ( -u _pi [,] _pi ) -> ( RR \ ( -u _pi [,] _pi ) ) C_ ( RR \ { 0 } ) ) |
632 |
436 631
|
ax-mp |
|- ( RR \ ( -u _pi [,] _pi ) ) C_ ( RR \ { 0 } ) |
633 |
629 632
|
unssi |
|- ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) C_ ( RR \ { 0 } ) |
634 |
|
simpr |
|- ( ( s e. ( RR \ { 0 } ) /\ s e. ( -u _pi [,] _pi ) ) -> s e. ( -u _pi [,] _pi ) ) |
635 |
|
eldifn |
|- ( s e. ( RR \ { 0 } ) -> -. s e. { 0 } ) |
636 |
635
|
adantr |
|- ( ( s e. ( RR \ { 0 } ) /\ s e. ( -u _pi [,] _pi ) ) -> -. s e. { 0 } ) |
637 |
634 636
|
eldifd |
|- ( ( s e. ( RR \ { 0 } ) /\ s e. ( -u _pi [,] _pi ) ) -> s e. ( ( -u _pi [,] _pi ) \ { 0 } ) ) |
638 |
|
elun1 |
|- ( s e. ( ( -u _pi [,] _pi ) \ { 0 } ) -> s e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) ) |
639 |
637 638
|
syl |
|- ( ( s e. ( RR \ { 0 } ) /\ s e. ( -u _pi [,] _pi ) ) -> s e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) ) |
640 |
|
eldifi |
|- ( s e. ( RR \ { 0 } ) -> s e. RR ) |
641 |
640
|
adantr |
|- ( ( s e. ( RR \ { 0 } ) /\ -. s e. ( -u _pi [,] _pi ) ) -> s e. RR ) |
642 |
|
simpr |
|- ( ( s e. ( RR \ { 0 } ) /\ -. s e. ( -u _pi [,] _pi ) ) -> -. s e. ( -u _pi [,] _pi ) ) |
643 |
641 642
|
eldifd |
|- ( ( s e. ( RR \ { 0 } ) /\ -. s e. ( -u _pi [,] _pi ) ) -> s e. ( RR \ ( -u _pi [,] _pi ) ) ) |
644 |
|
elun2 |
|- ( s e. ( RR \ ( -u _pi [,] _pi ) ) -> s e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) ) |
645 |
643 644
|
syl |
|- ( ( s e. ( RR \ { 0 } ) /\ -. s e. ( -u _pi [,] _pi ) ) -> s e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) ) |
646 |
639 645
|
pm2.61dan |
|- ( s e. ( RR \ { 0 } ) -> s e. ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) ) |
647 |
646
|
ssriv |
|- ( RR \ { 0 } ) C_ ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) |
648 |
633 647
|
eqssi |
|- ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) = ( RR \ { 0 } ) |
649 |
648
|
fveq2i |
|- ( ( int ` ( topGen ` ran (,) ) ) ` ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) ) = ( ( int ` ( topGen ` ran (,) ) ) ` ( RR \ { 0 } ) ) |
650 |
61
|
cldopn |
|- ( { 0 } e. ( Clsd ` ( topGen ` ran (,) ) ) -> ( RR \ { 0 } ) e. ( topGen ` ran (,) ) ) |
651 |
59 650
|
ax-mp |
|- ( RR \ { 0 } ) e. ( topGen ` ran (,) ) |
652 |
|
isopn3i |
|- ( ( ( topGen ` ran (,) ) e. Top /\ ( RR \ { 0 } ) e. ( topGen ` ran (,) ) ) -> ( ( int ` ( topGen ` ran (,) ) ) ` ( RR \ { 0 } ) ) = ( RR \ { 0 } ) ) |
653 |
453 651 652
|
mp2an |
|- ( ( int ` ( topGen ` ran (,) ) ) ` ( RR \ { 0 } ) ) = ( RR \ { 0 } ) |
654 |
649 653
|
eqtri |
|- ( ( int ` ( topGen ` ran (,) ) ) ` ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) ) = ( RR \ { 0 } ) |
655 |
630 654
|
eleqtrrdi |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> s e. ( ( int ` ( topGen ` ran (,) ) ) ` ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) ) ) |
656 |
655 537
|
elind |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> s e. ( ( ( int ` ( topGen ` ran (,) ) ) ` ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) ) i^i ( -u _pi [,] _pi ) ) ) |
657 |
|
eqid |
|- ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) = ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |
658 |
61 657
|
restntr |
|- ( ( ( topGen ` ran (,) ) e. Top /\ ( -u _pi [,] _pi ) C_ RR /\ ( ( -u _pi [,] _pi ) \ { 0 } ) C_ ( -u _pi [,] _pi ) ) -> ( ( int ` ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) ` ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( ( ( int ` ( topGen ` ran (,) ) ) ` ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) ) i^i ( -u _pi [,] _pi ) ) ) |
659 |
453 427 613 658
|
mp3an |
|- ( ( int ` ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) ` ( ( -u _pi [,] _pi ) \ { 0 } ) ) = ( ( ( int ` ( topGen ` ran (,) ) ) ` ( ( ( -u _pi [,] _pi ) \ { 0 } ) u. ( RR \ ( -u _pi [,] _pi ) ) ) ) i^i ( -u _pi [,] _pi ) ) |
660 |
656 659
|
eleqtrrdi |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> s e. ( ( int ` ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) ` ( ( -u _pi [,] _pi ) \ { 0 } ) ) ) |
661 |
14
|
a1i |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> K : ( -u _pi [,] _pi ) --> CC ) |
662 |
451
|
toponunii |
|- ( -u _pi [,] _pi ) = U. ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |
663 |
662 596
|
cnprest |
|- ( ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) e. Top /\ ( ( -u _pi [,] _pi ) \ { 0 } ) C_ ( -u _pi [,] _pi ) ) /\ ( s e. ( ( int ` ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) ) ` ( ( -u _pi [,] _pi ) \ { 0 } ) ) /\ K : ( -u _pi [,] _pi ) --> CC ) ) -> ( K e. ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) CnP ( TopOpen ` CCfld ) ) ` s ) <-> ( K |` ( ( -u _pi [,] _pi ) \ { 0 } ) ) e. ( ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) ) |
664 |
627 660 661 663
|
syl12anc |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> ( K e. ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) CnP ( TopOpen ` CCfld ) ) ` s ) <-> ( K |` ( ( -u _pi [,] _pi ) \ { 0 } ) ) e. ( ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) |`t ( ( -u _pi [,] _pi ) \ { 0 } ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) ) |
665 |
625 664
|
mpbird |
|- ( ( s e. ( -u _pi [,] _pi ) /\ -. s = 0 ) -> K e. ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) |
666 |
536 665
|
pm2.61dan |
|- ( s e. ( -u _pi [,] _pi ) -> K e. ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) |
667 |
666
|
rgen |
|- A. s e. ( -u _pi [,] _pi ) K e. ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) CnP ( TopOpen ` CCfld ) ) ` s ) |
668 |
|
cncnp |
|- ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) e. ( TopOn ` ( -u _pi [,] _pi ) ) /\ ( TopOpen ` CCfld ) e. ( TopOn ` CC ) ) -> ( K e. ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) Cn ( TopOpen ` CCfld ) ) <-> ( K : ( -u _pi [,] _pi ) --> CC /\ A. s e. ( -u _pi [,] _pi ) K e. ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) ) ) |
669 |
451 605 668
|
mp2an |
|- ( K e. ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) Cn ( TopOpen ` CCfld ) ) <-> ( K : ( -u _pi [,] _pi ) --> CC /\ A. s e. ( -u _pi [,] _pi ) K e. ( ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) CnP ( TopOpen ` CCfld ) ) ` s ) ) ) |
670 |
14 667 669
|
mpbir2an |
|- K e. ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) Cn ( TopOpen ` CCfld ) ) |
671 |
56 532 599
|
cncfcn |
|- ( ( ( -u _pi [,] _pi ) C_ CC /\ CC C_ CC ) -> ( ( -u _pi [,] _pi ) -cn-> CC ) = ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) Cn ( TopOpen ` CCfld ) ) ) |
672 |
517 144 671
|
mp2an |
|- ( ( -u _pi [,] _pi ) -cn-> CC ) = ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) Cn ( TopOpen ` CCfld ) ) |
673 |
672
|
eqcomi |
|- ( ( ( topGen ` ran (,) ) |`t ( -u _pi [,] _pi ) ) Cn ( TopOpen ` CCfld ) ) = ( ( -u _pi [,] _pi ) -cn-> CC ) |
674 |
670 673
|
eleqtri |
|- K e. ( ( -u _pi [,] _pi ) -cn-> CC ) |
675 |
|
cncffvrn |
|- ( ( RR C_ CC /\ K e. ( ( -u _pi [,] _pi ) -cn-> CC ) ) -> ( K e. ( ( -u _pi [,] _pi ) -cn-> RR ) <-> K : ( -u _pi [,] _pi ) --> RR ) ) |
676 |
12 674 675
|
mp2an |
|- ( K e. ( ( -u _pi [,] _pi ) -cn-> RR ) <-> K : ( -u _pi [,] _pi ) --> RR ) |
677 |
11 676
|
mpbir |
|- K e. ( ( -u _pi [,] _pi ) -cn-> RR ) |