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

Theorem dirkercncflem2 40321
Description: Lemma used to prove that the Dirichlet Kernel is continuous at  Y points that are multiples of 
( 2  x.  pi ). (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
dirkercncflem2.d  |-  D  =  ( n  e.  NN  |->  ( y  e.  RR  |->  if ( ( y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  n )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( n  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) ) )
dirkercncflem2.f  |-  F  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) )
dirkercncflem2.g  |-  G  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) )
dirkercncflem2.yne0  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( sin `  (
y  /  2 ) )  =/=  0 )
dirkercncflem2.h  |-  H  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )
dirkercncflem2.i  |-  I  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( pi  x.  ( cos `  (
y  /  2 ) ) ) )
dirkercncflem2.l  |-  L  =  ( w  e.  ( A (,) B ) 
|->  ( ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )  /  (
pi  x.  ( cos `  ( w  /  2
) ) ) ) )
dirkercncflem2.n  |-  ( ph  ->  N  e.  NN )
dirkercncflem2.y  |-  ( ph  ->  Y  e.  ( A (,) B ) )
dirkercncflem2.ymod  |-  ( ph  ->  ( Y  mod  (
2  x.  pi ) )  =  0 )
dirkercncflem2.11  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( cos `  (
y  /  2 ) )  =/=  0 )
Assertion
Ref Expression
dirkercncflem2  |-  ( ph  ->  ( ( D `  N ) `  Y
)  e.  ( ( ( D `  N
)  |`  ( ( A (,) B )  \  { Y } ) ) lim
CC  Y ) )
Distinct variable groups:    w, A, y    w, B, y    y, D    w, F, y    w, G, y    w, H, y   
w, I, y    y, L    w, N, y    w, Y, y    y, n    ph, w, y
Allowed substitution hints:    ph( n)    A( n)    B( n)    D( w, n)    F( n)    G( n)    H( n)    I( n)    L( w, n)    N( n)    Y( n)

Proof of Theorem dirkercncflem2
StepHypRef Expression
1 difss 3737 . . . . 5  |-  ( ( A (,) B ) 
\  { Y }
)  C_  ( A (,) B )
2 ioossre 12235 . . . . 5  |-  ( A (,) B )  C_  RR
31, 2sstri 3612 . . . 4  |-  ( ( A (,) B ) 
\  { Y }
)  C_  RR
43a1i 11 . . 3  |-  ( ph  ->  ( ( A (,) B )  \  { Y } )  C_  RR )
5 dirkercncflem2.n . . . . . . . . 9  |-  ( ph  ->  N  e.  NN )
65adantr 481 . . . . . . . 8  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  N  e.  NN )
76nnred 11035 . . . . . . 7  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  N  e.  RR )
8 halfre 11246 . . . . . . . 8  |-  ( 1  /  2 )  e.  RR
98a1i 11 . . . . . . 7  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( 1  /  2
)  e.  RR )
107, 9readdcld 10069 . . . . . 6  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( N  +  ( 1  /  2 ) )  e.  RR )
114sselda 3603 . . . . . 6  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
y  e.  RR )
1210, 11remulcld 10070 . . . . 5  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( N  +  ( 1  /  2
) )  x.  y
)  e.  RR )
1312resincld 14873 . . . 4  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) )  e.  RR )
14 dirkercncflem2.f . . . 4  |-  F  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) )
1513, 14fmptd 6385 . . 3  |-  ( ph  ->  F : ( ( A (,) B ) 
\  { Y }
) --> RR )
16 2re 11090 . . . . . . 7  |-  2  e.  RR
17 pire 24210 . . . . . . 7  |-  pi  e.  RR
1816, 17remulcli 10054 . . . . . 6  |-  ( 2  x.  pi )  e.  RR
1918a1i 11 . . . . 5  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( 2  x.  pi )  e.  RR )
2011rehalfcld 11279 . . . . . 6  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( y  /  2
)  e.  RR )
2120resincld 14873 . . . . 5  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( sin `  (
y  /  2 ) )  e.  RR )
2219, 21remulcld 10070 . . . 4  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( 2  x.  pi )  x.  ( sin `  ( y  / 
2 ) ) )  e.  RR )
23 dirkercncflem2.g . . . 4  |-  G  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) )
2422, 23fmptd 6385 . . 3  |-  ( ph  ->  G : ( ( A (,) B ) 
\  { Y }
) --> RR )
25 iooretop 22569 . . . 4  |-  ( A (,) B )  e.  ( topGen `  ran  (,) )
2625a1i 11 . . 3  |-  ( ph  ->  ( A (,) B
)  e.  ( topGen ` 
ran  (,) ) )
27 dirkercncflem2.y . . 3  |-  ( ph  ->  Y  e.  ( A (,) B ) )
28 eqid 2622 . . 3  |-  ( ( A (,) B ) 
\  { Y }
)  =  ( ( A (,) B ) 
\  { Y }
)
2914a1i 11 . . . . . . . 8  |-  ( ph  ->  F  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) )
3029oveq2d 6666 . . . . . . 7  |-  ( ph  ->  ( RR  _D  F
)  =  ( RR 
_D  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) ) )
31 resmpt 5449 . . . . . . . . . . . 12  |-  ( ( ( A (,) B
)  \  { Y } )  C_  RR  ->  ( ( y  e.  RR  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) )  |`  (
( A (,) B
)  \  { Y } ) )  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) )
323, 31ax-mp 5 . . . . . . . . . . 11  |-  ( ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )  |`  ( ( A (,) B )  \  { Y } ) )  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) )
3332eqcomi 2631 . . . . . . . . . 10  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )  =  ( ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )  |`  ( ( A (,) B )  \  { Y } ) )
3433a1i 11 . . . . . . . . 9  |-  ( ph  ->  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) )  =  ( ( y  e.  RR  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) )  |`  (
( A (,) B
)  \  { Y } ) ) )
3534oveq2d 6666 . . . . . . . 8  |-  ( ph  ->  ( RR  _D  (
y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  =  ( RR  _D  (
( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )  |`  ( ( A (,) B )  \  { Y } ) ) ) )
36 ax-resscn 9993 . . . . . . . . . 10  |-  RR  C_  CC
3736a1i 11 . . . . . . . . 9  |-  ( ph  ->  RR  C_  CC )
385nncnd 11036 . . . . . . . . . . . . . 14  |-  ( ph  ->  N  e.  CC )
39 halfcn 11247 . . . . . . . . . . . . . . 15  |-  ( 1  /  2 )  e.  CC
4039a1i 11 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( 1  /  2
)  e.  CC )
4138, 40addcld 10059 . . . . . . . . . . . . 13  |-  ( ph  ->  ( N  +  ( 1  /  2 ) )  e.  CC )
4241adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  RR )  ->  ( N  +  ( 1  / 
2 ) )  e.  CC )
4337sselda 3603 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  RR )  ->  y  e.  CC )
4442, 43mulcld 10060 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  RR )  ->  ( ( N  +  ( 1  /  2 ) )  x.  y )  e.  CC )
4544sincld 14860 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  RR )  ->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) )  e.  CC )
46 eqid 2622 . . . . . . . . . 10  |-  ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) )  =  ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )
4745, 46fmptd 6385 . . . . . . . . 9  |-  ( ph  ->  ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) : RR --> CC )
48 ssid 3624 . . . . . . . . . . 11  |-  RR  C_  RR
4948, 3pm3.2i 471 . . . . . . . . . 10  |-  ( RR  C_  RR  /\  ( ( A (,) B ) 
\  { Y }
)  C_  RR )
5049a1i 11 . . . . . . . . 9  |-  ( ph  ->  ( RR  C_  RR  /\  ( ( A (,) B )  \  { Y } )  C_  RR ) )
51 eqid 2622 . . . . . . . . . 10  |-  ( TopOpen ` fld )  =  ( TopOpen ` fld )
5251tgioo2 22606 . . . . . . . . . 10  |-  ( topGen ` 
ran  (,) )  =  ( ( TopOpen ` fld )t  RR )
5351, 52dvres 23675 . . . . . . . . 9  |-  ( ( ( RR  C_  CC  /\  ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) : RR --> CC )  /\  ( RR  C_  RR  /\  ( ( A (,) B )  \  { Y } )  C_  RR ) )  ->  ( RR  _D  ( ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) )  |`  ( ( A (,) B )  \  { Y } ) ) )  =  ( ( RR 
_D  ( y  e.  RR  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( A (,) B )  \  { Y } ) ) ) )
5437, 47, 50, 53syl21anc 1325 . . . . . . . 8  |-  ( ph  ->  ( RR  _D  (
( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )  |`  ( ( A (,) B )  \  { Y } ) ) )  =  ( ( RR  _D  ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( A (,) B )  \  { Y } ) ) ) )
55 retop 22565 . . . . . . . . . . 11  |-  ( topGen ` 
ran  (,) )  e.  Top
56 rehaus 22602 . . . . . . . . . . . . 13  |-  ( topGen ` 
ran  (,) )  e.  Haus
5727elioored 39776 . . . . . . . . . . . . 13  |-  ( ph  ->  Y  e.  RR )
58 uniretop 22566 . . . . . . . . . . . . . 14  |-  RR  =  U. ( topGen `  ran  (,) )
5958sncld 21175 . . . . . . . . . . . . 13  |-  ( ( ( topGen `  ran  (,) )  e.  Haus  /\  Y  e.  RR )  ->  { Y }  e.  ( Clsd `  ( topGen `  ran  (,) )
) )
6056, 57, 59sylancr 695 . . . . . . . . . . . 12  |-  ( ph  ->  { Y }  e.  ( Clsd `  ( topGen ` 
ran  (,) ) ) )
6158difopn 20838 . . . . . . . . . . . 12  |-  ( ( ( A (,) B
)  e.  ( topGen ` 
ran  (,) )  /\  { Y }  e.  ( Clsd `  ( topGen `  ran  (,) ) ) )  -> 
( ( A (,) B )  \  { Y } )  e.  (
topGen `  ran  (,) )
)
6225, 60, 61sylancr 695 . . . . . . . . . . 11  |-  ( ph  ->  ( ( A (,) B )  \  { Y } )  e.  (
topGen `  ran  (,) )
)
63 isopn3i 20886 . . . . . . . . . . 11  |-  ( ( ( topGen `  ran  (,) )  e.  Top  /\  ( ( A (,) B ) 
\  { Y }
)  e.  ( topGen ` 
ran  (,) ) )  -> 
( ( int `  ( topGen `
 ran  (,) )
) `  ( ( A (,) B )  \  { Y } ) )  =  ( ( A (,) B )  \  { Y } ) )
6455, 62, 63sylancr 695 . . . . . . . . . 10  |-  ( ph  ->  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( A (,) B )  \  { Y } ) )  =  ( ( A (,) B )  \  { Y } ) )
6564reseq2d 5396 . . . . . . . . 9  |-  ( ph  ->  ( ( RR  _D  ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  |`  (
( int `  ( topGen `
 ran  (,) )
) `  ( ( A (,) B )  \  { Y } ) ) )  =  ( ( RR  _D  ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) )  |`  ( ( A (,) B )  \  { Y } ) ) )
66 reelprrecn 10028 . . . . . . . . . . . . 13  |-  RR  e.  { RR ,  CC }
6766a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  RR  e.  { RR ,  CC } )
6841adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  y  e.  CC )  ->  ( N  +  ( 1  / 
2 ) )  e.  CC )
69 simpr 477 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  y  e.  CC )  ->  y  e.  CC )
7068, 69mulcld 10060 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  y  e.  CC )  ->  ( ( N  +  ( 1  /  2 ) )  x.  y )  e.  CC )
7170sincld 14860 . . . . . . . . . . . . 13  |-  ( (
ph  /\  y  e.  CC )  ->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) )  e.  CC )
72 eqid 2622 . . . . . . . . . . . . 13  |-  ( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) )  =  ( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )
7371, 72fmptd 6385 . . . . . . . . . . . 12  |-  ( ph  ->  ( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) : CC --> CC )
74 ssid 3624 . . . . . . . . . . . . 13  |-  CC  C_  CC
7574a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  CC  C_  CC )
76 dvsinax 40127 . . . . . . . . . . . . . . . 16  |-  ( ( N  +  ( 1  /  2 ) )  e.  CC  ->  ( CC  _D  ( y  e.  CC  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  =  ( y  e.  CC  |->  ( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) ) ) )
7741, 76syl 17 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( CC  _D  (
y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  =  ( y  e.  CC  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) ) )
7877dmeqd 5326 . . . . . . . . . . . . . 14  |-  ( ph  ->  dom  ( CC  _D  ( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  =  dom  ( y  e.  CC  |->  ( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) ) ) )
79 eqid 2622 . . . . . . . . . . . . . . 15  |-  ( y  e.  CC  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  =  ( y  e.  CC  |->  ( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) ) )
8070coscld 14861 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  CC )  ->  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) )  e.  CC )
8168, 80mulcld 10060 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  y  e.  CC )  ->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) )  e.  CC )
8279, 81dmmptd 6024 . . . . . . . . . . . . . 14  |-  ( ph  ->  dom  ( y  e.  CC  |->  ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  =  CC )
8378, 82eqtrd 2656 . . . . . . . . . . . . 13  |-  ( ph  ->  dom  ( CC  _D  ( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  =  CC )
8436, 83syl5sseqr 3654 . . . . . . . . . . . 12  |-  ( ph  ->  RR  C_  dom  ( CC 
_D  ( y  e.  CC  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) ) )
85 dvres3 23677 . . . . . . . . . . . 12  |-  ( ( ( RR  e.  { RR ,  CC }  /\  ( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) : CC --> CC )  /\  ( CC  C_  CC  /\  RR  C_  dom  ( CC  _D  (
y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) ) ) )  ->  ( RR  _D  ( ( y  e.  CC  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) )  |`  RR ) )  =  ( ( CC  _D  ( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) )  |`  RR ) )
8667, 73, 75, 84, 85syl22anc 1327 . . . . . . . . . . 11  |-  ( ph  ->  ( RR  _D  (
( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )  |`  RR )
)  =  ( ( CC  _D  ( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) )  |`  RR ) )
87 resmpt 5449 . . . . . . . . . . . . 13  |-  ( RR  C_  CC  ->  ( (
y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )  |`  RR )  =  ( y  e.  RR  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )
8836, 87mp1i 13 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( y  e.  CC  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) )  |`  RR )  =  ( y  e.  RR  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )
8988oveq2d 6666 . . . . . . . . . . 11  |-  ( ph  ->  ( RR  _D  (
( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )  |`  RR )
)  =  ( RR 
_D  ( y  e.  RR  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) ) )
9077reseq1d 5395 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( CC  _D  ( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  |`  RR )  =  ( ( y  e.  CC  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  |`  RR ) )
91 resmpt 5449 . . . . . . . . . . . . 13  |-  ( RR  C_  CC  ->  ( (
y  e.  CC  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) )  |`  RR )  =  ( y  e.  RR  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) ) )
9236, 91ax-mp 5 . . . . . . . . . . . 12  |-  ( ( y  e.  CC  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) )  |`  RR )  =  ( y  e.  RR  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) )
9390, 92syl6eq 2672 . . . . . . . . . . 11  |-  ( ph  ->  ( ( CC  _D  ( y  e.  CC  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  |`  RR )  =  ( y  e.  RR  |->  ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) ) )
9486, 89, 933eqtr3d 2664 . . . . . . . . . 10  |-  ( ph  ->  ( RR  _D  (
y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  =  ( y  e.  RR  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) ) )
9594reseq1d 5395 . . . . . . . . 9  |-  ( ph  ->  ( ( RR  _D  ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  |`  (
( A (,) B
)  \  { Y } ) )  =  ( ( y  e.  RR  |->  ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  |`  ( ( A (,) B )  \  { Y } ) ) )
96 resmpt 5449 . . . . . . . . . 10  |-  ( ( ( A (,) B
)  \  { Y } )  C_  RR  ->  ( ( y  e.  RR  |->  ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  |`  ( ( A (,) B )  \  { Y } ) )  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) ) )
973, 96mp1i 13 . . . . . . . . 9  |-  ( ph  ->  ( ( y  e.  RR  |->  ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  |`  ( ( A (,) B )  \  { Y } ) )  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) ) )
9865, 95, 973eqtrd 2660 . . . . . . . 8  |-  ( ph  ->  ( ( RR  _D  ( y  e.  RR  |->  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  |`  (
( int `  ( topGen `
 ran  (,) )
) `  ( ( A (,) B )  \  { Y } ) ) )  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) ) )
9935, 54, 983eqtrd 2660 . . . . . . 7  |-  ( ph  ->  ( RR  _D  (
y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) ) )
100 dirkercncflem2.h . . . . . . . . 9  |-  H  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )
101100a1i 11 . . . . . . . 8  |-  ( ph  ->  H  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) ) )
102101eqcomd 2628 . . . . . . 7  |-  ( ph  ->  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )  =  H )
10330, 99, 1023eqtrd 2660 . . . . . 6  |-  ( ph  ->  ( RR  _D  F
)  =  H )
104103dmeqd 5326 . . . . 5  |-  ( ph  ->  dom  ( RR  _D  F )  =  dom  H )
10511recnd 10068 . . . . . . 7  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
y  e.  CC )
106105, 81syldan 487 . . . . . 6  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) )  e.  CC )
107100, 106dmmptd 6024 . . . . 5  |-  ( ph  ->  dom  H  =  ( ( A (,) B
)  \  { Y } ) )
108104, 107eqtr2d 2657 . . . 4  |-  ( ph  ->  ( ( A (,) B )  \  { Y } )  =  dom  ( RR  _D  F
) )
109 eqimss 3657 . . . 4  |-  ( ( ( A (,) B
)  \  { Y } )  =  dom  ( RR  _D  F
)  ->  ( ( A (,) B )  \  { Y } )  C_  dom  ( RR  _D  F
) )
110108, 109syl 17 . . 3  |-  ( ph  ->  ( ( A (,) B )  \  { Y } )  C_  dom  ( RR  _D  F
) )
111 dirkercncflem2.i . . . . . . . 8  |-  I  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( pi  x.  ( cos `  (
y  /  2 ) ) ) )
112111a1i 11 . . . . . . 7  |-  ( ph  ->  I  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( pi  x.  ( cos `  ( y  /  2
) ) ) ) )
113 resmpt 5449 . . . . . . . . . . . . 13  |-  ( ( ( A (,) B
)  \  { Y } )  C_  RR  ->  ( ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) )  |`  ( ( A (,) B )  \  { Y } ) )  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )
1143, 113ax-mp 5 . . . . . . . . . . . 12  |-  ( ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) )  |`  ( ( A (,) B )  \  { Y } ) )  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) )
115114eqcomi 2631 . . . . . . . . . . 11  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) )  =  ( ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) )  |`  ( ( A (,) B )  \  { Y } ) )
116115oveq2i 6661 . . . . . . . . . 10  |-  ( RR 
_D  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )  =  ( RR  _D  ( ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) )  |`  ( ( A (,) B )  \  { Y } ) ) )
117116a1i 11 . . . . . . . . 9  |-  ( ph  ->  ( RR  _D  (
y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )  =  ( RR  _D  ( ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) )  |`  ( ( A (,) B )  \  { Y } ) ) ) )
118 2cn 11091 . . . . . . . . . . . . . 14  |-  2  e.  CC
119 picn 24211 . . . . . . . . . . . . . 14  |-  pi  e.  CC
120118, 119mulcli 10045 . . . . . . . . . . . . 13  |-  ( 2  x.  pi )  e.  CC
121120a1i 11 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  RR )  ->  ( 2  x.  pi )  e.  CC )
12243halfcld 11277 . . . . . . . . . . . . 13  |-  ( (
ph  /\  y  e.  RR )  ->  ( y  /  2 )  e.  CC )
123122sincld 14860 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  RR )  ->  ( sin `  ( y  /  2
) )  e.  CC )
124121, 123mulcld 10060 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  RR )  ->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) )  e.  CC )
125 eqid 2622 . . . . . . . . . . 11  |-  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) )  =  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  / 
2 ) ) ) )
126124, 125fmptd 6385 . . . . . . . . . 10  |-  ( ph  ->  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  / 
2 ) ) ) ) : RR --> CC )
12751, 52dvres 23675 . . . . . . . . . 10  |-  ( ( ( RR  C_  CC  /\  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  / 
2 ) ) ) ) : RR --> CC )  /\  ( RR  C_  RR  /\  ( ( A (,) B )  \  { Y } )  C_  RR ) )  ->  ( RR  _D  ( ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) )  |`  ( ( A (,) B )  \  { Y } ) ) )  =  ( ( RR 
_D  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( A (,) B )  \  { Y } ) ) ) )
12837, 126, 50, 127syl21anc 1325 . . . . . . . . 9  |-  ( ph  ->  ( RR  _D  (
( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  / 
2 ) ) ) )  |`  ( ( A (,) B )  \  { Y } ) ) )  =  ( ( RR  _D  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )  |`  ( ( int `  ( topGen `
 ran  (,) )
) `  ( ( A (,) B )  \  { Y } ) ) ) )
12964reseq2d 5396 . . . . . . . . . 10  |-  ( ph  ->  ( ( RR  _D  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  / 
2 ) ) ) ) )  |`  (
( int `  ( topGen `
 ran  (,) )
) `  ( ( A (,) B )  \  { Y } ) ) )  =  ( ( RR  _D  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )  |`  ( ( A (,) B )  \  { Y } ) ) )
13036sseli 3599 . . . . . . . . . . . . . . . 16  |-  ( y  e.  RR  ->  y  e.  CC )
131 1cnd 10056 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  e.  CC  ->  1  e.  CC )
132 2cnd 11093 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  e.  CC  ->  2  e.  CC )
133 id 22 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  e.  CC  ->  y  e.  CC )
134 2ne0 11113 . . . . . . . . . . . . . . . . . . . . . 22  |-  2  =/=  0
135134a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  e.  CC  ->  2  =/=  0 )
136131, 132, 133, 135div13d 10825 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  e.  CC  ->  (
( 1  /  2
)  x.  y )  =  ( ( y  /  2 )  x.  1 ) )
137 halfcl 11257 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  e.  CC  ->  (
y  /  2 )  e.  CC )
138137mulid1d 10057 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  e.  CC  ->  (
( y  /  2
)  x.  1 )  =  ( y  / 
2 ) )
139136, 138eqtrd 2656 . . . . . . . . . . . . . . . . . . 19  |-  ( y  e.  CC  ->  (
( 1  /  2
)  x.  y )  =  ( y  / 
2 ) )
140139fveq2d 6195 . . . . . . . . . . . . . . . . . 18  |-  ( y  e.  CC  ->  ( sin `  ( ( 1  /  2 )  x.  y ) )  =  ( sin `  (
y  /  2 ) ) )
141140oveq2d 6666 . . . . . . . . . . . . . . . . 17  |-  ( y  e.  CC  ->  (
( 2  x.  pi )  x.  ( sin `  ( ( 1  / 
2 )  x.  y
) ) )  =  ( ( 2  x.  pi )  x.  ( sin `  ( y  / 
2 ) ) ) )
142141eqcomd 2628 . . . . . . . . . . . . . . . 16  |-  ( y  e.  CC  ->  (
( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) )  =  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  /  2 )  x.  y ) ) ) )
143130, 142syl 17 . . . . . . . . . . . . . . 15  |-  ( y  e.  RR  ->  (
( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) )  =  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  /  2 )  x.  y ) ) ) )
144143adantl 482 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  y  e.  RR )  ->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) )  =  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  / 
2 )  x.  y
) ) ) )
145144mpteq2dva 4744 . . . . . . . . . . . . 13  |-  ( ph  ->  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  / 
2 ) ) ) )  =  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
( 1  /  2
)  x.  y ) ) ) ) )
146145oveq2d 6666 . . . . . . . . . . . 12  |-  ( ph  ->  ( RR  _D  (
y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) ) )  =  ( RR 
_D  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
( 1  /  2
)  x.  y ) ) ) ) ) )
147120a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  CC )  ->  ( 2  x.  pi )  e.  CC )
14839a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  y  e.  CC )  ->  ( 1  /  2 )  e.  CC )
149148, 69mulcld 10060 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  y  e.  CC )  ->  ( ( 1  /  2 )  x.  y )  e.  CC )
150149sincld 14860 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  CC )  ->  ( sin `  ( ( 1  / 
2 )  x.  y
) )  e.  CC )
151147, 150mulcld 10060 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  CC )  ->  ( ( 2  x.  pi )  x.  ( sin `  (
( 1  /  2
)  x.  y ) ) )  e.  CC )
152 eqid 2622 . . . . . . . . . . . . . . . 16  |-  ( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  (
( 1  /  2
)  x.  y ) ) ) )  =  ( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  /  2 )  x.  y ) ) ) )
153151, 152fmptd 6385 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  /  2 )  x.  y ) ) ) ) : CC --> CC )
154 2cnd 11093 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  2  e.  CC )
155119a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  pi  e.  CC )
156154, 155mulcld 10060 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( 2  x.  pi )  e.  CC )
157 dvasinbx 40135 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( 2  x.  pi )  e.  CC  /\  (
1  /  2 )  e.  CC )  -> 
( CC  _D  (
y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  / 
2 )  x.  y
) ) ) ) )  =  ( y  e.  CC  |->  ( ( ( 2  x.  pi )  x.  ( 1  /  2 ) )  x.  ( cos `  (
( 1  /  2
)  x.  y ) ) ) ) )
158156, 39, 157sylancl 694 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( CC  _D  (
y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  / 
2 )  x.  y
) ) ) ) )  =  ( y  e.  CC  |->  ( ( ( 2  x.  pi )  x.  ( 1  /  2 ) )  x.  ( cos `  (
( 1  /  2
)  x.  y ) ) ) ) )
159 2cnd 11093 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  y  e.  CC )  ->  2  e.  CC )
160119a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  y  e.  CC )  ->  pi  e.  CC )
161159, 160, 148mul32d 10246 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  y  e.  CC )  ->  ( ( 2  x.  pi )  x.  ( 1  / 
2 ) )  =  ( ( 2  x.  ( 1  /  2
) )  x.  pi ) )
162134a1i 11 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  y  e.  CC )  ->  2  =/=  0 )
163159, 162recidd 10796 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  y  e.  CC )  ->  ( 2  x.  ( 1  / 
2 ) )  =  1 )
164163oveq1d 6665 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  y  e.  CC )  ->  ( ( 2  x.  ( 1  /  2 ) )  x.  pi )  =  ( 1  x.  pi ) )
165160mulid2d 10058 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  y  e.  CC )  ->  ( 1  x.  pi )  =  pi )
166161, 164, 1653eqtrd 2660 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  y  e.  CC )  ->  ( ( 2  x.  pi )  x.  ( 1  / 
2 ) )  =  pi )
167139fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( y  e.  CC  ->  ( cos `  ( ( 1  /  2 )  x.  y ) )  =  ( cos `  (
y  /  2 ) ) )
168167adantl 482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  y  e.  CC )  ->  ( cos `  ( ( 1  / 
2 )  x.  y
) )  =  ( cos `  ( y  /  2 ) ) )
169166, 168oveq12d 6668 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  y  e.  CC )  ->  ( ( ( 2  x.  pi )  x.  ( 1  /  2 ) )  x.  ( cos `  (
( 1  /  2
)  x.  y ) ) )  =  ( pi  x.  ( cos `  ( y  /  2
) ) ) )
170169mpteq2dva 4744 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( y  e.  CC  |->  ( ( ( 2  x.  pi )  x.  ( 1  /  2
) )  x.  ( cos `  ( ( 1  /  2 )  x.  y ) ) ) )  =  ( y  e.  CC  |->  ( pi  x.  ( cos `  (
y  /  2 ) ) ) ) )
171158, 170eqtrd 2656 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( CC  _D  (
y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  / 
2 )  x.  y
) ) ) ) )  =  ( y  e.  CC  |->  ( pi  x.  ( cos `  (
y  /  2 ) ) ) ) )
172171dmeqd 5326 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  dom  ( CC  _D  ( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  /  2 )  x.  y ) ) ) ) )  =  dom  ( y  e.  CC  |->  ( pi  x.  ( cos `  ( y  / 
2 ) ) ) ) )
173 eqid 2622 . . . . . . . . . . . . . . . . . 18  |-  ( y  e.  CC  |->  ( pi  x.  ( cos `  (
y  /  2 ) ) ) )  =  ( y  e.  CC  |->  ( pi  x.  ( cos `  ( y  / 
2 ) ) ) )
17469halfcld 11277 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  y  e.  CC )  ->  ( y  /  2 )  e.  CC )
175174coscld 14861 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  y  e.  CC )  ->  ( cos `  ( y  /  2
) )  e.  CC )
176160, 175mulcld 10060 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  y  e.  CC )  ->  ( pi  x.  ( cos `  (
y  /  2 ) ) )  e.  CC )
177173, 176dmmptd 6024 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  dom  ( y  e.  CC  |->  ( pi  x.  ( cos `  ( y  /  2 ) ) ) )  =  CC )
178172, 177eqtrd 2656 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  dom  ( CC  _D  ( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  /  2 )  x.  y ) ) ) ) )  =  CC )
17936, 178syl5sseqr 3654 . . . . . . . . . . . . . . 15  |-  ( ph  ->  RR  C_  dom  ( CC 
_D  ( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  (
( 1  /  2
)  x.  y ) ) ) ) ) )
180 dvres3 23677 . . . . . . . . . . . . . . 15  |-  ( ( ( RR  e.  { RR ,  CC }  /\  ( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  /  2 )  x.  y ) ) ) ) : CC --> CC )  /\  ( CC  C_  CC  /\  RR  C_  dom  ( CC  _D  (
y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  / 
2 )  x.  y
) ) ) ) ) ) )  -> 
( RR  _D  (
( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  /  2 )  x.  y ) ) ) )  |`  RR )
)  =  ( ( CC  _D  ( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  (
( 1  /  2
)  x.  y ) ) ) ) )  |`  RR ) )
18167, 153, 75, 179, 180syl22anc 1327 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( RR  _D  (
( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  /  2 )  x.  y ) ) ) )  |`  RR )
)  =  ( ( CC  _D  ( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  (
( 1  /  2
)  x.  y ) ) ) ) )  |`  RR ) )
182 resmpt 5449 . . . . . . . . . . . . . . . 16  |-  ( RR  C_  CC  ->  ( (
y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  / 
2 )  x.  y
) ) ) )  |`  RR )  =  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  / 
2 )  x.  y
) ) ) ) )
18336, 182mp1i 13 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  (
( 1  /  2
)  x.  y ) ) ) )  |`  RR )  =  (
y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  / 
2 )  x.  y
) ) ) ) )
184183oveq2d 6666 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( RR  _D  (
( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  /  2 )  x.  y ) ) ) )  |`  RR )
)  =  ( RR 
_D  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  (
( 1  /  2
)  x.  y ) ) ) ) ) )
185171reseq1d 5395 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( CC  _D  ( y  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  /  2 )  x.  y ) ) ) ) )  |`  RR )  =  ( ( y  e.  CC  |->  ( pi  x.  ( cos `  (
y  /  2 ) ) ) )  |`  RR ) )
186181, 184, 1853eqtr3d 2664 . . . . . . . . . . . . 13  |-  ( ph  ->  ( RR  _D  (
y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  / 
2 )  x.  y
) ) ) ) )  =  ( ( y  e.  CC  |->  ( pi  x.  ( cos `  ( y  /  2
) ) ) )  |`  RR ) )
187 resmpt 5449 . . . . . . . . . . . . . 14  |-  ( RR  C_  CC  ->  ( (
y  e.  CC  |->  ( pi  x.  ( cos `  ( y  /  2
) ) ) )  |`  RR )  =  ( y  e.  RR  |->  ( pi  x.  ( cos `  ( y  /  2
) ) ) ) )
18836, 187ax-mp 5 . . . . . . . . . . . . 13  |-  ( ( y  e.  CC  |->  ( pi  x.  ( cos `  ( y  /  2
) ) ) )  |`  RR )  =  ( y  e.  RR  |->  ( pi  x.  ( cos `  ( y  /  2
) ) ) )
189186, 188syl6eq 2672 . . . . . . . . . . . 12  |-  ( ph  ->  ( RR  _D  (
y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( ( 1  / 
2 )  x.  y
) ) ) ) )  =  ( y  e.  RR  |->  ( pi  x.  ( cos `  (
y  /  2 ) ) ) ) )
190146, 189eqtrd 2656 . . . . . . . . . . 11  |-  ( ph  ->  ( RR  _D  (
y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) ) )  =  ( y  e.  RR  |->  ( pi  x.  ( cos `  (
y  /  2 ) ) ) ) )
191190reseq1d 5395 . . . . . . . . . 10  |-  ( ph  ->  ( ( RR  _D  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  / 
2 ) ) ) ) )  |`  (
( A (,) B
)  \  { Y } ) )  =  ( ( y  e.  RR  |->  ( pi  x.  ( cos `  ( y  /  2 ) ) ) )  |`  (
( A (,) B
)  \  { Y } ) ) )
1924resmptd 5452 . . . . . . . . . 10  |-  ( ph  ->  ( ( y  e.  RR  |->  ( pi  x.  ( cos `  ( y  /  2 ) ) ) )  |`  (
( A (,) B
)  \  { Y } ) )  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( pi  x.  ( cos `  (
y  /  2 ) ) ) ) )
193129, 191, 1923eqtrd 2660 . . . . . . . . 9  |-  ( ph  ->  ( ( RR  _D  ( y  e.  RR  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  / 
2 ) ) ) ) )  |`  (
( int `  ( topGen `
 ran  (,) )
) `  ( ( A (,) B )  \  { Y } ) ) )  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( pi  x.  ( cos `  ( y  /  2
) ) ) ) )
194117, 128, 1933eqtrd 2660 . . . . . . . 8  |-  ( ph  ->  ( RR  _D  (
y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( pi  x.  ( cos `  (
y  /  2 ) ) ) ) )
195194eqcomd 2628 . . . . . . 7  |-  ( ph  ->  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( pi  x.  ( cos `  (
y  /  2 ) ) ) )  =  ( RR  _D  (
y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) )
19623a1i 11 . . . . . . . . 9  |-  ( ph  ->  G  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) ) )
197196oveq2d 6666 . . . . . . . 8  |-  ( ph  ->  ( RR  _D  G
)  =  ( RR 
_D  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) )
198197eqcomd 2628 . . . . . . 7  |-  ( ph  ->  ( RR  _D  (
y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )  =  ( RR  _D  G ) )
199112, 195, 1983eqtrrd 2661 . . . . . 6  |-  ( ph  ->  ( RR  _D  G
)  =  I )
200199dmeqd 5326 . . . . 5  |-  ( ph  ->  dom  ( RR  _D  G )  =  dom  I )
201105, 176syldan 487 . . . . . 6  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( pi  x.  ( cos `  ( y  / 
2 ) ) )  e.  CC )
202111, 201dmmptd 6024 . . . . 5  |-  ( ph  ->  dom  I  =  ( ( A (,) B
)  \  { Y } ) )
203200, 202eqtr2d 2657 . . . 4  |-  ( ph  ->  ( ( A (,) B )  \  { Y } )  =  dom  ( RR  _D  G
) )
204 eqimss 3657 . . . 4  |-  ( ( ( A (,) B
)  \  { Y } )  =  dom  ( RR  _D  G
)  ->  ( ( A (,) B )  \  { Y } )  C_  dom  ( RR  _D  G
) )
205203, 204syl 17 . . 3  |-  ( ph  ->  ( ( A (,) B )  \  { Y } )  C_  dom  ( RR  _D  G
) )
206105, 70syldan 487 . . . . . . . 8  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( N  +  ( 1  /  2
) )  x.  y
)  e.  CC )
207206ralrimiva 2966 . . . . . . 7  |-  ( ph  ->  A. y  e.  ( ( A (,) B
)  \  { Y } ) ( ( N  +  ( 1  /  2 ) )  x.  y )  e.  CC )
208 eqid 2622 . . . . . . . 8  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) )  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) )
209208fnmpt 6020 . . . . . . 7  |-  ( A. y  e.  ( ( A (,) B )  \  { Y } ) ( ( N  +  ( 1  /  2 ) )  x.  y )  e.  CC  ->  (
y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) )  Fn  ( ( A (,) B )  \  { Y } ) )
210207, 209syl 17 . . . . . 6  |-  ( ph  ->  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) )  Fn  ( ( A (,) B )  \  { Y } ) )
211 eqidd 2623 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) )  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )
212 simpr 477 . . . . . . . . . . 11  |-  ( ( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  /\  y  =  w )  ->  y  =  w )
213212oveq2d 6666 . . . . . . . . . 10  |-  ( ( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  /\  y  =  w )  ->  ( ( N  +  ( 1  /  2
) )  x.  y
)  =  ( ( N  +  ( 1  /  2 ) )  x.  w ) )
214 simpr 477 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  ->  w  e.  ( ( A (,) B )  \  { Y } ) )
21538adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  ->  N  e.  CC )
216 1cnd 10056 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
1  e.  CC )
217216halfcld 11277 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( 1  /  2
)  e.  CC )
218215, 217addcld 10059 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( N  +  ( 1  /  2 ) )  e.  CC )
219 eldifi 3732 . . . . . . . . . . . . . 14  |-  ( w  e.  ( ( A (,) B )  \  { Y } )  ->  w  e.  ( A (,) B ) )
220219elioored 39776 . . . . . . . . . . . . 13  |-  ( w  e.  ( ( A (,) B )  \  { Y } )  ->  w  e.  RR )
221220recnd 10068 . . . . . . . . . . . 12  |-  ( w  e.  ( ( A (,) B )  \  { Y } )  ->  w  e.  CC )
222221adantl 482 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  ->  w  e.  CC )
223218, 222mulcld 10060 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( N  +  ( 1  /  2
) )  x.  w
)  e.  CC )
224211, 213, 214, 223fvmptd 6288 . . . . . . . . 9  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w )  =  ( ( N  +  ( 1  /  2
) )  x.  w
) )
225 eleq1 2689 . . . . . . . . . . . . . . . 16  |-  ( y  =  w  ->  (
y  e.  ( ( A (,) B ) 
\  { Y }
)  <->  w  e.  (
( A (,) B
)  \  { Y } ) ) )
226225anbi2d 740 . . . . . . . . . . . . . . 15  |-  ( y  =  w  ->  (
( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  <->  ( ph  /\  w  e.  ( ( A (,) B ) 
\  { Y }
) ) ) )
227 oveq1 6657 . . . . . . . . . . . . . . . 16  |-  ( y  =  w  ->  (
y  mod  ( 2  x.  pi ) )  =  ( w  mod  ( 2  x.  pi ) ) )
228227neeq1d 2853 . . . . . . . . . . . . . . 15  |-  ( y  =  w  ->  (
( y  mod  (
2  x.  pi ) )  =/=  0  <->  (
w  mod  ( 2  x.  pi ) )  =/=  0 ) )
229226, 228imbi12d 334 . . . . . . . . . . . . . 14  |-  ( y  =  w  ->  (
( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  ( y  mod  ( 2  x.  pi ) )  =/=  0
)  <->  ( ( ph  /\  w  e.  ( ( A (,) B ) 
\  { Y }
) )  ->  (
w  mod  ( 2  x.  pi ) )  =/=  0 ) ) )
230 eldifi 3732 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  -> 
y  e.  ( A (,) B ) )
231 elioore 12205 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  e.  ( A (,) B )  ->  y  e.  RR )
232230, 231, 1303syl 18 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  -> 
y  e.  CC )
233 2cnd 11093 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  -> 
2  e.  CC )
234119a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  ->  pi  e.  CC )
235134a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  -> 
2  =/=  0 )
236 0re 10040 . . . . . . . . . . . . . . . . . . . . . 22  |-  0  e.  RR
237 pipos 24212 . . . . . . . . . . . . . . . . . . . . . 22  |-  0  <  pi
238236, 237gtneii 10149 . . . . . . . . . . . . . . . . . . . . 21  |-  pi  =/=  0
239238a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  ->  pi  =/=  0 )
240232, 233, 234, 235, 239divdiv1d 10832 . . . . . . . . . . . . . . . . . . 19  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  -> 
( ( y  / 
2 )  /  pi )  =  ( y  /  ( 2  x.  pi ) ) )
241240eqcomd 2628 . . . . . . . . . . . . . . . . . 18  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  -> 
( y  /  (
2  x.  pi ) )  =  ( ( y  /  2 )  /  pi ) )
242241adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( y  /  (
2  x.  pi ) )  =  ( ( y  /  2 )  /  pi ) )
243 dirkercncflem2.yne0 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( sin `  (
y  /  2 ) )  =/=  0 )
244243neneqd 2799 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  -.  ( sin `  (
y  /  2 ) )  =  0 )
245105halfcld 11277 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( y  /  2
)  e.  CC )
246 sineq0 24273 . . . . . . . . . . . . . . . . . . 19  |-  ( ( y  /  2 )  e.  CC  ->  (
( sin `  (
y  /  2 ) )  =  0  <->  (
( y  /  2
)  /  pi )  e.  ZZ ) )
247245, 246syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( sin `  (
y  /  2 ) )  =  0  <->  (
( y  /  2
)  /  pi )  e.  ZZ ) )
248244, 247mtbid 314 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  -.  ( ( y  / 
2 )  /  pi )  e.  ZZ )
249242, 248eqneltrd 2720 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  -.  ( y  /  (
2  x.  pi ) )  e.  ZZ )
250 2rp 11837 . . . . . . . . . . . . . . . . . 18  |-  2  e.  RR+
251 pirp 24213 . . . . . . . . . . . . . . . . . 18  |-  pi  e.  RR+
252 rpmulcl 11855 . . . . . . . . . . . . . . . . . 18  |-  ( ( 2  e.  RR+  /\  pi  e.  RR+ )  ->  (
2  x.  pi )  e.  RR+ )
253250, 251, 252mp2an 708 . . . . . . . . . . . . . . . . 17  |-  ( 2  x.  pi )  e.  RR+
254 mod0 12675 . . . . . . . . . . . . . . . . 17  |-  ( ( y  e.  RR  /\  ( 2  x.  pi )  e.  RR+ )  -> 
( ( y  mod  ( 2  x.  pi ) )  =  0  <-> 
( y  /  (
2  x.  pi ) )  e.  ZZ ) )
25511, 253, 254sylancl 694 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( y  mod  ( 2  x.  pi ) )  =  0  <-> 
( y  /  (
2  x.  pi ) )  e.  ZZ ) )
256249, 255mtbird 315 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  -.  ( y  mod  (
2  x.  pi ) )  =  0 )
257256neqned 2801 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( y  mod  (
2  x.  pi ) )  =/=  0 )
258229, 257chvarv 2263 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( w  mod  (
2  x.  pi ) )  =/=  0 )
259258neneqd 2799 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  ->  -.  ( w  mod  (
2  x.  pi ) )  =  0 )
260 simpll 790 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( ( N  +  ( 1  /  2
) )  x.  w
)  =  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )  ->  ph )
261 simpr 477 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( ( N  +  ( 1  /  2
) )  x.  w
)  =  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )  ->  ( ( N  +  ( 1  / 
2 ) )  x.  w )  =  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )
262221ad2antlr 763 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( ( N  +  ( 1  /  2
) )  x.  w
)  =  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )  ->  w  e.  CC )
26357recnd 10068 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  Y  e.  CC )
264263ad2antrr 762 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( ( N  +  ( 1  /  2
) )  x.  w
)  =  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )  ->  Y  e.  CC )
265 0red 10041 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  0  e.  RR )
2665nnred 11035 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  N  e.  RR )
267 1red 10055 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  1  e.  RR )
268267rehalfcld 11279 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( 1  /  2
)  e.  RR )
269266, 268readdcld 10069 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( N  +  ( 1  /  2 ) )  e.  RR )
2705nngt0d 11064 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  0  <  N )
271250a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  2  e.  RR+ )
272271rpreccld 11882 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( 1  /  2
)  e.  RR+ )
273266, 272ltaddrpd 11905 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  N  <  ( N  +  ( 1  / 
2 ) ) )
274265, 266, 269, 270, 273lttrd 10198 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  0  <  ( N  +  ( 1  / 
2 ) ) )
275274gt0ne0d 10592 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( N  +  ( 1  /  2 ) )  =/=  0 )
27641, 275jca 554 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  e.  CC  /\  ( N  +  ( 1  /  2 ) )  =/=  0 ) )
277276ad2antrr 762 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( ( N  +  ( 1  /  2
) )  x.  w
)  =  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )  ->  ( ( N  +  ( 1  / 
2 ) )  e.  CC  /\  ( N  +  ( 1  / 
2 ) )  =/=  0 ) )
278 mulcan 10664 . . . . . . . . . . . . . . 15  |-  ( ( w  e.  CC  /\  Y  e.  CC  /\  (
( N  +  ( 1  /  2 ) )  e.  CC  /\  ( N  +  (
1  /  2 ) )  =/=  0 ) )  ->  ( (
( N  +  ( 1  /  2 ) )  x.  w )  =  ( ( N  +  ( 1  / 
2 ) )  x.  Y )  <->  w  =  Y ) )
279262, 264, 277, 278syl3anc 1326 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( ( N  +  ( 1  /  2
) )  x.  w
)  =  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )  ->  ( ( ( N  +  ( 1  /  2 ) )  x.  w )  =  ( ( N  +  ( 1  /  2
) )  x.  Y
)  <->  w  =  Y
) )
280261, 279mpbid 222 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( ( N  +  ( 1  /  2
) )  x.  w
)  =  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )  ->  w  =  Y )
281 oveq1 6657 . . . . . . . . . . . . . 14  |-  ( w  =  Y  ->  (
w  mod  ( 2  x.  pi ) )  =  ( Y  mod  ( 2  x.  pi ) ) )
282 dirkercncflem2.ymod . . . . . . . . . . . . . 14  |-  ( ph  ->  ( Y  mod  (
2  x.  pi ) )  =  0 )
283281, 282sylan9eqr 2678 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  =  Y )  ->  (
w  mod  ( 2  x.  pi ) )  =  0 )
284260, 280, 283syl2anc 693 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( ( N  +  ( 1  /  2
) )  x.  w
)  =  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )  ->  ( w  mod  ( 2  x.  pi ) )  =  0 )
285259, 284mtand 691 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  ->  -.  ( ( N  +  ( 1  /  2
) )  x.  w
)  =  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )
28641, 263mulcld 10060 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  Y
)  e.  CC )
287286adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( N  +  ( 1  /  2
) )  x.  Y
)  e.  CC )
288 elsn2g 4210 . . . . . . . . . . . 12  |-  ( ( ( N  +  ( 1  /  2 ) )  x.  Y )  e.  CC  ->  (
( ( N  +  ( 1  /  2
) )  x.  w
)  e.  { ( ( N  +  ( 1  /  2 ) )  x.  Y ) }  <->  ( ( N  +  ( 1  / 
2 ) )  x.  w )  =  ( ( N  +  ( 1  /  2 ) )  x.  Y ) ) )
289287, 288syl 17 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( ( N  +  ( 1  / 
2 ) )  x.  w )  e.  {
( ( N  +  ( 1  /  2
) )  x.  Y
) }  <->  ( ( N  +  ( 1  /  2 ) )  x.  w )  =  ( ( N  +  ( 1  /  2
) )  x.  Y
) ) )
290285, 289mtbird 315 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  ->  -.  ( ( N  +  ( 1  /  2
) )  x.  w
)  e.  { ( ( N  +  ( 1  /  2 ) )  x.  Y ) } )
291223, 290eldifd 3585 . . . . . . . . 9  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( N  +  ( 1  /  2
) )  x.  w
)  e.  ( CC 
\  { ( ( N  +  ( 1  /  2 ) )  x.  Y ) } ) )
292224, 291eqeltrd 2701 . . . . . . . 8  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w )  e.  ( CC  \  {
( ( N  +  ( 1  /  2
) )  x.  Y
) } ) )
293 sinf 14854 . . . . . . . . . . . 12  |-  sin : CC
--> CC
294293fdmi 6052 . . . . . . . . . . 11  |-  dom  sin  =  CC
295294eqcomi 2631 . . . . . . . . . 10  |-  CC  =  dom  sin
296295a1i 11 . . . . . . . . 9  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  ->  CC  =  dom  sin )
297296difeq1d 3727 . . . . . . . 8  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( CC  \  {
( ( N  +  ( 1  /  2
) )  x.  Y
) } )  =  ( dom  sin  \  {
( ( N  +  ( 1  /  2
) )  x.  Y
) } ) )
298292, 297eleqtrd 2703 . . . . . . 7  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w )  e.  ( dom  sin  \  {
( ( N  +  ( 1  /  2
) )  x.  Y
) } ) )
299298ralrimiva 2966 . . . . . 6  |-  ( ph  ->  A. w  e.  ( ( A (,) B
)  \  { Y } ) ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) `  w )  e.  ( dom  sin  \  { ( ( N  +  ( 1  /  2 ) )  x.  Y ) } ) )
300 fnfvrnss 6390 . . . . . 6  |-  ( ( ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) )  Fn  ( ( A (,) B )  \  { Y } )  /\  A. w  e.  ( ( A (,) B ) 
\  { Y }
) ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `  w )  e.  ( dom  sin  \  { ( ( N  +  ( 1  / 
2 ) )  x.  Y ) } ) )  ->  ran  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) )  C_  ( dom  sin  \  { ( ( N  +  ( 1  / 
2 ) )  x.  Y ) } ) )
301210, 299, 300syl2anc 693 . . . . 5  |-  ( ph  ->  ran  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) 
C_  ( dom  sin  \  { ( ( N  +  ( 1  / 
2 ) )  x.  Y ) } ) )
302 uncom 3757 . . . . . . . . . 10  |-  ( ( ( A (,) B
)  \  { Y } )  u.  { Y } )  =  ( { Y }  u.  ( ( A (,) B )  \  { Y } ) )
303302a1i 11 . . . . . . . . 9  |-  ( ph  ->  ( ( ( A (,) B )  \  { Y } )  u. 
{ Y } )  =  ( { Y }  u.  ( ( A (,) B )  \  { Y } ) ) )
30427snssd 4340 . . . . . . . . . 10  |-  ( ph  ->  { Y }  C_  ( A (,) B ) )
305 undif 4049 . . . . . . . . . 10  |-  ( { Y }  C_  ( A (,) B )  <->  ( { Y }  u.  (
( A (,) B
)  \  { Y } ) )  =  ( A (,) B
) )
306304, 305sylib 208 . . . . . . . . 9  |-  ( ph  ->  ( { Y }  u.  ( ( A (,) B )  \  { Y } ) )  =  ( A (,) B
) )
307303, 306eqtrd 2656 . . . . . . . 8  |-  ( ph  ->  ( ( ( A (,) B )  \  { Y } )  u. 
{ Y } )  =  ( A (,) B ) )
308307mpteq1d 4738 . . . . . . 7  |-  ( ph  ->  ( w  e.  ( ( ( A (,) B )  \  { Y } )  u.  { Y } )  |->  if ( w  =  Y , 
( ( N  +  ( 1  /  2
) )  x.  Y
) ,  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) `  w ) ) )  =  ( w  e.  ( A (,) B
)  |->  if ( w  =  Y ,  ( ( N  +  ( 1  /  2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `  w ) ) ) )
309 iftrue 4092 . . . . . . . . . . . . 13  |-  ( w  =  Y  ->  if ( w  =  Y ,  ( ( N  +  ( 1  / 
2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) )  =  ( ( N  +  ( 1  / 
2 ) )  x.  Y ) )
310 oveq2 6658 . . . . . . . . . . . . 13  |-  ( w  =  Y  ->  (
( N  +  ( 1  /  2 ) )  x.  w )  =  ( ( N  +  ( 1  / 
2 ) )  x.  Y ) )
311309, 310eqtr4d 2659 . . . . . . . . . . . 12  |-  ( w  =  Y  ->  if ( w  =  Y ,  ( ( N  +  ( 1  / 
2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) )  =  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )
312311adantl 482 . . . . . . . . . . 11  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  if ( w  =  Y ,  ( ( N  +  ( 1  / 
2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) )  =  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )
313 iffalse 4095 . . . . . . . . . . . . 13  |-  ( -.  w  =  Y  ->  if ( w  =  Y ,  ( ( N  +  ( 1  / 
2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) )  =  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `  w ) )
314313adantl 482 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  if ( w  =  Y ,  ( ( N  +  ( 1  /  2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) )  =  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `  w ) )
315 eqidd 2623 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) )  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )
316 oveq2 6658 . . . . . . . . . . . . . 14  |-  ( y  =  w  ->  (
( N  +  ( 1  /  2 ) )  x.  y )  =  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )
317316adantl 482 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  w  e.  ( A (,) B ) )  /\  -.  w  =  Y
)  /\  y  =  w )  ->  (
( N  +  ( 1  /  2 ) )  x.  y )  =  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )
318 simpl 473 . . . . . . . . . . . . . . 15  |-  ( ( w  e.  ( A (,) B )  /\  -.  w  =  Y
)  ->  w  e.  ( A (,) B ) )
319 id 22 . . . . . . . . . . . . . . . . 17  |-  ( -.  w  =  Y  ->  -.  w  =  Y
)
320 velsn 4193 . . . . . . . . . . . . . . . . 17  |-  ( w  e.  { Y }  <->  w  =  Y )
321319, 320sylnibr 319 . . . . . . . . . . . . . . . 16  |-  ( -.  w  =  Y  ->  -.  w  e.  { Y } )
322321adantl 482 . . . . . . . . . . . . . . 15  |-  ( ( w  e.  ( A (,) B )  /\  -.  w  =  Y
)  ->  -.  w  e.  { Y } )
323318, 322eldifd 3585 . . . . . . . . . . . . . 14  |-  ( ( w  e.  ( A (,) B )  /\  -.  w  =  Y
)  ->  w  e.  ( ( A (,) B )  \  { Y } ) )
324323adantll 750 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  w  e.  ( ( A (,) B ) 
\  { Y }
) )
32541adantr 481 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( N  +  ( 1  / 
2 ) )  e.  CC )
326 elioore 12205 . . . . . . . . . . . . . . . . 17  |-  ( w  e.  ( A (,) B )  ->  w  e.  RR )
327326recnd 10068 . . . . . . . . . . . . . . . 16  |-  ( w  e.  ( A (,) B )  ->  w  e.  CC )
328327adantl 482 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  w  e.  CC )
329325, 328mulcld 10060 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( ( N  +  ( 1  /  2 ) )  x.  w )  e.  CC )
330329adantr 481 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( ( N  +  ( 1  /  2
) )  x.  w
)  e.  CC )
331315, 317, 324, 330fvmptd 6288 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w )  =  ( ( N  +  ( 1  /  2
) )  x.  w
) )
332314, 331eqtrd 2656 . . . . . . . . . . 11  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  if ( w  =  Y ,  ( ( N  +  ( 1  /  2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) )  =  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )
333312, 332pm2.61dan 832 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  if (
w  =  Y , 
( ( N  +  ( 1  /  2
) )  x.  Y
) ,  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) `  w ) )  =  ( ( N  +  ( 1  /  2
) )  x.  w
) )
334333mpteq2dva 4744 . . . . . . . . 9  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  if ( w  =  Y ,  ( ( N  +  ( 1  /  2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) ) )  =  ( w  e.  ( A (,) B )  |->  ( ( N  +  ( 1  /  2 ) )  x.  w ) ) )
335 ioosscn 39716 . . . . . . . . . . . . . 14  |-  ( A (,) B )  C_  CC
336 resmpt 5449 . . . . . . . . . . . . . 14  |-  ( ( A (,) B ) 
C_  CC  ->  ( ( w  e.  CC  |->  ( ( N  +  ( 1  /  2 ) )  x.  w ) )  |`  ( A (,) B ) )  =  ( w  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  w
) ) )
337335, 336ax-mp 5 . . . . . . . . . . . . 13  |-  ( ( w  e.  CC  |->  ( ( N  +  ( 1  /  2 ) )  x.  w ) )  |`  ( A (,) B ) )  =  ( w  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  w
) )
338 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  ( w  e.  CC  |->  ( ( N  +  ( 1  /  2 ) )  x.  w ) )  =  ( w  e.  CC  |->  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )
339338mulc1cncf 22708 . . . . . . . . . . . . . . . 16  |-  ( ( N  +  ( 1  /  2 ) )  e.  CC  ->  (
w  e.  CC  |->  ( ( N  +  ( 1  /  2 ) )  x.  w ) )  e.  ( CC
-cn-> CC ) )
34041, 339syl 17 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( w  e.  CC  |->  ( ( N  +  ( 1  /  2
) )  x.  w
) )  e.  ( CC -cn-> CC ) )
34151cnfldtop 22587 . . . . . . . . . . . . . . . . . . 19  |-  ( TopOpen ` fld )  e.  Top
342 unicntop 22589 . . . . . . . . . . . . . . . . . . . 20  |-  CC  =  U. ( TopOpen ` fld )
343342restid 16094 . . . . . . . . . . . . . . . . . . 19  |-  ( (
TopOpen ` fld )  e.  Top  ->  ( ( TopOpen ` fld )t  CC )  =  (
TopOpen ` fld ) )
344341, 343ax-mp 5 . . . . . . . . . . . . . . . . . 18  |-  ( (
TopOpen ` fld )t  CC )  =  (
TopOpen ` fld )
345344eqcomi 2631 . . . . . . . . . . . . . . . . 17  |-  ( TopOpen ` fld )  =  ( ( TopOpen ` fld )t  CC )
34651, 345, 345cncfcn 22712 . . . . . . . . . . . . . . . 16  |-  ( ( CC  C_  CC  /\  CC  C_  CC )  ->  ( CC -cn-> CC )  =  ( ( TopOpen ` fld )  Cn  ( TopOpen
` fld
) ) )
34774, 75, 346sylancr 695 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( CC -cn-> CC )  =  ( ( TopOpen ` fld )  Cn  ( TopOpen ` fld ) ) )
348340, 347eleqtrd 2703 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( w  e.  CC  |->  ( ( N  +  ( 1  /  2
) )  x.  w
) )  e.  ( ( TopOpen ` fld )  Cn  ( TopOpen
` fld
) ) )
3492, 37syl5ss 3614 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( A (,) B
)  C_  CC )
350342cnrest 21089 . . . . . . . . . . . . . 14  |-  ( ( ( w  e.  CC  |->  ( ( N  +  ( 1  /  2
) )  x.  w
) )  e.  ( ( TopOpen ` fld )  Cn  ( TopOpen
` fld
) )  /\  ( A (,) B )  C_  CC )  ->  ( ( w  e.  CC  |->  ( ( N  +  ( 1  /  2 ) )  x.  w ) )  |`  ( A (,) B ) )  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) ) )
351348, 349, 350syl2anc 693 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( w  e.  CC  |->  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )  |`  ( A (,) B ) )  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) ) )
352337, 351syl5eqelr 2706 . . . . . . . . . . . 12  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  w
) )  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) ) )
35351cnfldtopon 22586 . . . . . . . . . . . . . 14  |-  ( TopOpen ` fld )  e.  (TopOn `  CC )
354 resttopon 20965 . . . . . . . . . . . . . 14  |-  ( ( ( TopOpen ` fld )  e.  (TopOn `  CC )  /\  ( A (,) B )  C_  CC )  ->  ( (
TopOpen ` fld )t  ( A (,) B
) )  e.  (TopOn `  ( A (,) B
) ) )
355353, 349, 354sylancr 695 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( TopOpen ` fld )t  ( A (,) B ) )  e.  (TopOn `  ( A (,) B ) ) )
356 cncnp 21084 . . . . . . . . . . . . 13  |-  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  e.  (TopOn `  ( A (,) B ) )  /\  ( TopOpen ` fld )  e.  (TopOn `  CC ) )  -> 
( ( w  e.  ( A (,) B
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) )  <->  ( (
w  e.  ( A (,) B )  |->  ( ( N  +  ( 1  /  2 ) )  x.  w ) ) : ( A (,) B ) --> CC 
/\  A. y  e.  ( A (,) B ) ( w  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  w
) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
) ) ) )
357355, 353, 356sylancl 694 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( w  e.  ( A (,) B
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) )  <->  ( (
w  e.  ( A (,) B )  |->  ( ( N  +  ( 1  /  2 ) )  x.  w ) ) : ( A (,) B ) --> CC 
/\  A. y  e.  ( A (,) B ) ( w  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  w
) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
) ) ) )
358352, 357mpbid 222 . . . . . . . . . . 11  |-  ( ph  ->  ( ( w  e.  ( A (,) B
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  w ) ) : ( A (,) B
) --> CC  /\  A. y  e.  ( A (,) B ) ( w  e.  ( A (,) B )  |->  ( ( N  +  ( 1  /  2 ) )  x.  w ) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
) ) )
359358simprd 479 . . . . . . . . . 10  |-  ( ph  ->  A. y  e.  ( A (,) B ) ( w  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  w
) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
) )
360 fveq2 6191 . . . . . . . . . . . 12  |-  ( y  =  Y  ->  (
( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
)  =  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
361360eleq2d 2687 . . . . . . . . . . 11  |-  ( y  =  Y  ->  (
( w  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  w
) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
)  <->  ( w  e.  ( A (,) B
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )  e.  ( ( ( (
TopOpen ` fld )t  ( A (,) B
) )  CnP  ( TopOpen
` fld
) ) `  Y
) ) )
362361rspccva 3308 . . . . . . . . . 10  |-  ( ( A. y  e.  ( A (,) B ) ( w  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  w
) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
)  /\  Y  e.  ( A (,) B ) )  ->  ( w  e.  ( A (,) B
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )  e.  ( ( ( (
TopOpen ` fld )t  ( A (,) B
) )  CnP  ( TopOpen
` fld
) ) `  Y
) )
363359, 27, 362syl2anc 693 . . . . . . . . 9  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  w
) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
364334, 363eqeltrd 2701 . . . . . . . 8  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  if ( w  =  Y ,  ( ( N  +  ( 1  /  2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
365307eqcomd 2628 . . . . . . . . . . 11  |-  ( ph  ->  ( A (,) B
)  =  ( ( ( A (,) B
)  \  { Y } )  u.  { Y } ) )
366365oveq2d 6666 . . . . . . . . . 10  |-  ( ph  ->  ( ( TopOpen ` fld )t  ( A (,) B ) )  =  ( ( TopOpen ` fld )t  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } ) ) )
367366oveq1d 6665 . . . . . . . . 9  |-  ( ph  ->  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) )  =  ( ( ( TopOpen ` fld )t  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } ) )  CnP  ( TopOpen ` fld ) ) )
368367fveq1d 6193 . . . . . . . 8  |-  ( ph  ->  ( ( ( (
TopOpen ` fld )t  ( A (,) B
) )  CnP  ( TopOpen
` fld
) ) `  Y
)  =  ( ( ( ( TopOpen ` fld )t  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
369364, 368eleqtrd 2703 . . . . . . 7  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  if ( w  =  Y ,  ( ( N  +  ( 1  /  2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
370308, 369eqeltrd 2701 . . . . . 6  |-  ( ph  ->  ( w  e.  ( ( ( A (,) B )  \  { Y } )  u.  { Y } )  |->  if ( w  =  Y , 
( ( N  +  ( 1  /  2
) )  x.  Y
) ,  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) `  w ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
371 eqid 2622 . . . . . . 7  |-  ( (
TopOpen ` fld )t  ( ( ( A (,) B )  \  { Y } )  u. 
{ Y } ) )  =  ( (
TopOpen ` fld )t  ( ( ( A (,) B )  \  { Y } )  u. 
{ Y } ) )
372 eqid 2622 . . . . . . 7  |-  ( w  e.  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } )  |->  if ( w  =  Y , 
( ( N  +  ( 1  /  2
) )  x.  Y
) ,  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) `  w ) ) )  =  ( w  e.  ( ( ( A (,) B )  \  { Y } )  u. 
{ Y } ) 
|->  if ( w  =  Y ,  ( ( N  +  ( 1  /  2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) ) )
373206, 208fmptd 6385 . . . . . . 7  |-  ( ph  ->  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) : ( ( A (,) B )  \  { Y } ) --> CC )
3744, 36syl6ss 3615 . . . . . . 7  |-  ( ph  ->  ( ( A (,) B )  \  { Y } )  C_  CC )
375371, 51, 372, 373, 374, 263ellimc 23637 . . . . . 6  |-  ( ph  ->  ( ( ( N  +  ( 1  / 
2 ) )  x.  Y )  e.  ( ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) lim
CC  Y )  <->  ( w  e.  ( ( ( A (,) B )  \  { Y } )  u. 
{ Y } ) 
|->  if ( w  =  Y ,  ( ( N  +  ( 1  /  2 ) )  x.  Y ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } ) )  CnP  ( TopOpen ` fld ) ) `  Y
) ) )
376370, 375mpbird 247 . . . . 5  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  Y
)  e.  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) lim CC  Y ) )
377134a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  2  =/=  0 )
378238a1i 11 . . . . . . . . . . . 12  |-  ( ph  ->  pi  =/=  0 )
379154, 155, 377, 378mulne0d 10679 . . . . . . . . . . 11  |-  ( ph  ->  ( 2  x.  pi )  =/=  0 )
380263, 156, 379divcan1d 10802 . . . . . . . . . 10  |-  ( ph  ->  ( ( Y  / 
( 2  x.  pi ) )  x.  (
2  x.  pi ) )  =  Y )
381380eqcomd 2628 . . . . . . . . 9  |-  ( ph  ->  Y  =  ( ( Y  /  ( 2  x.  pi ) )  x.  ( 2  x.  pi ) ) )
382381oveq2d 6666 . . . . . . . 8  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  Y
)  =  ( ( N  +  ( 1  /  2 ) )  x.  ( ( Y  /  ( 2  x.  pi ) )  x.  ( 2  x.  pi ) ) ) )
383382fveq2d 6195 . . . . . . 7  |-  ( ph  ->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  Y ) )  =  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  (
( Y  /  (
2  x.  pi ) )  x.  ( 2  x.  pi ) ) ) ) )
384263, 156, 379divcld 10801 . . . . . . . . . . 11  |-  ( ph  ->  ( Y  /  (
2  x.  pi ) )  e.  CC )
38541, 384, 156mul12d 10245 . . . . . . . . . 10  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  (
( Y  /  (
2  x.  pi ) )  x.  ( 2  x.  pi ) ) )  =  ( ( Y  /  ( 2  x.  pi ) )  x.  ( ( N  +  ( 1  / 
2 ) )  x.  ( 2  x.  pi ) ) ) )
38641, 154, 155mulassd 10063 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( ( N  +  ( 1  / 
2 ) )  x.  2 )  x.  pi )  =  ( ( N  +  ( 1  /  2 ) )  x.  ( 2  x.  pi ) ) )
387386eqcomd 2628 . . . . . . . . . . 11  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  (
2  x.  pi ) )  =  ( ( ( N  +  ( 1  /  2 ) )  x.  2 )  x.  pi ) )
388387oveq2d 6666 . . . . . . . . . 10  |-  ( ph  ->  ( ( Y  / 
( 2  x.  pi ) )  x.  (
( N  +  ( 1  /  2 ) )  x.  ( 2  x.  pi ) ) )  =  ( ( Y  /  ( 2  x.  pi ) )  x.  ( ( ( N  +  ( 1  /  2 ) )  x.  2 )  x.  pi ) ) )
38938, 40, 154adddird 10065 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  2 )  =  ( ( N  x.  2 )  +  ( ( 1  /  2 )  x.  2 ) ) )
390154, 377recid2d 10797 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( 1  / 
2 )  x.  2 )  =  1 )
391390oveq2d 6666 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( N  x.  2 )  +  ( ( 1  /  2
)  x.  2 ) )  =  ( ( N  x.  2 )  +  1 ) )
392389, 391eqtrd 2656 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  2 )  =  ( ( N  x.  2 )  +  1 ) )
393392oveq1d 6665 . . . . . . . . . . 11  |-  ( ph  ->  ( ( ( N  +  ( 1  / 
2 ) )  x.  2 )  x.  pi )  =  ( (
( N  x.  2 )  +  1 )  x.  pi ) )
394393oveq2d 6666 . . . . . . . . . 10  |-  ( ph  ->  ( ( Y  / 
( 2  x.  pi ) )  x.  (
( ( N  +  ( 1  /  2
) )  x.  2 )  x.  pi ) )  =  ( ( Y  /  ( 2  x.  pi ) )  x.  ( ( ( N  x.  2 )  +  1 )  x.  pi ) ) )
395385, 388, 3943eqtrd 2660 . . . . . . . . 9  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  (
( Y  /  (
2  x.  pi ) )  x.  ( 2  x.  pi ) ) )  =  ( ( Y  /  ( 2  x.  pi ) )  x.  ( ( ( N  x.  2 )  +  1 )  x.  pi ) ) )
39638, 154mulcld 10060 . . . . . . . . . . 11  |-  ( ph  ->  ( N  x.  2 )  e.  CC )
397 1cnd 10056 . . . . . . . . . . 11  |-  ( ph  ->  1  e.  CC )
398396, 397addcld 10059 . . . . . . . . . 10  |-  ( ph  ->  ( ( N  x.  2 )  +  1 )  e.  CC )
399384, 398, 155mulassd 10063 . . . . . . . . 9  |-  ( ph  ->  ( ( ( Y  /  ( 2  x.  pi ) )  x.  ( ( N  x.  2 )  +  1 ) )  x.  pi )  =  ( ( Y  /  ( 2  x.  pi ) )  x.  ( ( ( N  x.  2 )  +  1 )  x.  pi ) ) )
400395, 399eqtr4d 2659 . . . . . . . 8  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  (
( Y  /  (
2  x.  pi ) )  x.  ( 2  x.  pi ) ) )  =  ( ( ( Y  /  (
2  x.  pi ) )  x.  ( ( N  x.  2 )  +  1 ) )  x.  pi ) )
401400fveq2d 6195 . . . . . . 7  |-  ( ph  ->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  ( ( Y  /  ( 2  x.  pi ) )  x.  ( 2  x.  pi ) ) ) )  =  ( sin `  ( ( ( Y  /  ( 2  x.  pi ) )  x.  ( ( N  x.  2 )  +  1 ) )  x.  pi ) ) )
402 mod0 12675 . . . . . . . . . . 11  |-  ( ( Y  e.  RR  /\  ( 2  x.  pi )  e.  RR+ )  -> 
( ( Y  mod  ( 2  x.  pi ) )  =  0  <-> 
( Y  /  (
2  x.  pi ) )  e.  ZZ ) )
40357, 253, 402sylancl 694 . . . . . . . . . 10  |-  ( ph  ->  ( ( Y  mod  ( 2  x.  pi ) )  =  0  <-> 
( Y  /  (
2  x.  pi ) )  e.  ZZ ) )
404282, 403mpbid 222 . . . . . . . . 9  |-  ( ph  ->  ( Y  /  (
2  x.  pi ) )  e.  ZZ )
4055nnzd 11481 . . . . . . . . . . 11  |-  ( ph  ->  N  e.  ZZ )
406 2z 11409 . . . . . . . . . . . 12  |-  2  e.  ZZ
407406a1i 11 . . . . . . . . . . 11  |-  ( ph  ->  2  e.  ZZ )
408405, 407zmulcld 11488 . . . . . . . . . 10  |-  ( ph  ->  ( N  x.  2 )  e.  ZZ )
409408peano2zd 11485 . . . . . . . . 9  |-  ( ph  ->  ( ( N  x.  2 )  +  1 )  e.  ZZ )
410404, 409zmulcld 11488 . . . . . . . 8  |-  ( ph  ->  ( ( Y  / 
( 2  x.  pi ) )  x.  (
( N  x.  2 )  +  1 ) )  e.  ZZ )
411 sinkpi 24271 . . . . . . . 8  |-  ( ( ( Y  /  (
2  x.  pi ) )  x.  ( ( N  x.  2 )  +  1 ) )  e.  ZZ  ->  ( sin `  ( ( ( Y  /  ( 2  x.  pi ) )  x.  ( ( N  x.  2 )  +  1 ) )  x.  pi ) )  =  0 )
412410, 411syl 17 . . . . . . 7  |-  ( ph  ->  ( sin `  (
( ( Y  / 
( 2  x.  pi ) )  x.  (
( N  x.  2 )  +  1 ) )  x.  pi ) )  =  0 )
413383, 401, 4123eqtrd 2660 . . . . . 6  |-  ( ph  ->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  Y ) )  =  0 )
414 sincn 24198 . . . . . . . 8  |-  sin  e.  ( CC -cn-> CC )
415414a1i 11 . . . . . . 7  |-  ( ph  ->  sin  e.  ( CC
-cn-> CC ) )
416415, 286cnlimci 23653 . . . . . 6  |-  ( ph  ->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  Y ) )  e.  ( sin lim CC  ( ( N  +  ( 1  /  2
) )  x.  Y
) ) )
417413, 416eqeltrrd 2702 . . . . 5  |-  ( ph  ->  0  e.  ( sin lim CC  ( ( N  +  ( 1  /  2
) )  x.  Y
) ) )
418301, 376, 417limccog 39852 . . . 4  |-  ( ph  ->  0  e.  ( ( sin  o.  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) lim CC  Y
) )
41914a1i 11 . . . . . . . . 9  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  ->  F  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) )
420213fveq2d 6195 . . . . . . . . 9  |-  ( ( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  /\  y  =  w )  ->  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) )  =  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  w
) ) )
421223sincld 14860 . . . . . . . . 9  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( sin `  (
( N  +  ( 1  /  2 ) )  x.  w ) )  e.  CC )
422419, 420, 214, 421fvmptd 6288 . . . . . . . 8  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( F `  w
)  =  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  w
) ) )
423224fveq2d 6195 . . . . . . . 8  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( sin `  (
( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) )  =  ( sin `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )
424422, 423eqtr4d 2659 . . . . . . 7  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( F `  w
)  =  ( sin `  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) ) )
425424mpteq2dva 4744 . . . . . 6  |-  ( ph  ->  ( w  e.  ( ( A (,) B
)  \  { Y } )  |->  ( F `
 w ) )  =  ( w  e.  ( ( A (,) B )  \  { Y } )  |->  ( sin `  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) ) ) )
