ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  ibcval5 Unicode version

Theorem ibcval5 9690
Description: Write out the top and bottom parts of the binomial coefficient  ( N  _C  K )  =  ( N  x.  ( N  -  1 )  x. 
...  x.  ( ( N  -  K )  +  1 ) )  /  K ! explicitly. In this form, it is valid even for  N  <  K, although it is no longer valid for nonpositive  K. (Contributed by Jim Kingdon, 6-Nov-2021.)
Assertion
Ref Expression
ibcval5  |-  ( ( N  e.  NN0  /\  K  e.  NN )  ->  ( N  _C  K
)  =  ( (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N )  /  ( ! `  K ) ) )

Proof of Theorem ibcval5
Dummy variables  x  k  y  f  g are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 bcval2 9677 . . . 4  |-  ( K  e.  ( 0 ... N )  ->  ( N  _C  K )  =  ( ( ! `  N )  /  (
( ! `  ( N  -  K )
)  x.  ( ! `
 K ) ) ) )
21adantl 271 . . 3  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( N  _C  K )  =  ( ( ! `  N
)  /  ( ( ! `  ( N  -  K ) )  x.  ( ! `  K ) ) ) )
3 simprl 497 . . . . . . . . 9  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N )  /\  ( N  -  K
)  e.  NN ) )  /\  ( k  e.  CC  /\  x  e.  CC ) )  -> 
k  e.  CC )
4 simprr 498 . . . . . . . . 9  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N )  /\  ( N  -  K
)  e.  NN ) )  /\  ( k  e.  CC  /\  x  e.  CC ) )  ->  x  e.  CC )
53, 4mulcld 7139 . . . . . . . 8  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N )  /\  ( N  -  K
)  e.  NN ) )  /\  ( k  e.  CC  /\  x  e.  CC ) )  -> 
( k  x.  x
)  e.  CC )
6 simpr1 944 . . . . . . . . 9  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N )  /\  ( N  -  K
)  e.  NN ) )  /\  ( k  e.  CC  /\  x  e.  CC  /\  y  e.  CC ) )  -> 
k  e.  CC )
7 simpr2 945 . . . . . . . . 9  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N )  /\  ( N  -  K
)  e.  NN ) )  /\  ( k  e.  CC  /\  x  e.  CC  /\  y  e.  CC ) )  ->  x  e.  CC )
8 simpr3 946 . . . . . . . . 9  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N )  /\  ( N  -  K
)  e.  NN ) )  /\  ( k  e.  CC  /\  x  e.  CC  /\  y  e.  CC ) )  -> 
y  e.  CC )
96, 7, 8mulassd 7142 . . . . . . . 8  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N )  /\  ( N  -  K
)  e.  NN ) )  /\  ( k  e.  CC  /\  x  e.  CC  /\  y  e.  CC ) )  -> 
( ( k  x.  x )  x.  y
)  =  ( k  x.  ( x  x.  y ) ) )
10 simpll 495 . . . . . . . . . . . . 13  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  N  e.  NN0 )
1110nn0zd 8467 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  N  e.  ZZ )
12 simplr 496 . . . . . . . . . . . . 13  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  K  e.  NN )
1312nnzd 8468 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  K  e.  ZZ )
1411, 13zsubcld 8474 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( N  -  K )  e.  ZZ )
1514peano2zd 8472 . . . . . . . . . 10  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ( N  -  K )  +  1 )  e.  ZZ )
16 1red 7134 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  1  e.  RR )
1712nnred 8052 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  K  e.  RR )
1810nn0red 8342 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  N  e.  RR )
1912nnge1d 8081 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  1  <_  K )
2016, 17, 18, 19lesub2dd 7662 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( N  -  K )  <_  ( N  -  1 ) )
2114zred 8469 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( N  -  K )  e.  RR )
22 leaddsub 7542 . . . . . . . . . . . 12  |-  ( ( ( N  -  K
)  e.  RR  /\  1  e.  RR  /\  N  e.  RR )  ->  (
( ( N  -  K )  +  1 )  <_  N  <->  ( N  -  K )  <_  ( N  -  1 ) ) )
2321, 16, 18, 22syl3anc 1169 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( (
( N  -  K
)  +  1 )  <_  N  <->  ( N  -  K )  <_  ( N  -  1 ) ) )
2420, 23mpbird 165 . . . . . . . . . 10  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ( N  -  K )  +  1 )  <_  N )
25 eluz2 8625 . . . . . . . . . 10  |-  ( N  e.  ( ZZ>= `  (
( N  -  K
)  +  1 ) )  <->  ( ( ( N  -  K )  +  1 )  e.  ZZ  /\  N  e.  ZZ  /\  ( ( N  -  K )  +  1 )  <_  N ) )
2615, 11, 24, 25syl3anbrc 1122 . . . . . . . . 9  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  N  e.  ( ZZ>= `  ( ( N  -  K )  +  1 ) ) )
2726adantrr 462 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N
)  /\  ( N  -  K )  e.  NN ) )  ->  N  e.  ( ZZ>= `  ( ( N  -  K )  +  1 ) ) )
28 cnex 7097 . . . . . . . . 9  |-  CC  e.  _V
2928a1i 9 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N
)  /\  ( N  -  K )  e.  NN ) )  ->  CC  e.  _V )
30 simprr 498 . . . . . . . . 9  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N
)  /\  ( N  -  K )  e.  NN ) )  ->  ( N  -  K )  e.  NN )
31 nnuz 8654 . . . . . . . . 9  |-  NN  =  ( ZZ>= `  1 )
3230, 31syl6eleq 2171 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N
)  /\  ( N  -  K )  e.  NN ) )  ->  ( N  -  K )  e.  ( ZZ>= `  1 )
)
33 vex 2604 . . . . . . . . . 10  |-  k  e. 
_V
34 fvi 5251 . . . . . . . . . 10  |-  ( k  e.  _V  ->  (  _I  `  k )  =  k )
3533, 34ax-mp 7 . . . . . . . . 9  |-  (  _I 
`  k )  =  k
36 eluzelcn 8630 . . . . . . . . . 10  |-  ( k  e.  ( ZZ>= `  1
)  ->  k  e.  CC )
3736adantl 271 . . . . . . . . 9  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N )  /\  ( N  -  K
)  e.  NN ) )  /\  k  e.  ( ZZ>= `  1 )
)  ->  k  e.  CC )
3835, 37syl5eqel 2165 . . . . . . . 8  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N )  /\  ( N  -  K
)  e.  NN ) )  /\  k  e.  ( ZZ>= `  1 )
)  ->  (  _I  `  k )  e.  CC )
395, 9, 27, 29, 32, 38iseqsplit 9458 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N
)  /\  ( N  -  K )  e.  NN ) )  ->  (  seq 1 (  x.  ,  _I  ,  CC ) `  N )  =  ( (  seq 1 (  x.  ,  _I  ,  CC ) `  ( N  -  K ) )  x.  (  seq (
( N  -  K
)  +  1 ) (  x.  ,  _I  ,  CC ) `  N
) ) )
40 elfzuz3 9042 . . . . . . . . . . 11  |-  ( K  e.  ( 0 ... N )  ->  N  e.  ( ZZ>= `  K )
)
4140adantl 271 . . . . . . . . . 10  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  N  e.  ( ZZ>= `  K )
)
42 eluznn 8687 . . . . . . . . . 10  |-  ( ( K  e.  NN  /\  N  e.  ( ZZ>= `  K ) )  ->  N  e.  NN )
4312, 41, 42syl2anc 403 . . . . . . . . 9  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  N  e.  NN )
4443adantrr 462 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N
)  /\  ( N  -  K )  e.  NN ) )  ->  N  e.  NN )
45 facnn 9654 . . . . . . . 8  |-  ( N  e.  NN  ->  ( ! `  N )  =  (  seq 1
(  x.  ,  _I  ,  CC ) `  N
) )
4644, 45syl 14 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N
)  /\  ( N  -  K )  e.  NN ) )  ->  ( ! `  N )  =  (  seq 1
(  x.  ,  _I  ,  CC ) `  N
) )
47 facnn 9654 . . . . . . . . 9  |-  ( ( N  -  K )  e.  NN  ->  ( ! `  ( N  -  K ) )  =  (  seq 1 (  x.  ,  _I  ,  CC ) `  ( N  -  K ) ) )
4830, 47syl 14 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N
)  /\  ( N  -  K )  e.  NN ) )  ->  ( ! `  ( N  -  K ) )  =  (  seq 1 (  x.  ,  _I  ,  CC ) `  ( N  -  K ) ) )
4948oveq1d 5547 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N
)  /\  ( N  -  K )  e.  NN ) )  ->  (
( ! `  ( N  -  K )
)  x.  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N ) )  =  ( (  seq 1
(  x.  ,  _I  ,  CC ) `  ( N  -  K )
)  x.  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N ) ) )
5039, 46, 493eqtr4d 2123 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  ( K  e.  ( 0 ... N
)  /\  ( N  -  K )  e.  NN ) )  ->  ( ! `  N )  =  ( ( ! `
 ( N  -  K ) )  x.  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N ) ) )
