Users' Mathboxes Mathbox for Thierry Arnoux < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  eulerpartlemgs2 Structured version   Unicode version

Theorem eulerpartlemgs2 26761
Description: Lemma for eulerpart 26763: The  G function also preserves partition sums. (Contributed by Thierry Arnoux, 10-Sep-2017.)
Hypotheses
Ref Expression
eulerpart.p  |-  P  =  { f  e.  ( NN0  ^m  NN )  |  ( ( `' f " NN )  e.  Fin  /\  sum_ k  e.  NN  (
( f `  k
)  x.  k )  =  N ) }
eulerpart.o  |-  O  =  { g  e.  P  |  A. n  e.  ( `' g " NN )  -.  2  ||  n }
eulerpart.d  |-  D  =  { g  e.  P  |  A. n  e.  NN  ( g `  n
)  <_  1 }
eulerpart.j  |-  J  =  { z  e.  NN  |  -.  2  ||  z }
eulerpart.f  |-  F  =  ( x  e.  J ,  y  e.  NN0  |->  ( ( 2 ^ y )  x.  x
) )
eulerpart.h  |-  H  =  { r  e.  ( ( ~P NN0  i^i  Fin )  ^m  J )  |  ( r supp  (/) )  e. 
Fin }
eulerpart.m  |-  M  =  ( r  e.  H  |->  { <. x ,  y
>.  |  ( x  e.  J  /\  y  e.  ( r `  x
) ) } )
eulerpart.r  |-  R  =  { f  |  ( `' f " NN )  e.  Fin }
eulerpart.t  |-  T  =  { f  e.  ( NN0  ^m  NN )  |  ( `' f
" NN )  C_  J }
eulerpart.g  |-  G  =  ( o  e.  ( T  i^i  R ) 
|->  ( (𝟭 `  NN ) `  ( F " ( M `  (bits  o.  ( o  |`  J ) ) ) ) ) )
eulerpart.s  |-  S  =  ( f  e.  ( ( NN0  ^m  NN )  i^i  R )  |->  sum_ k  e.  NN  (
( f `  k
)  x.  k ) )
Assertion
Ref Expression
eulerpartlemgs2  |-  ( A  e.  ( T  i^i  R )  ->  ( S `  ( G `  A
) )  =  ( S `  A ) )
Distinct variable groups:    f, g,
k, n, o, x, y, z    f, r, A, g, k, n, o, x, y    f, G, k    n, F, o, x, y    o, H, r    f, J, n, o, r, x, y   
n, M, o, r, x, y    f, N, g, k, n, x   
n, O, r, x, y    P, g, k, n    R, f, k, n, o, r, x, y    T, f, k, n, o, r, x, y
Allowed substitution hints:    A( z)    D( x, y, z, f, g, k, n, o, r)    P( x, y, z, f, o, r)    R( z, g)    S( x, y, z, f, g, k, n, o, r)    T( z, g)    F( z, f, g, k, r)    G( x, y, z, g, n, o, r)    H( x, y, z, f, g, k, n)    J( z,
g, k)    M( z,
f, g, k)    N( y, z, o, r)    O( z, f, g, k, o)

Proof of Theorem eulerpartlemgs2
Dummy variables  t  m  w are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 cnvimass 5187 . . . . . . . 8  |-  ( `' ( G `  A
) " NN ) 
C_  dom  ( G `  A )
2 eulerpart.p . . . . . . . . . . . . . 14  |-  P  =  { f  e.  ( NN0  ^m  NN )  |  ( ( `' f " NN )  e.  Fin  /\  sum_ k  e.  NN  (
( f `  k
)  x.  k )  =  N ) }
3 eulerpart.o . . . . . . . . . . . . . 14  |-  O  =  { g  e.  P  |  A. n  e.  ( `' g " NN )  -.  2  ||  n }
4 eulerpart.d . . . . . . . . . . . . . 14  |-  D  =  { g  e.  P  |  A. n  e.  NN  ( g `  n
)  <_  1 }
5 eulerpart.j . . . . . . . . . . . . . 14  |-  J  =  { z  e.  NN  |  -.  2  ||  z }
6 eulerpart.f . . . . . . . . . . . . . 14  |-  F  =  ( x  e.  J ,  y  e.  NN0  |->  ( ( 2 ^ y )  x.  x
) )
7 eulerpart.h . . . . . . . . . . . . . 14  |-  H  =  { r  e.  ( ( ~P NN0  i^i  Fin )  ^m  J )  |  ( r supp  (/) )  e. 
Fin }
8 eulerpart.m . . . . . . . . . . . . . 14  |-  M  =  ( r  e.  H  |->  { <. x ,  y
>.  |  ( x  e.  J  /\  y  e.  ( r `  x
) ) } )
9 eulerpart.r . . . . . . . . . . . . . 14  |-  R  =  { f  |  ( `' f " NN )  e.  Fin }
10 eulerpart.t . . . . . . . . . . . . . 14  |-  T  =  { f  e.  ( NN0  ^m  NN )  |  ( `' f
" NN )  C_  J }
11 eulerpart.g . . . . . . . . . . . . . 14  |-  G  =  ( o  e.  ( T  i^i  R ) 
|->  ( (𝟭 `  NN ) `  ( F " ( M `  (bits  o.  ( o  |`  J ) ) ) ) ) )
122, 3, 4, 5, 6, 7, 8, 9, 10, 11eulerpartgbij 26753 . . . . . . . . . . . . 13  |-  G :
( T  i^i  R
)
-1-1-onto-> ( ( { 0 ,  1 }  ^m  NN )  i^i  R )
13 f1of 5639 . . . . . . . . . . . . 13  |-  ( G : ( T  i^i  R ) -1-1-onto-> ( ( { 0 ,  1 }  ^m  NN )  i^i  R )  ->  G : ( T  i^i  R ) --> ( ( { 0 ,  1 }  ^m  NN )  i^i  R ) )
1412, 13ax-mp 5 . . . . . . . . . . . 12  |-  G :
( T  i^i  R
) --> ( ( { 0 ,  1 }  ^m  NN )  i^i 
R )
1514ffvelrni 5840 . . . . . . . . . . 11  |-  ( A  e.  ( T  i^i  R )  ->  ( G `  A )  e.  ( ( { 0 ,  1 }  ^m  NN )  i^i  R ) )
16 elin 3537 . . . . . . . . . . 11  |-  ( ( G `  A )  e.  ( ( { 0 ,  1 }  ^m  NN )  i^i 
R )  <->  ( ( G `  A )  e.  ( { 0 ,  1 }  ^m  NN )  /\  ( G `  A )  e.  R
) )
1715, 16sylib 196 . . . . . . . . . 10  |-  ( A  e.  ( T  i^i  R )  ->  ( ( G `  A )  e.  ( { 0 ,  1 }  ^m  NN )  /\  ( G `  A )  e.  R
) )
1817simpld 459 . . . . . . . . 9  |-  ( A  e.  ( T  i^i  R )  ->  ( G `  A )  e.  ( { 0 ,  1 }  ^m  NN ) )
19 elmapi 7232 . . . . . . . . 9  |-  ( ( G `  A )  e.  ( { 0 ,  1 }  ^m  NN )  ->  ( G `
 A ) : NN --> { 0 ,  1 } )
20 fdm 5561 . . . . . . . . 9  |-  ( ( G `  A ) : NN --> { 0 ,  1 }  ->  dom  ( G `  A
)  =  NN )
2118, 19, 203syl 20 . . . . . . . 8  |-  ( A  e.  ( T  i^i  R )  ->  dom  ( G `
 A )  =  NN )
221, 21syl5sseq 3402 . . . . . . 7  |-  ( A  e.  ( T  i^i  R )  ->  ( `' ( G `  A )
" NN )  C_  NN )
2322sselda 3354 . . . . . 6  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  ( `' ( G `  A )
" NN ) )  ->  k  e.  NN )
242, 3, 4, 5, 6, 7, 8, 9, 10, 11eulerpartlemgvv 26757 . . . . . . 7  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  NN )  ->  ( ( G `  A ) `  k
)  =  if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 ) )
2524oveq1d 6104 . . . . . 6  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  NN )  ->  ( ( ( G `
 A ) `  k )  x.  k
)  =  ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k ,  1 ,  0 )  x.  k ) )
2623, 25syldan 470 . . . . 5  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  ( `' ( G `  A )
" NN ) )  ->  ( ( ( G `  A ) `
 k )  x.  k )  =  ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k ,  1 ,  0 )  x.  k ) )
2726sumeq2dv 13178 . . . 4  |-  ( A  e.  ( T  i^i  R )  ->  sum_ k  e.  ( `' ( G `
 A ) " NN ) ( ( ( G `  A ) `
 k )  x.  k )  =  sum_ k  e.  ( `' ( G `  A )