42615feqmptd 6249 . . . . . 6  |-  ( ph  ->  F  =  ( w  e.  ( ( A (,) B )  \  { Y } )  |->  ( F `  w ) ) )
427 fcompt 6400 . . . . . . 7  |-  ( ( sin : CC --> CC  /\  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) : ( ( A (,) B )  \  { Y } ) --> CC )  ->  ( sin  o.  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )  =  ( w  e.  ( ( A (,) B )  \  { Y } )  |->  ( sin `  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) `  w ) ) ) )
428293, 373, 427sylancr 695 . . . . . 6  |-  ( ph  ->  ( sin  o.  (
y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) )  =  ( w  e.  ( ( A (,) B )  \  { Y } )  |->  ( sin `  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `
 w ) ) ) )
429425, 426, 4283eqtr4rd 2667 . . . . 5  |-  ( ph  ->  ( sin  o.  (
y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) )  =  F )
430429oveq1d 6665 . . . 4  |-  ( ph  ->  ( ( sin  o.  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) lim CC  Y )  =  ( F lim CC  Y ) )
431418, 430eleqtrd 2703 . . 3  |-  ( ph  ->  0  e.  ( F lim
CC  Y ) )
432 simpr 477 . . . . . . . . . 10  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  w  =  Y )
433432iftrued 4094 . . . . . . . . 9  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  if ( w  =  Y ,  0 ,  ( G `  w ) )  =  0 )
434263, 154, 156, 377, 379divdiv32d 10826 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( Y  / 
2 )  /  (
2  x.  pi ) )  =  ( ( Y  /  ( 2  x.  pi ) )  /  2 ) )
435434oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( Y  /  2 )  / 
( 2  x.  pi ) )  x.  (
2  x.  pi ) )  =  ( ( ( Y  /  (
2  x.  pi ) )  /  2 )  x.  ( 2  x.  pi ) ) )
436263halfcld 11277 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( Y  /  2
)  e.  CC )
437436, 156, 379divcan1d 10802 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( Y  /  2 )  / 
( 2  x.  pi ) )  x.  (
2  x.  pi ) )  =  ( Y  /  2 ) )
438384, 154, 156, 377div32d 10824 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( ( Y  /  ( 2  x.  pi ) )  / 
2 )  x.  (
2  x.  pi ) )  =  ( ( Y  /  ( 2  x.  pi ) )  x.  ( ( 2  x.  pi )  / 
2 ) ) )
439155, 154, 377divcan3d 10806 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( 2  x.  pi )  /  2
)  =  pi )
440439oveq2d 6666 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( Y  / 
( 2  x.  pi ) )  x.  (
( 2  x.  pi )  /  2 ) )  =  ( ( Y  /  ( 2  x.  pi ) )  x.  pi ) )
441438, 440eqtrd 2656 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( Y  /  ( 2  x.  pi ) )  / 
2 )  x.  (
2  x.  pi ) )  =  ( ( Y  /  ( 2  x.  pi ) )  x.  pi ) )
442435, 437, 4413eqtr3d 2664 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( Y  /  2
)  =  ( ( Y  /  ( 2  x.  pi ) )  x.  pi ) )
443442fveq2d 6195 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( sin `  ( Y  /  2 ) )  =  ( sin `  (
( Y  /  (
2  x.  pi ) )  x.  pi ) ) )
444 sinkpi 24271 . . . . . . . . . . . . . . 15  |-  ( ( Y  /  ( 2  x.  pi ) )  e.  ZZ  ->  ( sin `  ( ( Y  /  ( 2  x.  pi ) )  x.  pi ) )  =  0 )
445404, 444syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( sin `  (
( Y  /  (
2  x.  pi ) )  x.  pi ) )  =  0 )
446443, 445eqtrd 2656 . . . . . . . . . . . . 13  |-  ( ph  ->  ( sin `  ( Y  /  2 ) )  =  0 )
447446oveq2d 6666 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( 2  x.  pi )  x.  ( sin `  ( Y  / 
2 ) ) )  =  ( ( 2  x.  pi )  x.  0 ) )
448156mul01d 10235 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( 2  x.  pi )  x.  0 )  =  0 )
449447, 448eqtrd 2656 . . . . . . . . . . 11  |-  ( ph  ->  ( ( 2  x.  pi )  x.  ( sin `  ( Y  / 
2 ) ) )  =  0 )
450449eqcomd 2628 . . . . . . . . . 10  |-  ( ph  ->  0  =  ( ( 2  x.  pi )  x.  ( sin `  ( Y  /  2 ) ) ) )
451450ad2antrr 762 . . . . . . . . 9  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  0  =  ( ( 2  x.  pi )  x.  ( sin `  ( Y  /  2 ) ) ) )
452 oveq1 6657 . . . . . . . . . . . . 13  |-  ( w  =  Y  ->  (
w  /  2 )  =  ( Y  / 
2 ) )
453452fveq2d 6195 . . . . . . . . . . . 12  |-  ( w  =  Y  ->  ( sin `  ( w  / 
2 ) )  =  ( sin `  ( Y  /  2 ) ) )
454453oveq2d 6666 . . . . . . . . . . 11  |-  ( w  =  Y  ->  (
( 2  x.  pi )  x.  ( sin `  ( w  /  2
) ) )  =  ( ( 2  x.  pi )  x.  ( sin `  ( Y  / 
2 ) ) ) )
455454eqcomd 2628 . . . . . . . . . 10  |-  ( w  =  Y  ->  (
( 2  x.  pi )  x.  ( sin `  ( Y  /  2
) ) )  =  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )
456455adantl 482 . . . . . . . . 9  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  (
( 2  x.  pi )  x.  ( sin `  ( Y  /  2
) ) )  =  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )
457433, 451, 4563eqtrd 2660 . . . . . . . 8  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  if ( w  =  Y ,  0 ,  ( G `  w ) )  =  ( ( 2  x.  pi )  x.  ( sin `  (
w  /  2 ) ) ) )
458 iffalse 4095 . . . . . . . . . 10  |-  ( -.  w  =  Y  ->  if ( w  =  Y ,  0 ,  ( G `  w ) )  =  ( G `
 w ) )
459458adantl 482 . . . . . . . . 9  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  if ( w  =  Y ,  0 ,  ( G `  w
) )  =  ( G `  w ) )
46023a1i 11 . . . . . . . . . 10  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  G  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) ) )
461 oveq1 6657 . . . . . . . . . . . . 13  |-  ( y  =  w  ->  (
y  /  2 )  =  ( w  / 
2 ) )
462461fveq2d 6195 . . . . . . . . . . . 12  |-  ( y  =  w  ->  ( sin `  ( y  / 
2 ) )  =  ( sin `  (
w  /  2 ) ) )
463462oveq2d 6666 . . . . . . . . . . 11  |-  ( y  =  w  ->  (
( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) )  =  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )
464463adantl 482 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  w  e.  ( A (,) B ) )  /\  -.  w  =  Y
)  /\  y  =  w )  ->  (
( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) )  =  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )
465120a1i 11 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( 2  x.  pi )  e.  CC )
466328halfcld 11277 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( w  /  2 )  e.  CC )
467466sincld 14860 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( sin `  ( w  /  2
) )  e.  CC )
468465, 467mulcld 10060 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( (
2  x.  pi )  x.  ( sin `  (
w  /  2 ) ) )  e.  CC )
469468adantr 481 . . . . . . . . . 10  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) )  e.  CC )
470460, 464, 324, 469fvmptd 6288 . . . . . . . . 9  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( G `  w
)  =  ( ( 2  x.  pi )  x.  ( sin `  (
w  /  2 ) ) ) )
471459, 470eqtrd 2656 . . . . . . . 8  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  if ( w  =  Y ,  0 ,  ( G `  w
) )  =  ( ( 2  x.  pi )  x.  ( sin `  ( w  /  2
) ) ) )
472457, 471pm2.61dan 832 . . . . . . 7  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  if (
w  =  Y , 
0 ,  ( G `
 w ) )  =  ( ( 2  x.  pi )  x.  ( sin `  (
w  /  2 ) ) ) )
473472mpteq2dva 4744 . . . . . 6  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  if ( w  =  Y ,  0 ,  ( G `  w
) ) )  =  ( w  e.  ( A (,) B ) 
|->  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) ) )
474 eqid 2622 . . . . . . . . . . 11  |-  ( w  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  (
w  /  2 ) ) ) )  =  ( w  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )
47575, 156, 75constcncfg 40084 . . . . . . . . . . . 12  |-  ( ph  ->  ( w  e.  CC  |->  ( 2  x.  pi ) )  e.  ( CC -cn-> CC ) )
476 id 22 . . . . . . . . . . . . . . . . 17  |-  ( w  e.  CC  ->  w  e.  CC )
477 2cnd 11093 . . . . . . . . . . . . . . . . 17  |-  ( w  e.  CC  ->  2  e.  CC )
478134a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( w  e.  CC  ->  2  =/=  0 )
479476, 477, 478divrec2d 10805 . . . . . . . . . . . . . . . 16  |-  ( w  e.  CC  ->  (
w  /  2 )  =  ( ( 1  /  2 )  x.  w ) )
480479mpteq2ia 4740 . . . . . . . . . . . . . . 15  |-  ( w  e.  CC  |->  ( w  /  2 ) )  =  ( w  e.  CC  |->  ( ( 1  /  2 )  x.  w ) )
481 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  ( w  e.  CC  |->  ( ( 1  /  2 )  x.  w ) )  =  ( w  e.  CC  |->  ( ( 1  /  2 )  x.  w ) )
482481mulc1cncf 22708 . . . . . . . . . . . . . . . 16  |-  ( ( 1  /  2 )  e.  CC  ->  (
w  e.  CC  |->  ( ( 1  /  2
)  x.  w ) )  e.  ( CC
-cn-> CC ) )
48339, 482ax-mp 5 . . . . . . . . . . . . . . 15  |-  ( w  e.  CC  |->  ( ( 1  /  2 )  x.  w ) )  e.  ( CC -cn-> CC )
484480, 483eqeltri 2697 . . . . . . . . . . . . . 14  |-  ( w  e.  CC  |->  ( w  /  2 ) )  e.  ( CC -cn-> CC )
485484a1i 11 . . . . . . . . . . . . 13  |-  ( ph  ->  ( w  e.  CC  |->  ( w  /  2
) )  e.  ( CC -cn-> CC ) )
486415, 485cncfmpt1f 22716 . . . . . . . . . . . 12  |-  ( ph  ->  ( w  e.  CC  |->  ( sin `  ( w  /  2 ) ) )  e.  ( CC
-cn-> CC ) )
487475, 486mulcncf 23215 . . . . . . . . . . 11  |-  ( ph  ->  ( w  e.  CC  |->  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )  e.  ( CC
-cn-> CC ) )
488474, 487, 349, 75, 468cncfmptssg 40083 . . . . . . . . . 10  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )  e.  ( ( A (,) B )
-cn-> CC ) )
489 eqid 2622 . . . . . . . . . . . 12  |-  ( (
TopOpen ` fld )t  ( A (,) B
) )  =  ( ( TopOpen ` fld )t  ( A (,) B ) )
49051, 489, 345cncfcn 22712 . . . . . . . . . . 11  |-  ( ( ( A (,) B
)  C_  CC  /\  CC  C_  CC )  ->  (
( A (,) B
) -cn-> CC )  =  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) ) )
491349, 74, 490sylancl 694 . . . . . . . . . 10  |-  ( ph  ->  ( ( A (,) B ) -cn-> CC )  =  ( ( (
TopOpen ` fld )t  ( A (,) B
) )  Cn  ( TopOpen
` fld
) ) )
492488, 491eleqtrd 2703 . . . . . . . . 9  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) ) )
493 cncnp 21084 . . . . . . . . . 10  |-  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  e.  (TopOn `  ( A (,) B ) )  /\  ( TopOpen ` fld )  e.  (TopOn `  CC ) )  -> 
( ( w  e.  ( A (,) B
)  |->  ( ( 2  x.  pi )  x.  ( sin `  (
w  /  2 ) ) ) )  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) )  <->  ( (
w  e.  ( A (,) B )  |->  ( ( 2  x.  pi )  x.  ( sin `  ( w  /  2
) ) ) ) : ( A (,) B ) --> CC  /\  A. y  e.  ( A (,) B ) ( w  e.  ( A (,) B )  |->  ( ( 2  x.  pi )  x.  ( sin `  ( w  /  2
) ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
) ) ) )
494355, 353, 493sylancl 694 . . . . . . . . 9  |-  ( ph  ->  ( ( w  e.  ( A (,) B
)  |->  ( ( 2  x.  pi )  x.  ( sin `  (
w  /  2 ) ) ) )  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) )  <->  ( (
w  e.  ( A (,) B )  |->  ( ( 2  x.  pi )  x.  ( sin `  ( w  /  2
) ) ) ) : ( A (,) B ) --> CC  /\  A. y  e.  ( A (,) B ) ( w  e.  ( A (,) B )  |->  ( ( 2  x.  pi )  x.  ( sin `  ( w  /  2
) ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
) ) ) )
495492, 494mpbid 222 . . . . . . . 8  |-  ( ph  ->  ( ( w  e.  ( A (,) B
)  |->  ( ( 2  x.  pi )  x.  ( sin `  (
w  /  2 ) ) ) ) : ( A (,) B
) --> CC  /\  A. y  e.  ( A (,) B ) ( w  e.  ( A (,) B )  |->  ( ( 2  x.  pi )  x.  ( sin `  (
w  /  2 ) ) ) )  e.  ( ( ( (
TopOpen ` fld )t  ( A (,) B
) )  CnP  ( TopOpen
` fld
) ) `  y
) ) )
496495simprd 479 . . . . . . 7  |-  ( ph  ->  A. y  e.  ( A (,) B ) ( w  e.  ( A (,) B ) 
|->  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
) )
497360eleq2d 2687 . . . . . . . 8  |-  ( y  =  Y  ->  (
( w  e.  ( A (,) B ) 
|->  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
)  <->  ( w  e.  ( A (,) B
)  |->  ( ( 2  x.  pi )  x.  ( sin `  (
w  /  2 ) ) ) )  e.  ( ( ( (
TopOpen ` fld )t  ( A (,) B
) )  CnP  ( TopOpen
` fld
) ) `  Y
) ) )
498497rspccva 3308 . . . . . . 7  |-  ( ( A. y  e.  ( A (,) B ) ( w  e.  ( A (,) B ) 
|->  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
)  /\  Y  e.  ( A (,) B ) )  ->  ( w  e.  ( A (,) B
)  |->  ( ( 2  x.  pi )  x.  ( sin `  (
w  /  2 ) ) ) )  e.  ( ( ( (
TopOpen ` fld )t  ( A (,) B
) )  CnP  ( TopOpen
` fld
) ) `  Y
) )
499496, 27, 498syl2anc 693 . . . . . 6  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( ( 2  x.  pi )  x.  ( sin `  ( w  / 
2 ) ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
500473, 499eqeltrd 2701 . . . . 5  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  if ( w  =  Y ,  0 ,  ( G `  w
) ) )  e.  ( ( ( (
TopOpen ` fld )t  ( A (,) B
) )  CnP  ( TopOpen
` fld
) ) `  Y
) )
501307mpteq1d 4738 . . . . 5  |-  ( ph  ->  ( w  e.  ( ( ( A (,) B )  \  { Y } )  u.  { Y } )  |->  if ( w  =  Y , 
0 ,  ( G `
 w ) ) )  =  ( w  e.  ( A (,) B )  |->  if ( w  =  Y , 
0 ,  ( G `
 w ) ) ) )
502366eqcomd 2628 . . . . . . 7  |-  ( ph  ->  ( ( TopOpen ` fld )t  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } ) )  =  ( ( TopOpen ` fld )t  ( A (,) B ) ) )
503502oveq1d 6665 . . . . . 6  |-  ( ph  ->  ( ( ( TopOpen ` fld )t  (
( ( A (,) B )  \  { Y } )  u.  { Y } ) )  CnP  ( TopOpen ` fld ) )  =  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) )
504503fveq1d 6193 . . . . 5  |-  ( ph  ->  ( ( ( (
TopOpen ` fld )t  ( ( ( A (,) B )  \  { Y } )  u. 
{ Y } ) )  CnP  ( TopOpen ` fld )
) `  Y )  =  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
505500, 501, 5043eltr4d 2716 . . . 4  |-  ( ph  ->  ( w  e.  ( ( ( A (,) B )  \  { Y } )  u.  { Y } )  |->  if ( w  =  Y , 
0 ,  ( G `
 w ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
506 eqid 2622 . . . . 5  |-  ( w  e.  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } )  |->  if ( w  =  Y , 
0 ,  ( G `
 w ) ) )  =  ( w  e.  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } )  |->  if ( w  =  Y , 
0 ,  ( G `
 w ) ) )
50711, 124syldan 487 . . . . . 6  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( 2  x.  pi )  x.  ( sin `  ( y  / 
2 ) ) )  e.  CC )
508507, 23fmptd 6385 . . . . 5  |-  ( ph  ->  G : ( ( A (,) B ) 
\  { Y }
) --> CC )
509371, 51, 506, 508, 374, 263ellimc 23637 . . . 4  |-  ( ph  ->  ( 0  e.  ( G lim CC  Y )  <-> 
( w  e.  ( ( ( A (,) B )  \  { Y } )  u.  { Y } )  |->  if ( w  =  Y , 
0 ,  ( G `
 w ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } ) )  CnP  ( TopOpen ` fld ) ) `  Y
) ) )
510505, 509mpbird 247 . . 3  |-  ( ph  ->  0  e.  ( G lim
CC  Y ) )
511256nrexdv 3001 . . . 4  |-  ( ph  ->  -.  E. y  e.  ( ( A (,) B )  \  { Y } ) ( y  mod  ( 2  x.  pi ) )  =  0 )
512 ffun 6048 . . . . . . 7  |-  ( G : ( ( A (,) B )  \  { Y } ) --> CC 
->  Fun  G )
513508, 512syl 17 . . . . . 6  |-  ( ph  ->  Fun  G )
514 fvelima 6248 . . . . . 6  |-  ( ( Fun  G  /\  0  e.  ( G " (
( A (,) B
)  \  { Y } ) ) )  ->  E. y  e.  ( ( A (,) B
)  \  { Y } ) ( G `
 y )  =  0 )
515513, 514sylan 488 . . . . 5  |-  ( (
ph  /\  0  e.  ( G " ( ( A (,) B ) 
\  { Y }
) ) )  ->  E. y  e.  (
( A (,) B
)  \  { Y } ) ( G `
 y )  =  0 )
