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

Theorem sumnnodd 39862
Description: A series indexed by  NN with only odd terms. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
sumnnodd.1  |-  ( ph  ->  F : NN --> CC )
sumnnodd.even0  |-  ( (
ph  /\  k  e.  NN  /\  ( k  / 
2 )  e.  NN )  ->  ( F `  k )  =  0 )
sumnnodd.sc  |-  ( ph  ->  seq 1 (  +  ,  F )  ~~>  B )
Assertion
Ref Expression
sumnnodd  |-  ( ph  ->  (  seq 1 (  +  ,  ( k  e.  NN  |->  ( F `
 ( ( 2  x.  k )  - 
1 ) ) ) )  ~~>  B  /\  sum_ k  e.  NN  ( F `  k )  =  sum_ k  e.  NN  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )
Distinct variable groups:    k, F    ph, k
Allowed substitution hint:    B( k)

Proof of Theorem sumnnodd
Dummy variables  C  j  i  n  m  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nfv 1843 . . 3  |-  F/ k
ph
2 nfcv 2764 . . 3  |-  F/_ k  seq 1 (  +  ,  F )
3 nfcv 2764 . . . 4  |-  F/_ k
1
4 nfcv 2764 . . . 4  |-  F/_ k  +
5 nfmpt1 4747 . . . 4  |-  F/_ k
( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) )
63, 4, 5nfseq 12811 . . 3  |-  F/_ k  seq 1 (  +  , 
( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )
7 nfmpt1 4747 . . 3  |-  F/_ k
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) )
8 nnuz 11723 . . 3  |-  NN  =  ( ZZ>= `  1 )
9 1zzd 11408 . . 3  |-  ( ph  ->  1  e.  ZZ )
10 seqex 12803 . . . 4  |-  seq 1
(  +  ,  F
)  e.  _V
1110a1i 11 . . 3  |-  ( ph  ->  seq 1 (  +  ,  F )  e. 
_V )
12 sumnnodd.1 . . . . . 6  |-  ( ph  ->  F : NN --> CC )
1312ffvelrnda 6359 . . . . 5  |-  ( (
ph  /\  k  e.  NN )  ->  ( F `
 k )  e.  CC )
148, 9, 13serf 12829 . . . 4  |-  ( ph  ->  seq 1 (  +  ,  F ) : NN --> CC )
1514ffvelrnda 6359 . . 3  |-  ( (
ph  /\  k  e.  NN )  ->  (  seq 1 (  +  ,  F ) `  k
)  e.  CC )
16 sumnnodd.sc . . 3  |-  ( ph  ->  seq 1 (  +  ,  F )  ~~>  B )
17 1nn 11031 . . . . . . 7  |-  1  e.  NN
18 oveq2 6658 . . . . . . . . 9  |-  ( k  =  1  ->  (
2  x.  k )  =  ( 2  x.  1 ) )
1918oveq1d 6665 . . . . . . . 8  |-  ( k  =  1  ->  (
( 2  x.  k
)  -  1 )  =  ( ( 2  x.  1 )  - 
1 ) )
20 eqid 2622 . . . . . . . 8  |-  ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) )  =  ( k  e.  NN  |->  ( ( 2  x.  k )  - 
1 ) )
21 ovex 6678 . . . . . . . 8  |-  ( ( 2  x.  1 )  -  1 )  e. 
_V
2219, 20, 21fvmpt 6282 . . . . . . 7  |-  ( 1  e.  NN  ->  (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  1
)  =  ( ( 2  x.  1 )  -  1 ) )
2317, 22ax-mp 5 . . . . . 6  |-  ( ( k  e.  NN  |->  ( ( 2  x.  k
)  -  1 ) ) `  1 )  =  ( ( 2  x.  1 )  - 
1 )
24 2t1e2 11176 . . . . . . 7  |-  ( 2  x.  1 )  =  2
2524oveq1i 6660 . . . . . 6  |-  ( ( 2  x.  1 )  -  1 )  =  ( 2  -  1 )
26 2m1e1 11135 . . . . . 6  |-  ( 2  -  1 )  =  1
2723, 25, 263eqtri 2648 . . . . 5  |-  ( ( k  e.  NN  |->  ( ( 2  x.  k
)  -  1 ) ) `  1 )  =  1
2827, 17eqeltri 2697 . . . 4  |-  ( ( k  e.  NN  |->  ( ( 2  x.  k
)  -  1 ) ) `  1 )  e.  NN
2928a1i 11 . . 3  |-  ( ph  ->  ( ( k  e.  NN  |->  ( ( 2  x.  k )  - 
1 ) ) ` 
1 )  e.  NN )
30 2z 11409 . . . . . . . 8  |-  2  e.  ZZ
3130a1i 11 . . . . . . 7  |-  ( k  e.  NN  ->  2  e.  ZZ )
32 nnz 11399 . . . . . . 7  |-  ( k  e.  NN  ->  k  e.  ZZ )
3331, 32zmulcld 11488 . . . . . 6  |-  ( k  e.  NN  ->  (
2  x.  k )  e.  ZZ )
3432peano2zd 11485 . . . . . . . 8  |-  ( k  e.  NN  ->  (
k  +  1 )  e.  ZZ )
3531, 34zmulcld 11488 . . . . . . 7  |-  ( k  e.  NN  ->  (
2  x.  ( k  +  1 ) )  e.  ZZ )
36 1zzd 11408 . . . . . . 7  |-  ( k  e.  NN  ->  1  e.  ZZ )
3735, 36zsubcld 11487 . . . . . 6  |-  ( k  e.  NN  ->  (
( 2  x.  (
k  +  1 ) )  -  1 )  e.  ZZ )
38 2re 11090 . . . . . . . . . 10  |-  2  e.  RR
3938a1i 11 . . . . . . . . 9  |-  ( k  e.  NN  ->  2  e.  RR )
40 nnre 11027 . . . . . . . . 9  |-  ( k  e.  NN  ->  k  e.  RR )
4139, 40remulcld 10070 . . . . . . . 8  |-  ( k  e.  NN  ->  (
2  x.  k )  e.  RR )
4241lep1d 10955 . . . . . . 7  |-  ( k  e.  NN  ->  (
2  x.  k )  <_  ( ( 2  x.  k )  +  1 ) )
43 2cnd 11093 . . . . . . . . . . 11  |-  ( k  e.  NN  ->  2  e.  CC )
44 nncn 11028 . . . . . . . . . . 11  |-  ( k  e.  NN  ->  k  e.  CC )
45 1cnd 10056 . . . . . . . . . . 11  |-  ( k  e.  NN  ->  1  e.  CC )
4643, 44, 45adddid 10064 . . . . . . . . . 10  |-  ( k  e.  NN  ->  (
2  x.  ( k  +  1 ) )  =  ( ( 2  x.  k )  +  ( 2  x.  1 ) ) )
4724oveq2i 6661 . . . . . . . . . 10  |-  ( ( 2  x.  k )  +  ( 2  x.  1 ) )  =  ( ( 2  x.  k )  +  2 )
4846, 47syl6eq 2672 . . . . . . . . 9  |-  ( k  e.  NN  ->  (
2  x.  ( k  +  1 ) )  =  ( ( 2  x.  k )  +  2 ) )
4948oveq1d 6665 . . . . . . . 8  |-  ( k  e.  NN  ->  (
( 2  x.  (
k  +  1 ) )  -  1 )  =  ( ( ( 2  x.  k )  +  2 )  - 
1 ) )
5043, 44mulcld 10060 . . . . . . . . 9  |-  ( k  e.  NN  ->  (
2  x.  k )  e.  CC )
5150, 43, 45addsubassd 10412 . . . . . . . 8  |-  ( k  e.  NN  ->  (
( ( 2  x.  k )  +  2 )  -  1 )  =  ( ( 2  x.  k )  +  ( 2  -  1 ) ) )
5226oveq2i 6661 . . . . . . . . 9  |-  ( ( 2  x.  k )  +  ( 2  -  1 ) )  =  ( ( 2  x.  k )  +  1 )
5352a1i 11 . . . . . . . 8  |-  ( k  e.  NN  ->  (
( 2  x.  k
)  +  ( 2  -  1 ) )  =  ( ( 2  x.  k )  +  1 ) )
5449, 51, 533eqtrrd 2661 . . . . . . 7  |-  ( k  e.  NN  ->  (
( 2  x.  k
)  +  1 )  =  ( ( 2  x.  ( k  +  1 ) )  - 
1 ) )
5542, 54breqtrd 4679 . . . . . 6  |-  ( k  e.  NN  ->  (
2  x.  k )  <_  ( ( 2  x.  ( k  +  1 ) )  - 
1 ) )
56 eluz2 11693 . . . . . 6  |-  ( ( ( 2  x.  (
k  +  1 ) )  -  1 )  e.  ( ZZ>= `  (
2  x.  k ) )  <->  ( ( 2  x.  k )  e.  ZZ  /\  ( ( 2  x.  ( k  +  1 ) )  -  1 )  e.  ZZ  /\  ( 2  x.  k )  <_ 
( ( 2  x.  ( k  +  1 ) )  -  1 ) ) )
5733, 37, 55, 56syl3anbrc 1246 . . . . 5  |-  ( k  e.  NN  ->  (
( 2  x.  (
k  +  1 ) )  -  1 )  e.  ( ZZ>= `  (
2  x.  k ) ) )
58 oveq2 6658 . . . . . . . . 9  |-  ( k  =  j  ->  (
2  x.  k )  =  ( 2  x.  j ) )
5958oveq1d 6665 . . . . . . . 8  |-  ( k  =  j  ->  (
( 2  x.  k
)  -  1 )  =  ( ( 2  x.  j )  - 
1 ) )
6059cbvmptv 4750 . . . . . . 7  |-  ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) )  =  ( j  e.  NN  |->  ( ( 2  x.  j )  - 
1 ) )
6160a1i 11 . . . . . 6  |-  ( k  e.  NN  ->  (
k  e.  NN  |->  ( ( 2  x.  k
)  -  1 ) )  =  ( j  e.  NN  |->  ( ( 2  x.  j )  -  1 ) ) )
62 oveq2 6658 . . . . . . . 8  |-  ( j  =  ( k  +  1 )  ->  (
2  x.  j )  =  ( 2  x.  ( k  +  1 ) ) )
6362oveq1d 6665 . . . . . . 7  |-  ( j  =  ( k  +  1 )  ->  (
( 2  x.  j
)  -  1 )  =  ( ( 2  x.  ( k  +  1 ) )  - 
1 ) )
6463adantl 482 . . . . . 6  |-  ( ( k  e.  NN  /\  j  =  ( k  +  1 ) )  ->  ( ( 2  x.  j )  - 
1 )  =  ( ( 2  x.  (
k  +  1 ) )  -  1 ) )
65 peano2nn 11032 . . . . . 6  |-  ( k  e.  NN  ->  (
k  +  1 )  e.  NN )
6661, 64, 65, 37fvmptd 6288 . . . . 5  |-  ( k  e.  NN  ->  (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  (
k  +  1 ) )  =  ( ( 2  x.  ( k  +  1 ) )  -  1 ) )
6733, 36zsubcld 11487 . . . . . . . . 9  |-  ( k  e.  NN  ->  (
( 2  x.  k
)  -  1 )  e.  ZZ )
6820fvmpt2 6291 . . . . . . . . 9  |-  ( ( k  e.  NN  /\  ( ( 2  x.  k )  -  1 )  e.  ZZ )  ->  ( ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `
 k )  =  ( ( 2  x.  k )  -  1 ) )
6967, 68mpdan 702 . . . . . . . 8  |-  ( k  e.  NN  ->  (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  k
)  =  ( ( 2  x.  k )  -  1 ) )
7069oveq1d 6665 . . . . . . 7  |-  ( k  e.  NN  ->  (
( ( k  e.  NN  |->  ( ( 2  x.  k )  - 
1 ) ) `  k )  +  1 )  =  ( ( ( 2  x.  k
)  -  1 )  +  1 ) )
7150, 45npcand 10396 . . . . . . 7  |-  ( k  e.  NN  ->  (
( ( 2  x.  k )  -  1 )  +  1 )  =  ( 2  x.  k ) )
7270, 71eqtrd 2656 . . . . . 6  |-  ( k  e.  NN  ->  (
( ( k  e.  NN  |->  ( ( 2  x.  k )  - 
1 ) ) `  k )  +  1 )  =  ( 2  x.  k ) )
7372fveq2d 6195 . . . . 5  |-  ( k  e.  NN  ->  ( ZZ>=
`  ( ( ( k  e.  NN  |->  ( ( 2  x.  k
)  -  1 ) ) `  k )  +  1 ) )  =  ( ZZ>= `  (
2  x.  k ) ) )
7457, 66, 733eltr4d 2716 . . . 4  |-  ( k  e.  NN  ->  (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  (
k  +  1 ) )  e.  ( ZZ>= `  ( ( ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `
 k )  +  1 ) ) )
7574adantl 482 . . 3  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( k  e.  NN  |->  ( ( 2  x.  k
)  -  1 ) ) `  ( k  +  1 ) )  e.  ( ZZ>= `  (
( ( k  e.  NN  |->  ( ( 2  x.  k )  - 
1 ) ) `  k )  +  1 ) ) )
76 seqex 12803 . . . 4  |-  seq 1
(  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  e.  _V
7776a1i 11 . . 3  |-  ( ph  ->  seq 1 (  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  e.  _V )
78 incom 3805 . . . . . . . . . 10  |-  ( ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  i^i  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  =  ( ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
)  i^i  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )
79 inss2 3834 . . . . . . . . . . 11  |-  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  C_  { n  e.  NN  | 
( n  /  2
)  e.  NN }
80 ssrin 3838 . . . . . . . . . . 11  |-  ( ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  C_  { n  e.  NN  | 
( n  /  2
)  e.  NN }  ->  ( ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  i^i 
{ n  e.  NN  |  ( n  / 
2 )  e.  NN } )  i^i  (
( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) ) 
C_  ( { n  e.  NN  |  ( n  /  2 )  e.  NN }  i^i  (
( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) ) )
8179, 80ax-mp 5 . . . . . . . . . 10  |-  ( ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  i^i  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  C_  ( { n  e.  NN  |  ( n  / 
2 )  e.  NN }  i^i  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )
8278, 81eqsstri 3635 . . . . . . . . 9  |-  ( ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  i^i  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  C_  ( { n  e.  NN  |  ( n  / 
2 )  e.  NN }  i^i  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )
83 disjdif 4040 . . . . . . . . 9  |-  ( { n  e.  NN  | 
( n  /  2
)  e.  NN }  i^i  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  =  (/)
8482, 83sseqtri 3637 . . . . . . . 8  |-  ( ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  i^i  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  C_  (/)
85 ss0 3974 . . . . . . . 8  |-  ( ( ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
)  i^i  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  i^i 
{ n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  C_  (/) 
->  ( ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  i^i  (
( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )  =  (/) )
8684, 85mp1i 13 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  i^i  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  =  (/) )
87 uncom 3757 . . . . . . . . 9  |-  ( ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  u.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  =  ( ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
)  u.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )
88 inundif 4046 . . . . . . . . 9  |-  ( ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  u.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  =  ( 1 ... ( ( 2  x.  k )  -  1 ) )
8987, 88eqtr2i 2645 . . . . . . . 8  |-  ( 1 ... ( ( 2  x.  k )  - 
1 ) )  =  ( ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  u.  (
( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )
9089a1i 11 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN )  ->  ( 1 ... ( ( 2  x.  k )  - 
1 ) )  =  ( ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  u.  (
( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) ) )
91 fzfid 12772 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN )  ->  ( 1 ... ( ( 2  x.  k )  - 
1 ) )  e. 
Fin )
9212adantr 481 . . . . . . . . 9  |-  ( (
ph  /\  j  e.  ( 1 ... (
( 2  x.  k
)  -  1 ) ) )  ->  F : NN --> CC )
93 elfznn 12370 . . . . . . . . . 10  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  j  e.  NN )
9493adantl 482 . . . . . . . . 9  |-  ( (
ph  /\  j  e.  ( 1 ... (
( 2  x.  k
)  -  1 ) ) )  ->  j  e.  NN )
9592, 94ffvelrnd 6360 . . . . . . . 8  |-  ( (
ph  /\  j  e.  ( 1 ... (
( 2  x.  k
)  -  1 ) ) )  ->  ( F `  j )  e.  CC )
9695adantlr 751 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 1 ... (
( 2  x.  k
)  -  1 ) ) )  ->  ( F `  j )  e.  CC )
9786, 90, 91, 96fsumsplit 14471 . . . . . 6  |-  ( (
ph  /\  k  e.  NN )  ->  sum_ j  e.  ( 1 ... (
( 2  x.  k
)  -  1 ) ) ( F `  j )  =  (
sum_ j  e.  ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) ( F `  j )  +  sum_ j  e.  ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) ( F `  j ) ) )
98 simpl 473 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  ->  ph )
99 ssrab2 3687 . . . . . . . . . . . . . 14  |-  { n  e.  NN  |  ( n  /  2 )  e.  NN }  C_  NN
10079sseli 3599 . . . . . . . . . . . . . 14  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  i^i 
{ n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  j  e.  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )
10199, 100sseldi 3601 . . . . . . . . . . . . 13  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  i^i 
{ n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  j  e.  NN )
102101adantl 482 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  ->  j  e.  NN )
103 oveq1 6657 . . . . . . . . . . . . . . . 16  |-  ( k  =  j  ->  (
k  /  2 )  =  ( j  / 
2 ) )
104103eleq1d 2686 . . . . . . . . . . . . . . 15  |-  ( k  =  j  ->  (
( k  /  2
)  e.  NN  <->  ( j  /  2 )  e.  NN ) )
105 oveq1 6657 . . . . . . . . . . . . . . . . . 18  |-  ( n  =  k  ->  (
n  /  2 )  =  ( k  / 
2 ) )
106105eleq1d 2686 . . . . . . . . . . . . . . . . 17  |-  ( n  =  k  ->  (
( n  /  2
)  e.  NN  <->  ( k  /  2 )  e.  NN ) )
107106elrab 3363 . . . . . . . . . . . . . . . 16  |-  ( k  e.  { n  e.  NN  |  ( n  /  2 )  e.  NN }  <->  ( k  e.  NN  /\  ( k  /  2 )  e.  NN ) )
108107simprbi 480 . . . . . . . . . . . . . . 15  |-  ( k  e.  { n  e.  NN  |  ( n  /  2 )  e.  NN }  ->  (
k  /  2 )  e.  NN )
109104, 108vtoclga 3272 . . . . . . . . . . . . . 14  |-  ( j  e.  { n  e.  NN  |  ( n  /  2 )  e.  NN }  ->  (
j  /  2 )  e.  NN )
110100, 109syl 17 . . . . . . . . . . . . 13  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  i^i 
{ n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  (
j  /  2 )  e.  NN )
111110adantl 482 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  ->  (
j  /  2 )  e.  NN )
112 eleq1 2689 . . . . . . . . . . . . . . 15  |-  ( k  =  j  ->  (
k  e.  NN  <->  j  e.  NN ) )
113112, 1043anbi23d 1402 . . . . . . . . . . . . . 14  |-  ( k  =  j  ->  (
( ph  /\  k  e.  NN  /\  ( k  /  2 )  e.  NN )  <->  ( ph  /\  j  e.  NN  /\  ( j  /  2
)  e.  NN ) ) )
114 fveq2 6191 . . . . . . . . . . . . . . 15  |-  ( k  =  j  ->  ( F `  k )  =  ( F `  j ) )
115114eqeq1d 2624 . . . . . . . . . . . . . 14  |-  ( k  =  j  ->  (
( F `  k
)  =  0  <->  ( F `  j )  =  0 ) )
116113, 115imbi12d 334 . . . . . . . . . . . . 13  |-  ( k  =  j  ->  (
( ( ph  /\  k  e.  NN  /\  (
k  /  2 )  e.  NN )  -> 
( F `  k
)  =  0 )  <-> 
( ( ph  /\  j  e.  NN  /\  (
j  /  2 )  e.  NN )  -> 
( F `  j
)  =  0 ) ) )
117 sumnnodd.even0 . . . . . . . . . . . . 13  |-  ( (
ph  /\  k  e.  NN  /\  ( k  / 
2 )  e.  NN )  ->  ( F `  k )  =  0 )
118116, 117chvarv 2263 . . . . . . . . . . . 12  |-  ( (
ph  /\  j  e.  NN  /\  ( j  / 
2 )  e.  NN )  ->  ( F `  j )  =  0 )
11998, 102, 111, 118syl3anc 1326 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  ->  ( F `  j )  =  0 )
120119sumeq2dv 14433 . . . . . . . . . 10  |-  ( ph  -> 
sum_ j  e.  ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) ( F `  j )  =  sum_ j  e.  ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) 0 )
121 fzfid 12772 . . . . . . . . . . . . 13  |-  ( ph  ->  ( 1 ... (
( 2  x.  k
)  -  1 ) )  e.  Fin )
122 inss1 3833 . . . . . . . . . . . . . 14  |-  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  C_  ( 1 ... (
( 2  x.  k
)  -  1 ) )
123122a1i 11 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
)  C_  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )
124 ssfi 8180 . . . . . . . . . . . . 13  |-  ( ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  e.  Fin  /\  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
)  C_  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )  ->  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  i^i 
{ n  e.  NN  |  ( n  / 
2 )  e.  NN } )  e.  Fin )
125121, 123, 124syl2anc 693 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
)  e.  Fin )
126125olcd 408 . . . . . . . . . . 11  |-  ( ph  ->  ( ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  i^i 
{ n  e.  NN  |  ( n  / 
2 )  e.  NN } )  C_  ( ZZ>=
`  C )  \/  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
)  e.  Fin )
)
127 sumz 14453 . . . . . . . . . . 11  |-  ( ( ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
)  C_  ( ZZ>= `  C )  \/  (
( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  e. 
Fin )  ->  sum_ j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) 0  =  0 )
128126, 127syl 17 . . . . . . . . . 10  |-  ( ph  -> 
sum_ j  e.  ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) 0  =  0 )
129120, 128eqtrd 2656 . . . . . . . . 9  |-  ( ph  -> 
sum_ j  e.  ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) ( F `  j )  =  0 )
130129adantr 481 . . . . . . . 8  |-  ( (
ph  /\  k  e.  NN )  ->  sum_ j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  i^i  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) ( F `  j )  =  0 )
131130oveq2d 6666 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN )  ->  ( sum_ j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) ( F `
 j )  + 
sum_ j  e.  ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) ( F `  j ) )  =  ( sum_ j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) ( F `
 j )  +  0 ) )
132 fzfi 12771 . . . . . . . . . . . 12  |-  ( 1 ... ( ( 2  x.  k )  - 
1 ) )  e. 
Fin
133 difss 3737 . . . . . . . . . . . 12  |-  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  C_  ( 1 ... (
( 2  x.  k
)  -  1 ) )
134 ssfi 8180 . . . . . . . . . . . 12  |-  ( ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  e.  Fin  /\  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
)  C_  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )  ->  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  e.  Fin )
135132, 133, 134mp2an 708 . . . . . . . . . . 11  |-  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  e. 
Fin
136135a1i 11 . . . . . . . . . 10  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  e. 
Fin )
137133sseli 3599 . . . . . . . . . . . 12  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  j  e.  ( 1 ... (
( 2  x.  k
)  -  1 ) ) )
138137, 95sylan2 491 . . . . . . . . . . 11  |-  ( (
ph  /\  j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  ->  ( F `  j )  e.  CC )
139138adantlr 751 . . . . . . . . . 10  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  ->  ( F `  j )  e.  CC )
140136, 139fsumcl 14464 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  NN )  ->  sum_ j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) ( F `  j )  e.  CC )
141140addid1d 10236 . . . . . . . 8  |-  ( (
ph  /\  k  e.  NN )  ->  ( sum_ j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) ( F `
 j )  +  0 )  =  sum_ j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) ( F `
 j ) )