" NN ) ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k ,  1 ,  0 )  x.  k ) )
28 eqeq2 2450 . . . . . . . . . . . . 13  |-  ( m  =  k  ->  (
( ( 2 ^ n )  x.  t
)  =  m  <->  ( (
2 ^ n )  x.  t )  =  k ) )
29282rexbidv 2756 . . . . . . . . . . . 12  |-  ( m  =  k  ->  ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m  <->  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ) )
3029elrab 3115 . . . . . . . . . . 11  |-  ( k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  <->  ( k  e.  NN  /\  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k ) )
3130simprbi 464 . . . . . . . . . 10  |-  ( k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  ->  E. t  e.  NN  E. n  e.  (bits `  ( A `  t )
) ( ( 2 ^ n )  x.  t )  =  k )
32 iftrue 3795 . . . . . . . . . 10  |-  ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t )
) ( ( 2 ^ n )  x.  t )  =  k  ->  if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t )
) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  =  1 )
3331, 32syl 16 . . . . . . . . 9  |-  ( k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  ->  if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k ,  1 ,  0 )  =  1 )
3433oveq1d 6104 . . . . . . . 8  |-  ( k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  ->  ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k ,  1 ,  0 )  x.  k )  =  ( 1  x.  k ) )
35 elrabi 3112 . . . . . . . . . 10  |-  ( k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  ->  k  e.  NN )
3635nncnd 10336 . . . . . . . . 9  |-  ( k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  ->  k  e.  CC )
3736mulid2d 9402 . . . . . . . 8  |-  ( k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  ->  ( 1  x.  k )  =  k )
3834, 37eqtrd 2473 . . . . . . 7  |-  ( k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  ->  ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k ,  1 ,  0 )  x.  k )  =  k )
3938sumeq2i 13174 . . . . . 6  |-  sum_ k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m }  ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  x.  k )  =  sum_ k  e.  {
m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m } k
40 id 22 . . . . . . 7  |-  ( k  =  ( ( 2 ^ ( 2nd `  w
) )  x.  ( 1st `  w ) )  ->  k  =  ( ( 2 ^ ( 2nd `  w ) )  x.  ( 1st `  w
) ) )
412, 3, 4, 5, 6, 7, 8, 9, 10, 11eulerpartlemgf 26760 . . . . . . . . 9  |-  ( A  e.  ( T  i^i  R )  ->  ( `' ( G `  A )
" NN )  e. 
Fin )
4235adantl 466 . . . . . . . . . . . 12  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  k  e.  NN )
4342, 24syldan 470 . . . . . . . . . . . . . 14  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  ( ( G `
 A ) `  k )  =  if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k ,  1 ,  0 ) )
4431adantl 466 . . . . . . . . . . . . . . 15  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k )
4544, 32syl 16 . . . . . . . . . . . . . 14  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t )
) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  =  1 )
4643, 45eqtrd 2473 . . . . . . . . . . . . 13  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  ( ( G `
 A ) `  k )  =  1 )