516 2cnd 11093 . . . . . . . . . . . . 13  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
2  e.  CC )
517119a1i 11 . . . . . . . . . . . . 13  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  pi  e.  CC )
518134a1i 11 . . . . . . . . . . . . 13  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
2  =/=  0 )
519238a1i 11 . . . . . . . . . . . . 13  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  pi  =/=  0 )
520105, 516, 517, 518, 519divdiv1d 10832 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( y  / 
2 )  /  pi )  =  ( y  /  ( 2  x.  pi ) ) )
521520eqcomd 2628 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( y  /  (
2  x.  pi ) )  =  ( ( y  /  2 )  /  pi ) )
522521adantr 481 . . . . . . . . . 10  |-  ( ( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( G `  y )  =  0 )  -> 
( y  /  (
2  x.  pi ) )  =  ( ( y  /  2 )  /  pi ) )
523 2cnd 11093 . . . . . . . . . . . . . . . . . . 19  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  2  e.  CC )
524119a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  pi  e.  CC )
525523, 524mulcld 10060 . . . . . . . . . . . . . . . . . 18  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  ( 2  x.  pi )  e.  CC )
526232adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  y  e.  CC )
527526halfcld 11277 . . . . . . . . . . . . . . . . . . 19  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  ( y  /  2 )  e.  CC )
528527sincld 14860 . . . . . . . . . . . . . . . . . 18  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  ( sin `  ( y  /  2
) )  e.  CC )
529525, 528mulcld 10060 . . . . . . . . . . . . . . . . 17  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  ( (
2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) )  e.  CC )
53023fvmpt2 6291 . . . . . . . . . . . . . . . . 17  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( (
2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) )  e.  CC )  ->  ( G `  y )  =  ( ( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) )
531529, 530syldan 487 . . . . . . . . . . . . . . . 16  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  ( G `  y )  =  ( ( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) )
532531eqcomd 2628 . . . . . . . . . . . . . . 15  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  ( (
2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) )  =  ( G `  y ) )
533 simpr 477 . . . . . . . . . . . . . . 15  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  ( G `  y )  =  0 )
534532, 533eqtrd 2656 . . . . . . . . . . . . . 14  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  ( (
2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) )  =  0 )
535120a1i 11 . . . . . . . . . . . . . . . 16  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  -> 
( 2  x.  pi )  e.  CC )
536232halfcld 11277 . . . . . . . . . . . . . . . . 17  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  -> 
( y  /  2
)  e.  CC )
537536sincld 14860 . . . . . . . . . . . . . . . 16  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  -> 
( sin `  (
y  /  2 ) )  e.  CC )
538535, 537mul0ord 10677 . . . . . . . . . . . . . . 15  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  -> 
( ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) )  =  0  <-> 
( ( 2  x.  pi )  =  0  \/  ( sin `  (
y  /  2 ) )  =  0 ) ) )
539538adantr 481 . . . . . . . . . . . . . 14  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  ( (
( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) )  =  0  <->  ( ( 2  x.  pi )  =  0  \/  ( sin `  ( y  /  2
) )  =  0 ) ) )
540534, 539mpbid 222 . . . . . . . . . . . . 13  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  ( (
2  x.  pi )  =  0  \/  ( sin `  ( y  / 
2 ) )  =  0 ) )
541 2cnne0 11242 . . . . . . . . . . . . . . 15  |-  ( 2  e.  CC  /\  2  =/=  0 )
542119, 238pm3.2i 471 . . . . . . . . . . . . . . 15  |-  ( pi  e.  CC  /\  pi  =/=  0 )
543 mulne0 10669 . . . . . . . . . . . . . . 15  |-  ( ( ( 2  e.  CC  /\  2  =/=  0 )  /\  ( pi  e.  CC  /\  pi  =/=  0
) )  ->  (
2  x.  pi )  =/=  0 )
544541, 542, 543mp2an 708 . . . . . . . . . . . . . 14  |-  ( 2  x.  pi )  =/=  0
545544neii 2796 . . . . . . . . . . . . 13  |-  -.  (
2  x.  pi )  =  0
546 pm2.53 388 . . . . . . . . . . . . 13  |-  ( ( ( 2  x.  pi )  =  0  \/  ( sin `  ( y  /  2 ) )  =  0 )  -> 
( -.  ( 2  x.  pi )  =  0  ->  ( sin `  ( y  /  2
) )  =  0 ) )
547540, 545, 546mpisyl 21 . . . . . . . . . . . 12  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( G `  y )  =  0 )  ->  ( sin `  ( y  /  2
) )  =  0 )
548547adantll 750 . . . . . . . . . . 11  |-  ( ( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( G `  y )  =  0 )  -> 
( sin `  (
y  /  2 ) )  =  0 )
549105adantr 481 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( G `  y )  =  0 )  -> 
y  e.  CC )
550549halfcld 11277 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( G `  y )  =  0 )  -> 
( y  /  2
)  e.  CC )
551550, 246syl 17 . . . . . . . . . . 11  |-  ( ( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( G `  y )  =  0 )  -> 
( ( sin `  (
y  /  2 ) )  =  0  <->  (
( y  /  2
)  /  pi )  e.  ZZ ) )
552548, 551mpbid 222 . . . . . . . . . 10  |-  ( ( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( G `  y )  =  0 )  -> 
( ( y  / 
2 )  /  pi )  e.  ZZ )
553522, 552eqeltrd 2701 . . . . . . . . 9  |-  ( ( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( G `  y )  =  0 )  -> 
( y  /  (
2  x.  pi ) )  e.  ZZ )
55411adantr 481 . . . . . . . . . 10  |-  ( ( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( G `  y )  =  0 )  -> 
y  e.  RR )
555554, 253, 254sylancl 694 . . . . . . . . 9  |-  ( ( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( G `  y )  =  0 )  -> 
( ( y  mod  ( 2  x.  pi ) )  =  0  <-> 
( y  /  (
2  x.  pi ) )  e.  ZZ ) )
556553, 555mpbird 247 . . . . . . . 8  |-  ( ( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  /\  ( G `  y )  =  0 )  -> 
( y  mod  (
2  x.  pi ) )  =  0 )
557556ex 450 . . . . . . 7  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( G `  y )  =  0  ->  ( y  mod  ( 2  x.  pi ) )  =  0 ) )
558557reximdva 3017 . . . . . 6  |-  ( ph  ->  ( E. y  e.  ( ( A (,) B )  \  { Y } ) ( G `
 y )  =  0  ->  E. y  e.  ( ( A (,) B )  \  { Y } ) ( y  mod  ( 2  x.  pi ) )  =  0 ) )
559558adantr 481 . . . . 5  |-  ( (
ph  /\  0  e.  ( G " ( ( A (,) B ) 
\  { Y }
) ) )  -> 
( E. y  e.  ( ( A (,) B )  \  { Y } ) ( G `
 y )  =  0  ->  E. y  e.  ( ( A (,) B )  \  { Y } ) ( y  mod  ( 2  x.  pi ) )  =  0 ) )