142 fveq2 6191 . . . . . . . . 9  |-  ( j  =  i  ->  ( F `  j )  =  ( F `  i ) )
143142cbvsumv 14426 . . . . . . . 8  |-  sum_ j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) ( F `  j )  =  sum_ i  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) ( F `
 i )
144141, 143syl6eq 2672 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN )  ->  ( sum_ j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) ( F `
 j )  +  0 )  =  sum_ i  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) ( F `
 i ) )
145131, 144eqtrd 2656 . . . . . 6  |-  ( (
ph  /\  k  e.  NN )  ->  ( sum_ j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) ( F `
 j )  + 
sum_ j  e.  ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  i^i  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) ( F `  j ) )  =  sum_ i  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) ( F `  i ) )
146 fveq2 6191 . . . . . . 7  |-  ( i  =  ( ( 2  x.  j )  - 
1 )  ->  ( F `  i )  =  ( F `  ( ( 2  x.  j )  -  1 ) ) )
147 fzfid 12772 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN )  ->  ( 1 ... k )  e. 
Fin )
148 1zzd 11408 . . . . . . . . . . . . . 14  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  1  e.  ZZ )
14967adantr 481 . . . . . . . . . . . . . 14  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  ( ( 2  x.  k )  - 
1 )  e.  ZZ )
15030a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  ( 1 ... k )  ->  2  e.  ZZ )
151 elfzelz 12342 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  ( 1 ... k )  ->  i  e.  ZZ )
152150, 151zmulcld 11488 . . . . . . . . . . . . . . . 16  |-  ( i  e.  ( 1 ... k )  ->  (
2  x.  i )  e.  ZZ )
153 1zzd 11408 . . . . . . . . . . . . . . . 16  |-  ( i  e.  ( 1 ... k )  ->  1  e.  ZZ )
154152, 153zsubcld 11487 . . . . . . . . . . . . . . 15  |-  ( i  e.  ( 1 ... k )  ->  (
( 2  x.  i
)  -  1 )  e.  ZZ )
155154adantl 482 . . . . . . . . . . . . . 14  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  ( ( 2  x.  i )  - 
1 )  e.  ZZ )
156148, 149, 1553jca 1242 . . . . . . . . . . . . 13  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  ( 1  e.  ZZ  /\  ( ( 2  x.  k )  -  1 )  e.  ZZ  /\  ( ( 2  x.  i )  -  1 )  e.  ZZ ) )
15725, 26eqtr2i 2645 . . . . . . . . . . . . . . . 16  |-  1  =  ( ( 2  x.  1 )  - 
1 )
158 1re 10039 . . . . . . . . . . . . . . . . . . 19  |-  1  e.  RR
15938, 158remulcli 10054 . . . . . . . . . . . . . . . . . 18  |-  ( 2  x.  1 )  e.  RR
160159a1i 11 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  ( 1 ... k )  ->  (
2  x.  1 )  e.  RR )
161152zred 11482 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  ( 1 ... k )  ->  (
2  x.  i )  e.  RR )
162 1red 10055 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  ( 1 ... k )  ->  1  e.  RR )
163151zred 11482 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  i  e.  RR )
16438a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  2  e.  RR )
165 0le2 11111 . . . . . . . . . . . . . . . . . . 19  |-  0  <_  2
166165a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  0  <_  2 )
167 elfzle1 12344 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  1  <_  i )
168162, 163, 164, 166, 167lemul2ad 10964 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  ( 1 ... k )  ->  (
2  x.  1 )  <_  ( 2  x.  i ) )
169160, 161, 162, 168lesub1dd 10643 . . . . . . . . . . . . . . . 16  |-  ( i  e.  ( 1 ... k )  ->  (
( 2  x.  1 )  -  1 )  <_  ( ( 2  x.  i )  - 
1 ) )
170157, 169syl5eqbr 4688 . . . . . . . . . . . . . . 15  |-  ( i  e.  ( 1 ... k )  ->  1  <_  ( ( 2  x.  i )  -  1 ) )
171170adantl 482 . . . . . . . . . . . . . 14  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  1  <_  (
( 2  x.  i
)  -  1 ) )
172161adantl 482 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  ( 2  x.  i )  e.  RR )
17341adantr 481 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  ( 2  x.  k )  e.  RR )
174 1red 10055 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  1  e.  RR )
175163adantl 482 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  i  e.  RR )
17640adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  k  e.  RR )
17738a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  2  e.  RR )
178165a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  0  <_  2
)
179 elfzle2 12345 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  ( 1 ... k )  ->  i  <_  k )
180179adantl 482 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  i  <_  k
)
181175, 176, 177, 178, 180lemul2ad 10964 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  ( 2  x.  i )  <_  (
2  x.  k ) )
182172, 173, 174, 181lesub1dd 10643 . . . . . . . . . . . . . 14  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  ( ( 2  x.  i )  - 
1 )  <_  (
( 2  x.  k
)  -  1 ) )
183171, 182jca 554 . . . . . . . . . . . . 13  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  ( 1  <_ 
( ( 2  x.  i )  -  1 )  /\  ( ( 2  x.  i )  -  1 )  <_ 
( ( 2  x.  k )  -  1 ) ) )
184 elfz2 12333 . . . . . . . . . . . . 13  |-  ( ( ( 2  x.  i
)  -  1 )  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  <->  ( (
1  e.  ZZ  /\  ( ( 2  x.  k )  -  1 )  e.  ZZ  /\  ( ( 2  x.  i )  -  1 )  e.  ZZ )  /\  ( 1  <_ 
( ( 2  x.  i )  -  1 )  /\  ( ( 2  x.  i )  -  1 )  <_ 
( ( 2  x.  k )  -  1 ) ) ) )
185156, 183, 184sylanbrc 698 . . . . . . . . . . . 12  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  ( ( 2  x.  i )  - 
1 )  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) ) )
186152zcnd 11483 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  (
2  x.  i )  e.  CC )
187 1cnd 10056 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  1  e.  CC )
188 2cnd 11093 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  2  e.  CC )
189 2ne0 11113 . . . . . . . . . . . . . . . . . . 19  |-  2  =/=  0
190189a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  2  =/=  0 )
191186, 187, 188, 190divsubdird 10840 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  ( 1 ... k )  ->  (
( ( 2  x.  i )  -  1 )  /  2 )  =  ( ( ( 2  x.  i )  /  2 )  -  ( 1  /  2
) ) )
192151zcnd 11483 . . . . . . . . . . . . . . . . . . 19  |-  ( i  e.  ( 1 ... k )  ->  i  e.  CC )
193192, 188, 190divcan3d 10806 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  (
( 2  x.  i
)  /  2 )  =  i )
194193oveq1d 6665 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  ( 1 ... k )  ->  (
( ( 2  x.  i )  /  2
)  -  ( 1  /  2 ) )  =  ( i  -  ( 1  /  2
) ) )
195191, 194eqtrd 2656 . . . . . . . . . . . . . . . 16  |-  ( i  e.  ( 1 ... k )  ->  (
( ( 2  x.  i )  -  1 )  /  2 )  =  ( i  -  ( 1  /  2
) ) )
196151, 153zsubcld 11487 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  (
i  -  1 )  e.  ZZ )
197164, 190rereccld 10852 . . . . . . . . . . . . . . . . . . 19  |-  ( i  e.  ( 1 ... k )  ->  (
1  /  2 )  e.  RR )
198 halflt1 11250 . . . . . . . . . . . . . . . . . . . 20  |-  ( 1  /  2 )  <  1
199198a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( i  e.  ( 1 ... k )  ->  (
1  /  2 )  <  1 )
200197, 162, 163, 199ltsub2dd 10640 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  (
i  -  1 )  <  ( i  -  ( 1  /  2
) ) )
201 2rp 11837 . . . . . . . . . . . . . . . . . . . . 21  |-  2  e.  RR+
202 rpreccl 11857 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 2  e.  RR+  ->  ( 1  /  2 )  e.  RR+ )
203201, 202mp1i 13 . . . . . . . . . . . . . . . . . . . 20  |-  ( i  e.  ( 1 ... k )  ->  (
1  /  2 )  e.  RR+ )
204163, 203ltsubrpd 11904 . . . . . . . . . . . . . . . . . . 19  |-  ( i  e.  ( 1 ... k )  ->  (
i  -  ( 1  /  2 ) )  <  i )
205192, 187npcand 10396 . . . . . . . . . . . . . . . . . . 19  |-  ( i  e.  ( 1 ... k )  ->  (
( i  -  1 )  +  1 )  =  i )
206204, 205breqtrrd 4681 . . . . . . . . . . . . . . . . . 18  |-  ( i  e.  ( 1 ... k )  ->  (
i  -  ( 1  /  2 ) )  <  ( ( i  -  1 )  +  1 ) )
207 btwnnz 11453 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( i  -  1 )  e.  ZZ  /\  ( i  -  1 )  <  ( i  -  ( 1  / 
2 ) )  /\  ( i  -  (
1  /  2 ) )  <  ( ( i  -  1 )  +  1 ) )  ->  -.  ( i  -  ( 1  / 
2 ) )  e.  ZZ )
208196, 200, 206, 207syl3anc 1326 . . . . . . . . . . . . . . . . 17  |-  ( i  e.  ( 1 ... k )  ->  -.  ( i  -  (
1  /  2 ) )  e.  ZZ )
209 nnz 11399 . . . . . . . . . . . . . . . . 17  |-  ( ( i  -  ( 1  /  2 ) )  e.  NN  ->  (
i  -  ( 1  /  2 ) )  e.  ZZ )
210208, 209nsyl 135 . . . . . . . . . . . . . . . 16  |-  ( i  e.  ( 1 ... k )  ->  -.  ( i  -  (
1  /  2 ) )  e.  NN )
211195, 210eqneltrd 2720 . . . . . . . . . . . . . . 15  |-  ( i  e.  ( 1 ... k )  ->  -.  ( ( ( 2  x.  i )  - 
1 )  /  2
)  e.  NN )
212211intnand 962 . . . . . . . . . . . . . 14  |-  ( i  e.  ( 1 ... k )  ->  -.  ( ( ( 2  x.  i )  - 
1 )  e.  NN  /\  ( ( ( 2  x.  i )  - 
1 )  /  2
)  e.  NN ) )
213 oveq1 6657 . . . . . . . . . . . . . . . 16  |-  ( n  =  ( ( 2  x.  i )  - 
1 )  ->  (
n  /  2 )  =  ( ( ( 2  x.  i )  -  1 )  / 
2 ) )
214213eleq1d 2686 . . . . . . . . . . . . . . 15  |-  ( n  =  ( ( 2  x.  i )  - 
1 )  ->  (
( n  /  2
)  e.  NN  <->  ( (
( 2  x.  i
)  -  1 )  /  2 )  e.  NN ) )
215214elrab 3363 . . . . . . . . . . . . . 14  |-  ( ( ( 2  x.  i
)  -  1 )  e.  { n  e.  NN  |  ( n  /  2 )  e.  NN }  <->  ( (
( 2  x.  i
)  -  1 )  e.  NN  /\  (
( ( 2  x.  i )  -  1 )  /  2 )  e.  NN ) )
216212, 215sylnibr 319 . . . . . . . . . . . . 13  |-  ( i  e.  ( 1 ... k )  ->  -.  ( ( 2  x.  i )  -  1 )  e.  { n  e.  NN  |  ( n  /  2 )  e.  NN } )
217216adantl 482 . . . . . . . . . . . 12  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  -.  ( (
2  x.  i )  -  1 )  e. 
{ n  e.  NN  |  ( n  / 
2 )  e.  NN } )
218185, 217eldifd 3585 . . . . . . . . . . 11  |-  ( ( k  e.  NN  /\  i  e.  ( 1 ... k ) )  ->  ( ( 2  x.  i )  - 
1 )  e.  ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )
219 eqid 2622 . . . . . . . . . . 11  |-  ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) )  =  ( i  e.  ( 1 ... k
)  |->  ( ( 2  x.  i )  - 
1 ) )
220218, 219fmptd 6385 . . . . . . . . . 10  |-  ( k  e.  NN  ->  (
i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) : ( 1 ... k ) --> ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )
221 eqidd 2623 . . . . . . . . . . . . . . . . . 18  |-  ( x  e.  ( 1 ... k )  ->  (
i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) )  =  ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) )
222 oveq2 6658 . . . . . . . . . . . . . . . . . . . 20  |-  ( i  =  x  ->  (
2  x.  i )  =  ( 2  x.  x ) )
223222oveq1d 6665 . . . . . . . . . . . . . . . . . . 19  |-  ( i  =  x  ->  (
( 2  x.  i
)  -  1 )  =  ( ( 2  x.  x )  - 
1 ) )
224223adantl 482 . . . . . . . . . . . . . . . . . 18  |-  ( ( x  e.  ( 1 ... k )  /\  i  =  x )  ->  ( ( 2  x.  i )  -  1 )  =  ( ( 2  x.  x )  -  1 ) )
225 id 22 . . . . . . . . . . . . . . . . . 18  |-  ( x  e.  ( 1 ... k )  ->  x  e.  ( 1 ... k
) )
226 ovexd 6680 . . . . . . . . . . . . . . . . . 18  |-  ( x  e.  ( 1 ... k )  ->  (
( 2  x.  x
)  -  1 )  e.  _V )
227221, 224, 225, 226fvmptd 6288 . . . . . . . . . . . . . . . . 17  |-  ( x  e.  ( 1 ... k )  ->  (
( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) `  x
)  =  ( ( 2  x.  x )  -  1 ) )
228227eqcomd 2628 . . . . . . . . . . . . . . . 16  |-  ( x  e.  ( 1 ... k )  ->  (
( 2  x.  x
)  -  1 )  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 x ) )
229228ad2antrr 762 . . . . . . . . . . . . . . 15  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) `  x )  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 y ) )  ->  ( ( 2  x.  x )  - 
1 )  =  ( ( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) `  x
) )
230 simpr 477 . . . . . . . . . . . . . . 15  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) `  x )  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 y ) )  ->  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 x )  =  ( ( i  e.  ( 1 ... k
)  |->  ( ( 2  x.  i )  - 
1 ) ) `  y ) )
231 eqidd 2623 . . . . . . . . . . . . . . . . 17  |-  ( y  e.  ( 1 ... k )  ->  (
i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) )  =  ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) )
232 oveq2 6658 . . . . . . . . . . . . . . . . . . 19  |-  ( i  =  y  ->  (
2  x.  i )  =  ( 2  x.  y ) )
233232oveq1d 6665 . . . . . . . . . . . . . . . . . 18  |-  ( i  =  y  ->  (
( 2  x.  i
)  -  1 )  =  ( ( 2  x.  y )  - 
1 ) )
234233adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( y  e.  ( 1 ... k )  /\  i  =  y )  ->  ( ( 2  x.  i )  -  1 )  =  ( ( 2  x.  y )  -  1 ) )
235 id 22 . . . . . . . . . . . . . . . . 17  |-  ( y  e.  ( 1 ... k )  ->  y  e.  ( 1 ... k
) )
236 ovexd 6680 . . . . . . . . . . . . . . . . 17  |-  ( y  e.  ( 1 ... k )  ->  (
( 2  x.  y
)  -  1 )  e.  _V )
237231, 234, 235, 236fvmptd 6288 . . . . . . . . . . . . . . . 16  |-  ( y  e.  ( 1 ... k )  ->  (
( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) `  y
)  =  ( ( 2  x.  y )  -  1 ) )
238237ad2antlr 763 . . . . . . . . . . . . . . 15  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) `  x )  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 y ) )  ->  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 y )  =  ( ( 2  x.  y )  -  1 ) )
239229, 230, 2383eqtrd 2660 . . . . . . . . . . . . . 14  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) `  x )  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 y ) )  ->  ( ( 2  x.  x )  - 
1 )  =  ( ( 2  x.  y
)  -  1 ) )
240 2cnd 11093 . . . . . . . . . . . . . . . . . 18  |-  ( x  e.  ( 1 ... k )  ->  2  e.  CC )
241 elfzelz 12342 . . . . . . . . . . . . . . . . . . 19  |-  ( x  e.  ( 1 ... k )  ->  x  e.  ZZ )
242241zcnd 11483 . . . . . . . . . . . . . . . . . 18  |-  ( x  e.  ( 1 ... k )  ->  x  e.  CC )
243240, 242mulcld 10060 . . . . . . . . . . . . . . . . 17  |-  ( x  e.  ( 1 ... k )  ->  (
2  x.  x )  e.  CC )
244243ad2antrr 762 . . . . . . . . . . . . . . . 16  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( ( 2  x.  x )  -  1 )  =  ( ( 2  x.  y )  -  1 ) )  ->  (
2  x.  x )  e.  CC )
245 2cnd 11093 . . . . . . . . . . . . . . . . . 18  |-  ( y  e.  ( 1 ... k )  ->  2  e.  CC )
246 elfzelz 12342 . . . . . . . . . . . . . . . . . . 19  |-  ( y  e.  ( 1 ... k )  ->  y  e.  ZZ )
247246zcnd 11483 . . . . . . . . . . . . . . . . . 18  |-  ( y  e.  ( 1 ... k )  ->  y  e.  CC )
248245, 247mulcld 10060 . . . . . . . . . . . . . . . . 17  |-  ( y  e.  ( 1 ... k )  ->  (
2  x.  y )  e.  CC )
249248ad2antlr 763 . . . . . . . . . . . . . . . 16  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( ( 2  x.  x )  -  1 )  =  ( ( 2  x.  y )  -  1 ) )  ->  (
2  x.  y )  e.  CC )
250 1cnd 10056 . . . . . . . . . . . . . . . 16  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( ( 2  x.  x )  -  1 )  =  ( ( 2  x.  y )  -  1 ) )  ->  1  e.  CC )
251 simpr 477 . . . . . . . . . . . . . . . 16  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( ( 2  x.  x )  -  1 )  =  ( ( 2  x.  y )  -  1 ) )  ->  (
( 2  x.  x
)  -  1 )  =  ( ( 2  x.  y )  - 
1 ) )
252244, 249, 250, 251subcan2d 10434 . . . . . . . . . . . . . . 15  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( ( 2  x.  x )  -  1 )  =  ( ( 2  x.  y )  -  1 ) )  ->  (
2  x.  x )  =  ( 2  x.  y ) )
253242ad2antrr 762 . . . . . . . . . . . . . . . 16  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( 2  x.  x )  =  ( 2  x.  y
) )  ->  x  e.  CC )
254247ad2antlr 763 . . . . . . . . . . . . . . . 16  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( 2  x.  x )  =  ( 2  x.  y
) )  ->  y  e.  CC )
255 2cnd 11093 . . . . . . . . . . . . . . . 16  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( 2  x.  x )  =  ( 2  x.  y
) )  ->  2  e.  CC )
256189a1i 11 . . . . . . . . . . . . . . . 16  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( 2  x.  x )  =  ( 2  x.  y
) )  ->  2  =/=  0 )
257 simpr 477 . . . . . . . . . . . . . . . 16  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( 2  x.  x )  =  ( 2  x.  y
) )  ->  (
2  x.  x )  =  ( 2  x.  y ) )
258253, 254, 255, 256, 257mulcanad 10662 . . . . . . . . . . . . . . 15  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( 2  x.  x )  =  ( 2  x.  y
) )  ->  x  =  y )
259252, 258syldan 487 . . . . . . . . . . . . . 14  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( ( 2  x.  x )  -  1 )  =  ( ( 2  x.  y )  -  1 ) )  ->  x  =  y )
260239, 259syldan 487 . . . . . . . . . . . . 13  |-  ( ( ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) )  /\  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) `  x )  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 y ) )  ->  x  =  y )
261260adantll 750 . . . . . . . . . . . 12  |-  ( ( ( k  e.  NN  /\  ( x  e.  ( 1 ... k )  /\  y  e.  ( 1 ... k ) ) )  /\  (
( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) `  x
)  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) `  y ) )  ->  x  =  y )
262261ex 450 . . . . . . . . . . 11  |-  ( ( k  e.  NN  /\  ( x  e.  (
1 ... k )  /\  y  e.  ( 1 ... k ) ) )  ->  ( (
( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) `  x
)  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) `  y )  ->  x  =  y ) )
263262ralrimivva 2971 . . . . . . . . . 10  |-  ( k  e.  NN  ->  A. x  e.  ( 1 ... k
) A. y  e.  ( 1 ... k
) ( ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) `  x )  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 y )  ->  x  =  y )
)
264 dff13 6512 . . . . . . . . . 10  |-  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) : ( 1 ... k ) -1-1-> ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  <->  ( (
i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) : ( 1 ... k ) --> ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  A. x  e.  ( 1 ... k ) A. y  e.  ( 1 ... k ) ( ( ( i  e.  ( 1 ... k
)  |->  ( ( 2  x.  i )  - 
1 ) ) `  x )  =  ( ( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) `  y
)  ->  x  =  y ) ) )
265220, 263, 264sylanbrc 698 . . . . . . . . 9  |-  ( k  e.  NN  ->  (
i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) : ( 1 ... k ) -1-1-> ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )
266 1zzd 11408 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  -> 
1  e.  ZZ )
26732adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  -> 
k  e.  ZZ )
268 fzssz 12343 . . . . . . . . . . . . . . . . . . . 20  |-  ( 1 ... ( ( 2  x.  k )  - 
1 ) )  C_  ZZ
269268, 137sseldi 3601 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  j  e.  ZZ )
270 zeo 11463 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ZZ  ->  (
( j  /  2
)  e.  ZZ  \/  ( ( j  +  1 )  /  2
)  e.  ZZ ) )
271269, 270syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  (
( j  /  2
)  e.  ZZ  \/  ( ( j  +  1 )  /  2
)  e.  ZZ ) )
272271adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  -> 
( ( j  / 
2 )  e.  ZZ  \/  ( ( j  +  1 )  /  2
)  e.  ZZ ) )
273 eldifn 3733 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  -.  j  e.  { n  e.  NN  |  ( n  /  2 )  e.  NN } )
274137, 93syl 17 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  j  e.  NN )
275274adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  ( j  /  2
)  e.  ZZ )  ->  j  e.  NN )
276 simpr 477 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  ( j  /  2
)  e.  ZZ )  ->  ( j  / 
2 )  e.  ZZ )
277275nnred 11035 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  ( j  /  2
)  e.  ZZ )  ->  j  e.  RR )
27838a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  ( j  /  2
)  e.  ZZ )  ->  2  e.  RR )
279275nngt0d 11064 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  ( j  /  2
)  e.  ZZ )  ->  0  <  j
)
280 2pos 11112 . . . . . . . . . . . . . . . . . . . . . . 23  |-  0  <  2
281280a1i 11 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  ( j  /  2
)  e.  ZZ )  ->  0  <  2
)
282277, 278, 279, 281divgt0d 10959 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  ( j  /  2
)  e.  ZZ )  ->  0  <  (
j  /  2 ) )
283 elnnz 11387 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( j  /  2 )  e.  NN  <->  ( (
j  /  2 )  e.  ZZ  /\  0  <  ( j  /  2
) ) )
284276, 282, 283sylanbrc 698 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  ( j  /  2
)  e.  ZZ )  ->  ( j  / 
2 )  e.  NN )
285 oveq1 6657 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( n  =  j  ->  (
n  /  2 )  =  ( j  / 
2 ) )
286285eleq1d 2686 . . . . . . . . . . . . . . . . . . . . 21  |-  ( n  =  j  ->  (
( n  /  2
)  e.  NN  <->  ( j  /  2 )  e.  NN ) )
287286elrab 3363 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  { n  e.  NN  |  ( n  /  2 )  e.  NN }  <->  ( j  e.  NN  /\  ( j  /  2 )  e.  NN ) )
288275, 284, 287sylanbrc 698 . . . . . . . . . . . . . . . . . . 19  |-  ( ( j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  ( j  /  2
)  e.  ZZ )  ->  j  e.  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
)
289273, 288mtand 691 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  -.  ( j  /  2
)  e.  ZZ )
290289adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  ->  -.  ( j  /  2
)  e.  ZZ )
291 pm2.53 388 . . . . . . . . . . . . . . . . 17  |-  ( ( ( j  /  2
)  e.  ZZ  \/  ( ( j  +  1 )  /  2
)  e.  ZZ )  ->  ( -.  (
j  /  2 )  e.  ZZ  ->  (
( j  +  1 )  /  2 )  e.  ZZ ) )
292272, 290, 291sylc 65 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  -> 
( ( j  +  1 )  /  2
)  e.  ZZ )
293266, 267, 2923jca 1242 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  -> 
( 1  e.  ZZ  /\  k  e.  ZZ  /\  ( ( j  +  1 )  /  2
)  e.  ZZ ) )
294 1p1e2 11134 . . . . . . . . . . . . . . . . . . . 20  |-  ( 1  +  1 )  =  2
295294oveq1i 6660 . . . . . . . . . . . . . . . . . . 19  |-  ( ( 1  +  1 )  /  2 )  =  ( 2  /  2
)
296 2div2e1 11150 . . . . . . . . . . . . . . . . . . 19  |-  ( 2  /  2 )  =  1
297295, 296eqtr2i 2645 . . . . . . . . . . . . . . . . . 18  |-  1  =  ( ( 1  +  1 )  / 
2 )
298 1red 10055 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  1  e.  RR )
299298, 298readdcld 10069 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  (
1  +  1 )  e.  RR )
30093nnred 11035 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  j  e.  RR )
301300, 298readdcld 10069 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  (
j  +  1 )  e.  RR )
302201a1i 11 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  2  e.  RR+ )
303 elfzle1 12344 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  1  <_  j )
304298, 300, 298, 303leadd1dd 10641 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  (
1  +  1 )  <_  ( j  +  1 ) )
305299, 301, 302, 304lediv1dd 11930 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  (
( 1  +  1 )  /  2 )  <_  ( ( j  +  1 )  / 
2 ) )
306297, 305syl5eqbr 4688 . . . . . . . . . . . . . . . . 17  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  1  <_  ( ( j  +  1 )  /  2
) )
307137, 306syl 17 . . . . . . . . . . . . . . . 16  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  1  <_  ( ( j  +  1 )  /  2
) )
308307adantl 482 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  -> 
1  <_  ( (
j  +  1 )  /  2 ) )
309 elfzel2 12340 . . . . . . . . . . . . . . . . . . . . 21  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  (
( 2  x.  k
)  -  1 )  e.  ZZ )
310309zred 11482 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  (
( 2  x.  k
)  -  1 )  e.  RR )
311310, 298readdcld 10069 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  (
( ( 2  x.  k )  -  1 )  +  1 )  e.  RR )
312 elfzle2 12345 . . . . . . . . . . . . . . . . . . . 20  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  j  <_  ( ( 2  x.  k )  -  1 ) )
313300, 310, 298, 312leadd1dd 10641 . . . . . . . . . . . . . . . . . . 19  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  (
j  +  1 )  <_  ( ( ( 2  x.  k )  -  1 )  +  1 ) )
314301, 311, 302, 313lediv1dd 11930 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  ( 1 ... ( ( 2  x.  k )  -  1 ) )  ->  (
( j  +  1 )  /  2 )  <_  ( ( ( ( 2  x.  k
)  -  1 )  +  1 )  / 
2 ) )
315314adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN  /\  j  e.  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )  ->  ( ( j  +  1 )  / 
2 )  <_  (
( ( ( 2  x.  k )  - 
1 )  +  1 )  /  2 ) )
31650adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN  /\  j  e.  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )  ->  ( 2  x.  k )  e.  CC )
317 1cnd 10056 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN  /\  j  e.  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )  ->  1  e.  CC )
318316, 317npcand 10396 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN  /\  j  e.  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )  ->  ( ( ( 2  x.  k )  -  1 )  +  1 )  =  ( 2  x.  k ) )
319318oveq1d 6665 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN  /\  j  e.  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )  ->  ( ( ( ( 2  x.  k
)  -  1 )  +  1 )  / 
2 )  =  ( ( 2  x.  k
)  /  2 ) )
320189a1i 11 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  NN  ->  2  =/=  0 )
32144, 43, 320divcan3d 10806 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  NN  ->  (
( 2  x.  k
)  /  2 )  =  k )
322321adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN  /\  j  e.  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )  ->  ( ( 2  x.  k )  / 
2 )  =  k )
323319, 322eqtrd 2656 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN  /\  j  e.  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )  ->  ( ( ( ( 2  x.  k
)  -  1 )  +  1 )  / 
2 )  =  k )
324315, 323breqtrd 4679 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN  /\  j  e.  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )  ->  ( ( j  +  1 )  / 
2 )  <_  k
)
325137, 324sylan2 491 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  -> 
( ( j  +  1 )  /  2
)  <_  k )
326293, 308, 325jca32 558 . . . . . . . . . . . . . 14  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  -> 
( ( 1  e.  ZZ  /\  k  e.  ZZ  /\  ( ( j  +  1 )  /  2 )  e.  ZZ )  /\  (
1  <_  ( (
j  +  1 )  /  2 )  /\  ( ( j  +  1 )  /  2
)  <_  k )
) )
327 elfz2 12333 . . . . . . . . . . . . . 14  |-  ( ( ( j  +  1 )  /  2 )  e.  ( 1 ... k )  <->  ( (
1  e.  ZZ  /\  k  e.  ZZ  /\  (
( j  +  1 )  /  2 )  e.  ZZ )  /\  ( 1  <_  (
( j  +  1 )  /  2 )  /\  ( ( j  +  1 )  / 
2 )  <_  k
) ) )
328326, 327sylibr 224 . . . . . . . . . . . . 13  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  -> 
( ( j  +  1 )  /  2
)  e.  ( 1 ... k ) )
329274nncnd 11036 . . . . . . . . . . . . . . 15  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  j  e.  CC )
330 peano2cn 10208 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  CC  ->  (
j  +  1 )  e.  CC )
331 2cnd 11093 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  CC  ->  2  e.  CC )
332189a1i 11 . . . . . . . . . . . . . . . . . 18  |-  ( j  e.  CC  ->  2  =/=  0 )
333330, 331, 332divcan2d 10803 . . . . . . . . . . . . . . . . 17  |-  ( j  e.  CC  ->  (
2  x.  ( ( j  +  1 )  /  2 ) )  =  ( j  +  1 ) )
334333oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( j  e.  CC  ->  (
( 2  x.  (
( j  +  1 )  /  2 ) )  -  1 )  =  ( ( j  +  1 )  - 
1 ) )
335 pncan1 10454 . . . . . . . . . . . . . . . 16  |-  ( j  e.  CC  ->  (
( j  +  1 )  -  1 )  =  j )
336334, 335eqtr2d 2657 . . . . . . . . . . . . . . 15  |-  ( j  e.  CC  ->  j  =  ( ( 2  x.  ( ( j  +  1 )  / 
2 ) )  - 
1 ) )
337329, 336syl 17 . . . . . . . . . . . . . 14  |-  ( j  e.  ( ( 1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } )  ->  j  =  ( ( 2  x.  ( ( j  +  1 )  / 
2 ) )  - 
1 ) )
338337adantl 482 . . . . . . . . . . . . 13  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  -> 
j  =  ( ( 2  x.  ( ( j  +  1 )  /  2 ) )  -  1 ) )
339 oveq2 6658 . . . . . . . . . . . . . . . 16  |-  ( m  =  ( ( j  +  1 )  / 
2 )  ->  (
2  x.  m )  =  ( 2  x.  ( ( j  +  1 )  /  2
) ) )
340339oveq1d 6665 . . . . . . . . . . . . . . 15  |-  ( m  =  ( ( j  +  1 )  / 
2 )  ->  (
( 2  x.  m
)  -  1 )  =  ( ( 2  x.  ( ( j  +  1 )  / 
2 ) )  - 
1 ) )
341340eqeq2d 2632 . . . . . . . . . . . . . 14  |-  ( m  =  ( ( j  +  1 )  / 
2 )  ->  (
j  =  ( ( 2  x.  m )  -  1 )  <->  j  =  ( ( 2  x.  ( ( j  +  1 )  /  2
) )  -  1 ) ) )
342341rspcev 3309 . . . . . . . . . . . . 13  |-  ( ( ( ( j  +  1 )  /  2
)  e.  ( 1 ... k )  /\  j  =  ( (
2  x.  ( ( j  +  1 )  /  2 ) )  -  1 ) )  ->  E. m  e.  ( 1 ... k ) j  =  ( ( 2  x.  m )  -  1 ) )
343328, 338, 342syl2anc 693 . . . . . . . . . . . 12  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  ->  E. m  e.  (
1 ... k ) j  =  ( ( 2  x.  m )  - 
1 ) )
344 eqidd 2623 . . . . . . . . . . . . . . . . 17  |-  ( ( m  e.  ( 1 ... k )  /\  j  =  ( (
2  x.  m )  -  1 ) )  ->  ( i  e.  ( 1 ... k
)  |->  ( ( 2  x.  i )  - 
1 ) )  =  ( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) )
345 oveq2 6658 . . . . . . . . . . . . . . . . . . 19  |-  ( i  =  m  ->  (
2  x.  i )  =  ( 2  x.  m ) )
346345oveq1d 6665 . . . . . . . . . . . . . . . . . 18  |-  ( i  =  m  ->  (
( 2  x.  i
)  -  1 )  =  ( ( 2  x.  m )  - 
1 ) )
347346adantl 482 . . . . . . . . . . . . . . . . 17  |-  ( ( ( m  e.  ( 1 ... k )  /\  j  =  ( ( 2  x.  m
)  -  1 ) )  /\  i  =  m )  ->  (
( 2  x.  i
)  -  1 )  =  ( ( 2  x.  m )  - 
1 ) )
348 simpl 473 . . . . . . . . . . . . . . . . 17  |-  ( ( m  e.  ( 1 ... k )  /\  j  =  ( (
2  x.  m )  -  1 ) )  ->  m  e.  ( 1 ... k ) )
349 ovexd 6680 . . . . . . . . . . . . . . . . 17  |-  ( ( m  e.  ( 1 ... k )  /\  j  =  ( (
2  x.  m )  -  1 ) )  ->  ( ( 2  x.  m )  - 
1 )  e.  _V )
350344, 347, 348, 349fvmptd 6288 . . . . . . . . . . . . . . . 16  |-  ( ( m  e.  ( 1 ... k )  /\  j  =  ( (
2  x.  m )  -  1 ) )  ->  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 m )  =  ( ( 2  x.  m )  -  1 ) )
351 id 22 . . . . . . . . . . . . . . . . . 18  |-  ( j  =  ( ( 2  x.  m )  - 
1 )  ->  j  =  ( ( 2  x.  m )  - 
1 ) )
352351eqcomd 2628 . . . . . . . . . . . . . . . . 17  |-  ( j  =  ( ( 2  x.  m )  - 
1 )  ->  (
( 2  x.  m
)  -  1 )  =  j )
353352adantl 482 . . . . . . . . . . . . . . . 16  |-  ( ( m  e.  ( 1 ... k )  /\  j  =  ( (
2  x.  m )  -  1 ) )  ->  ( ( 2  x.  m )  - 
1 )  =  j )
354350, 353eqtr2d 2657 . . . . . . . . . . . . . . 15  |-  ( ( m  e.  ( 1 ... k )  /\  j  =  ( (
2  x.  m )  -  1 ) )  ->  j  =  ( ( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) `  m
) )
355354ex 450 . . . . . . . . . . . . . 14  |-  ( m  e.  ( 1 ... k )  ->  (
j  =  ( ( 2  x.  m )  -  1 )  -> 
j  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) `  m ) ) )
356355adantl 482 . . . . . . . . . . . . 13  |-  ( ( ( k  e.  NN  /\  j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )  /\  m  e.  ( 1 ... k ) )  ->  ( j  =  ( ( 2  x.  m )  - 
1 )  ->  j  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 m ) ) )
357356reximdva 3017 . . . . . . . . . . . 12  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  -> 
( E. m  e.  ( 1 ... k
) j  =  ( ( 2  x.  m
)  -  1 )  ->  E. m  e.  ( 1 ... k ) j  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) `  m ) ) )
358343, 357mpd 15 . . . . . . . . . . 11  |-  ( ( k  e.  NN  /\  j  e.  ( (
1 ... ( ( 2  x.  k )  - 
1 ) )  \  { n  e.  NN  |  ( n  / 
2 )  e.  NN } ) )  ->  E. m  e.  (
1 ... k ) j  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 m ) )
359358ralrimiva 2966 . . . . . . . . . 10  |-  ( k  e.  NN  ->  A. j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) E. m  e.  ( 1 ... k
) j  =  ( ( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) `  m
) )
360 dffo3 6374 . . . . . . . . . 10  |-  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) : ( 1 ... k ) -onto-> ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  <->  ( (
i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) : ( 1 ... k ) --> ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  A. j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) E. m  e.  ( 1 ... k ) j  =  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) `
 m ) ) )