47 1nn 10331 . . . . . . . . . . . . 13  |-  1  e.  NN
4846, 47syl6eqel 2529 . . . . . . . . . . . 12  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  ( ( G `
 A ) `  k )  e.  NN )
4918, 19syl 16 . . . . . . . . . . . . . 14  |-  ( A  e.  ( T  i^i  R )  ->  ( G `  A ) : NN --> { 0 ,  1 } )
50 ffn 5557 . . . . . . . . . . . . . 14  |-  ( ( G `  A ) : NN --> { 0 ,  1 }  ->  ( G `  A )  Fn  NN )
51 elpreima 5821 . . . . . . . . . . . . . 14  |-  ( ( G `  A )  Fn  NN  ->  (
k  e.  ( `' ( G `  A
) " NN )  <-> 
( k  e.  NN  /\  ( ( G `  A ) `  k
)  e.  NN ) ) )
5249, 50, 513syl 20 . . . . . . . . . . . . 13  |-  ( A  e.  ( T  i^i  R )  ->  ( k  e.  ( `' ( G `
 A ) " NN )  <->  ( k  e.  NN  /\  ( ( G `  A ) `
 k )  e.  NN ) ) )
5352adantr 465 . . . . . . . . . . . 12  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  ( k  e.  ( `' ( G `
 A ) " NN )  <->  ( k  e.  NN  /\  ( ( G `  A ) `
 k )  e.  NN ) ) )