560515, 559mpd 15 . . . 4  |-  ( (
ph  /\  0  e.  ( G " ( ( A (,) B ) 
\  { Y }
) ) )  ->  E. y  e.  (
( A (,) B
)  \  { Y } ) ( y  mod  ( 2  x.  pi ) )  =  0 )
561511, 560mtand 691 . . 3  |-  ( ph  ->  -.  0  e.  ( G " ( ( A (,) B ) 
\  { Y }
) ) )
562 simpr 477 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
y  e.  ( ( A (,) B ) 
\  { Y }
) )
563111fvmpt2 6291 . . . . . . . . 9  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( pi  x.  ( cos `  (
y  /  2 ) ) )  e.  CC )  ->  ( I `  y )  =  ( pi  x.  ( cos `  ( y  /  2
) ) ) )
564562, 201, 563syl2anc 693 . . . . . . . 8  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( I `  y
)  =  ( pi  x.  ( cos `  (
y  /  2 ) ) ) )
565536coscld 14861 . . . . . . . . . 10  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  -> 
( cos `  (
y  /  2 ) )  e.  CC )
566565adantl 482 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( cos `  (
y  /  2 ) )  e.  CC )
567 dirkercncflem2.11 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( cos `  (
y  /  2 ) )  =/=  0 )
568517, 566, 519, 567mulne0d 10679 . . . . . . . 8  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( pi  x.  ( cos `  ( y  / 
2 ) ) )  =/=  0 )
569564, 568eqnetrd 2861 . . . . . . 7  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( I `  y
)  =/=  0 )
570569neneqd 2799 . . . . . 6  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  -.  ( I `  y
)  =  0 )
571570nrexdv 3001 . . . . 5  |-  ( ph  ->  -.  E. y  e.  ( ( A (,) B )  \  { Y } ) ( I `
 y )  =  0 )