361220, 359, 360sylanbrc 698 . . . . . . . . 9  |-  ( k  e.  NN  ->  (
i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) : ( 1 ... k ) -onto-> ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )
362 df-f1o 5895 . . . . . . . . 9  |-  ( ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) : ( 1 ... k ) -1-1-onto-> ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  <->  ( (
i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) : ( 1 ... k ) -1-1-> ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  /\  ( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) : ( 1 ... k )
-onto-> ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) ) )
363265, 361, 362sylanbrc 698 . . . . . . . 8  |-  ( k  e.  NN  ->  (
i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) ) : ( 1 ... k ) -1-1-onto-> ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )
364363adantl 482 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN )  ->  ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) : ( 1 ... k ) -1-1-onto-> ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )
365 eqidd 2623 . . . . . . . . 9  |-  ( j  e.  ( 1 ... k )  ->  (
i  e.  ( 1 ... k )  |->  ( ( 2  x.  i
)  -  1 ) )  =  ( i  e.  ( 1 ... k )  |->  ( ( 2  x.  i )  -  1 ) ) )
366 oveq2 6658 . . . . . . . . . . 11  |-  ( i  =  j  ->  (
2  x.  i )  =  ( 2  x.  j ) )
367366oveq1d 6665 . . . . . . . . . 10  |-  ( i  =  j  ->  (
( 2  x.  i
)  -  1 )  =  ( ( 2  x.  j )  - 
1 ) )
368367adantl 482 . . . . . . . . 9  |-  ( ( j  e.  ( 1 ... k )  /\  i  =  j )  ->  ( ( 2  x.  i )  -  1 )  =  ( ( 2  x.  j )  -  1 ) )
369 id 22 . . . . . . . . 9  |-  ( j  e.  ( 1 ... k )  ->  j  e.  ( 1 ... k
) )
370 ovexd 6680 . . . . . . . . 9  |-  ( j  e.  ( 1 ... k )  ->  (
( 2  x.  j
)  -  1 )  e.  _V )
371365, 368, 369, 370fvmptd 6288 . . . . . . . 8  |-  ( j  e.  ( 1 ... k )  ->  (
( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) `  j
)  =  ( ( 2  x.  j )  -  1 ) )
372371adantl 482 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 1 ... k
) )  ->  (
( i  e.  ( 1 ... k ) 
|->  ( ( 2  x.  i )  -  1 ) ) `  j
)  =  ( ( 2  x.  j )  -  1 ) )
373 eleq1 2689 . . . . . . . . . 10  |-  ( j  =  i  ->  (
j  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) ) 
\  { n  e.  NN  |  ( n  /  2 )  e.  NN } )  <->  i  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) ) )
374373anbi2d 740 . . . . . . . . 9  |-  ( j  =  i  ->  (
( ( ph  /\  k  e.  NN )  /\  j  e.  (
( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )  <-> 
( ( ph  /\  k  e.  NN )  /\  i  e.  (
( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) ) ) )
375142eleq1d 2686 . . . . . . . . 9  |-  ( j  =  i  ->  (
( F `  j
)  e.  CC  <->  ( F `  i )  e.  CC ) )
376374, 375imbi12d 334 . . . . . . . 8  |-  ( j  =  i  ->  (
( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )  ->  ( F `  j )  e.  CC ) 
<->  ( ( ( ph  /\  k  e.  NN )  /\  i  e.  ( ( 1 ... (
( 2  x.  k
)  -  1 ) )  \  { n  e.  NN  |  ( n  /  2 )  e.  NN } ) )  ->  ( F `  i )  e.  CC ) ) )
377376, 139chvarv 2263 . . . . . . 7  |-  ( ( ( ph  /\  k  e.  NN )  /\  i  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) )  ->  ( F `  i )  e.  CC )
378146, 147, 364, 372, 377fsumf1o 14454 . . . . . 6  |-  ( (
ph  /\  k  e.  NN )  ->  sum_ i  e.  ( ( 1 ... ( ( 2  x.  k )  -  1 ) )  \  {
n  e.  NN  | 
( n  /  2
)  e.  NN }
) ( F `  i )  =  sum_ j  e.  ( 1 ... k ) ( F `  ( ( 2  x.  j )  -  1 ) ) )
37997, 145, 3783eqtrrd 2661 . . . . 5  |-  ( (
ph  /\  k  e.  NN )  ->  sum_ j  e.  ( 1 ... k
) ( F `  ( ( 2  x.  j )  -  1 ) )  =  sum_ j  e.  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) ( F `  j ) )
380 ovex 6678 . . . . . . . . . 10  |-  ( ( 2  x.  k )  -  1 )  e. 
_V
38120fvmpt2 6291 . . . . . . . . . 10  |-  ( ( k  e.  NN  /\  ( ( 2  x.  k )  -  1 )  e.  _V )  ->  ( ( k  e.  NN  |->  ( ( 2  x.  k )  - 
1 ) ) `  k )  =  ( ( 2  x.  k
)  -  1 ) )
382380, 381mpan2 707 . . . . . . . . 9  |-  ( k  e.  NN  ->  (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  k
)  =  ( ( 2  x.  k )  -  1 ) )
383382oveq2d 6666 . . . . . . . 8  |-  ( k  e.  NN  ->  (
1 ... ( ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `
 k ) )  =  ( 1 ... ( ( 2  x.  k )  -  1 ) ) )
384383eqcomd 2628 . . . . . . 7  |-  ( k  e.  NN  ->  (
1 ... ( ( 2  x.  k )  - 
1 ) )  =  ( 1 ... (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  k
) ) )
385384sumeq1d 14431 . . . . . 6  |-  ( k  e.  NN  ->  sum_ j  e.  ( 1 ... (
( 2  x.  k
)  -  1 ) ) ( F `  j )  =  sum_ j  e.  ( 1 ... ( ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `
 k ) ) ( F `  j
) )
386385adantl 482 . . . . 5  |-  ( (
ph  /\  k  e.  NN )  ->  sum_ j  e.  ( 1 ... (
( 2  x.  k
)  -  1 ) ) ( F `  j )  =  sum_ j  e.  ( 1 ... ( ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `
 k ) ) ( F `  j
) )
387379, 386eqtrd 2656 . . . 4  |-  ( (
ph  /\  k  e.  NN )  ->  sum_ j  e.  ( 1 ... k
) ( F `  ( ( 2  x.  j )  -  1 ) )  =  sum_ j  e.  ( 1 ... ( ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `
 k ) ) ( F `  j
) )
388 elfznn 12370 . . . . . . 7  |-  ( j  e.  ( 1 ... k )  ->  j  e.  NN )
389388adantl 482 . . . . . 6  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 1 ... k
) )  ->  j  e.  NN )
39012adantr 481 . . . . . . . 8  |-  ( (
ph  /\  j  e.  ( 1 ... k
) )  ->  F : NN --> CC )
39130a1i 11 . . . . . . . . . . . 12  |-  ( j  e.  ( 1 ... k )  ->  2  e.  ZZ )
392 elfzelz 12342 . . . . . . . . . . . 12  |-  ( j  e.  ( 1 ... k )  ->  j  e.  ZZ )
393391, 392zmulcld 11488 . . . . . . . . . . 11  |-  ( j  e.  ( 1 ... k )  ->  (
2  x.  j )  e.  ZZ )
394 1zzd 11408 . . . . . . . . . . 11  |-  ( j  e.  ( 1 ... k )  ->  1  e.  ZZ )
395393, 394zsubcld 11487 . . . . . . . . . 10  |-  ( j  e.  ( 1 ... k )  ->  (
( 2  x.  j
)  -  1 )  e.  ZZ )
396 0red 10041 . . . . . . . . . . 11  |-  ( j  e.  ( 1 ... k )  ->  0  e.  RR )
39738a1i 11 . . . . . . . . . . . . 13  |-  ( j  e.  ( 1 ... k )  ->  2  e.  RR )
39824, 397syl5eqel 2705 . . . . . . . . . . . 12  |-  ( j  e.  ( 1 ... k )  ->  (
2  x.  1 )  e.  RR )
399 1red 10055 . . . . . . . . . . . 12  |-  ( j  e.  ( 1 ... k )  ->  1  e.  RR )
400398, 399resubcld 10458 . . . . . . . . . . 11  |-  ( j  e.  ( 1 ... k )  ->  (
( 2  x.  1 )  -  1 )  e.  RR )
401395zred 11482 . . . . . . . . . . 11  |-  ( j  e.  ( 1 ... k )  ->  (
( 2  x.  j
)  -  1 )  e.  RR )
402 0lt1 10550 . . . . . . . . . . . 12  |-  0  <  1
403157a1i 11 . . . . . . . . . . . 12  |-  ( j  e.  ( 1 ... k )  ->  1  =  ( ( 2  x.  1 )  - 
1 ) )
404402, 403syl5breq 4690 . . . . . . . . . . 11  |-  ( j  e.  ( 1 ... k )  ->  0  <  ( ( 2  x.  1 )  -  1 ) )
405393zred 11482 . . . . . . . . . . . 12  |-  ( j  e.  ( 1 ... k )  ->  (
2  x.  j )  e.  RR )
406388nnred 11035 . . . . . . . . . . . . 13  |-  ( j  e.  ( 1 ... k )  ->  j  e.  RR )
407165a1i 11 . . . . . . . . . . . . 13  |-  ( j  e.  ( 1 ... k )  ->  0  <_  2 )
408 elfzle1 12344 . . . . . . . . . . . . 13  |-  ( j  e.  ( 1 ... k )  ->  1  <_  j )
409399, 406, 397, 407, 408lemul2ad 10964 . . . . . . . . . . . 12  |-  ( j  e.  ( 1 ... k )  ->  (
2  x.  1 )  <_  ( 2  x.  j ) )
410398, 405, 399, 409lesub1dd 10643 . . . . . . . . . . 11  |-  ( j  e.  ( 1 ... k )  ->  (
( 2  x.  1 )  -  1 )  <_  ( ( 2  x.  j )  - 
1 ) )
411396, 400, 401, 404, 410ltletrd 10197 . . . . . . . . . 10  |-  ( j  e.  ( 1 ... k )  ->  0  <  ( ( 2  x.  j )  -  1 ) )
412 elnnz 11387 . . . . . . . . . 10  |-  ( ( ( 2  x.  j
)  -  1 )  e.  NN  <->  ( (
( 2  x.  j
)  -  1 )  e.  ZZ  /\  0  <  ( ( 2  x.  j )  -  1 ) ) )
413395, 411, 412sylanbrc 698 . . . . . . . . 9  |-  ( j  e.  ( 1 ... k )  ->  (
( 2  x.  j
)  -  1 )  e.  NN )
414413adantl 482 . . . . . . . 8  |-  ( (
ph  /\  j  e.  ( 1 ... k
) )  ->  (
( 2  x.  j
)  -  1 )  e.  NN )
415390, 414ffvelrnd 6360 . . . . . . 7  |-  ( (
ph  /\  j  e.  ( 1 ... k
) )  ->  ( F `  ( (
2  x.  j )  -  1 ) )  e.  CC )
416415adantlr 751 . . . . . 6  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 1 ... k
) )  ->  ( F `  ( (
2  x.  j )  -  1 ) )  e.  CC )
41759fveq2d 6195 . . . . . . . 8  |-  ( k  =  j  ->  ( F `  ( (
2  x.  k )  -  1 ) )  =  ( F `  ( ( 2  x.  j )  -  1 ) ) )
418417cbvmptv 4750 . . . . . . 7  |-  ( k  e.  NN  |->  ( F `
 ( ( 2  x.  k )  - 
1 ) ) )  =  ( j  e.  NN  |->  ( F `  ( ( 2  x.  j )  -  1 ) ) )
419418fvmpt2 6291 . . . . . 6  |-  ( ( j  e.  NN  /\  ( F `  ( ( 2  x.  j )  -  1 ) )  e.  CC )  -> 
( ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) `  j )  =  ( F `  ( ( 2  x.  j )  -  1 ) ) )
420389, 416, 419syl2anc 693 . . . . 5  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 1 ... k
) )  ->  (
( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) `  j )  =  ( F `  ( ( 2  x.  j )  -  1 ) ) )
421 simpr 477 . . . . . 6  |-  ( (
ph  /\  k  e.  NN )  ->  k  e.  NN )
422421, 8syl6eleq 2711 . . . . 5  |-  ( (
ph  /\  k  e.  NN )  ->  k  e.  ( ZZ>= `  1 )
)
423420, 422, 416fsumser 14461 . . . 4  |-  ( (
ph  /\  k  e.  NN )  ->  sum_ j  e.  ( 1 ... k
) ( F `  ( ( 2  x.  j )  -  1 ) )  =  (  seq 1 (  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) ) `
 k ) )
424 eqidd 2623 . . . . 5  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 1 ... (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  k
) ) )  -> 
( F `  j
)  =  ( F `
 j ) )
