Users' Mathboxes Mathbox for Scott Fenton < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  bcprod Structured version   Visualization version   Unicode version

Theorem bcprod 31624
Description: A product identity for binomial coefficents. (Contributed by Scott Fenton, 23-Jun-2020.)
Assertion
Ref Expression
bcprod  |-  ( N  e.  NN  ->  prod_ k  e.  ( 1 ... ( N  -  1 ) ) ( ( N  -  1 )  _C  k )  = 
prod_ k  e.  (
1 ... ( N  - 
1 ) ) ( k ^ ( ( 2  x.  k )  -  N ) ) )
Distinct variable group:    k, N

Proof of Theorem bcprod
Dummy variables  n  m  j are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 oveq1 6657 . . . . . . 7  |-  ( m  =  1  ->  (
m  -  1 )  =  ( 1  -  1 ) )
2 1m1e0 11089 . . . . . . 7  |-  ( 1  -  1 )  =  0
31, 2syl6eq 2672 . . . . . 6  |-  ( m  =  1  ->  (
m  -  1 )  =  0 )
43oveq2d 6666 . . . . 5  |-  ( m  =  1  ->  (
1 ... ( m  - 
1 ) )  =  ( 1 ... 0
) )
5 fz10 12362 . . . . 5  |-  ( 1 ... 0 )  =  (/)
64, 5syl6eq 2672 . . . 4  |-  ( m  =  1  ->  (
1 ... ( m  - 
1 ) )  =  (/) )
73oveq1d 6665 . . . . 5  |-  ( m  =  1  ->  (
( m  -  1 )  _C  k )  =  ( 0  _C  k ) )
87adantr 481 . . . 4  |-  ( ( m  =  1  /\  k  e.  ( 1 ... ( m  - 
1 ) ) )  ->  ( ( m  -  1 )  _C  k )  =  ( 0  _C  k ) )
96, 8prodeq12dv 14656 . . 3  |-  ( m  =  1  ->  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( ( m  -  1 )  _C  k )  = 
prod_ k  e.  (/)  ( 0  _C  k ) )
10 oveq2 6658 . . . . . 6  |-  ( m  =  1  ->  (
( 2  x.  k
)  -  m )  =  ( ( 2  x.  k )  - 
1 ) )
1110oveq2d 6666 . . . . 5  |-  ( m  =  1  ->  (
k ^ ( ( 2  x.  k )  -  m ) )  =  ( k ^
( ( 2  x.  k )  -  1 ) ) )
1211adantr 481 . . . 4  |-  ( ( m  =  1  /\  k  e.  ( 1 ... ( m  - 
1 ) ) )  ->  ( k ^
( ( 2  x.  k )  -  m
) )  =  ( k ^ ( ( 2  x.  k )  -  1 ) ) )
136, 12prodeq12dv 14656 . . 3  |-  ( m  =  1  ->  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( k ^ ( ( 2  x.  k )  -  m ) )  = 
prod_ k  e.  (/)  ( k ^ ( ( 2  x.  k )  - 
1 ) ) )
149, 13eqeq12d 2637 . 2  |-  ( m  =  1  ->  ( prod_ k  e.  ( 1 ... ( m  - 
1 ) ) ( ( m  -  1 )  _C  k )  =  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  m ) )  <->  prod_ k  e.  (/)  ( 0  _C  k
)  =  prod_ k  e.  (/)  ( k ^
( ( 2  x.  k )  -  1 ) ) ) )
15 oveq1 6657 . . . . 5  |-  ( m  =  n  ->  (
m  -  1 )  =  ( n  - 
1 ) )
1615oveq2d 6666 . . . 4  |-  ( m  =  n  ->  (
1 ... ( m  - 
1 ) )  =  ( 1 ... (
n  -  1 ) ) )
1715oveq1d 6665 . . . . 5  |-  ( m  =  n  ->  (
( m  -  1 )  _C  k )  =  ( ( n  -  1 )  _C  k ) )
1817adantr 481 . . . 4  |-  ( ( m  =  n  /\  k  e.  ( 1 ... ( m  - 
1 ) ) )  ->  ( ( m  -  1 )  _C  k )  =  ( ( n  -  1 )  _C  k ) )
1916, 18prodeq12dv 14656 . . 3  |-  ( m  =  n  ->  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( ( m  -  1 )  _C  k )  = 
prod_ k  e.  (
1 ... ( n  - 
1 ) ) ( ( n  -  1 )  _C  k ) )
20 oveq2 6658 . . . . . 6  |-  ( m  =  n  ->  (
( 2  x.  k
)  -  m )  =  ( ( 2  x.  k )  -  n ) )
2120oveq2d 6666 . . . . 5  |-  ( m  =  n  ->  (
k ^ ( ( 2  x.  k )  -  m ) )  =  ( k ^
( ( 2  x.  k )  -  n
) ) )
2221adantr 481 . . . 4  |-  ( ( m  =  n  /\  k  e.  ( 1 ... ( m  - 
1 ) ) )  ->  ( k ^
( ( 2  x.  k )  -  m
) )  =  ( k ^ ( ( 2  x.  k )  -  n ) ) )
2316, 22prodeq12dv 14656 . . 3  |-  ( m  =  n  ->  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( k ^ ( ( 2  x.  k )  -  m ) )  = 
prod_ k  e.  (
1 ... ( n  - 
1 ) ) ( k ^ ( ( 2  x.  k )  -  n ) ) )
2419, 23eqeq12d 2637 . 2  |-  ( m  =  n  ->  ( prod_ k  e.  ( 1 ... ( m  - 
1 ) ) ( ( m  -  1 )  _C  k )  =  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  m ) )  <->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( ( n  - 
1 )  _C  k
)  =  prod_ k  e.  ( 1 ... (
n  -  1 ) ) ( k ^
( ( 2  x.  k )  -  n
) ) ) )
25 oveq1 6657 . . . . 5  |-  ( m  =  ( n  + 
1 )  ->  (
m  -  1 )  =  ( ( n  +  1 )  - 
1 ) )
2625oveq2d 6666 . . . 4  |-  ( m  =  ( n  + 
1 )  ->  (
1 ... ( m  - 
1 ) )  =  ( 1 ... (
( n  +  1 )  -  1 ) ) )
2725oveq1d 6665 . . . . 5  |-  ( m  =  ( n  + 
1 )  ->  (
( m  -  1 )  _C  k )  =  ( ( ( n  +  1 )  -  1 )  _C  k ) )
2827adantr 481 . . . 4  |-  ( ( m  =  ( n  +  1 )  /\  k  e.  ( 1 ... ( m  - 
1 ) ) )  ->  ( ( m  -  1 )  _C  k )  =  ( ( ( n  + 
1 )  -  1 )  _C  k ) )
2926, 28prodeq12dv 14656 . . 3  |-  ( m  =  ( n  + 
1 )  ->  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( ( m  -  1 )  _C  k )  = 
prod_ k  e.  (
1 ... ( ( n  +  1 )  - 
1 ) ) ( ( ( n  + 
1 )  -  1 )  _C  k ) )
30 oveq2 6658 . . . . . 6  |-  ( m  =  ( n  + 
1 )  ->  (
( 2  x.  k
)  -  m )  =  ( ( 2  x.  k )  -  ( n  +  1
) ) )
3130oveq2d 6666 . . . . 5  |-  ( m  =  ( n  + 
1 )  ->  (
k ^ ( ( 2  x.  k )  -  m ) )  =  ( k ^
( ( 2  x.  k )  -  (
n  +  1 ) ) ) )
3231adantr 481 . . . 4  |-  ( ( m  =  ( n  +  1 )  /\  k  e.  ( 1 ... ( m  - 
1 ) ) )  ->  ( k ^
( ( 2  x.  k )  -  m
) )  =  ( k ^ ( ( 2  x.  k )  -  ( n  + 
1 ) ) ) )
3326, 32prodeq12dv 14656 . . 3  |-  ( m  =  ( n  + 
1 )  ->  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( k ^ ( ( 2  x.  k )  -  m ) )  = 
prod_ k  e.  (
1 ... ( ( n  +  1 )  - 
1 ) ) ( k ^ ( ( 2  x.  k )  -  ( n  + 
1 ) ) ) )
3429, 33eqeq12d 2637 . 2  |-  ( m  =  ( n  + 
1 )  ->  ( prod_ k  e.  ( 1 ... ( m  - 
1 ) ) ( ( m  -  1 )  _C  k )  =  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  m ) )  <->  prod_ k  e.  ( 1 ... ( ( n  +  1 )  -  1 ) ) ( ( ( n  +  1 )  - 
1 )  _C  k
)  =  prod_ k  e.  ( 1 ... (
( n  +  1 )  -  1 ) ) ( k ^
( ( 2  x.  k )  -  (
n  +  1 ) ) ) ) )
35 oveq1 6657 . . . . 5  |-  ( m  =  N  ->  (
m  -  1 )  =  ( N  - 
1 ) )
3635oveq2d 6666 . . . 4  |-  ( m  =  N  ->  (
1 ... ( m  - 
1 ) )  =  ( 1 ... ( N  -  1 ) ) )
3735oveq1d 6665 . . . . 5  |-  ( m  =  N  ->  (
( m  -  1 )  _C  k )  =  ( ( N  -  1 )  _C  k ) )
3837adantr 481 . . . 4  |-  ( ( m  =  N  /\  k  e.  ( 1 ... ( m  - 
1 ) ) )  ->  ( ( m  -  1 )  _C  k )  =  ( ( N  -  1 )  _C  k ) )
3936, 38prodeq12dv 14656 . . 3  |-  ( m  =  N  ->  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( ( m  -  1 )  _C  k )  = 
prod_ k  e.  (
1 ... ( N  - 
1 ) ) ( ( N  -  1 )  _C  k ) )
40 oveq2 6658 . . . . . 6  |-  ( m  =  N  ->  (
( 2  x.  k
)  -  m )  =  ( ( 2  x.  k )  -  N ) )
4140oveq2d 6666 . . . . 5  |-  ( m  =  N  ->  (
k ^ ( ( 2  x.  k )  -  m ) )  =  ( k ^
( ( 2  x.  k )  -  N
) ) )
4241adantr 481 . . . 4  |-  ( ( m  =  N  /\  k  e.  ( 1 ... ( m  - 
1 ) ) )  ->  ( k ^
( ( 2  x.  k )  -  m
) )  =  ( k ^ ( ( 2  x.  k )  -  N ) ) )
4336, 42prodeq12dv 14656 . . 3  |-  ( m  =  N  ->  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( k ^ ( ( 2  x.  k )  -  m ) )  = 
prod_ k  e.  (
1 ... ( N  - 
1 ) ) ( k ^ ( ( 2  x.  k )  -  N ) ) )
4439, 43eqeq12d 2637 . 2  |-  ( m  =  N  ->  ( prod_ k  e.  ( 1 ... ( m  - 
1 ) ) ( ( m  -  1 )  _C  k )  =  prod_ k  e.  ( 1 ... ( m  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  m ) )  <->  prod_ k  e.  ( 1 ... ( N  -  1 ) ) ( ( N  - 
1 )  _C  k
)  =  prod_ k  e.  ( 1 ... ( N  -  1 ) ) ( k ^
( ( 2  x.  k )  -  N
) ) ) )
45 prod0 14673 . . 3  |-  prod_ k  e.  (/)  ( 0  _C  k )  =  1
46 prod0 14673 . . 3  |-  prod_ k  e.  (/)  ( k ^
( ( 2  x.  k )  -  1 ) )  =  1
4745, 46eqtr4i 2647 . 2  |-  prod_ k  e.  (/)  ( 0  _C  k )  =  prod_ k  e.  (/)  ( k ^
( ( 2  x.  k )  -  1 ) )
48 simpr 477 . . . . 5  |-  ( ( n  e.  NN  /\  prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( ( n  -  1 )  _C  k )  =  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) ) )  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( ( n  -  1 )  _C  k )  = 
prod_ k  e.  (
1 ... ( n  - 
1 ) ) ( k ^ ( ( 2  x.  k )  -  n ) ) )
4948oveq1d 6665 . . . 4  |-  ( ( n  e.  NN  /\  prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( ( n  -  1 )  _C  k )  =  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) ) )  ->  ( prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( ( n  -  1 )  _C  k )  x.  ( ( n ^ ( n  - 
1 ) )  / 
( ! `  (
n  -  1 ) ) ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) )  x.  ( ( n ^ ( n  -  1 ) )  /  ( ! `  ( n  -  1
) ) ) ) )
50 nncn 11028 . . . . . . . . 9  |-  ( n  e.  NN  ->  n  e.  CC )
51 1cnd 10056 . . . . . . . . 9  |-  ( n  e.  NN  ->  1  e.  CC )
5250, 51pncand 10393 . . . . . . . 8  |-  ( n  e.  NN  ->  (
( n  +  1 )  -  1 )  =  n )
5352oveq2d 6666 . . . . . . 7  |-  ( n  e.  NN  ->  (
1 ... ( ( n  +  1 )  - 
1 ) )  =  ( 1 ... n
) )
5452oveq1d 6665 . . . . . . . 8  |-  ( n  e.  NN  ->  (
( ( n  + 
1 )  -  1 )  _C  k )  =  ( n  _C  k ) )
5554adantr 481 . . . . . . 7  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( ( n  +  1 )  - 
1 ) ) )  ->  ( ( ( n  +  1 )  -  1 )  _C  k )  =  ( n  _C  k ) )
5653, 55prodeq12dv 14656 . . . . . 6  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( ( n  + 
1 )  -  1 ) ) ( ( ( n  +  1 )  -  1 )  _C  k )  = 
prod_ k  e.  (
1 ... n ) ( n  _C  k ) )
57 elnnuz 11724 . . . . . . . 8  |-  ( n  e.  NN  <->  n  e.  ( ZZ>= `  1 )
)
5857biimpi 206 . . . . . . 7  |-  ( n  e.  NN  ->  n  e.  ( ZZ>= `  1 )
)
59 nnnn0 11299 . . . . . . . . 9  |-  ( n  e.  NN  ->  n  e.  NN0 )
60 elfzelz 12342 . . . . . . . . 9  |-  ( k  e.  ( 1 ... n )  ->  k  e.  ZZ )
61 bccl 13109 . . . . . . . . 9  |-  ( ( n  e.  NN0  /\  k  e.  ZZ )  ->  ( n  _C  k
)  e.  NN0 )
6259, 60, 61syl2an 494 . . . . . . . 8  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  ( n  _C  k )  e.  NN0 )
6362nn0cnd 11353 . . . . . . 7  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  ( n  _C  k )  e.  CC )
64 oveq2 6658 . . . . . . 7  |-  ( k  =  n  ->  (
n  _C  k )  =  ( n  _C  n ) )
6558, 63, 64fprodm1 14697 . . . . . 6  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... n ) ( n  _C  k )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( n  _C  k
)  x.  ( n  _C  n ) ) )
66 bcnn 13099 . . . . . . . . 9  |-  ( n  e.  NN0  ->  ( n  _C  n )  =  1 )
6759, 66syl 17 . . . . . . . 8  |-  ( n  e.  NN  ->  (
n  _C  n )  =  1 )
6867oveq2d 6666 . . . . . . 7  |-  ( n  e.  NN  ->  ( prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( n  _C  k )  x.  ( n  _C  n ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( n  _C  k
)  x.  1 ) )
69 fzfid 12772 . . . . . . . . 9  |-  ( n  e.  NN  ->  (
1 ... ( n  - 
1 ) )  e. 
Fin )
70 elfzelz 12342 . . . . . . . . . . 11  |-  ( k  e.  ( 1 ... ( n  -  1 ) )  ->  k  e.  ZZ )
7159, 70, 61syl2an 494 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( n  _C  k )  e.  NN0 )
7271nn0cnd 11353 . . . . . . . . 9  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( n  _C  k )  e.  CC )
7369, 72fprodcl 14682 . . . . . . . 8  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( n  _C  k )  e.  CC )
7473mulid1d 10057 . . . . . . 7  |-  ( n  e.  NN  ->  ( prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( n  _C  k )  x.  1 )  = 
prod_ k  e.  (
1 ... ( n  - 
1 ) ) ( n  _C  k ) )
75 1eluzge0 11732 . . . . . . . . . . . 12  |-  1  e.  ( ZZ>= `  0 )
76 fzss1 12380 . . . . . . . . . . . 12  |-  ( 1  e.  ( ZZ>= `  0
)  ->  ( 1 ... ( n  - 
1 ) )  C_  ( 0 ... (
n  -  1 ) ) )
7775, 76ax-mp 5 . . . . . . . . . . 11  |-  ( 1 ... ( n  - 
1 ) )  C_  ( 0 ... (
n  -  1 ) )
7877sseli 3599 . . . . . . . . . 10  |-  ( k  e.  ( 1 ... ( n  -  1 ) )  ->  k  e.  ( 0 ... (
n  -  1 ) ) )
79 bcm1nt 31623 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  k  e.  ( 0 ... ( n  - 
1 ) ) )  ->  ( n  _C  k )  =  ( ( ( n  - 
1 )  _C  k
)  x.  ( n  /  ( n  -  k ) ) ) )
8078, 79sylan2 491 . . . . . . . . 9  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( n  _C  k )  =  ( ( ( n  - 
1 )  _C  k
)  x.  ( n  /  ( n  -  k ) ) ) )
8180prodeq2dv 14653 . . . . . . . 8  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( n  _C  k )  = 
prod_ k  e.  (
1 ... ( n  - 
1 ) ) ( ( ( n  - 
1 )  _C  k
)  x.  ( n  /  ( n  -  k ) ) ) )
82 nnm1nn0 11334 . . . . . . . . . . 11  |-  ( n  e.  NN  ->  (
n  -  1 )  e.  NN0 )
83 bccl 13109 . . . . . . . . . . 11  |-  ( ( ( n  -  1 )  e.  NN0  /\  k  e.  ZZ )  ->  ( ( n  - 
1 )  _C  k
)  e.  NN0 )
8482, 70, 83syl2an 494 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( ( n  -  1 )  _C  k )  e.  NN0 )
8584nn0cnd 11353 . . . . . . . . 9  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( ( n  -  1 )  _C  k )  e.  CC )
8650adantr 481 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  n  e.  CC )
87 elfznn 12370 . . . . . . . . . . . . . . 15  |-  ( k  e.  ( 1 ... ( n  -  1 ) )  ->  k  e.  NN )
8887adantl 482 . . . . . . . . . . . . . 14  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  k  e.  NN )
8988nnred 11035 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  k  e.  RR )
9082adantr 481 . . . . . . . . . . . . . 14  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( n  - 
1 )  e.  NN0 )
9190nn0red 11352 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( n  - 
1 )  e.  RR )
92 nnre 11027 . . . . . . . . . . . . . 14  |-  ( n  e.  NN  ->  n  e.  RR )
9392adantr 481 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  n  e.  RR )
94 elfzle2 12345 . . . . . . . . . . . . . 14  |-  ( k  e.  ( 1 ... ( n  -  1 ) )  ->  k  <_  ( n  -  1 ) )
9594adantl 482 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  k  <_  (
n  -  1 ) )
9693ltm1d 10956 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( n  - 
1 )  <  n
)
9789, 91, 93, 95, 96lelttrd 10195 . . . . . . . . . . . 12  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  k  <  n
)
98 simpl 473 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  n  e.  NN )
99 nnsub 11059 . . . . . . . . . . . . 13  |-  ( ( k  e.  NN  /\  n  e.  NN )  ->  ( k  <  n  <->  ( n  -  k )  e.  NN ) )
10088, 98, 99syl2anc 693 . . . . . . . . . . . 12  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( k  < 
n  <->  ( n  -  k )  e.  NN ) )
10197, 100mpbid 222 . . . . . . . . . . 11  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( n  -  k )  e.  NN )
102101nncnd 11036 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( n  -  k )  e.  CC )
103101nnne0d 11065 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( n  -  k )  =/=  0
)
10486, 102, 103divcld 10801 . . . . . . . . 9  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( n  / 
( n  -  k
) )  e.  CC )
10569, 85, 104fprodmul 14690 . . . . . . . 8  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( ( ( n  -  1 )  _C  k )  x.  ( n  / 
( n  -  k
) ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( ( n  - 
1 )  _C  k
)  x.  prod_ k  e.  ( 1 ... (
n  -  1 ) ) ( n  / 
( n  -  k
) ) ) )
10669, 86, 102, 103fproddiv 14691 . . . . . . . . . 10  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( n  /  ( n  -  k ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) n  /  prod_ k  e.  ( 1 ... (
n  -  1 ) ) ( n  -  k ) ) )
107 fzfi 12771 . . . . . . . . . . . . 13  |-  ( 1 ... ( n  - 
1 ) )  e. 
Fin
108 fprodconst 14708 . . . . . . . . . . . . 13  |-  ( ( ( 1 ... (
n  -  1 ) )  e.  Fin  /\  n  e.  CC )  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) n  =  ( n ^ ( # `  (
1 ... ( n  - 
1 ) ) ) ) )
109107, 50, 108sylancr 695 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) n  =  ( n ^ ( # `
 ( 1 ... ( n  -  1 ) ) ) ) )