572201, 111fmptd 6385 . . . . . . 7  |-  ( ph  ->  I : ( ( A (,) B ) 
\  { Y }
) --> CC )
573 ffun 6048 . . . . . . 7  |-  ( I : ( ( A (,) B )  \  { Y } ) --> CC 
->  Fun  I )
574572, 573syl 17 . . . . . 6  |-  ( ph  ->  Fun  I )
575 fvelima 6248 . . . . . 6  |-  ( ( Fun  I  /\  0  e.  ( I " (
( A (,) B
)  \  { Y } ) ) )  ->  E. y  e.  ( ( A (,) B
)  \  { Y } ) ( I `
 y )  =  0 )
576574, 575sylan 488 . . . . 5  |-  ( (
ph  /\  0  e.  ( I " (
( A (,) B
)  \  { Y } ) ) )  ->  E. y  e.  ( ( A (,) B
)  \  { Y } ) ( I `
 y )  =  0 )
577571, 576mtand 691 . . . 4  |-  ( ph  ->  -.  0  e.  ( I " ( ( A (,) B ) 
\  { Y }
) ) )
578199imaeq1d 5465 . . . 4  |-  ( ph  ->  ( ( RR  _D  G ) " (
( A (,) B
)  \  { Y } ) )  =  ( I " (
( A (,) B
)  \  { Y } ) ) )
579577, 578neleqtrrd 2723 . . 3  |-  ( ph  ->  -.  0  e.  ( ( RR  _D  G
) " ( ( A (,) B ) 
\  { Y }
) ) )
580 dirkercncflem2.d . . . . . 6  |-  D  =  ( n  e.  NN  |->  ( y  e.  RR  |->  if ( ( y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  n )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( n  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) ) )
581580dirkerval2 40311 . . . . 5  |-  ( ( N  e.  NN  /\  Y  e.  RR )  ->  ( ( D `  N ) `  Y
)  =  if ( ( Y  mod  (
2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  ( Y  /  2 ) ) ) ) ) )
5825, 57, 581syl2anc 693 . . . 4  |-  ( ph  ->  ( ( D `  N ) `  Y
)  =  if ( ( Y  mod  (
2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  Y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  ( Y  /  2 ) ) ) ) ) )
583282iftrued 4094 . . . . 5  |-  ( ph  ->  if ( ( Y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N
)  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( sin `  (
( N  +  ( 1  /  2 ) )  x.  Y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  ( Y  /  2 ) ) ) ) )  =  ( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) ) )
584 dirkercncflem2.l . . . . . . . . . . 11  |-  L  =  ( w  e.  ( A (,) B ) 
|->  ( ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )  /  (
pi  x.  ( cos `  ( w  /  2
) ) ) ) )
585584a1i 11 . . . . . . . . . 10  |-  ( ph  ->  L  =  ( w  e.  ( A (,) B )  |->  ( ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  w
) ) )  / 
( pi  x.  ( cos `  ( w  / 
2 ) ) ) ) ) )
586 iftrue 4092 . . . . . . . . . . . . . 14  |-  ( w  =  Y  ->  if ( w  =  Y ,  ( ( ( 2  x.  N )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) `
 w ) )  =  ( ( ( 2  x.  N )  +  1 )  / 
( 2  x.  pi ) ) )
587586adantl 482 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  if ( w  =  Y ,  ( ( ( 2  x.  N )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) `
 w ) )  =  ( ( ( 2  x.  N )  +  1 )  / 
( 2  x.  pi ) ) )
588154, 38mulcld 10060 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( 2  x.  N
)  e.  CC )
589588, 397addcld 10059 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( 2  x.  N )  +  1 )  e.  CC )
590589, 154, 155, 377, 378divdiv1d 10832 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( ( 2  x.  N )  +  1 )  / 
2 )  /  pi )  =  ( (
( 2  x.  N
)  +  1 )  /  ( 2  x.  pi ) ) )
591590eqcomd 2628 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) )  =  ( ( ( ( 2  x.  N )  +  1 )  /  2 )  /  pi ) )
592588, 397, 154, 377divdird 10839 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( ( 2  x.  N )  +  1 )  /  2
)  =  ( ( ( 2  x.  N
)  /  2 )  +  ( 1  / 
2 ) ) )
59338, 154, 377divcan3d 10806 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( ( 2  x.  N )  /  2
)  =  N )
594593oveq1d 6665 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( ( 2  x.  N )  / 
2 )  +  ( 1  /  2 ) )  =  ( N  +  ( 1  / 
2 ) ) )
595592, 594eqtrd 2656 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( 2  x.  N )  +  1 )  /  2
)  =  ( N  +  ( 1  / 
2 ) ) )
596595oveq1d 6665 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( ( ( 2  x.  N )  +  1 )  / 
2 )  /  pi )  =  ( ( N  +  ( 1  /  2 ) )  /  pi ) )
597591, 596eqtrd 2656 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) )  =  ( ( N  +  ( 1  /  2 ) )  /  pi ) )
598597ad2antrr 762 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  (
( ( 2  x.  N )  +  1 )  /  ( 2  x.  pi ) )  =  ( ( N  +  ( 1  / 
2 ) )  /  pi ) )
599310fveq2d 6195 . . . . . . . . . . . . . . . . 17  |-  ( w  =  Y  ->  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )  =  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  Y ) ) )
600599oveq2d 6666 . . . . . . . . . . . . . . . 16  |-  ( w  =  Y  ->  (
( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  w
) ) )  =  ( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  Y ) ) ) )
601452fveq2d 6195 . . . . . . . . . . . . . . . . 17  |-  ( w  =  Y  ->  ( cos `  ( w  / 
2 ) )  =  ( cos `  ( Y  /  2 ) ) )
602601oveq2d 6666 . . . . . . . . . . . . . . . 16  |-  ( w  =  Y  ->  (
pi  x.  ( cos `  ( w  /  2
) ) )  =  ( pi  x.  ( cos `  ( Y  / 
2 ) ) ) )
603600, 602oveq12d 6668 . . . . . . . . . . . . . . 15  |-  ( w  =  Y  ->  (
( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  w ) ) )  /  ( pi  x.  ( cos `  ( w  /  2 ) ) ) )  =  ( ( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  Y ) ) )  /  ( pi  x.  ( cos `  ( Y  /  2 ) ) ) ) )
604603adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  (
( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  w ) ) )  /  ( pi  x.  ( cos `  ( w  /  2 ) ) ) )  =  ( ( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  Y ) ) )  /  ( pi  x.  ( cos `  ( Y  /  2 ) ) ) ) )
60538, 40, 263adddird 10065 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  Y
)  =  ( ( N  x.  Y )  +  ( ( 1  /  2 )  x.  Y ) ) )
606397, 154, 263, 377div32d 10824 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( ( 1  / 
2 )  x.  Y
)  =  ( 1  x.  ( Y  / 
2 ) ) )
607436mulid2d 10058 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ph  ->  ( 1  x.  ( Y  /  2 ) )  =  ( Y  / 
2 ) )
608606, 607eqtrd 2656 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( 1  / 
2 )  x.  Y
)  =  ( Y  /  2 ) )
609608oveq2d 6666 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( ( N  x.  Y )  +  ( ( 1  /  2
)  x.  Y ) )  =  ( ( N  x.  Y )  +  ( Y  / 
2 ) ) )
61038, 263mulcld 10060 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( N  x.  Y
)  e.  CC )
611610, 436addcomd 10238 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( ( N  x.  Y )  +  ( Y  /  2 ) )  =  ( ( Y  /  2 )  +  ( N  x.  Y ) ) )
612605, 609, 6113eqtrd 2660 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  Y
)  =  ( ( Y  /  2 )  +  ( N  x.  Y ) ) )
613612fveq2d 6195 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  Y ) )  =  ( cos `  ( ( Y  / 
2 )  +  ( N  x.  Y ) ) ) )
614610, 156, 379divcan1d 10802 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ph  ->  ( ( ( N  x.  Y )  / 
( 2  x.  pi ) )  x.  (
2  x.  pi ) )  =  ( N  x.  Y ) )
615614eqcomd 2628 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( N  x.  Y
)  =  ( ( ( N  x.  Y
)  /  ( 2  x.  pi ) )  x.  ( 2  x.  pi ) ) )
616615oveq2d 6666 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( Y  / 
2 )  +  ( N  x.  Y ) )  =  ( ( Y  /  2 )  +  ( ( ( N  x.  Y )  /  ( 2  x.  pi ) )  x.  ( 2  x.  pi ) ) ) )
617616fveq2d 6195 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( cos `  (
( Y  /  2
)  +  ( N  x.  Y ) ) )  =  ( cos `  ( ( Y  / 
2 )  +  ( ( ( N  x.  Y )  /  (
2  x.  pi ) )  x.  ( 2  x.  pi ) ) ) ) )
61838, 263, 156, 379divassd 10836 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( ( N  x.  Y )  /  (
2  x.  pi ) )  =  ( N  x.  ( Y  / 
( 2  x.  pi ) ) ) )
619405, 404zmulcld 11488 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( N  x.  ( Y  /  ( 2  x.  pi ) ) )  e.  ZZ )
620618, 619eqeltrd 2701 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( N  x.  Y )  /  (
2  x.  pi ) )  e.  ZZ )
621 cosper 24234 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( Y  /  2
)  e.  CC  /\  ( ( N  x.  Y )  /  (
2  x.  pi ) )  e.  ZZ )  ->  ( cos `  (
( Y  /  2
)  +  ( ( ( N  x.  Y
)  /  ( 2  x.  pi ) )  x.  ( 2  x.  pi ) ) ) )  =  ( cos `  ( Y  /  2
) ) )
622436, 620, 621syl2anc 693 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( cos `  (
( Y  /  2
)  +  ( ( ( N  x.  Y
)  /  ( 2  x.  pi ) )  x.  ( 2  x.  pi ) ) ) )  =  ( cos `  ( Y  /  2
) ) )
623613, 617, 6223eqtrd 2660 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  Y ) )  =  ( cos `  ( Y  /  2
) ) )
624623oveq2d 6666 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  Y ) ) )  =  ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  ( Y  /  2 ) ) ) )
625624oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  Y ) ) )  /  (
pi  x.  ( cos `  ( Y  /  2
) ) ) )  =  ( ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( Y  /  2 ) ) )  /  ( pi  x.  ( cos `  ( Y  /  2 ) ) ) ) )
626436coscld 14861 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( cos `  ( Y  /  2 ) )  e.  CC )
627263, 154, 155, 377, 378divdiv1d 10832 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( ( Y  / 
2 )  /  pi )  =  ( Y  /  ( 2  x.  pi ) ) )
628627, 404eqeltrd 2701 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( Y  / 
2 )  /  pi )  e.  ZZ )
629628zred 11482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( ( Y  / 
2 )  /  pi )  e.  RR )
630629, 272ltaddrpd 11905 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( Y  / 
2 )  /  pi )  <  ( ( ( Y  /  2 )  /  pi )  +  ( 1  /  2
) ) )
631 halflt1 11250 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( 1  /  2 )  <  1
632631a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( 1  /  2
)  <  1 )
633268, 267, 629, 632ltadd2dd 10196 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( ( ( Y  /  2 )  /  pi )  +  (
1  /  2 ) )  <  ( ( ( Y  /  2
)  /  pi )  +  1 ) )
634 btwnnz 11453 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( Y  / 
2 )  /  pi )  e.  ZZ  /\  (
( Y  /  2
)  /  pi )  <  ( ( ( Y  /  2 )  /  pi )  +  ( 1  /  2
) )  /\  (
( ( Y  / 
2 )  /  pi )  +  ( 1  /  2 ) )  <  ( ( ( Y  /  2 )  /  pi )  +  1 ) )  ->  -.  ( ( ( Y  /  2 )  /  pi )  +  (
1  /  2 ) )  e.  ZZ )
635628, 630, 633, 634syl3anc 1326 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  -.  ( ( ( Y  /  2 )  /  pi )  +  ( 1  /  2
) )  e.  ZZ )
636 coseq0 40075 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( Y  /  2 )  e.  CC  ->  (
( cos `  ( Y  /  2 ) )  =  0  <->  ( (
( Y  /  2
)  /  pi )  +  ( 1  / 
2 ) )  e.  ZZ ) )
637436, 636syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( ( cos `  ( Y  /  2 ) )  =  0  <->  ( (
( Y  /  2
)  /  pi )  +  ( 1  / 
2 ) )  e.  ZZ ) )
638635, 637mtbird 315 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  -.  ( cos `  ( Y  /  2 ) )  =  0 )
639638neqned 2801 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( cos `  ( Y  /  2 ) )  =/=  0 )
64041, 155, 626, 378, 639divcan5rd 10828 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  ( Y  /  2 ) ) )  /  ( pi  x.  ( cos `  ( Y  /  2 ) ) ) )  =  ( ( N  +  ( 1  /  2 ) )  /  pi ) )
641625, 640eqtrd 2656 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  Y ) ) )  /  (
pi  x.  ( cos `  ( Y  /  2
) ) ) )  =  ( ( N  +  ( 1  / 
2 ) )  /  pi ) )
642641ad2antrr 762 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  (
( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  Y ) ) )  /  ( pi  x.  ( cos `  ( Y  /  2 ) ) ) )  =  ( ( N  +  ( 1  /  2 ) )  /  pi ) )
643604, 642eqtr2d 2657 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  (
( N  +  ( 1  /  2 ) )  /  pi )  =  ( ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )  /  (
pi  x.  ( cos `  ( w  /  2
) ) ) ) )
644587, 598, 6433eqtrrd 2661 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  (
( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  w ) ) )  /  ( pi  x.  ( cos `  ( w  /  2 ) ) ) )  =  if ( w  =  Y ,  ( ( ( 2  x.  N )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) `
 w ) ) )