425159a1i 11 . . . . . . . . . 10  |-  ( k  e.  NN  ->  (
2  x.  1 )  e.  RR )
426 1red 10055 . . . . . . . . . 10  |-  ( k  e.  NN  ->  1  e.  RR )
427165a1i 11 . . . . . . . . . . 11  |-  ( k  e.  NN  ->  0  <_  2 )
428 nnge1 11046 . . . . . . . . . . 11  |-  ( k  e.  NN  ->  1  <_  k )
429426, 40, 39, 427, 428lemul2ad 10964 . . . . . . . . . 10  |-  ( k  e.  NN  ->  (
2  x.  1 )  <_  ( 2  x.  k ) )
430425, 41, 426, 429lesub1dd 10643 . . . . . . . . 9  |-  ( k  e.  NN  ->  (
( 2  x.  1 )  -  1 )  <_  ( ( 2  x.  k )  - 
1 ) )
431157, 430syl5eqbr 4688 . . . . . . . 8  |-  ( k  e.  NN  ->  1  <_  ( ( 2  x.  k )  -  1 ) )
432 eluz2 11693 . . . . . . . 8  |-  ( ( ( 2  x.  k
)  -  1 )  e.  ( ZZ>= `  1
)  <->  ( 1  e.  ZZ  /\  ( ( 2  x.  k )  -  1 )  e.  ZZ  /\  1  <_ 
( ( 2  x.  k )  -  1 ) ) )
43336, 67, 431, 432syl3anbrc 1246 . . . . . . 7  |-  ( k  e.  NN  ->  (
( 2  x.  k
)  -  1 )  e.  ( ZZ>= `  1
) )
43469, 433eqeltrd 2701 . . . . . 6  |-  ( k  e.  NN  ->  (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  k
)  e.  ( ZZ>= ` 
1 ) )
435434adantl 482 . . . . 5  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( k  e.  NN  |->  ( ( 2  x.  k
)  -  1 ) ) `  k )  e.  ( ZZ>= `  1
) )
436 simpll 790 . . . . . 6  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 1 ... (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  k
) ) )  ->  ph )
437 simpr 477 . . . . . . . 8  |-  ( ( k  e.  NN  /\  j  e.  ( 1 ... ( ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `
 k ) ) )  ->  j  e.  ( 1 ... (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  k
) ) )
438383adantr 481 . . . . . . . 8  |-  ( ( k  e.  NN  /\  j  e.  ( 1 ... ( ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `
 k ) ) )  ->  ( 1 ... ( ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `
 k ) )  =  ( 1 ... ( ( 2  x.  k )  -  1 ) ) )
439437, 438eleqtrd 2703 . . . . . . 7  |-  ( ( k  e.  NN  /\  j  e.  ( 1 ... ( ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `
 k ) ) )  ->  j  e.  ( 1 ... (
( 2  x.  k
)  -  1 ) ) )
440439adantll 750 . . . . . 6  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 1 ... (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  k
) ) )  -> 
j  e.  ( 1 ... ( ( 2  x.  k )  - 
1 ) ) )
441436, 440, 95syl2anc 693 . . . . 5  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  e.  ( 1 ... (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  k
) ) )  -> 
( F `  j
)  e.  CC )
442424, 435, 441fsumser 14461 . . . 4  |-  ( (
ph  /\  k  e.  NN )  ->  sum_ j  e.  ( 1 ... (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  k
) ) ( F `
 j )  =  (  seq 1 (  +  ,  F ) `
 ( ( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `
 k ) ) )
443387, 423, 4423eqtr3d 2664 . . 3  |-  ( (
ph  /\  k  e.  NN )  ->  (  seq 1 (  +  , 
( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) ) `  k
)  =  (  seq 1 (  +  ,  F ) `  (
( k  e.  NN  |->  ( ( 2  x.  k )  -  1 ) ) `  k
) ) )
4441, 2, 6, 7, 8, 9, 11, 15, 16, 29, 75, 77, 443climsuse 39840 . 2  |-  ( ph  ->  seq 1 (  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  ~~>  B )
445 eqidd 2623 . . . 4  |-  ( (
ph  /\  k  e.  NN )  ->  ( F `
 k )  =  ( F `  k
) )
4468, 9, 445, 13isum 14450 . . 3  |-  ( ph  -> 
sum_ k  e.  NN  ( F `  k )  =  (  ~~>  `  seq 1 (  +  ,  F ) ) )
447 climrel 14223 . . . . . . 7  |-  Rel  ~~>
448447releldmi 5362 . . . . . 6  |-  (  seq 1 (  +  ,  F )  ~~>  B  ->  seq 1 (  +  ,  F )  e.  dom  ~~>  )
44916, 448syl 17 . . . . 5  |-  ( ph  ->  seq 1 (  +  ,  F )  e. 
dom 
~~>  )
450 climdm 14285 . . . . 5  |-  (  seq 1 (  +  ,  F )  e.  dom  ~~>  <->  seq 1 (  +  ,  F )  ~~>  (  ~~>  `  seq 1 (  +  ,  F ) ) )
451449, 450sylib 208 . . . 4  |-  ( ph  ->  seq 1 (  +  ,  F )  ~~>  (  ~~>  `  seq 1 (  +  ,  F ) ) )
452 climuni 14283 . . . 4  |-  ( (  seq 1 (  +  ,  F )  ~~>  (  ~~>  `  seq 1 (  +  ,  F ) )  /\  seq 1 (  +  ,  F )  ~~>  B )  ->  (  ~~>  `  seq 1 (  +  ,  F ) )  =  B )
453451, 16, 452syl2anc 693 . . 3  |-  ( ph  ->  (  ~~>  `  seq 1
(  +  ,  F
) )  =  B )
454447a1i 11 . . . . . . . 8  |-  ( ph  ->  Rel  ~~>  )
455 releldm 5358 . . . . . . . 8  |-  ( ( Rel  ~~>  /\  seq 1
(  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  ~~>  B )  ->  seq 1 (  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  e.  dom  ~~>  )
456454, 444, 455syl2anc 693 . . . . . . 7  |-  ( ph  ->  seq 1 (  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  e.  dom  ~~>  )
457 climdm 14285 . . . . . . 7  |-  (  seq 1 (  +  , 
( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  e.  dom  ~~>  <->  seq 1 (  +  , 
( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  ~~>  (  ~~>  `  seq 1 (  +  , 
( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) ) ) )
458456, 457sylib 208 . . . . . 6  |-  ( ph  ->  seq 1 (  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  ~~>  (  ~~>  `  seq 1
(  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) ) ) )
459418a1i 11 . . . . . . . 8  |-  ( ph  ->  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) )  =  ( j  e.  NN  |->  ( F `
 ( ( 2  x.  j )  - 
1 ) ) ) )
460459seqeq3d 12809 . . . . . . 7  |-  ( ph  ->  seq 1 (  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  =  seq 1 (  +  ,  ( j  e.  NN  |->  ( F `
 ( ( 2  x.  j )  - 
1 ) ) ) ) )
461460fveq2d 6195 . . . . . 6  |-  ( ph  ->  (  ~~>  `  seq 1
(  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) ) )  =  (  ~~>  `  seq 1
(  +  ,  ( j  e.  NN  |->  ( F `  ( ( 2  x.  j )  -  1 ) ) ) ) ) )
462458, 461breqtrd 4679 . . . . 5  |-  ( ph  ->  seq 1 (  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  ~~>  (  ~~>  `  seq 1
(  +  ,  ( j  e.  NN  |->  ( F `  ( ( 2  x.  j )  -  1 ) ) ) ) ) )
463 climuni 14283 . . . . 5  |-  ( (  seq 1 (  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  ~~>  B  /\  seq 1
(  +  ,  ( k  e.  NN  |->  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )  ~~>  (  ~~>  `  seq 1 (  +  , 
( j  e.  NN  |->  ( F `  ( ( 2  x.  j )  -  1 ) ) ) ) ) )  ->  B  =  (  ~~>  `
 seq 1 (  +  ,  ( j  e.  NN  |->  ( F `  ( ( 2  x.  j )  -  1 ) ) ) ) ) )