5442, 48, 53mpbir2and 913 . . . . . . . . . . 11  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  k  e.  ( `' ( G `  A ) " NN ) )
5554ex 434 . . . . . . . . . 10  |-  ( A  e.  ( T  i^i  R )  ->  ( k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m }  ->  k  e.  ( `' ( G `  A ) " NN ) ) )
5655ssrdv 3360 . . . . . . . . 9  |-  ( A  e.  ( T  i^i  R )  ->  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  C_  ( `' ( G `  A ) " NN ) )
57 ssfi 7531 . . . . . . . . 9  |-  ( ( ( `' ( G `
 A ) " NN )  e.  Fin  /\ 
{ m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m }  C_  ( `' ( G `  A )
" NN ) )  ->  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  e.  Fin )
5841, 56, 57syl2anc 661 . . . . . . . 8  |-  ( A  e.  ( T  i^i  R )  ->  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  e.  Fin )
59 cnvexg 6522 . . . . . . . . . . 11  |-  ( A  e.  ( T  i^i  R )  ->  `' A  e.  _V )
60 imaexg 6513 . . . . . . . . . . 11  |-  ( `' A  e.  _V  ->  ( `' A " NN )  e.  _V )
61 inex1g 4433 . . . . . . . . . . 11  |-  ( ( `' A " NN )  e.  _V  ->  (
( `' A " NN )  i^i  J )  e.  _V )
6259, 60, 613syl 20 . . . . . . . . . 10  |-  ( A  e.  ( T  i^i  R )  ->  ( ( `' A " NN )  i^i  J )  e. 
_V )
63 snex 4531 . . . . . . . . . . . 12  |-  { t }  e.  _V
64 fvex 5699 . . . . . . . . . . . 12  |-  (bits `  ( A `  t ) )  e.  _V
6563, 64xpex 6506 . . . . . . . . . . 11  |-  ( { t }  X.  (bits `  ( A `  t
) ) )  e. 
_V
6665rgenw 2781 . . . . . . . . . 10  |-  A. t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) )  e.  _V
67 iunexg 6551 . . . . . . . . . 10  |-  ( ( ( ( `' A " NN )  i^i  J
)  e.  _V  /\  A. t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t ) ) )  e.  _V )  ->  U_ t  e.  (
( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t )
) )  e.  _V )
6862, 66, 67sylancl 662 . . . . . . . . 9  |-  ( A  e.  ( T  i^i  R )  ->  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) )  e.  _V )
69 eqid 2441 . . . . . . . . . 10  |-  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) )  =  U_ t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t ) ) )
702, 3, 4, 5, 6, 7, 8, 9, 10, 11, 69eulerpartlemgh 26759 . . . . . . . . 9  |-  ( A  e.  ( T  i^i  R )  ->  ( F  |` 
U_ t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t )
) ) ) :
U_ t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t )
) ) -1-1-onto-> { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m } )
71 f1oeng 7326 . . . . . . . . 9  |-  ( (
U_ t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t )
) )  e.  _V  /\  ( F  |`  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) ) ) :
U_ t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t )
) ) -1-1-onto-> { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m } )  ->  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) )  ~~  {
m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m } )
7268, 70, 71syl2anc 661 . . . . . . . 8  |-  ( A  e.  ( T  i^i  R )  ->  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) )  ~~  {
m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m } )
73 enfii 7528 . . . . . . . 8  |-  ( ( { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m }  e.  Fin  /\  U_ t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t ) ) ) 
~~  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  U_ t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t )
) )  e.  Fin )
7458, 72, 73syl2anc 661 . . . . . . 7  |-  ( A  e.  ( T  i^i  R )  ->  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) )  e.  Fin )
75 fvres 5702 . . . . . . . . 9  |-  ( w  e.  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) )  ->  (
( F  |`  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) ) ) `  w )  =  ( F `  w ) )
7675adantl 466 . . . . . . . 8  |-  ( ( A  e.  ( T  i^i  R )  /\  w  e.  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) ) )  -> 
( ( F  |`  U_ t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t ) ) ) ) `  w )  =  ( F `  w ) )
77 inss2 3569 . . . . . . . . . . . . . . 15  |-  ( ( `' A " NN )  i^i  J )  C_  J
78 simpr 461 . . . . . . . . . . . . . . 15  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  t  e.  ( ( `' A " NN )  i^i  J ) )
7977, 78sseldi 3352 . . . . . . . . . . . . . 14  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  t  e.  J
)
8079snssd 4016 . . . . . . . . . . . . 13  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  { t } 
C_  J )
81 bitsss 13620 . . . . . . . . . . . . 13  |-  (bits `  ( A `  t ) )  C_  NN0
82 xpss12 4943 . . . . . . . . . . . . 13  |-  ( ( { t }  C_  J  /\  (bits `  ( A `  t )
)  C_  NN0 )  -> 
( { t }  X.  (bits `  ( A `  t )
) )  C_  ( J  X.  NN0 ) )
8380, 81, 82sylancl 662 . . . . . . . . . . . 12  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  ( { t }  X.  (bits `  ( A `  t ) ) )  C_  ( J  X.  NN0 ) )
8483ralrimiva 2797 . . . . . . . . . . 11  |-  ( A  e.  ( T  i^i  R )  ->  A. t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) )  C_  ( J  X.  NN0 ) )
85 iunss 4209 . . . . . . . . . . 11  |-  ( U_ t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t ) ) ) 
C_  ( J  X.  NN0 )  <->  A. t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t )
) )  C_  ( J  X.  NN0 ) )
8684, 85sylibr 212 . . . . . . . . . 10  |-  ( A  e.  ( T  i^i  R )  ->  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) )  C_  ( J  X.  NN0 ) )
8786sselda 3354 . . . . . . . . 9  |-  ( ( A  e.  ( T  i^i  R )  /\  w  e.  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) ) )  ->  w  e.  ( J  X.  NN0 ) )
885, 6oddpwdcv 26736 . . . . . . . . 9  |-  ( w  e.  ( J  X.  NN0 )  ->  ( F `
 w )  =  ( ( 2 ^ ( 2nd `  w
) )  x.  ( 1st `  w ) ) )
8987, 88syl 16 . . . . . . . 8  |-  ( ( A  e.  ( T  i^i  R )  /\  w  e.  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) ) )  -> 
( F `  w
)  =  ( ( 2 ^ ( 2nd `  w ) )  x.  ( 1st `  w
) ) )
9076, 89eqtrd 2473 . . . . . . 7  |-  ( ( A  e.  ( T  i^i  R )  /\  w  e.  U_ t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) ) )  -> 
( ( F  |`  U_ t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t ) ) ) ) `  w )  =  ( ( 2 ^ ( 2nd `  w
) )  x.  ( 1st `  w ) ) )
9142nncnd 10336 . . . . . . 7  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  k  e.  CC )
9240, 74, 70, 90, 91fsumf1o 13198 . . . . . 6  |-  ( A  e.  ( T  i^i  R )  ->  sum_ k  e. 
{ m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m } k  =  sum_ w  e.  U_  t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) ) ( ( 2 ^ ( 2nd `  w ) )  x.  ( 1st `  w
) ) )
9339, 92syl5eq 2485 . . . . 5  |-  ( A  e.  ( T  i^i  R )  ->  sum_ k  e. 
{ m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m }  ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  x.  k )  =  sum_ w  e.  U_  t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t ) ) ) ( ( 2 ^ ( 2nd `  w
) )  x.  ( 1st `  w ) ) )
94 ax-1cn 9338 . . . . . . . . 9  |-  1  e.  CC
95 0cn 9376 . . . . . . . . 9  |-  0  e.  CC
9694, 95keepel 3855 . . . . . . . 8  |-  if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  e.  CC
9796a1i 11 . . . . . . 7  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t )
) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  e.  CC )
98 ssrab2 3435 . . . . . . . . 9  |-  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  C_  NN
99 simpr 461 . . . . . . . . 9  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  k  e.  {
m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m } )
10098, 99sseldi 3352 . . . . . . . 8  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  k  e.  NN )
101100nncnd 10336 . . . . . . 7  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  k  e.  CC )
10297, 101mulcld 9404 . . . . . 6  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } )  ->  ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  x.  k )  e.  CC )
103 simpr 461 . . . . . . . . . . 11  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  ( ( `' ( G `  A ) " NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } ) )  ->  k  e.  ( ( `' ( G `  A )
" NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m } ) )
104103eldifbd 3339 . . . . . . . . . 10  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  ( ( `' ( G `  A ) " NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } ) )  ->  -.  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m } )
10522ssdifssd 3492 . . . . . . . . . . 11  |-  ( A  e.  ( T  i^i  R )  ->  ( ( `' ( G `  A ) " NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } ) 
C_  NN )
106105sselda 3354 . . . . . . . . . 10  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  ( ( `' ( G `  A ) " NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } ) )  ->  k  e.  NN )
10730notbii 296 . . . . . . . . . . . 12  |-  ( -.  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  <->  -.  (
k  e.  NN  /\  E. t  e.  NN  E. n  e.  (bits `  ( A `  t )
) ( ( 2 ^ n )  x.  t )  =  k ) )
108 imnan 422 . . . . . . . . . . . 12  |-  ( ( k  e.  NN  ->  -. 
E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k )  <->  -.  ( k  e.  NN  /\  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k ) )
109107, 108bitr4i 252 . . . . . . . . . . 11  |-  ( -.  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  <->  ( k  e.  NN  ->  -.  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k ) )
110109biimpi 194 . . . . . . . . . 10  |-  ( -.  k  e.  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m }  ->  ( k  e.  NN  ->  -. 
E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ) )
111104, 106, 110sylc 60 . . . . . . . . 9  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  ( ( `' ( G `  A ) " NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } ) )  ->  -.  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k )
112 iffalse 3797 . . . . . . . . 9  |-  ( -. 
E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k  ->  if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t )
) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  =  0 )
113111, 112syl 16 . . . . . . . 8  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  ( ( `' ( G `  A ) " NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } ) )  ->  if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  =  0 )
114113oveq1d 6104 . . . . . . 7  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  ( ( `' ( G `  A ) " NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } ) )  ->  ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  x.  k )  =  ( 0  x.  k ) )
115 nnsscn 10325 . . . . . . . . . 10  |-  NN  C_  CC
116105, 115syl6ss 3366 . . . . . . . . 9  |-  ( A  e.  ( T  i^i  R )  ->  ( ( `' ( G `  A ) " NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } ) 
C_  CC )
117116sselda 3354 . . . . . . . 8  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  ( ( `' ( G `  A ) " NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } ) )  ->  k  e.  CC )
118117mul02d 9565 . . . . . . 7  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  ( ( `' ( G `  A ) " NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } ) )  ->  ( 0  x.  k )  =  0 )
119114, 118eqtrd 2473 . . . . . 6  |-  ( ( A  e.  ( T  i^i  R )  /\  k  e.  ( ( `' ( G `  A ) " NN )  \  { m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  m } ) )  ->  ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  x.  k )  =  0 )
12056, 102, 119, 41fsumss 13200 . . . . 5  |-  ( A  e.  ( T  i^i  R )  ->  sum_ k  e. 
{ m  e.  NN  |  E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  m }  ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  x.  k )  =  sum_ k  e.  ( `' ( G `  A ) " NN ) ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n )  x.  t )  =  k ,  1 ,  0 )  x.  k ) )
12193, 120eqtr3d 2475 . . . 4  |-  ( A  e.  ( T  i^i  R )  ->  sum_ w  e. 
U_  t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t )
) ) ( ( 2 ^ ( 2nd `  w ) )  x.  ( 1st `  w
) )  =  sum_ k  e.  ( `' ( G `  A )
" NN ) ( if ( E. t  e.  NN  E. n  e.  (bits `  ( A `  t ) ) ( ( 2 ^ n
)  x.  t )  =  k ,  1 ,  0 )  x.  k ) )
1222, 3, 4, 5, 6, 7, 8, 9, 10eulerpartlemt0 26750 . . . . . . . . . . . . 13  |-  ( A  e.  ( T  i^i  R )  <->  ( A  e.  ( NN0  ^m  NN )  /\  ( `' A " NN )  e.  Fin  /\  ( `' A " NN )  C_  J ) )
123122simp1bi 1003 . . . . . . . . . . . 12  |-  ( A  e.  ( T  i^i  R )  ->  A  e.  ( NN0  ^m  NN ) )
124 elmapi 7232 . . . . . . . . . . . 12  |-  ( A  e.  ( NN0  ^m  NN )  ->  A : NN
--> NN0 )
125123, 124syl 16 . . . . . . . . . . 11  |-  ( A  e.  ( T  i^i  R )  ->  A : NN
--> NN0 )
126125adantr 465 . . . . . . . . . 10  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  A : NN --> NN0 )
127 cnvimass 5187 . . . . . . . . . . . . 13  |-  ( `' A " NN ) 
C_  dom  A
128 fdm 5561 . . . . . . . . . . . . . 14  |-  ( A : NN --> NN0  ->  dom 
A  =  NN )
129125, 128syl 16 . . . . . . . . . . . . 13  |-  ( A  e.  ( T  i^i  R )  ->  dom  A  =  NN )
130127, 129syl5sseq 3402 . . . . . . . . . . . 12  |-  ( A  e.  ( T  i^i  R )  ->  ( `' A " NN )  C_  NN )
131130adantr 465 . . . . . . . . . . 11  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  ( `' A " NN )  C_  NN )
132 inss1 3568 . . . . . . . . . . . 12  |-  ( ( `' A " NN )  i^i  J )  C_  ( `' A " NN )
133132, 78sseldi 3352 . . . . . . . . . . 11  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  t  e.  ( `' A " NN ) )
134131, 133sseldd 3355 . . . . . . . . . 10  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  t  e.  NN )
135126, 134ffvelrnd 5842 . . . . . . . . 9  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  ( A `  t )  e.  NN0 )
136 bitsfi 13631 . . . . . . . . 9  |-  ( ( A `  t )  e.  NN0  ->  (bits `  ( A `  t ) )  e.  Fin )
137135, 136syl 16 . . . . . . . 8  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  (bits `  ( A `  t )
)  e.  Fin )
138134nncnd 10336 . . . . . . . 8  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  t  e.  CC )
139 2cnd 10392 . . . . . . . . . 10  |-  ( ( A  e.  ( T  i^i  R )  /\  ( t  e.  ( ( `' A " NN )  i^i  J )  /\  n  e.  (bits `  ( A `  t
) ) ) )  ->  2  e.  CC )
140 simprr 756 . . . . . . . . . . 11  |-  ( ( A  e.  ( T  i^i  R )  /\  ( t  e.  ( ( `' A " NN )  i^i  J )  /\  n  e.  (bits `  ( A `  t
) ) ) )  ->  n  e.  (bits `  ( A `  t
) ) )
14181, 140sseldi 3352 . . . . . . . . . 10  |-  ( ( A  e.  ( T  i^i  R )  /\  ( t  e.  ( ( `' A " NN )  i^i  J )  /\  n  e.  (bits `  ( A `  t
) ) ) )  ->  n  e.  NN0 )
142139, 141expcld 12006 . . . . . . . . 9  |-  ( ( A  e.  ( T  i^i  R )  /\  ( t  e.  ( ( `' A " NN )  i^i  J )  /\  n  e.  (bits `  ( A `  t
) ) ) )  ->  ( 2 ^ n )  e.  CC )
143142anassrs 648 . . . . . . . 8  |-  ( ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  /\  n  e.  (bits `  ( A `  t ) ) )  ->  ( 2 ^ n )  e.  CC )
144137, 138, 143fsummulc1 13250 . . . . . . 7  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  ( sum_ n  e.  (bits `  ( A `  t ) ) ( 2 ^ n )  x.  t )  = 
sum_ n  e.  (bits `  ( A `  t
) ) ( ( 2 ^ n )  x.  t ) )
145144sumeq2dv 13178 . . . . . 6  |-  ( A  e.  ( T  i^i  R )  ->  sum_ t  e.  ( ( `' A " NN )  i^i  J
) ( sum_ n  e.  (bits `  ( A `  t ) ) ( 2 ^ n )  x.  t )  = 
sum_ t  e.  ( ( `' A " NN )  i^i  J )
sum_ n  e.  (bits `  ( A `  t
) ) ( ( 2 ^ n )  x.  t ) )
146 bitsinv1 13636 . . . . . . . . 9  |-  ( ( A `  t )  e.  NN0  ->  sum_ n  e.  (bits `  ( A `  t ) ) ( 2 ^ n )  =  ( A `  t ) )
147146oveq1d 6104 . . . . . . . 8  |-  ( ( A `  t )  e.  NN0  ->  ( sum_ n  e.  (bits `  ( A `  t )
) ( 2 ^ n )  x.  t
)  =  ( ( A `  t )  x.  t ) )
148135, 147syl 16 . . . . . . 7  |-  ( ( A  e.  ( T  i^i  R )  /\  t  e.  ( ( `' A " NN )  i^i  J ) )  ->  ( sum_ n  e.  (bits `  ( A `  t ) ) ( 2 ^ n )  x.  t )  =  ( ( A `  t )  x.  t
) )
149148sumeq2dv 13178 . . . . . 6  |-  ( A  e.  ( T  i^i  R )  ->  sum_ t  e.  ( ( `' A " NN )  i^i  J
) ( sum_ n  e.  (bits `  ( A `  t ) ) ( 2 ^ n )  x.  t )  = 
sum_ t  e.  ( ( `' A " NN )  i^i  J ) ( ( A `  t )  x.  t
) )
150 vex 2973 . . . . . . . . . 10  |-  t  e. 
_V
151 vex 2973 . . . . . . . . . 10  |-  n  e. 
_V
152150, 151op2ndd 6586 . . . . . . . . 9  |-  ( w  =  <. t ,  n >.  ->  ( 2nd `  w
)  =  n )
153152oveq2d 6105 . . . . . . . 8  |-  ( w  =  <. t ,  n >.  ->  ( 2 ^ ( 2nd `  w
) )  =  ( 2 ^ n ) )
154150, 151op1std 6585 . . . . . . . 8  |-  ( w  =  <. t ,  n >.  ->  ( 1st `  w
)  =  t )
155153, 154oveq12d 6107 . . . . . . 7  |-  ( w  =  <. t ,  n >.  ->  ( ( 2 ^ ( 2nd `  w
) )  x.  ( 1st `  w ) )  =  ( ( 2 ^ n )  x.  t ) )
156 inss2 3569 . . . . . . . . . 10  |-  ( T  i^i  R )  C_  R
157156sseli 3350 . . . . . . . . 9  |-  ( A  e.  ( T  i^i  R )  ->  A  e.  R )
158 cnveq 5011 . . . . . . . . . . . 12  |-  ( f  =  A  ->  `' f  =  `' A
)
159158imaeq1d 5166 . . . . . . . . . . 11  |-  ( f  =  A  ->  ( `' f " NN )  =  ( `' A " NN ) )
160159eleq1d 2507 . . . . . . . . . 10  |-  ( f  =  A  ->  (
( `' f " NN )  e.  Fin  <->  ( `' A " NN )  e.  Fin ) )
161160, 9elab2g 3106 . . . . . . . . 9  |-  ( A  e.  ( T  i^i  R )  ->  ( A  e.  R  <->  ( `' A " NN )  e.  Fin ) )
162157, 161mpbid 210 . . . . . . . 8  |-  ( A  e.  ( T  i^i  R )  ->  ( `' A " NN )  e. 
Fin )
163 ssfi 7531 . . . . . . . 8  |-  ( ( ( `' A " NN )  e.  Fin  /\  ( ( `' A " NN )  i^i  J
)  C_  ( `' A " NN ) )  ->  ( ( `' A " NN )  i^i  J )  e. 
Fin )
164162, 132, 163sylancl 662 . . . . . . 7  |-  ( A  e.  ( T  i^i  R )  ->  ( ( `' A " NN )  i^i  J )  e. 
Fin )
165138adantrr 716 . . . . . . . 8  |-  ( ( A  e.  ( T  i^i  R )  /\  ( t  e.  ( ( `' A " NN )  i^i  J )  /\  n  e.  (bits `  ( A `  t
) ) ) )  ->  t  e.  CC )
166142, 165mulcld 9404 . . . . . . 7  |-  ( ( A  e.  ( T  i^i  R )  /\  ( t  e.  ( ( `' A " NN )  i^i  J )  /\  n  e.  (bits `  ( A `  t
) ) ) )  ->  ( ( 2 ^ n )  x.  t )  e.  CC )
167155, 164, 137, 166fsum2d 13236 . . . . . 6  |-  ( A  e.  ( T  i^i  R )  ->  sum_ t  e.  ( ( `' A " NN )  i^i  J
) sum_ n  e.  (bits `  ( A `  t
) ) ( ( 2 ^ n )  x.  t )  = 
sum_ w  e.  U_  t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) ) ( ( 2 ^ ( 2nd `  w ) )  x.  ( 1st `  w
) ) )
168145, 149, 1673eqtr3d 2481 . . . . 5  |-  ( A  e.  ( T  i^i  R )  ->  sum_ t  e.  ( ( `' A " NN )  i^i  J
) ( ( A `
 t )  x.  t )  =  sum_ w  e.  U_  t  e.  ( ( `' A " NN )  i^i  J
) ( { t }  X.  (bits `  ( A `  t ) ) ) ( ( 2 ^ ( 2nd `  w ) )  x.  ( 1st `  w
) ) )
169 inss1 3568 . . . . . . . . 9  |-  ( T  i^i  R )  C_  T
170169sseli 3350 . . . . . . . 8  |-  ( A  e.  ( T  i^i  R )  ->  A  e.  T )
171159sseq1d 3381 . . . . . . . . . 10  |-  ( f  =  A  ->  (
( `' f " NN )  C_  J  <->  ( `' A " NN )  C_  J ) )
172171, 10elrab2 3117 . . . . . . . . 9  |-  ( A  e.  T  <->  ( A  e.  ( NN0  ^m  NN )  /\  ( `' A " NN )  C_  J
) )
173172simprbi 464 . . . . . . . 8  |-  ( A  e.  T  ->  ( `' A " NN ) 
C_  J )
174170, 173syl 16 . . . . . . 7  |-  ( A  e.  ( T  i^i  R )  ->  ( `' A " NN )  C_  J )
175 df-ss 3340 . . . . . . 7  |-  ( ( `' A " NN ) 
C_  J  <->  ( ( `' A " NN )  i^i  J )  =  ( `' A " NN ) )
176174, 175sylib 196 . . . . . 6  |-  ( A  e.  ( T  i^i  R )  ->  ( ( `' A " NN )  i^i  J )  =  ( `' A " NN ) )
177176sumeq1d 13176 . . . . 5  |-  ( A  e.  ( T  i^i  R )  ->  sum_ t  e.  ( ( `' A " NN )  i^i  J
) ( ( A `
 t )  x.  t )  =  sum_ t  e.  ( `' A " NN ) ( ( A `  t
)  x.  t ) )
178168, 177eqtr3d 2475 . . . 4  |-  ( A  e.  ( T  i^i  R )  ->  sum_ w  e. 
U_  t  e.  ( ( `' A " NN )  i^i  J ) ( { t }  X.  (bits `  ( A `  t )
) ) ( ( 2 ^ ( 2nd `  w ) )  x.  ( 1st `  w
) )  =  sum_ t  e.  ( `' A " NN ) ( ( A `  t
)  x.  t ) )
17927, 121, 1783eqtr2d 2479 . . 3  |-  ( A  e.  ( T  i^i  R )  ->  sum_ k  e.  ( `' ( G `
 A ) " NN ) ( ( ( G `  A ) `
 k )  x.  k )  =  sum_ t  e.  ( `' A " NN ) ( ( A `  t
)  x.  t ) )
180 fveq2 5689 . . . . 5  |-  ( k  =  t  ->  ( A `  k )  =  ( A `  t ) )
181 id 22 . . . . 5  |-  ( k  =  t  ->  k  =  t )
182180, 181oveq12d 6107 . . . 4  |-  ( k  =  t  ->  (
( A `  k
)  x.  k )  =  ( ( A `
 t )  x.  t ) )
183182cbvsumv 13171 . . 3  |-  sum_ k  e.  ( `' A " NN ) ( ( A `
 k )  x.  k )  =  sum_ t  e.  ( `' A " NN ) ( ( A `  t
)  x.  t )
184179, 183syl6eqr 2491 . 2  |-  ( A  e.  ( T  i^i  R )  ->  sum_ k  e.  ( `' ( G `
 A ) " NN ) ( ( ( G `  A ) `
 k )  x.  k )  =  sum_ k  e.  ( `' A " NN ) ( ( A `  k
)  x.  k ) )
185 0nn0 10592 . . . . . . . 8  |-  0  e.  NN0
186 1nn0 10593 . . . . . . . 8  |-  1  e.  NN0
187 prssi 4027 . . . . . . . 8  |-  ( ( 0  e.  NN0  /\  1  e.  NN0 )  ->  { 0 ,  1 }  C_  NN0 )
188185, 186, 187mp2an 672 . . . . . . 7  |-  { 0 ,  1 }  C_  NN0
189 fss 5565 . . . . . . 7  |-  ( ( ( G `  A
) : NN --> { 0 ,  1 }  /\  { 0 ,  1 } 
C_  NN0 )  ->  ( G `  A ) : NN --> NN0 )
190188, 189mpan2 671 . . . . . 6  |-  ( ( G `  A ) : NN --> { 0 ,  1 }  ->  ( G `  A ) : NN --> NN0 )
191 nn0ex 10583 . . . . . . . 8  |-  NN0  e.  _V
192 nnex 10326 . . . . . . . 8  |-  NN  e.  _V
193191, 192elmap 7239 . . . . . . 7  |-  ( ( G `  A )  e.  ( NN0  ^m  NN )  <->  ( G `  A ) : NN --> NN0 )
194193biimpri 206 . . . . . 6  |-  ( ( G `  A ) : NN --> NN0  ->  ( G `  A )  e.  ( NN0  ^m  NN ) )
19519, 190, 1943syl 20 . . . . 5  |-  ( ( G `  A )  e.  ( { 0 ,  1 }  ^m  NN )  ->  ( G `
 A )  e.  ( NN0  ^m  NN ) )
196195anim1i 568 . . . 4  |-  ( ( ( G `  A
)  e.  ( { 0 ,  1 }  ^m  NN )  /\  ( G `  A )  e.  R )  -> 
( ( G `  A )  e.  ( NN0  ^m  NN )  /\  ( G `  A )  e.  R
) )
197 elin 3537 . . . 4  |-  ( ( G `  A )  e.  ( ( NN0 
^m  NN )  i^i 
R )  <->  ( ( G `  A )  e.  ( NN0  ^m  NN )  /\  ( G `  A )  e.  R
) )
198196, 16, 1973imtr4i 266 . . 3  |-  ( ( G `  A )  e.  ( ( { 0 ,  1 }  ^m  NN )  i^i 
R )  ->  ( G `  A )  e.  ( ( NN0  ^m  NN )  i^i  R ) )
199 eulerpart.s . . . 4  |-  S  =  ( f  e.  ( ( NN0  ^m  NN )  i^i  R )  |->  sum_ k  e.  NN  (
( f `  k
)  x.  k ) )
2009, 199eulerpartlemsv2 26739 . . 3  |-  ( ( G `  A )  e.  ( ( NN0 
^m  NN )  i^i 
R )  ->  ( S `  ( G `  A ) )  = 
sum_ k  e.  ( `' ( G `  A ) " NN ) ( ( ( G `  A ) `
 k )  x.  k ) )
20115, 198, 2003syl 20 . 2  |-  ( A  e.  ( T  i^i  R )  ->  ( S `  ( G `  A
) )  =  sum_ k  e.  ( `' ( G `  A )
" NN ) ( ( ( G `  A ) `  k
)  x.  k ) )
202123, 157elind 3538 . . 3  |-  ( A  e.  ( T  i^i  R )  ->  A  e.  ( ( NN0  ^m  NN )  i^i  R ) )
2039, 199eulerpartlemsv2 26739 . . 3  |-  ( A  e.  ( ( NN0 
^m  NN )  i^i 
R )  ->  ( S `  A )  =  sum_ k  e.  ( `' A " NN ) ( ( A `  k )  x.  k
) )
204202, 203syl 16 . 2  |-  ( A  e.  ( T  i^i  R )  ->  ( S `  A )  =  sum_ k  e.  ( `' A " NN ) ( ( A `  k
)  x.  k ) )
205184, 201, 2043eqtr4d 2483 1  |-  ( A  e.  ( T  i^i  R )  ->  ( S `  ( G `  A
) )  =  ( S `  A ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    = wceq 1369    e. wcel 1756   {cab 2427   A.wral 2713   E.wrex 2714   {crab 2717   _Vcvv 2970    \ cdif 3323    i^i cin 3325    C_ wss 3326   (/)c0 3635   ifcif 3789   ~Pcpw 3858   {csn 3875   {cpr 3877   <.cop 3881   U_ciun 4169   class class class wbr 4290   {copab 4347    e. cmpt 4348    X. cxp 4836   `'ccnv 4837   dom cdm 4838    |` cres 4840   "cima 4841    o. ccom 4842    Fn wfn 5411   -->wf 5412   -1-1-onto->wf1o 5415   ` cfv 5416  (class class class)co 6089    e. cmpt2 6091   1stc1st 6573   2ndc2nd 6574   supp csupp 6688    ^m cmap 7212    ~~ cen 7305   Fincfn 7308   CCcc 9278   0cc0 9280   1c1 9281    x. cmul 9285    <_ cle 9417   NNcn 10320   2c2 10369   NN0cn0 10577   ^cexp 11863   sum_csu 13161    || cdivides 13533  bitscbits 13613  𝟭cind 26465
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1591  ax-4 1602  ax-5 1670  ax-6 1708  ax-7 1728  ax-8 1758  ax-9 1760  ax-10 1775  ax-11 1780  ax-12 1792  ax-13 1943  ax-ext 2422  ax-rep 4401  ax-sep 4411  ax-nul 4419  ax-pow 4468  ax-pr 4529  ax-un 6370  ax-inf2 7845  ax-ac2 8630  ax-cnex 9336  ax-resscn 9337  ax-1cn 9338  ax-icn 9339  ax-addcl 9340  ax-addrcl 9341  ax-mulcl 9342  ax-mulrcl 9343  ax-mulcom 9344  ax-addass 9345  ax-mulass 9346  ax-distr 9347  ax-i2m1 9348  ax-1ne0 9349  ax-1rid 9350  ax-rnegex 9351  ax-rrecex 9352  ax-cnre 9353  ax-pre-lttri 9354  ax-pre-lttrn 9355  ax-pre-ltadd 9356  ax-pre-mulgt0 9357  ax-pre-sup 9358
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 966  df-3an 967  df-tru 1372  df-fal 1375  df-ex 1587  df-nf 1590  df-sb 1701  df-eu 2257  df-mo 2258  df-clab 2428  df-cleq 2434  df-clel 2437  df-nfc 2566  df-ne 2606  df-nel 2607  df-ral 2718  df-rex 2719  df-reu 2720  df-rmo 2721  df-rab 2722  df-v 2972  df-sbc 3185  df-csb 3287  df-dif 3329  df-un 3331  df-in 3333  df-ss 3340  df-pss 3342  df-nul 3636  df-if 3790  df-pw 3860  df-sn 3876  df-pr 3878  df-tp 3880  df-op 3882  df-uni 4090  df-int 4127  df-iun 4171  df-disj 4261  df-br 4291  df-opab 4349  df-mpt 4350  df-tr 4384  df-eprel 4630  df-id 4634  df-po 4639  df-so 4640  df-fr 4677  df-se 4678  df-we 4679  df-ord 4720  df-on 4721  df-lim 4722  df-suc 4723  df-xp 4844  df-rel 4845  df-cnv 4846  df-co 4847  df-dm 4848  df-rn 4849  df-res 4850  df-ima 4851  df-iota 5379  df-fun 5418  df-fn 5419  df-f 5420  df-f1 5421  df-fo 5422  df-f1o 5423  df-fv 5424  df-isom 5425  df-riota 6050  df-ov 6092  df-oprab 6093  df-mpt2 6094  df-om 6475  df-1st 6575  df-2nd 6576  df-supp 6689  df-recs 6830  df-rdg 6864  df-1o 6918  df-2o 6919  df-oadd 6922  df-er 7099  df-map 7214  df-pm 7215  df-en 7309  df-dom 7310  df-sdom 7311  df-fin 7312  df-fsupp 7619  df-sup 7689  df-oi 7722  df-card 8107  df-acn 8110  df-ac 8284  df-cda 8335  df-pnf 9418  df-mnf 9419  df-xr 9420  df-ltxr 9421  df-le 9422  df-sub 9595  df-neg 9596  df-div 9992  df-nn 10321  df-2 10378  df-3 10379  df-n0 10578  df-z 10645  df-uz 10860  df-rp 10990  df-fz 11436  df-fzo 11547  df-fl 11640  df-mod 11707  df-seq 11805  df-exp 11864  df-hash 12102  df-cj 12586  df-re 12587  df-im 12588  df-sqr 12722  df-abs 12723  df-clim 12964  df-sum 13162  df-dvds 13534  df-bits 13616  df-ind 26466
This theorem is referenced by:  eulerpartlemn  26762
  Copyright terms: Public domain W3C validator