645 iffalse 4095 . . . . . . . . . . . . . 14  |-  ( -.  w  =  Y  ->  if ( w  =  Y ,  ( ( ( 2  x.  N )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) `
 w ) )  =  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y
)  /  ( I `
 y ) ) ) `  w ) )
646645adantl 482 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  if ( w  =  Y ,  ( ( ( 2  x.  N
)  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) `
 w ) )  =  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y
)  /  ( I `
 y ) ) ) `  w ) )
647 eqidd 2623 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) )  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) )
648 fveq2 6191 . . . . . . . . . . . . . . . 16  |-  ( y  =  w  ->  ( H `  y )  =  ( H `  w ) )
649 fveq2 6191 . . . . . . . . . . . . . . . 16  |-  ( y  =  w  ->  (
I `  y )  =  ( I `  w ) )
650648, 649oveq12d 6668 . . . . . . . . . . . . . . 15  |-  ( y  =  w  ->  (
( H `  y
)  /  ( I `
 y ) )  =  ( ( H `
 w )  / 
( I `  w
) ) )
651650adantl 482 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  w  e.  ( A (,) B ) )  /\  -.  w  =  Y
)  /\  y  =  w )  ->  (
( H `  y
)  /  ( I `
 y ) )  =  ( ( H `
 w )  / 
( I `  w
) ) )
652106, 100fmptd 6385 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  H : ( ( A (,) B ) 
\  { Y }
) --> CC )
653652ad2antrr 762 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  H : ( ( A (,) B ) 
\  { Y }
) --> CC )
654653, 324ffvelrnd 6360 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( H `  w
)  e.  CC )
655572ad2antrr 762 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  I : ( ( A (,) B ) 
\  { Y }
) --> CC )
656655, 324ffvelrnd 6360 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( I `  w
)  e.  CC )
657111a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  I  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( pi  x.  ( cos `  ( y  /  2
) ) ) ) )
658 simpr 477 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ph  /\  w  e.  ( A (,) B ) )  /\  -.  w  =  Y
)  /\  y  =  w )  ->  y  =  w )
659658oveq1d 6665 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ph  /\  w  e.  ( A (,) B ) )  /\  -.  w  =  Y
)  /\  y  =  w )  ->  (
y  /  2 )  =  ( w  / 
2 ) )
660659fveq2d 6195 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  w  e.  ( A (,) B ) )  /\  -.  w  =  Y
)  /\  y  =  w )  ->  ( cos `  ( y  / 
2 ) )  =  ( cos `  (
w  /  2 ) ) )
661660oveq2d 6666 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  w  e.  ( A (,) B ) )  /\  -.  w  =  Y
)  /\  y  =  w )  ->  (
pi  x.  ( cos `  ( y  /  2
) ) )  =  ( pi  x.  ( cos `  ( w  / 
2 ) ) ) )
662119a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( w  e.  ( A (,) B )  ->  pi  e.  CC )
663327halfcld 11277 . . . . . . . . . . . . . . . . . . . 20  |-  ( w  e.  ( A (,) B )  ->  (
w  /  2 )  e.  CC )
664663coscld 14861 . . . . . . . . . . . . . . . . . . 19  |-  ( w  e.  ( A (,) B )  ->  ( cos `  ( w  / 
2 ) )  e.  CC )
665662, 664mulcld 10060 . . . . . . . . . . . . . . . . . 18  |-  ( w  e.  ( A (,) B )  ->  (
pi  x.  ( cos `  ( w  /  2
) ) )  e.  CC )
666665ad2antlr 763 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( pi  x.  ( cos `  ( w  / 
2 ) ) )  e.  CC )
667657, 661, 324, 666fvmptd 6288 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( I `  w
)  =  ( pi  x.  ( cos `  (
w  /  2 ) ) ) )
668542a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( pi  e.  CC  /\  pi  =/=  0 ) )
669664ad2antlr 763 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( cos `  (
w  /  2 ) )  e.  CC )
670 simpll 790 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ph )
671461fveq2d 6195 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  =  w  ->  ( cos `  ( y  / 
2 ) )  =  ( cos `  (
w  /  2 ) ) )
672671neeq1d 2853 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  =  w  ->  (
( cos `  (
y  /  2 ) )  =/=  0  <->  ( cos `  ( w  / 
2 ) )  =/=  0 ) )
673226, 672imbi12d 334 . . . . . . . . . . . . . . . . . . 19  |-  ( y  =  w  ->  (
( ( ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  ( cos `  (
y  /  2 ) )  =/=  0 )  <-> 
( ( ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  ->  ( cos `  (
w  /  2 ) )  =/=  0 ) ) )
674673, 567chvarv 2263 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( cos `  (
w  /  2 ) )  =/=  0 )
675670, 324, 674syl2anc 693 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( cos `  (
w  /  2 ) )  =/=  0 )
676 mulne0 10669 . . . . . . . . . . . . . . . . 17  |-  ( ( ( pi  e.  CC  /\  pi  =/=  0 )  /\  ( ( cos `  ( w  /  2
) )  e.  CC  /\  ( cos `  (
w  /  2 ) )  =/=  0 ) )  ->  ( pi  x.  ( cos `  (
w  /  2 ) ) )  =/=  0
)
677668, 669, 675, 676syl12anc 1324 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( pi  x.  ( cos `  ( w  / 
2 ) ) )  =/=  0 )
678667, 677eqnetrd 2861 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( I `  w
)  =/=  0 )
679654, 656, 678divcld 10801 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( ( H `  w )  /  (
I `  w )
)  e.  CC )
680647, 651, 324, 679fvmptd 6288 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) `
 w )  =  ( ( H `  w )  /  (
I `  w )
) )
681100a1i 11 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  H  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) ) )
682317fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  w  e.  ( A (,) B ) )  /\  -.  w  =  Y
)  /\  y  =  w )  ->  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  y ) )  =  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )
683682oveq2d 6666 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  w  e.  ( A (,) B ) )  /\  -.  w  =  Y
)  /\  y  =  w )  ->  (
( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) )  =  ( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  w ) ) ) )
684329coscld 14861 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  w
) )  e.  CC )
685325, 684mulcld 10060 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )  e.  CC )
686685adantr 481 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  w ) ) )  e.  CC )
687681, 683, 324, 686fvmptd 6288 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( H `  w
)  =  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) ) )
688687, 667oveq12d 6668 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( ( H `  w )  /  (
I `  w )
)  =  ( ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  w
) ) )  / 
( pi  x.  ( cos `  ( w  / 
2 ) ) ) ) )
689646, 680, 6883eqtrrd 2661 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  -.  w  =  Y )  ->  ( ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )  /  (
pi  x.  ( cos `  ( w  /  2
) ) ) )  =  if ( w  =  Y ,  ( ( ( 2  x.  N )  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y
)  /  ( I `
 y ) ) ) `  w ) ) )