464444, 462, 463syl2anc 693 . . . 4  |-  ( ph  ->  B  =  (  ~~>  `  seq 1 (  +  , 
( j  e.  NN  |->  ( F `  ( ( 2  x.  j )  -  1 ) ) ) ) ) )
465 eqidd 2623 . . . . . 6  |-  ( (
ph  /\  k  e.  NN )  ->  ( j  e.  NN  |->  ( F `
 ( ( 2  x.  j )  - 
1 ) ) )  =  ( j  e.  NN  |->  ( F `  ( ( 2  x.  j )  -  1 ) ) ) )
466 eqcom 2629 . . . . . . . 8  |-  ( k  =  j  <->  j  =  k )
467 eqcom 2629 . . . . . . . 8  |-  ( ( F `  ( ( 2  x.  k )  -  1 ) )  =  ( F `  ( ( 2  x.  j )  -  1 ) )  <->  ( F `  ( ( 2  x.  j )  -  1 ) )  =  ( F `  ( ( 2  x.  k )  -  1 ) ) )
468417, 466, 4673imtr3i 280 . . . . . . 7  |-  ( j  =  k  ->  ( F `  ( (
2  x.  j )  -  1 ) )  =  ( F `  ( ( 2  x.  k )  -  1 ) ) )
469468adantl 482 . . . . . 6  |-  ( ( ( ph  /\  k  e.  NN )  /\  j  =  k )  -> 
( F `  (
( 2  x.  j
)  -  1 ) )  =  ( F `
 ( ( 2  x.  k )  - 
1 ) ) )
47012adantr 481 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN )  ->  F : NN
--> CC )
471433, 8syl6eleqr 2712 . . . . . . . 8  |-  ( k  e.  NN  ->  (
( 2  x.  k
)  -  1 )  e.  NN )
472471adantl 482 . . . . . . 7  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( 2  x.  k )  -  1 )  e.  NN )
473470, 472ffvelrnd 6360 . . . . . 6  |-  ( (
ph  /\  k  e.  NN )  ->  ( F `
 ( ( 2  x.  k )  - 
1 ) )  e.  CC )
474465, 469, 421, 473fvmptd 6288 . . . . 5  |-  ( (
ph  /\  k  e.  NN )  ->  ( ( j  e.  NN  |->  ( F `  ( ( 2  x.  j )  -  1 ) ) ) `  k )  =  ( F `  ( ( 2  x.  k )  -  1 ) ) )
4758, 9, 474, 473isum 14450 . . . 4  |-  ( ph  -> 
sum_ k  e.  NN  ( F `  ( ( 2  x.  k )  -  1 ) )  =  (  ~~>  `  seq 1 (  +  , 
( j  e.  NN  |->  ( F `  ( ( 2  x.  j )  -  1 ) ) ) ) ) )
476464, 475eqtr4d 2659 . . 3  |-  ( ph  ->  B  =  sum_ k  e.  NN  ( F `  ( ( 2  x.  k )  -  1 ) ) )
477446, 453, 4763eqtrd 2660 . 2  |-  ( ph  -> 
sum_ k  e.  NN  ( F `  k )  =  sum_ k  e.  NN  ( F `  ( ( 2  x.  k )  -  1 ) ) )
478444, 477jca 554 1  |-  ( ph  ->  (  seq 1 (  +  ,  ( k  e.  NN  |->  ( F `
 ( ( 2  x.  k )  - 
1 ) ) ) )  ~~>  B  /\  sum_ k  e.  NN  ( F `  k )  =  sum_ k  e.  NN  ( F `  ( ( 2  x.  k )  -  1 ) ) ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    \/ wo 383    /\ wa 384    /\ w3a 1037    = wceq 1483    e. wcel 1990    =/= wne 2794   A.wral 2912   E.wrex 2913   {crab 2916   _Vcvv 3200    \ cdif 3571    u. cun 3572    i^i cin 3573    C_ wss 3574   (/)c0 3915   class class class wbr 4653    |-> cmpt 4729   dom cdm 5114   Rel wrel 5119   -->wf 5884   -1-1->wf1 5885   -onto->wfo 5886   -1-1-onto->wf1o 5887   ` cfv 5888  (class class class)co 6650   Fincfn 7955   CCcc 9934   RRcr 9935   0cc0 9936   1c1 9937    + caddc 9939    x. cmul 9941    < clt 10074    <_ cle 10075    - cmin 10266    / cdiv 10684   NNcn 11020   2c2 11070   ZZcz 11377   ZZ>=cuz 11687   RR+crp 11832   ...cfz 12326    seqcseq 12801    ~~> cli 14215   sum_csu 14416
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
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-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-om 7066  df-1st 7168  df-2nd 7169  df-wrecs 7407  df-recs 7468  df-rdg 7506  df-1o 7560  df-oadd 7564  df-er 7742  df-en 7956  df-dom 7957  df-sdom 7958  df-fin 7959  df-sup 8348  df-oi 8415  df-card 8765  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-n0 11293  df-z 11378  df-uz 11688  df-rp 11833  df-fz 12327  df-fzo 12466  df-seq 12802  df-exp 12861  df-hash 13118  df-cj 13839  df-re 13840  df-im 13841  df-sqrt 13975  df-abs 13976  df-clim 14219  df-sum 14417
This theorem is referenced by:  fouriersw  40448
  Copyright terms: Public domain W3C validator