110 hashfz1 13134 . . . . . . . . . . . . . 14  |-  ( ( n  -  1 )  e.  NN0  ->  ( # `  ( 1 ... (
n  -  1 ) ) )  =  ( n  -  1 ) )
11182, 110syl 17 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  ( # `
 ( 1 ... ( n  -  1 ) ) )  =  ( n  -  1 ) )
112111oveq2d 6666 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  (
n ^ ( # `  ( 1 ... (
n  -  1 ) ) ) )  =  ( n ^ (
n  -  1 ) ) )
113109, 112eqtr2d 2657 . . . . . . . . . . 11  |-  ( n  e.  NN  ->  (
n ^ ( n  -  1 ) )  =  prod_ k  e.  ( 1 ... ( n  -  1 ) ) n )
114 fprodfac 14703 . . . . . . . . . . . . 13  |-  ( ( n  -  1 )  e.  NN0  ->  ( ! `
 ( n  - 
1 ) )  = 
prod_ j  e.  (
1 ... ( n  - 
1 ) ) j )
11582, 114syl 17 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  ( ! `  ( n  -  1 ) )  =  prod_ j  e.  ( 1 ... ( n  -  1 ) ) j )
116 nnz 11399 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  n  e.  ZZ )
117 1zzd 11408 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  1  e.  ZZ )
11882nn0zd 11480 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  (
n  -  1 )  e.  ZZ )
119 elfznn 12370 . . . . . . . . . . . . . . 15  |-  ( j  e.  ( 1 ... ( n  -  1 ) )  ->  j  e.  NN )
120119adantl 482 . . . . . . . . . . . . . 14  |-  ( ( n  e.  NN  /\  j  e.  ( 1 ... ( n  - 
1 ) ) )  ->  j  e.  NN )
121120nncnd 11036 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  j  e.  ( 1 ... ( n  - 
1 ) ) )  ->  j  e.  CC )
122 id 22 . . . . . . . . . . . . 13  |-  ( j  =  ( n  -  k )  ->  j  =  ( n  -  k ) )
123116, 117, 118, 121, 122fprodrev 14707 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  prod_ j  e.  ( 1 ... ( n  -  1 ) ) j  = 
prod_ k  e.  (
( n  -  (
n  -  1 ) ) ... ( n  -  1 ) ) ( n  -  k
) )
12450, 51nncand 10397 . . . . . . . . . . . . . 14  |-  ( n  e.  NN  ->  (
n  -  ( n  -  1 ) )  =  1 )
125124oveq1d 6665 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  (
( n  -  (
n  -  1 ) ) ... ( n  -  1 ) )  =  ( 1 ... ( n  -  1 ) ) )
126125prodeq1d 14651 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  prod_ k  e.  ( ( n  -  ( n  - 
1 ) ) ... ( n  -  1 ) ) ( n  -  k )  = 
prod_ k  e.  (
1 ... ( n  - 
1 ) ) ( n  -  k ) )
127115, 123, 1263eqtrd 2660 . . . . . . . . . . 11  |-  ( n  e.  NN  ->  ( ! `  ( n  -  1 ) )  =  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( n  -  k
) )
128113, 127oveq12d 6668 . . . . . . . . . 10  |-  ( n  e.  NN  ->  (
( n ^ (
n  -  1 ) )  /  ( ! `
 ( n  - 
1 ) ) )  =  ( prod_ k  e.  ( 1 ... (
n  -  1 ) ) n  /  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( n  -  k ) ) )
129106, 128eqtr4d 2659 . . . . . . . . 9  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( n  /  ( n  -  k ) )  =  ( ( n ^
( n  -  1 ) )  /  ( ! `  ( n  -  1 ) ) ) )
130129oveq2d 6666 . . . . . . . 8  |-  ( n  e.  NN  ->  ( prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( ( n  -  1 )  _C  k )  x.  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( n  /  (
n  -  k ) ) )  =  (
prod_ k  e.  (
1 ... ( n  - 
1 ) ) ( ( n  -  1 )  _C  k )  x.  ( ( n ^ ( n  - 
1 ) )  / 
( ! `  (
n  -  1 ) ) ) ) )
13181, 105, 1303eqtrd 2660 . . . . . . 7  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( n  _C  k )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( ( n  - 
1 )  _C  k
)  x.  ( ( n ^ ( n  -  1 ) )  /  ( ! `  ( n  -  1
) ) ) ) )
13268, 74, 1313eqtrd 2660 . . . . . 6  |-  ( n  e.  NN  ->  ( prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( n  _C  k )  x.  ( n  _C  n ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( ( n  - 
1 )  _C  k
)  x.  ( ( n ^ ( n  -  1 ) )  /  ( ! `  ( n  -  1
) ) ) ) )
13356, 65, 1323eqtrd 2660 . . . . 5  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( ( n  + 
1 )  -  1 ) ) ( ( ( n  +  1 )  -  1 )  _C  k )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( ( n  - 
1 )  _C  k
)  x.  ( ( n ^ ( n  -  1 ) )  /  ( ! `  ( n  -  1
) ) ) ) )
134133adantr 481 . . . 4  |-  ( ( n  e.  NN  /\  prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( ( n  -  1 )  _C  k )  =  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) ) )  ->  prod_ k  e.  ( 1 ... ( ( n  + 
1 )  -  1 ) ) ( ( ( n  +  1 )  -  1 )  _C  k )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( ( n  - 
1 )  _C  k
)  x.  ( ( n ^ ( n  -  1 ) )  /  ( ! `  ( n  -  1
) ) ) ) )
13553prodeq1d 14651 . . . . . 6  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( ( n  + 
1 )  -  1 ) ) ( k ^ ( ( 2  x.  k )  -  ( n  +  1
) ) )  = 
prod_ k  e.  (
1 ... n ) ( k ^ ( ( 2  x.  k )  -  ( n  + 
1 ) ) ) )
136 elfznn 12370 . . . . . . . . . 10  |-  ( k  e.  ( 1 ... n )  ->  k  e.  NN )
137136adantl 482 . . . . . . . . 9  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  k  e.  NN )
138137nncnd 11036 . . . . . . . 8  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  k  e.  CC )
139137nnne0d 11065 . . . . . . . 8  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  k  =/=  0
)
140 2nn 11185 . . . . . . . . . . . 12  |-  2  e.  NN
141140a1i 11 . . . . . . . . . . 11  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  2  e.  NN )
142141, 137nnmulcld 11068 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  ( 2  x.  k )  e.  NN )
143142nnzd 11481 . . . . . . . . 9  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  ( 2  x.  k )  e.  ZZ )
144 peano2nn 11032 . . . . . . . . . . 11  |-  ( n  e.  NN  ->  (
n  +  1 )  e.  NN )
145144adantr 481 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  ( n  + 
1 )  e.  NN )
146145nnzd 11481 . . . . . . . . 9  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  ( n  + 
1 )  e.  ZZ )
147143, 146zsubcld 11487 . . . . . . . 8  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  ( ( 2  x.  k )  -  ( n  +  1
) )  e.  ZZ )
148138, 139, 147expclzd 13013 . . . . . . 7  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... n ) )  ->  ( k ^
( ( 2  x.  k )  -  (
n  +  1 ) ) )  e.  CC )
149 id 22 . . . . . . . 8  |-  ( k  =  n  ->  k  =  n )
150 oveq2 6658 . . . . . . . . 9  |-  ( k  =  n  ->  (
2  x.  k )  =  ( 2  x.  n ) )
151150oveq1d 6665 . . . . . . . 8  |-  ( k  =  n  ->  (
( 2  x.  k
)  -  ( n  +  1 ) )  =  ( ( 2  x.  n )  -  ( n  +  1
) ) )
152149, 151oveq12d 6668 . . . . . . 7  |-  ( k  =  n  ->  (
k ^ ( ( 2  x.  k )  -  ( n  + 
1 ) ) )  =  ( n ^
( ( 2  x.  n )  -  (
n  +  1 ) ) ) )
15358, 148, 152fprodm1 14697 . . . . . 6  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... n ) ( k ^ ( ( 2  x.  k )  -  ( n  +  1
) ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  ( n  +  1 ) ) )  x.  ( n ^ ( ( 2  x.  n )  -  ( n  +  1
) ) ) ) )
15488nncnd 11036 . . . . . . . . . . 11  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  k  e.  CC )
15588nnne0d 11065 . . . . . . . . . . 11  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  k  =/=  0
)
156140a1i 11 . . . . . . . . . . . . . 14  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  2  e.  NN )
157156, 88nnmulcld 11068 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( 2  x.  k )  e.  NN )
158157nnzd 11481 . . . . . . . . . . . 12  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( 2  x.  k )  e.  ZZ )
159116adantr 481 . . . . . . . . . . . 12  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  n  e.  ZZ )
160158, 159zsubcld 11487 . . . . . . . . . . 11  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( ( 2  x.  k )  -  n )  e.  ZZ )
161154, 155, 160expclzd 13013 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( k ^
( ( 2  x.  k )  -  n
) )  e.  CC )
16269, 161, 154, 155fproddiv 14691 . . . . . . . . 9  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( ( k ^ ( ( 2  x.  k )  -  n ) )  /  k )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) )  /  prod_ k  e.  ( 1 ... (
n  -  1 ) ) k ) )
163157nncnd 11036 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( 2  x.  k )  e.  CC )
164 1cnd 10056 . . . . . . . . . . . . 13  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  1  e.  CC )
165163, 86, 164subsub4d 10423 . . . . . . . . . . . 12  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( ( ( 2  x.  k )  -  n )  - 
1 )  =  ( ( 2  x.  k
)  -  ( n  +  1 ) ) )
166165oveq2d 6666 . . . . . . . . . . 11  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( k ^
( ( ( 2  x.  k )  -  n )  -  1 ) )  =  ( k ^ ( ( 2  x.  k )  -  ( n  + 
1 ) ) ) )
167154, 155, 160expm1d 13018 . . . . . . . . . . 11  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( k ^
( ( ( 2  x.  k )  -  n )  -  1 ) )  =  ( ( k ^ (
( 2  x.  k
)  -  n ) )  /  k ) )
168166, 167eqtr3d 2658 . . . . . . . . . 10  |-  ( ( n  e.  NN  /\  k  e.  ( 1 ... ( n  - 
1 ) ) )  ->  ( k ^
( ( 2  x.  k )  -  (
n  +  1 ) ) )  =  ( ( k ^ (
( 2  x.  k
)  -  n ) )  /  k ) )
169168prodeq2dv 14653 . . . . . . . . 9  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ ( ( 2  x.  k )  -  ( n  +  1
) ) )  = 
prod_ k  e.  (
1 ... ( n  - 
1 ) ) ( ( k ^ (
( 2  x.  k
)  -  n ) )  /  k ) )
170 fprodfac 14703 . . . . . . . . . . 11  |-  ( ( n  -  1 )  e.  NN0  ->  ( ! `
 ( n  - 
1 ) )  = 
prod_ k  e.  (
1 ... ( n  - 
1 ) ) k )
17182, 170syl 17 . . . . . . . . . 10  |-  ( n  e.  NN  ->  ( ! `  ( n  -  1 ) )  =  prod_ k  e.  ( 1 ... ( n  -  1 ) ) k )
172171oveq2d 6666 . . . . . . . . 9  |-  ( n  e.  NN  ->  ( prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( k ^ ( ( 2  x.  k )  -  n ) )  /  ( ! `  ( n  -  1
) ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) )  /  prod_ k  e.  ( 1 ... (
n  -  1 ) ) k ) )
173162, 169, 1723eqtr4d 2666 . . . . . . . 8  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ ( ( 2  x.  k )  -  ( n  +  1
) ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) )  /  ( ! `
 ( n  - 
1 ) ) ) )
174140a1i 11 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  2  e.  NN )
175 id 22 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  n  e.  NN )
176174, 175nnmulcld 11068 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  (
2  x.  n )  e.  NN )
177176nncnd 11036 . . . . . . . . . . 11  |-  ( n  e.  NN  ->  (
2  x.  n )  e.  CC )
178177, 50, 51subsub4d 10423 . . . . . . . . . 10  |-  ( n  e.  NN  ->  (
( ( 2  x.  n )  -  n
)  -  1 )  =  ( ( 2  x.  n )  -  ( n  +  1
) ) )
179502timesd 11275 . . . . . . . . . . . . 13  |-  ( n  e.  NN  ->  (
2  x.  n )  =  ( n  +  n ) )
180179oveq1d 6665 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  (
( 2  x.  n
)  -  n )  =  ( ( n  +  n )  -  n ) )
18150, 50pncand 10393 . . . . . . . . . . . 12  |-  ( n  e.  NN  ->  (
( n  +  n
)  -  n )  =  n )
182180, 181eqtrd 2656 . . . . . . . . . . 11  |-  ( n  e.  NN  ->  (
( 2  x.  n
)  -  n )  =  n )
183182oveq1d 6665 . . . . . . . . . 10  |-  ( n  e.  NN  ->  (
( ( 2  x.  n )  -  n
)  -  1 )  =  ( n  - 
1 ) )
184178, 183eqtr3d 2658 . . . . . . . . 9  |-  ( n  e.  NN  ->  (
( 2  x.  n
)  -  ( n  +  1 ) )  =  ( n  - 
1 ) )
185184oveq2d 6666 . . . . . . . 8  |-  ( n  e.  NN  ->  (
n ^ ( ( 2  x.  n )  -  ( n  + 
1 ) ) )  =  ( n ^
( n  -  1 ) ) )
186173, 185oveq12d 6668 . . . . . . 7  |-  ( n  e.  NN  ->  ( prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( k ^ ( ( 2  x.  k )  -  ( n  + 
1 ) ) )  x.  ( n ^
( ( 2  x.  n )  -  (
n  +  1 ) ) ) )  =  ( ( prod_ k  e.  ( 1 ... (
n  -  1 ) ) ( k ^
( ( 2  x.  k )  -  n
) )  /  ( ! `  ( n  -  1 ) ) )  x.  ( n ^ ( n  - 
1 ) ) ) )
18769, 161fprodcl 14682 . . . . . . . 8  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ ( ( 2  x.  k )  -  n ) )  e.  CC )
188 faccl 13070 . . . . . . . . . 10  |-  ( ( n  -  1 )  e.  NN0  ->  ( ! `
 ( n  - 
1 ) )  e.  NN )
18982, 188syl 17 . . . . . . . . 9  |-  ( n  e.  NN  ->  ( ! `  ( n  -  1 ) )  e.  NN )
190189nncnd 11036 . . . . . . . 8  |-  ( n  e.  NN  ->  ( ! `  ( n  -  1 ) )  e.  CC )
19150, 82expcld 13008 . . . . . . . 8  |-  ( n  e.  NN  ->  (
n ^ ( n  -  1 ) )  e.  CC )
192189nnne0d 11065 . . . . . . . 8  |-  ( n  e.  NN  ->  ( ! `  ( n  -  1 ) )  =/=  0 )
193187, 190, 191, 192div32d 10824 . . . . . . 7  |-  ( n  e.  NN  ->  (
( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) )  /  ( ! `
 ( n  - 
1 ) ) )  x.  ( n ^
( n  -  1 ) ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) )  x.  ( ( n ^ ( n  -  1 ) )  /  ( ! `  ( n  -  1
) ) ) ) )
194186, 193eqtrd 2656 . . . . . 6  |-  ( n  e.  NN  ->  ( prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( k ^ ( ( 2  x.  k )  -  ( n  + 
1 ) ) )  x.  ( n ^
( ( 2  x.  n )  -  (
n  +  1 ) ) ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) )  x.  ( ( n ^ ( n  -  1 ) )  /  ( ! `  ( n  -  1
) ) ) ) )
195135, 153, 1943eqtrd 2660 . . . . 5  |-  ( n  e.  NN  ->  prod_ k  e.  ( 1 ... ( ( n  + 
1 )  -  1 ) ) ( k ^ ( ( 2  x.  k )  -  ( n  +  1
) ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) )  x.  ( ( n ^ ( n  -  1 ) )  /  ( ! `  ( n  -  1
) ) ) ) )
196195adantr 481 . . . 4  |-  ( ( n  e.  NN  /\  prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( ( n  -  1 )  _C  k )  =  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) ) )  ->  prod_ k  e.  ( 1 ... ( ( n  + 
1 )  -  1 ) ) ( k ^ ( ( 2  x.  k )  -  ( n  +  1
) ) )  =  ( prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) )  x.  ( ( n ^ ( n  -  1 ) )  /  ( ! `  ( n  -  1
) ) ) ) )
19749, 134, 1963eqtr4d 2666 . . 3  |-  ( ( n  e.  NN  /\  prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( ( n  -  1 )  _C  k )  =  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) ) )  ->  prod_ k  e.  ( 1 ... ( ( n  + 
1 )  -  1 ) ) ( ( ( n  +  1 )  -  1 )  _C  k )  = 
prod_ k  e.  (
1 ... ( ( n  +  1 )  - 
1 ) ) ( k ^ ( ( 2  x.  k )  -  ( n  + 
1 ) ) ) )
198197ex 450 . 2  |-  ( n  e.  NN  ->  ( prod_ k  e.  ( 1 ... ( n  - 
1 ) ) ( ( n  -  1 )  _C  k )  =  prod_ k  e.  ( 1 ... ( n  -  1 ) ) ( k ^ (
( 2  x.  k
)  -  n ) )  ->  prod_ k  e.  ( 1 ... (
( n  +  1 )  -  1 ) ) ( ( ( n  +  1 )  -  1 )  _C  k )  =  prod_ k  e.  ( 1 ... ( ( n  + 
1 )  -  1 ) ) ( k ^ ( ( 2  x.  k )  -  ( n  +  1
) ) ) ) )
19914, 24, 34, 44, 47, 198nnind 11038 1  |-  ( N  e.  NN  ->  prod_ k  e.  ( 1 ... ( N  -  1 ) ) ( ( N  -  1 )  _C  k )  = 
prod_ k  e.  (
1 ... ( N  - 
1 ) ) ( k ^ ( ( 2  x.  k )  -  N ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 196    /\ wa 384    = wceq 1483    e. wcel 1990    C_ wss 3574   (/)c0 3915   class class class wbr 4653   ` 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   NN0cn0 11292   ZZcz 11377   ZZ>=cuz 11687   ...cfz 12326   ^cexp 12860   !cfa 13060    _C cbc 13089   #chash 13117   prod_cprod 14635
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-fac 13061  df-bc 13090  df-hash 13118  df-cj 13839  df-re 13840  df-im 13841  df-sqrt 13975  df-abs 13976  df-clim 14219  df-prod 14636
This theorem is referenced by: (None)
  Copyright terms: Public domain W3C validator