690644, 689pm2.61dan 832 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( (
( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  w
) ) )  / 
( pi  x.  ( cos `  ( w  / 
2 ) ) ) )  =  if ( w  =  Y , 
( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( H `
 y )  / 
( I `  y
) ) ) `  w ) ) )
691690mpteq2dva 4744 . . . . . . . . . 10  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )  /  (
pi  x.  ( cos `  ( w  /  2
) ) ) ) )  =  ( w  e.  ( A (,) B )  |->  if ( w  =  Y , 
( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( H `
 y )  / 
( I `  y
) ) ) `  w ) ) ) )
692585, 691eqtr2d 2657 . . . . . . . . 9  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  if ( w  =  Y ,  ( ( ( 2  x.  N
)  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) `
 w ) ) )  =  L )
693349, 41, 75constcncfg 40084 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( N  +  ( 1  /  2 ) ) )  e.  ( ( A (,) B
) -cn-> CC ) )
694 cosf 14855 . . . . . . . . . . . . . . . . . . 19  |-  cos : CC
--> CC
695231, 44sylan2 491 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  y  e.  ( A (,) B ) )  ->  ( ( N  +  ( 1  /  2 ) )  x.  y )  e.  CC )
696 eqid 2622 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  e.  ( A (,) B )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) )  =  ( y  e.  ( A (,) B
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) )
697695, 696fmptd 6385 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( y  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  y
) ) : ( A (,) B ) --> CC )
698 fcompt 6400 . . . . . . . . . . . . . . . . . . 19  |-  ( ( cos : CC --> CC  /\  ( y  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  y
) ) : ( A (,) B ) --> CC )  ->  ( cos  o.  ( y  e.  ( A (,) B
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) )  =  ( w  e.  ( A (,) B
)  |->  ( cos `  (
( y  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  y
) ) `  w
) ) ) )
699694, 697, 698sylancr 695 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( cos  o.  (
y  e.  ( A (,) B )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )  =  ( w  e.  ( A (,) B )  |->  ( cos `  ( ( y  e.  ( A (,) B )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `  w ) ) ) )
700 eqidd 2623 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( y  e.  ( A (,) B
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) )  =  ( y  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  y
) ) )
701316adantl 482 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  y  =  w )  ->  (
( N  +  ( 1  /  2 ) )  x.  y )  =  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )
702 simpr 477 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  w  e.  ( A (,) B ) )
703700, 701, 702, 329fvmptd 6288 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( (
y  e.  ( A (,) B )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) `  w )  =  ( ( N  +  ( 1  / 
2 ) )  x.  w ) )
704703fveq2d 6195 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( cos `  ( ( y  e.  ( A (,) B
)  |->  ( ( N  +  ( 1  / 
2 ) )  x.  y ) ) `  w ) )  =  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )
705704mpteq2dva 4744 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( cos `  (
( y  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  y
) ) `  w
) ) )  =  ( w  e.  ( A (,) B ) 
|->  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) ) )
706699, 705eqtr2d 2657 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )  =  ( cos  o.  ( y  e.  ( A (,) B )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) ) )
707349, 41, 75constcncfg 40084 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( y  e.  ( A (,) B ) 
|->  ( N  +  ( 1  /  2 ) ) )  e.  ( ( A (,) B
) -cn-> CC ) )
708349, 75idcncfg 40085 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( y  e.  ( A (,) B ) 
|->  y )  e.  ( ( A (,) B
) -cn-> CC ) )
709707, 708mulcncf 23215 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( y  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  y
) )  e.  ( ( A (,) B
) -cn-> CC ) )
710 coscn 24199 . . . . . . . . . . . . . . . . . . 19  |-  cos  e.  ( CC -cn-> CC )
711710a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  cos  e.  ( CC
-cn-> CC ) )
712709, 711cncfco 22710 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( cos  o.  (
y  e.  ( A (,) B )  |->  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )  e.  ( ( A (,) B
) -cn-> CC ) )
713706, 712eqeltrd 2701 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )  e.  ( ( A (,) B
) -cn-> CC ) )
714693, 713mulcncf 23215 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( ( N  +  ( 1  /  2
) )  x.  ( cos `  ( ( N  +  ( 1  / 
2 ) )  x.  w ) ) ) )  e.  ( ( A (,) B )
-cn-> CC ) )
715 eqid 2622 . . . . . . . . . . . . . . . 16  |-  ( w  e.  ( A (,) B )  |->  ( pi  x.  ( cos `  (
w  /  2 ) ) ) )  =  ( w  e.  ( A (,) B ) 
|->  ( pi  x.  ( cos `  ( w  / 
2 ) ) ) )
716349, 155, 75constcncfg 40084 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  pi )  e.  ( ( A (,) B
) -cn-> CC ) )
717 2cnd 11093 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  2  e.  CC )
718134a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  2  =/=  0 )
719328, 717, 718divrecd 10804 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( w  /  2 )  =  ( w  x.  (
1  /  2 ) ) )
720719mpteq2dva 4744 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( w  /  2
) )  =  ( w  e.  ( A (,) B )  |->  ( w  x.  ( 1  /  2 ) ) ) )
721 eqid 2622 . . . . . . . . . . . . . . . . . . . 20  |-  ( w  e.  CC  |->  ( w  x.  ( 1  / 
2 ) ) )  =  ( w  e.  CC  |->  ( w  x.  ( 1  /  2
) ) )
722 cncfmptid 22715 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( CC  C_  CC  /\  CC  C_  CC )  ->  (
w  e.  CC  |->  w )  e.  ( CC
-cn-> CC ) )
72374, 74, 722mp2an 708 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( w  e.  CC  |->  w )  e.  ( CC -cn-> CC )
724723a1i 11 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( w  e.  CC  |->  w )  e.  ( CC -cn-> CC ) )
72574a1i 11 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( 1  /  2 )  e.  CC  ->  CC  C_  CC )
726 id 22 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( 1  /  2 )  e.  CC  ->  (
1  /  2 )  e.  CC )
727725, 726, 725constcncfg 40084 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( 1  /  2 )  e.  CC  ->  (
w  e.  CC  |->  ( 1  /  2 ) )  e.  ( CC
-cn-> CC ) )
72839, 727mp1i 13 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  ( w  e.  CC  |->  ( 1  /  2
) )  e.  ( CC -cn-> CC ) )
729724, 728mulcncf 23215 . . . . . . . . . . . . . . . . . . . 20  |-  ( ph  ->  ( w  e.  CC  |->  ( w  x.  (
1  /  2 ) ) )  e.  ( CC -cn-> CC ) )
730719, 466eqeltrrd 2702 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( w  x.  ( 1  /  2
) )  e.  CC )
731721, 729, 349, 75, 730cncfmptssg 40083 . . . . . . . . . . . . . . . . . . 19  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( w  x.  (
1  /  2 ) ) )  e.  ( ( A (,) B
) -cn-> CC ) )
732720, 731eqeltrd 2701 . . . . . . . . . . . . . . . . . 18  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( w  /  2
) )  e.  ( ( A (,) B
) -cn-> CC ) )
733711, 732cncfmpt1f 22716 . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( cos `  (
w  /  2 ) ) )  e.  ( ( A (,) B
) -cn-> CC ) )
734716, 733mulcncf 23215 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( pi  x.  ( cos `  ( w  / 
2 ) ) ) )  e.  ( ( A (,) B )
-cn-> CC ) )
735 ssid 3624 . . . . . . . . . . . . . . . . 17  |-  ( A (,) B )  C_  ( A (,) B )
736735a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( A (,) B
)  C_  ( A (,) B ) )
737 difssd 3738 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  ( CC  \  {
0 } )  C_  CC )
738665adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( pi  x.  ( cos `  (
w  /  2 ) ) )  e.  CC )
739119a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  pi  e.  CC )
740664adantl 482 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( cos `  ( w  /  2
) )  e.  CC )
741238a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  pi  =/=  0 )
742601adantl 482 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  w  =  Y )  ->  ( cos `  ( w  / 
2 ) )  =  ( cos `  ( Y  /  2 ) ) )
743639adantr 481 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  w  =  Y )  ->  ( cos `  ( Y  / 
2 ) )  =/=  0 )
744742, 743eqnetrd 2861 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  w  =  Y )  ->  ( cos `  ( w  / 
2 ) )  =/=  0 )
745744adantlr 751 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ph  /\  w  e.  ( A (,) B
) )  /\  w  =  Y )  ->  ( cos `  ( w  / 
2 ) )  =/=  0 )
746745, 675pm2.61dan 832 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( cos `  ( w  /  2
) )  =/=  0
)
747739, 740, 741, 746mulne0d 10679 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( pi  x.  ( cos `  (
w  /  2 ) ) )  =/=  0
)
748747neneqd 2799 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  -.  (
pi  x.  ( cos `  ( w  /  2
) ) )  =  0 )
749 elsng 4191 . . . . . . . . . . . . . . . . . . 19  |-  ( ( pi  x.  ( cos `  ( w  /  2
) ) )  e.  CC  ->  ( (
pi  x.  ( cos `  ( w  /  2
) ) )  e. 
{ 0 }  <->  ( pi  x.  ( cos `  (
w  /  2 ) ) )  =  0 ) )
750738, 749syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( (
pi  x.  ( cos `  ( w  /  2
) ) )  e. 
{ 0 }  <->  ( pi  x.  ( cos `  (
w  /  2 ) ) )  =  0 ) )
751748, 750mtbird 315 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  -.  (
pi  x.  ( cos `  ( w  /  2
) ) )  e. 
{ 0 } )
752738, 751eldifd 3585 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  ( A (,) B ) )  ->  ( pi  x.  ( cos `  (
w  /  2 ) ) )  e.  ( CC  \  { 0 } ) )
753715, 734, 736, 737, 752cncfmptssg 40083 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( pi  x.  ( cos `  ( w  / 
2 ) ) ) )  e.  ( ( A (,) B )
-cn-> ( CC  \  {
0 } ) ) )
754714, 753divcncf 23216 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )  /  (
pi  x.  ( cos `  ( w  /  2
) ) ) ) )  e.  ( ( A (,) B )
-cn-> CC ) )
755754, 491eleqtrd 2703 . . . . . . . . . . . . 13  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  ( ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  w ) ) )  /  (
pi  x.  ( cos `  ( w  /  2
) ) ) ) )  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) ) )
756585, 755eqeltrd 2701 . . . . . . . . . . . 12  |-  ( ph  ->  L  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) ) )
757 cncnp 21084 . . . . . . . . . . . . 13  |-  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  e.  (TopOn `  ( A (,) B ) )  /\  ( TopOpen ` fld )  e.  (TopOn `  CC ) )  -> 
( L  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) )  <->  ( L : ( A (,) B ) --> CC  /\  A. y  e.  ( A (,) B ) L  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
) ) ) )
758355, 353, 757sylancl 694 . . . . . . . . . . . 12  |-  ( ph  ->  ( L  e.  ( ( ( TopOpen ` fld )t  ( A (,) B ) )  Cn  ( TopOpen ` fld ) )  <->  ( L : ( A (,) B ) --> CC  /\  A. y  e.  ( A (,) B ) L  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
) ) ) )
759756, 758mpbid 222 . . . . . . . . . . 11  |-  ( ph  ->  ( L : ( A (,) B ) --> CC  /\  A. y  e.  ( A (,) B
) L  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
) ) )
760759simprd 479 . . . . . . . . . 10  |-  ( ph  ->  A. y  e.  ( A (,) B ) L  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
) )
761360eleq2d 2687 . . . . . . . . . . 11  |-  ( y  =  Y  ->  ( L  e.  ( (
( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
)  <->  L  e.  (
( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  Y
) ) )
762761rspccva 3308 . . . . . . . . . 10  |-  ( ( A. y  e.  ( A (,) B ) L  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  y
)  /\  Y  e.  ( A (,) B ) )  ->  L  e.  ( ( ( (
TopOpen ` fld )t  ( A (,) B
) )  CnP  ( TopOpen
` fld
) ) `  Y
) )
763760, 27, 762syl2anc 693 . . . . . . . . 9  |-  ( ph  ->  L  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
764692, 763eqeltrd 2701 . . . . . . . 8  |-  ( ph  ->  ( w  e.  ( A (,) B ) 
|->  if ( w  =  Y ,  ( ( ( 2  x.  N
)  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) `
 w ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( A (,) B ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
765307mpteq1d 4738 . . . . . . . 8  |-  ( ph  ->  ( w  e.  ( ( ( A (,) B )  \  { Y } )  u.  { Y } )  |->  if ( w  =  Y , 
( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( H `
 y )  / 
( I `  y
) ) ) `  w ) ) )  =  ( w  e.  ( A (,) B
)  |->  if ( w  =  Y ,  ( ( ( 2  x.  N )  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y
)  /  ( I `
 y ) ) ) `  w ) ) ) )
766764, 765, 5043eltr4d 2716 . . . . . . 7  |-  ( ph  ->  ( w  e.  ( ( ( A (,) B )  \  { Y } )  u.  { Y } )  |->  if ( w  =  Y , 
( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( H `
 y )  / 
( I `  y
) ) ) `  w ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } ) )  CnP  ( TopOpen ` fld ) ) `  Y
) )
767 eqid 2622 . . . . . . . 8  |-  ( w  e.  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } )  |->  if ( w  =  Y , 
( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( H `
 y )  / 
( I `  y
) ) ) `  w ) ) )  =  ( w  e.  ( ( ( A (,) B )  \  { Y } )  u. 
{ Y } ) 
|->  if ( w  =  Y ,  ( ( ( 2  x.  N
)  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) `
 w ) ) )