5150expr 367 . . . . 5  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ( N  -  K )  e.  NN  ->  ( ! `  N )  =  ( ( ! `  ( N  -  K )
)  x.  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N ) ) ) )
5210faccld 9663 . . . . . . . . 9  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ! `  N )  e.  NN )
5352nncnd 8053 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ! `  N )  e.  CC )
5453mulid2d 7137 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( 1  x.  ( ! `  N ) )  =  ( ! `  N
) )
5543, 45syl 14 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ! `  N )  =  (  seq 1 (  x.  ,  _I  ,  CC ) `  N )
)
5655oveq2d 5548 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( 1  x.  ( ! `  N ) )  =  ( 1  x.  (  seq 1 (  x.  ,  _I  ,  CC ) `  N ) ) )
5754, 56eqtr3d 2115 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ! `  N )  =  ( 1  x.  (  seq 1 (  x.  ,  _I  ,  CC ) `  N ) ) )
58 fveq2 5198 . . . . . . . . 9  |-  ( ( N  -  K )  =  0  ->  ( ! `  ( N  -  K ) )  =  ( ! `  0
) )
59 fac0 9655 . . . . . . . . 9  |-  ( ! `
 0 )  =  1
6058, 59syl6eq 2129 . . . . . . . 8  |-  ( ( N  -  K )  =  0  ->  ( ! `  ( N  -  K ) )  =  1 )
61 oveq1 5539 . . . . . . . . . . 11  |-  ( ( N  -  K )  =  0  ->  (
( N  -  K
)  +  1 )  =  ( 0  +  1 ) )
62 0p1e1 8153 . . . . . . . . . . 11  |-  ( 0  +  1 )  =  1
6361, 62syl6eq 2129 . . . . . . . . . 10  |-  ( ( N  -  K )  =  0  ->  (
( N  -  K
)  +  1 )  =  1 )
64 iseqeq1 9434 . . . . . . . . . 10  |-  ( ( ( N  -  K
)  +  1 )  =  1  ->  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC )  =  seq 1 (  x.  ,  _I  ,  CC ) )
6563, 64syl 14 . . . . . . . . 9  |-  ( ( N  -  K )  =  0  ->  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC )  =  seq 1 (  x.  ,  _I  ,  CC ) )
6665fveq1d 5200 . . . . . . . 8  |-  ( ( N  -  K )  =  0  ->  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N )  =  (  seq 1 (  x.  ,  _I  ,  CC ) `  N )
)
6760, 66oveq12d 5550 . . . . . . 7  |-  ( ( N  -  K )  =  0  ->  (
( ! `  ( N  -  K )
)  x.  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N ) )  =  ( 1  x.  (  seq 1 (  x.  ,  _I  ,  CC ) `  N ) ) )
6867eqeq2d 2092 . . . . . 6  |-  ( ( N  -  K )  =  0  ->  (
( ! `  N
)  =  ( ( ! `  ( N  -  K ) )  x.  (  seq (
( N  -  K
)  +  1 ) (  x.  ,  _I  ,  CC ) `  N
) )  <->  ( ! `  N )  =  ( 1  x.  (  seq 1 (  x.  ,  _I  ,  CC ) `  N ) ) ) )
6957, 68syl5ibrcom 155 . . . . 5  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ( N  -  K )  =  0  ->  ( ! `  N )  =  ( ( ! `
 ( N  -  K ) )  x.  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N ) ) ) )
70 fznn0sub 9075 . . . . . . 7  |-  ( K  e.  ( 0 ... N )  ->  ( N  -  K )  e.  NN0 )
7170adantl 271 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( N  -  K )  e.  NN0 )
72 elnn0 8290 . . . . . 6  |-  ( ( N  -  K )  e.  NN0  <->  ( ( N  -  K )  e.  NN  \/  ( N  -  K )  =  0 ) )
7371, 72sylib 120 . . . . 5  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ( N  -  K )  e.  NN  \/  ( N  -  K )  =  0 ) )
7451, 69, 73mpjaod 670 . . . 4  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ! `  N )  =  ( ( ! `  ( N  -  K )
)  x.  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N ) ) )
7574oveq1d 5547 . . 3  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ( ! `  N )  /  ( ( ! `
 ( N  -  K ) )  x.  ( ! `  K
) ) )  =  ( ( ( ! `
 ( N  -  K ) )  x.  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N ) )  /  ( ( ! `  ( N  -  K ) )  x.  ( ! `  K ) ) ) )
7628a1i 9 . . . . 5  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  CC  e.  _V )
77 vex 2604 . . . . . . 7  |-  f  e. 
_V
78 fvi 5251 . . . . . . 7  |-  ( f  e.  _V  ->  (  _I  `  f )  =  f )
7977, 78ax-mp 7 . . . . . 6  |-  (  _I 
`  f )  =  f
80 eluzelcn 8630 . . . . . . 7  |-  ( f  e.  ( ZZ>= `  (
( N  -  K
)  +  1 ) )  ->  f  e.  CC )
8180adantl 271 . . . . . 6  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N
) )  /\  f  e.  ( ZZ>= `  ( ( N  -  K )  +  1 ) ) )  ->  f  e.  CC )
8279, 81syl5eqel 2165 . . . . 5  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N
) )  /\  f  e.  ( ZZ>= `  ( ( N  -  K )  +  1 ) ) )  ->  (  _I  `  f )  e.  CC )
83 mulcl 7100 . . . . . 6  |-  ( ( f  e.  CC  /\  g  e.  CC )  ->  ( f  x.  g
)  e.  CC )
8483adantl 271 . . . . 5  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N
) )  /\  (
f  e.  CC  /\  g  e.  CC )
)  ->  ( f  x.  g )  e.  CC )
8526, 76, 82, 84iseqcl 9443 . . . 4  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N )  e.  CC )
8612nnnn0d 8341 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  K  e.  NN0 )
8786faccld 9663 . . . . 5  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ! `  K )  e.  NN )
8887nncnd 8053 . . . 4  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ! `  K )  e.  CC )
8971faccld 9663 . . . . 5  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ! `  ( N  -  K
) )  e.  NN )
9089nncnd 8053 . . . 4  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ! `  ( N  -  K
) )  e.  CC )
9187nnap0d 8084 . . . 4  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ! `  K ) #  0 )
9289nnap0d 8084 . . . 4  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( ! `  ( N  -  K
) ) #  0 )
9385, 88, 90, 91, 92divcanap5d 7903 . . 3  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( (
( ! `  ( N  -  K )
)  x.  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N ) )  / 
( ( ! `  ( N  -  K
) )  x.  ( ! `  K )
) )  =  ( (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N )  /  ( ! `  K ) ) )
942, 75, 933eqtrd 2117 . 2  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  K  e.  ( 0 ... N ) )  ->  ( N  _C  K )  =  ( (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N )  /  ( ! `  K ) ) )
95 simplr 496 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  K  e.  NN )
9695nnnn0d 8341 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  K  e.  NN0 )
9796faccld 9663 . . . . 5  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  ( ! `  K )  e.  NN )
9897nncnd 8053 . . . 4  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  ( ! `  K )  e.  CC )
9997nnap0d 8084 . . . 4  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  ( ! `  K ) #  0 )
10098, 99div0apd 7875 . . 3  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  (
0  /  ( ! `
 K ) )  =  0 )
101 mulcl 7100 . . . . . 6  |-  ( ( k  e.  CC  /\  x  e.  CC )  ->  ( k  x.  x
)  e.  CC )
102101adantl 271 . . . . 5  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  /\  (
k  e.  CC  /\  x  e.  CC )
)  ->  ( k  x.  x )  e.  CC )
103 eluzelcn 8630 . . . . . . 7  |-  ( k  e.  ( ZZ>= `  (
( N  -  K
)  +  1 ) )  ->  k  e.  CC )
104103adantl 271 . . . . . 6  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  /\  k  e.  ( ZZ>= `  ( ( N  -  K )  +  1 ) ) )  ->  k  e.  CC )
10535, 104syl5eqel 2165 . . . . 5  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  /\  k  e.  ( ZZ>= `  ( ( N  -  K )  +  1 ) ) )  ->  (  _I  `  k )  e.  CC )
10628a1i 9 . . . . 5  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  CC  e.  _V )
107 simpr 108 . . . . . 6  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  /\  k  e.  CC )  ->  k  e.  CC )
108107mul02d 7496 . . . . 5  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  /\  k  e.  CC )  ->  (
0  x.  k )  =  0 )
109107mul01d 7497 . . . . 5  |-  ( ( ( ( N  e. 
NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  /\  k  e.  CC )  ->  (
k  x.  0 )  =  0 )
110 simpr 108 . . . . . . . . 9  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  -.  K  e.  ( 0 ... N ) )
111 nn0uz 8653 . . . . . . . . . . . 12  |-  NN0  =  ( ZZ>= `  0 )
11296, 111syl6eleq 2171 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  K  e.  ( ZZ>= `  0 )
)
113 simpll 495 . . . . . . . . . . . 12  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  N  e.  NN0 )
114113nn0zd 8467 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  N  e.  ZZ )
115 elfz5 9037 . . . . . . . . . . 11  |-  ( ( K  e.  ( ZZ>= ` 
0 )  /\  N  e.  ZZ )  ->  ( K  e.  ( 0 ... N )  <->  K  <_  N ) )
116112, 114, 115syl2anc 403 . . . . . . . . . 10  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  ( K  e.  ( 0 ... N )  <->  K  <_  N ) )
117 nn0re 8297 . . . . . . . . . . . 12  |-  ( N  e.  NN0  ->  N  e.  RR )
118117ad2antrr 471 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  N  e.  RR )
119 nnre 8046 . . . . . . . . . . . 12  |-  ( K  e.  NN  ->  K  e.  RR )
120119ad2antlr 472 . . . . . . . . . . 11  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  K  e.  RR )
121118, 120subge0d 7635 . . . . . . . . . 10  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  (
0  <_  ( N  -  K )  <->  K  <_  N ) )
122116, 121bitr4d 189 . . . . . . . . 9  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  ( K  e.  ( 0 ... N )  <->  0  <_  ( N  -  K ) ) )
123110, 122mtbid 629 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  -.  0  <_  ( N  -  K ) )
124 simpl 107 . . . . . . . . . . . 12  |-  ( ( N  e.  NN0  /\  K  e.  NN )  ->  N  e.  NN0 )
125124nn0zd 8467 . . . . . . . . . . 11  |-  ( ( N  e.  NN0  /\  K  e.  NN )  ->  N  e.  ZZ )
126 simpr 108 . . . . . . . . . . . 12  |-  ( ( N  e.  NN0  /\  K  e.  NN )  ->  K  e.  NN )
127126nnzd 8468 . . . . . . . . . . 11  |-  ( ( N  e.  NN0  /\  K  e.  NN )  ->  K  e.  ZZ )
128125, 127zsubcld 8474 . . . . . . . . . 10  |-  ( ( N  e.  NN0  /\  K  e.  NN )  ->  ( N  -  K
)  e.  ZZ )
129128adantr 270 . . . . . . . . 9  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  ( N  -  K )  e.  ZZ )
130 0z 8362 . . . . . . . . 9  |-  0  e.  ZZ
131 zltnle 8397 . . . . . . . . 9  |-  ( ( ( N  -  K
)  e.  ZZ  /\  0  e.  ZZ )  ->  ( ( N  -  K )  <  0  <->  -.  0  <_  ( N  -  K ) ) )
132129, 130, 131sylancl 404 . . . . . . . 8  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  (
( N  -  K
)  <  0  <->  -.  0  <_  ( N  -  K
) ) )
133123, 132mpbird 165 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  ( N  -  K )  <  0 )
134 zltp1le 8405 . . . . . . . 8  |-  ( ( ( N  -  K
)  e.  ZZ  /\  0  e.  ZZ )  ->  ( ( N  -  K )  <  0  <->  ( ( N  -  K
)  +  1 )  <_  0 ) )
135129, 130, 134sylancl 404 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  (
( N  -  K
)  <  0  <->  ( ( N  -  K )  +  1 )  <_ 
0 ) )
136133, 135mpbid 145 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  (
( N  -  K
)  +  1 )  <_  0 )
137 nn0ge0 8313 . . . . . . 7  |-  ( N  e.  NN0  ->  0  <_  N )
138137ad2antrr 471 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  0  <_  N )
139 0zd 8363 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  0  e.  ZZ )
140129peano2zd 8472 . . . . . . 7  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  (
( N  -  K
)  +  1 )  e.  ZZ )
141 elfz 9035 . . . . . . 7  |-  ( ( 0  e.  ZZ  /\  ( ( N  -  K )  +  1 )  e.  ZZ  /\  N  e.  ZZ )  ->  ( 0  e.  ( ( ( N  -  K )  +  1 ) ... N )  <-> 
( ( ( N  -  K )  +  1 )  <_  0  /\  0  <_  N ) ) )
142139, 140, 114, 141syl3anc 1169 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  (
0  e.  ( ( ( N  -  K
)  +  1 ) ... N )  <->  ( (
( N  -  K
)  +  1 )  <_  0  /\  0  <_  N ) ) )
143136, 138, 142mpbir2and 885 . . . . 5  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  0  e.  ( ( ( N  -  K )  +  1 ) ... N
) )
144 elex 2610 . . . . . 6  |-  ( N  e.  NN0  ->  N  e. 
_V )
145144ad2antrr 471 . . . . 5  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  N  e.  _V )
146 0cn 7111 . . . . . 6  |-  0  e.  CC
147 fvi 5251 . . . . . 6  |-  ( 0  e.  CC  ->  (  _I  `  0 )  =  0 )
148146, 147mp1i 10 . . . . 5  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  (  _I  `  0 )  =  0 )
149102, 105, 106, 108, 109, 143, 145, 148iseqz 9469 . . . 4  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N )  =  0 )
150149oveq1d 5547 . . 3  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  (
(  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N )  /  ( ! `  K ) )  =  ( 0  /  ( ! `  K )
) )
151 nnz 8370 . . . . 5  |-  ( K  e.  NN  ->  K  e.  ZZ )
152 bcval3 9678 . . . . 5  |-  ( ( N  e.  NN0  /\  K  e.  ZZ  /\  -.  K  e.  ( 0 ... N ) )  ->  ( N  _C  K )  =  0 )
153151, 152syl3an2 1203 . . . 4  |-  ( ( N  e.  NN0  /\  K  e.  NN  /\  -.  K  e.  ( 0 ... N ) )  ->  ( N  _C  K )  =  0 )
1541533expa 1138 . . 3  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  ( N  _C  K )  =  0 )
155100, 150, 1543eqtr4rd 2124 . 2  |-  ( ( ( N  e.  NN0  /\  K  e.  NN )  /\  -.  K  e.  ( 0 ... N
) )  ->  ( N  _C  K )  =  ( (  seq (
( N  -  K
)  +  1 ) (  x.  ,  _I  ,  CC ) `  N
)  /  ( ! `
 K ) ) )