768100fvmpt2 6291 . . . . . . . . . . . 12  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) )  e.  CC )  ->  ( H `  y )  =  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) ) )
769562, 106, 768syl2anc 693 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( H `  y
)  =  ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) ) )
770769, 564oveq12d 6668 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( H `  y )  /  (
I `  y )
)  =  ( ( ( N  +  ( 1  /  2 ) )  x.  ( cos `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) )  / 
( pi  x.  ( cos `  ( y  / 
2 ) ) ) ) )
771106, 201, 568divcld 10801 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( ( N  +  ( 1  / 
2 ) )  x.  ( cos `  (
( N  +  ( 1  /  2 ) )  x.  y ) ) )  /  (
pi  x.  ( cos `  ( y  /  2
) ) ) )  e.  CC )
772770, 771eqeltrd 2701 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( H `  y )  /  (
I `  y )
)  e.  CC )
773 eqid 2622 . . . . . . . . 9  |-  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y
)  /  ( I `
 y ) ) )  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y
)  /  ( I `
 y ) ) )
774772, 773fmptd 6385 . . . . . . . 8  |-  ( ph  ->  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) : ( ( A (,) B )  \  { Y } ) --> CC )
775371, 51, 767, 774, 374, 263ellimc 23637 . . . . . . 7  |-  ( ph  ->  ( ( ( ( 2  x.  N )  +  1 )  / 
( 2  x.  pi ) )  e.  ( ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) lim
CC  Y )  <->  ( w  e.  ( ( ( A (,) B )  \  { Y } )  u. 
{ Y } ) 
|->  if ( w  =  Y ,  ( ( ( 2  x.  N
)  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) `
 w ) ) )  e.  ( ( ( ( TopOpen ` fld )t  ( ( ( A (,) B ) 
\  { Y }
)  u.  { Y } ) )  CnP  ( TopOpen ` fld ) ) `  Y
) ) )
776766, 775mpbird 247 . . . . . 6  |-  ( ph  ->  ( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) )  e.  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( H `
 y )  / 
( I `  y
) ) ) lim CC  Y ) )
777103eqcomd 2628 . . . . . . . . . 10  |-  ( ph  ->  H  =  ( RR 
_D  F ) )
778777fveq1d 6193 . . . . . . . . 9  |-  ( ph  ->  ( H `  y
)  =  ( ( RR  _D  F ) `
 y ) )
779199eqcomd 2628 . . . . . . . . . 10  |-  ( ph  ->  I  =  ( RR 
_D  G ) )
780779fveq1d 6193 . . . . . . . . 9  |-  ( ph  ->  ( I `  y
)  =  ( ( RR  _D  G ) `
 y ) )
781778, 780oveq12d 6668 . . . . . . . 8  |-  ( ph  ->  ( ( H `  y )  /  (
I `  y )
)  =  ( ( ( RR  _D  F
) `  y )  /  ( ( RR 
_D  G ) `  y ) ) )
782781mpteq2dv 4745 . . . . . . 7  |-  ( ph  ->  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) )  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( ( RR  _D  F
) `  y )  /  ( ( RR 
_D  G ) `  y ) ) ) )
783782oveq1d 6665 . . . . . 6  |-  ( ph  ->  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( H `  y )  /  ( I `  y ) ) ) lim
CC  Y )  =  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( ( RR  _D  F
) `  y )  /  ( ( RR 
_D  G ) `  y ) ) ) lim
CC  Y ) )
784776, 783eleqtrd 2703 . . . . 5  |-  ( ph  ->  ( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) )  e.  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( ( RR  _D  F ) `
 y )  / 
( ( RR  _D  G ) `  y
) ) ) lim CC  Y ) )
785583, 784eqeltrd 2701 . . . 4  |-  ( ph  ->  if ( ( Y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N
)  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( sin `  (
( N  +  ( 1  /  2 ) )  x.  Y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  ( Y  /  2 ) ) ) ) )  e.  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( ( RR  _D  F
) `  y )  /  ( ( RR 
_D  G ) `  y ) ) ) lim
CC  Y ) )
786582, 785eqeltrd 2701 . . 3  |-  ( ph  ->  ( ( D `  N ) `  Y
)  e.  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( ( RR  _D  F ) `
 y )  / 
( ( RR  _D  G ) `  y
) ) ) lim CC  Y ) )
7874, 15, 24, 26, 27, 28, 110, 205, 431, 510, 561, 579, 786lhop 23779 . 2  |-  ( ph  ->  ( ( D `  N ) `  Y
)  e.  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  |->  ( ( F `
 y )  / 
( G `  y
) ) ) lim CC  Y ) )
788580dirkerval 40308 . . . . . 6  |-  ( N  e.  NN  ->  ( D `  N )  =  ( y  e.  RR  |->  if ( ( y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N )  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) )  /  (
( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) ) ) ) )
7895, 788syl 17 . . . . 5  |-  ( ph  ->  ( D `  N
)  =  ( y  e.  RR  |->  if ( ( y  mod  (
2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) ) )
790789reseq1d 5395 . . . 4  |-  ( ph  ->  ( ( D `  N )  |`  (
( A (,) B
)  \  { Y } ) )  =  ( ( y  e.  RR  |->  if ( ( y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N )  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) )  /  (
( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) ) ) )  |`  (
( A (,) B
)  \  { Y } ) ) )
7914resmptd 5452 . . . 4  |-  ( ph  ->  ( ( y  e.  RR  |->  if ( ( y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N )  +  1 )  /  ( 2  x.  pi ) ) ,  ( ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) )  /  (
( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) ) ) )  |`  (
( A (,) B
)  \  { Y } ) )  =  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  if ( ( y  mod  (
2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) ) )
792256iffalsed 4097 . . . . . 6  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  if ( ( y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )  =  ( ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) )  /  (
( 2  x.  pi )  x.  ( sin `  ( y  /  2
) ) ) ) )
79313recnd 10068 . . . . . . . 8  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) )  e.  CC )
79414fvmpt2 6291 . . . . . . . 8  |-  ( ( y  e.  ( ( A (,) B ) 
\  { Y }
)  /\  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) )  e.  CC )  ->  ( F `  y )  =  ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) ) )
795562, 793, 794syl2anc 693 . . . . . . 7  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( F `  y
)  =  ( sin `  ( ( N  +  ( 1  /  2
) )  x.  y
) ) )
796562, 507, 530syl2anc 693 . . . . . . 7  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( G `  y
)  =  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) )
797795, 796oveq12d 6668 . . . . . 6  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  -> 
( ( F `  y )  /  ( G `  y )
)  =  ( ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )
798792, 797eqtr4d 2659 . . . . 5  |-  ( (
ph  /\  y  e.  ( ( A (,) B )  \  { Y } ) )  ->  if ( ( y  mod  ( 2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N )  +  1 )  / 
( 2  x.  pi ) ) ,  ( ( sin `  (
( N  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) )  =  ( ( F `
 y )  / 
( G `  y
) ) )
799798mpteq2dva 4744 . . . 4  |-  ( ph  ->  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  if ( ( y  mod  (
2  x.  pi ) )  =  0 ,  ( ( ( 2  x.  N )  +  1 )  /  (
2  x.  pi ) ) ,  ( ( sin `  ( ( N  +  ( 1  /  2 ) )  x.  y ) )  /  ( ( 2  x.  pi )  x.  ( sin `  (
y  /  2 ) ) ) ) ) )  =  ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( F `  y
)  /  ( G `
 y ) ) ) )
800790, 791, 7993eqtrrd 2661 . . 3  |-  ( ph  ->  ( y  e.  ( ( A (,) B
)  \  { Y } )  |->  ( ( F `  y )  /  ( G `  y ) ) )  =  ( ( D `
 N )  |`  ( ( A (,) B )  \  { Y } ) ) )
801800oveq1d 6665 . 2  |-  ( ph  ->  ( ( y  e.  ( ( A (,) B )  \  { Y } )  |->  ( ( F `  y )  /  ( G `  y ) ) ) lim
CC  Y )  =  ( ( ( D `
 N )  |`  ( ( A (,) B )  \  { Y } ) ) lim CC  Y ) )
802787, 801eleqtrd 2703 1  |-  ( ph  ->  ( ( D `  N ) `  Y
)  e.  ( ( ( D `  N
)  |`  ( ( A (,) B )  \  { Y } ) ) lim
CC  Y ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 196    \/ wo 383    /\ wa 384    = wceq 1483    e. wcel 1990    =/= wne 2794   A.wral 2912   E.wrex 2913    \ cdif 3571    u. cun 3572    C_ wss 3574   ifcif 4086   {csn 4177   {cpr 4179   class class class wbr 4653    |-> cmpt 4729   dom cdm 5114   ran crn 5115    |` cres 5116   "cima 5117    o. ccom 5118   Fun wfun 5882    Fn wfn 5883   -->wf 5884   ` cfv 5888  (class class class)co 6650   CCcc 9934   RRcr 9935   0cc0 9936   1c1 9937    + caddc 9939    x. cmul 9941    < clt 10074    / cdiv 10684   NNcn 11020   2c2 11070   ZZcz 11377   RR+crp 11832   (,)cioo 12175    mod cmo 12668   sincsin 14794   cosccos 14795   picpi 14797   ↾t crest 16081   TopOpenctopn 16082   topGenctg 16098  ℂfldccnfld 19746   Topctop 20698  TopOnctopon 20715   Clsdccld 20820   intcnt 20821    Cn ccn 21028    CnP ccnp 21029   Hauscha 21112   -cn->ccncf 22679   lim CC climc 23626    _D cdv 23627
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949  ax-inf2 8538  ax-cnex 9992  ax-resscn 9993  ax-1cn 9994  ax-icn 9995  ax-addcl 9996  ax-addrcl 9997  ax-mulcl 9998  ax-mulrcl 9999  ax-mulcom 10000  ax-addass 10001  ax-mulass 10002  ax-distr 10003  ax-i2m1 10004  ax-1ne0 10005  ax-1rid 10006  ax-rnegex 10007  ax-rrecex 10008  ax-cnre 10009  ax-pre-lttri 10010  ax-pre-lttrn 10011  ax-pre-ltadd 10012  ax-pre-mulgt0 10013  ax-pre-sup 10014  ax-addf 10015  ax-mulf 10016
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1038  df-3an 1039  df-tru 1486  df-fal 1489  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-nel 2898  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-pss 3590  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-tp 4182  df-op 4184  df-uni 4437  df-int 4476  df-iun 4522  df-iin 4523  df-br 4654  df-opab 4713  df-mpt 4730  df-tr 4753  df-id 5024  df-eprel 5029  df-po 5035  df-so 5036  df-fr 5073  df-se 5074  df-we 5075  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-pred 5680  df-ord 5726  df-on 5727  df-lim 5728  df-suc 5729  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-isom 5897  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-of 6897  df-om 7066  df-1st 7168  df-2nd 7169  df-supp 7296  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-2o 7561  df-oadd 7564  df-er 7742  df-map 7859  df-pm 7860  df-ixp 7909  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-fsupp 8276  df-fi 8317  df-sup 8348  df-inf 8349  df-oi 8415  df-card 8765  df-cda 8990  df-pnf 10076  df-mnf 10077  df-xr 10078  df-ltxr 10079  df-le 10080  df-sub 10268  df-neg 10269  df-div 10685  df-nn 11021  df-2 11079  df-3 11080  df-4 11081  df-5 11082  df-6 11083  df-7 11084  df-8 11085  df-9 11086  df-n0 11293  df-z 11378  df-dec 11494  df-uz 11688  df-q 11789  df-rp 11833  df-xneg 11946  df-xadd 11947  df-xmul 11948  df-ioo 12179  df-ioc 12180  df-ico 12181  df-icc 12182  df-fz 12327  df-fzo 12466  df-fl 12593  df-mod 12669  df-seq 12802  df-exp 12861  df-fac 13061  df-bc 13090  df-hash 13118  df-shft 13807  df-cj 13839  df-re 13840  df-im 13841  df-sqrt 13975  df-abs 13976  df-limsup 14202  df-clim 14219  df-rlim 14220  df-sum 14417  df-ef 14798  df-sin 14800  df-cos 14801  df-pi 14803  df-struct 15859  df-ndx 15860  df-slot 15861  df-base 15863  df-sets 15864  df-ress 15865  df-plusg 15954  df-mulr 15955  df-starv 15956  df-sca 15957  df-vsca 15958  df-ip 15959  df-tset 15960  df-ple 15961  df-ds 15964  df-unif 15965  df-hom 15966  df-cco 15967  df-rest 16083  df-topn 16084  df-0g 16102  df-gsum 16103  df-topgen 16104  df-pt 16105  df-prds 16108  df-xrs 16162  df-qtop 16167  df-imas 16168  df-xps 16170  df-mre 16246  df-mrc 16247  df-acs 16249  df-mgm 17242  df-sgrp 17284  df-mnd 17295  df-submnd 17336  df-mulg 17541  df-cntz 17750  df-cmn 18195  df-psmet 19738  df-xmet 19739  df-met 19740  df-bl 19741  df-mopn 19742  df-fbas 19743  df-fg 19744  df-cnfld 19747  df-top 20699  df-topon 20716  df-topsp 20737  df-bases 20750  df-cld 20823  df-ntr 20824  df-cls 20825  df-nei 20902  df-lp 20940  df-perf 20941  df-cn 21031  df-cnp 21032  df-t1 21118  df-haus 21119  df-cmp 21190  df-tx 21365  df-hmeo 21558  df-fil 21650  df-fm 21742  df-flim 21743  df-flf 21744  df-xms 22125  df-ms 22126  df-tms 22127  df-cncf 22681  df-limc 23630  df-dv 23631
This theorem is referenced by:  dirkercncflem3  40322
  Copyright terms: Public domain W3C validator