156 0zd 8363 . . . 4  |-  ( ( N  e.  NN0  /\  K  e.  NN )  ->  0  e.  ZZ )
157 fzdcel 9059 . . . 4  |-  ( ( K  e.  ZZ  /\  0  e.  ZZ  /\  N  e.  ZZ )  -> DECID  K  e.  (
0 ... N ) )
158127, 156, 125, 157syl3anc 1169 . . 3  |-  ( ( N  e.  NN0  /\  K  e.  NN )  -> DECID  K  e.  ( 0 ... N ) )
159 exmiddc 777 . . 3  |-  (DECID  K  e.  ( 0 ... N
)  ->  ( K  e.  ( 0 ... N
)  \/  -.  K  e.  ( 0 ... N
) ) )
160158, 159syl 14 . 2  |-  ( ( N  e.  NN0  /\  K  e.  NN )  ->  ( K  e.  ( 0 ... N )  \/  -.  K  e.  ( 0 ... N
) ) )
16194, 155, 160mpjaodan 744 1  |-  ( ( N  e.  NN0  /\  K  e.  NN )  ->  ( N  _C  K
)  =  ( (  seq ( ( N  -  K )  +  1 ) (  x.  ,  _I  ,  CC ) `  N )  /  ( ! `  K ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 102    <-> wb 103    \/ wo 661  DECID wdc 775    /\ w3a 919    = wceq 1284    e. wcel 1433   _Vcvv 2601   class class class wbr 3785    _I cid 4043   ` cfv 4922  (class class class)co 5532   CCcc 6979   RRcr 6980   0cc0 6981   1c1 6982    + caddc 6984    x. cmul 6986    < clt 7153    <_ cle 7154    - cmin 7279    / cdiv 7760   NNcn 8039   NN0cn0 8288   ZZcz 8351   ZZ>=cuz 8619   ...cfz 9029    seqcseq 9431   !cfa 9652    _C cbc 9674
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 104  ax-ia2 105  ax-ia3 106  ax-in1 576  ax-in2 577  ax-io 662  ax-5 1376  ax-7 1377  ax-gen 1378  ax-ie1 1422  ax-ie2 1423  ax-8 1435  ax-10 1436  ax-11 1437  ax-i12 1438  ax-bndl 1439  ax-4 1440  ax-13 1444  ax-14 1445  ax-17 1459  ax-i9 1463  ax-ial 1467  ax-i5r 1468  ax-ext 2063  ax-coll 3893  ax-sep 3896  ax-nul 3904  ax-pow 3948  ax-pr 3964  ax-un 4188  ax-setind 4280  ax-iinf 4329  ax-cnex 7067  ax-resscn 7068  ax-1cn 7069  ax-1re 7070  ax-icn 7071  ax-addcl 7072  ax-addrcl 7073  ax-mulcl 7074  ax-mulrcl 7075  ax-addcom 7076  ax-mulcom 7077  ax-addass 7078  ax-mulass 7079  ax-distr 7080  ax-i2m1 7081  ax-0lt1 7082  ax-1rid 7083  ax-0id 7084  ax-rnegex 7085  ax-precex 7086  ax-cnre 7087  ax-pre-ltirr 7088  ax-pre-ltwlin 7089  ax-pre-lttrn 7090  ax-pre-apti 7091  ax-pre-ltadd 7092  ax-pre-mulgt0 7093  ax-pre-mulext 7094
This theorem depends on definitions:  df-bi 115  df-dc 776  df-3or 920  df-3an 921  df-tru 1287  df-fal 1290  df-nf 1390  df-sb 1686  df-eu 1944  df-mo 1945  df-clab 2068  df-cleq 2074  df-clel 2077  df-nfc 2208  df-ne 2246  df-nel 2340  df-ral 2353  df-rex 2354  df-reu 2355  df-rmo 2356  df-rab 2357  df-v 2603  df-sbc 2816  df-csb 2909  df-dif 2975  df-un 2977  df-in 2979  df-ss 2986  df-nul 3252  df-if 3352  df-pw 3384  df-sn 3404  df-pr 3405  df-op 3407  df-uni 3602  df-int 3637  df-iun 3680  df-br 3786  df-opab 3840  df-mpt 3841  df-tr 3876  df-id 4048  df-po 4051  df-iso 4052  df-iord 4121  df-on 4123  df-suc 4126  df-iom 4332  df-xp 4369  df-rel 4370  df-cnv 4371  df-co 4372  df-dm 4373  df-rn 4374  df-res 4375  df-ima 4376  df-iota 4887  df-fun 4924  df-fn 4925  df-f 4926  df-f1 4927  df-fo 4928  df-f1o 4929  df-fv 4930  df-riota 5488  df-ov 5535  df-oprab 5536  df-mpt2 5537  df-1st 5787  df-2nd 5788  df-recs 5943  df-frec 6001  df-pnf 7155  df-mnf 7156  df-xr 7157  df-ltxr 7158  df-le 7159  df-sub 7281  df-neg 7282  df-reap 7675  df-ap 7682  df-div 7761  df-inn 8040  df-n0 8289  df-z 8352  df-uz 8620  df-q 8705  df-fz 9030  df-iseq 9432  df-fac 9653  df-bc 9675
This theorem is referenced by:  bcn2  9691
  Copyright terms: Public domain W3C validator