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

Theorem bcmono 16316
Description: The binomial coefficient is monotone in its second argument, up to the midway point. (Contributed by Mario Carneiro, 5-Mar-2014.)
Assertion
Ref Expression
bcmono  |-  ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  ->  ( N  _C  A )  <_ 
( N  _C  B
) )

Proof of Theorem bcmono
Dummy variables  x  k are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpl2 1032 . . 3  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  0  <_  A )  ->  B  e.  ( ZZ>= `  A )
)
2 simpl1 1031 . . 3  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  0  <_  A )  ->  N  e.  NN0 )
3 eluzel2 9943 . . . . . 6  |-  ( B  e.  ( ZZ>= `  A
)  ->  A  e.  ZZ )
433ad2ant2 1050 . . . . 5  |-  ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  ->  A  e.  ZZ )
54anim1i 340 . . . 4  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  0  <_  A )  ->  ( A  e.  ZZ  /\  0  <_  A ) )
6 elnn0z 9669 . . . 4  |-  ( A  e.  NN0  <->  ( A  e.  ZZ  /\  0  <_  A ) )
75, 6sylibr 134 . . 3  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  0  <_  A )  ->  A  e.  NN0 )
8 simpl3 1033 . . 3  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  0  <_  A )  ->  B  <_  ( N  /  2
) )
9 breq1 4134 . . . . . . 7  |-  ( x  =  A  ->  (
x  <_  ( N  /  2 )  <->  A  <_  ( N  /  2 ) ) )
10 oveq2 6096 . . . . . . . 8  |-  ( x  =  A  ->  ( N  _C  x )  =  ( N  _C  A
) )
1110breq2d 4143 . . . . . . 7  |-  ( x  =  A  ->  (
( N  _C  A
)  <_  ( N  _C  x )  <->  ( N  _C  A )  <_  ( N  _C  A ) ) )
129, 11imbi12d 234 . . . . . 6  |-  ( x  =  A  ->  (
( x  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  x ) )  <->  ( A  <_  ( N  /  2
)  ->  ( N  _C  A )  <_  ( N  _C  A ) ) ) )
1312imbi2d 230 . . . . 5  |-  ( x  =  A  ->  (
( ( N  e. 
NN0  /\  A  e.  NN0 )  ->  ( x  <_  ( N  /  2
)  ->  ( N  _C  A )  <_  ( N  _C  x ) ) )  <->  ( ( N  e.  NN0  /\  A  e. 
NN0 )  ->  ( A  <_  ( N  / 
2 )  ->  ( N  _C  A )  <_ 
( N  _C  A
) ) ) ) )
14 breq1 4134 . . . . . . 7  |-  ( x  =  k  ->  (
x  <_  ( N  /  2 )  <->  k  <_  ( N  /  2 ) ) )
15 oveq2 6096 . . . . . . . 8  |-  ( x  =  k  ->  ( N  _C  x )  =  ( N  _C  k
) )
1615breq2d 4143 . . . . . . 7  |-  ( x  =  k  ->  (
( N  _C  A
)  <_  ( N  _C  x )  <->  ( N  _C  A )  <_  ( N  _C  k ) ) )
1714, 16imbi12d 234 . . . . . 6  |-  ( x  =  k  ->  (
( x  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  x ) )  <->  ( k  <_  ( N  /  2
)  ->  ( N  _C  A )  <_  ( N  _C  k ) ) ) )
1817imbi2d 230 . . . . 5  |-  ( x  =  k  ->  (
( ( N  e. 
NN0  /\  A  e.  NN0 )  ->  ( x  <_  ( N  /  2
)  ->  ( N  _C  A )  <_  ( N  _C  x ) ) )  <->  ( ( N  e.  NN0  /\  A  e. 
NN0 )  ->  (
k  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  k ) ) ) ) )
19 breq1 4134 . . . . . . 7  |-  ( x  =  ( k  +  1 )  ->  (
x  <_  ( N  /  2 )  <->  ( k  +  1 )  <_ 
( N  /  2
) ) )
20 oveq2 6096 . . . . . . . 8  |-  ( x  =  ( k  +  1 )  ->  ( N  _C  x )  =  ( N  _C  (
k  +  1 ) ) )
2120breq2d 4143 . . . . . . 7  |-  ( x  =  ( k  +  1 )  ->  (
( N  _C  A
)  <_  ( N  _C  x )  <->  ( N  _C  A )  <_  ( N  _C  ( k  +  1 ) ) ) )
2219, 21imbi12d 234 . . . . . 6  |-  ( x  =  ( k  +  1 )  ->  (
( x  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  x ) )  <->  ( (
k  +  1 )  <_  ( N  / 
2 )  ->  ( N  _C  A )  <_ 
( N  _C  (
k  +  1 ) ) ) ) )
2322imbi2d 230 . . . . 5  |-  ( x  =  ( k  +  1 )  ->  (
( ( N  e. 
NN0  /\  A  e.  NN0 )  ->  ( x  <_  ( N  /  2
)  ->  ( N  _C  A )  <_  ( N  _C  x ) ) )  <->  ( ( N  e.  NN0  /\  A  e. 
NN0 )  ->  (
( k  +  1 )  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  ( k  +  1 ) ) ) ) ) )
24 breq1 4134 . . . . . . 7  |-  ( x  =  B  ->  (
x  <_  ( N  /  2 )  <->  B  <_  ( N  /  2 ) ) )
25 oveq2 6096 . . . . . . . 8  |-  ( x  =  B  ->  ( N  _C  x )  =  ( N  _C  B
) )
2625breq2d 4143 . . . . . . 7  |-  ( x  =  B  ->  (
( N  _C  A
)  <_  ( N  _C  x )  <->  ( N  _C  A )  <_  ( N  _C  B ) ) )
2724, 26imbi12d 234 . . . . . 6  |-  ( x  =  B  ->  (
( x  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  x ) )  <->  ( B  <_  ( N  /  2
)  ->  ( N  _C  A )  <_  ( N  _C  B ) ) ) )
2827imbi2d 230 . . . . 5  |-  ( x  =  B  ->  (
( ( N  e. 
NN0  /\  A  e.  NN0 )  ->  ( x  <_  ( N  /  2
)  ->  ( N  _C  A )  <_  ( N  _C  x ) ) )  <->  ( ( N  e.  NN0  /\  A  e. 
NN0 )  ->  ( B  <_  ( N  / 
2 )  ->  ( N  _C  A )  <_ 
( N  _C  B
) ) ) ) )
29 bccl 11228 . . . . . . . . . 10  |-  ( ( N  e.  NN0  /\  A  e.  ZZ )  ->  ( N  _C  A
)  e.  NN0 )
3029nn0red 9633 . . . . . . . . 9  |-  ( ( N  e.  NN0  /\  A  e.  ZZ )  ->  ( N  _C  A
)  e.  RR )
3130leidd 8850 . . . . . . . 8  |-  ( ( N  e.  NN0  /\  A  e.  ZZ )  ->  ( N  _C  A
)  <_  ( N  _C  A ) )
3231a1d 22 . . . . . . 7  |-  ( ( N  e.  NN0  /\  A  e.  ZZ )  ->  ( A  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  A ) ) )
3332expcom 116 . . . . . 6  |-  ( A  e.  ZZ  ->  ( N  e.  NN0  ->  ( A  <_  ( N  / 
2 )  ->  ( N  _C  A )  <_ 
( N  _C  A
) ) ) )
3433adantrd 279 . . . . 5  |-  ( A  e.  ZZ  ->  (
( N  e.  NN0  /\  A  e.  NN0 )  ->  ( A  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  A ) ) ) )
35 eluzelz 9948 . . . . . . . . . . . . 13  |-  ( k  e.  ( ZZ>= `  A
)  ->  k  e.  ZZ )
36353ad2ant1 1049 . . . . . . . . . . . 12  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  k  e.  ZZ )
3736zred 9780 . . . . . . . . . . 11  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  k  e.  RR )
3837lep1d 9270 . . . . . . . . . 10  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  k  <_  ( k  +  1 ) )
39 peano2re 8470 . . . . . . . . . . . 12  |-  ( k  e.  RR  ->  (
k  +  1 )  e.  RR )
4037, 39syl 14 . . . . . . . . . . 11  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  (
k  +  1 )  e.  RR )
41 nn0re 9584 . . . . . . . . . . . . 13  |-  ( N  e.  NN0  ->  N  e.  RR )
42413ad2ant2 1050 . . . . . . . . . . . 12  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  N  e.  RR )
4342rehalfcld 9564 . . . . . . . . . . 11  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  ( N  /  2 )  e.  RR )
44 letr 8415 . . . . . . . . . . 11  |-  ( ( k  e.  RR  /\  ( k  +  1 )  e.  RR  /\  ( N  /  2
)  e.  RR )  ->  ( ( k  <_  ( k  +  1 )  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
k  <_  ( N  /  2 ) ) )
4537, 40, 43, 44syl3anc 1278 . . . . . . . . . 10  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  (
( k  <_  (
k  +  1 )  /\  ( k  +  1 )  <_  ( N  /  2 ) )  ->  k  <_  ( N  /  2 ) ) )
4638, 45mpand 433 . . . . . . . . 9  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  (
( k  +  1 )  <_  ( N  /  2 )  -> 
k  <_  ( N  /  2 ) ) )
4746imim1d 75 . . . . . . . 8  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  (
( k  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  k ) )  -> 
( ( k  +  1 )  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  k ) ) ) )
48 eluznn0 10016 . . . . . . . . . . . . 13  |-  ( ( A  e.  NN0  /\  k  e.  ( ZZ>= `  A ) )  -> 
k  e.  NN0 )
49413ad2ant2 1050 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  ->  N  e.  RR )
50 nn0re 9584 . . . . . . . . . . . . . . . . . 18  |-  ( k  e.  NN0  ->  k  e.  RR )
51503ad2ant1 1049 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
k  e.  RR )
52 nn0p1nn 9614 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  NN0  ->  ( k  +  1 )  e.  NN )
53523ad2ant1 1049 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( k  +  1 )  e.  NN )
5453nnnn0d 9632 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( k  +  1 )  e.  NN0 )
5554nn0red 9633 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( k  +  1 )  e.  RR )
5653nncnd 9328 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( k  +  1 )  e.  CC )
57562timesd 9560 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( 2  x.  (
k  +  1 ) )  =  ( ( k  +  1 )  +  ( k  +  1 ) ) )
58 simp3 1030 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( k  +  1 )  <_  ( N  /  2 ) )
59 2re 9384 . . . . . . . . . . . . . . . . . . . . . 22  |-  2  e.  RR
60 2pos 9405 . . . . . . . . . . . . . . . . . . . . . 22  |-  0  <  2
6159, 60pm3.2i 272 . . . . . . . . . . . . . . . . . . . . 21  |-  ( 2  e.  RR  /\  0  <  2 )
6261a1i 9 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( 2  e.  RR  /\  0  <  2 ) )
63 lemuldiv2 9221 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( k  +  1 )  e.  RR  /\  N  e.  RR  /\  (
2  e.  RR  /\  0  <  2 ) )  ->  ( ( 2  x.  ( k  +  1 ) )  <_  N 
<->  ( k  +  1 )  <_  ( N  /  2 ) ) )
6455, 49, 62, 63syl3anc 1278 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( 2  x.  ( k  +  1 ) )  <_  N  <->  ( k  +  1 )  <_  ( N  / 
2 ) ) )
6558, 64mpbird 167 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( 2  x.  (
k  +  1 ) )  <_  N )
6657, 65eqbrtrrd 4155 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( k  +  1 )  +  ( k  +  1 ) )  <_  N )
6751lep1d 9270 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
k  <_  ( k  +  1 ) )
6849, 51, 55, 55, 66, 67lesub3d 8899 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( k  +  1 )  <_  ( N  -  k ) )
69 nnre 9321 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  +  1 )  e.  NN  ->  (
k  +  1 )  e.  RR )
70 nngt0 9339 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  +  1 )  e.  NN  ->  0  <  ( k  +  1 ) )
7169, 70jca 306 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  +  1 )  e.  NN  ->  (
( k  +  1 )  e.  RR  /\  0  <  ( k  +  1 ) ) )
7253, 71syl 14 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( k  +  1 )  e.  RR  /\  0  <  ( k  +  1 ) ) )
73 nn0z 9676 . . . . . . . . . . . . . . . . . . . . 21  |-  ( N  e.  NN0  ->  N  e.  ZZ )
74733ad2ant2 1050 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  ->  N  e.  ZZ )
75 nn0z 9676 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  NN0  ->  k  e.  ZZ )
76753ad2ant1 1049 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
k  e.  ZZ )
7774, 76zsubcld 9785 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  -  k
)  e.  ZZ )
7849rehalfcld 9564 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  /  2
)  e.  RR )
7949, 59jctir 313 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  e.  RR  /\  2  e.  RR ) )
80 nn0ge0 9600 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( N  e.  NN0  ->  0  <_  N )
81803ad2ant2 1050 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
0  <_  N )
82 1le2 9525 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  1  <_  2
8381, 82jctir 313 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( 0  <_  N  /\  1  <_  2 ) )
84 lemulge12 9206 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( N  e.  RR  /\  2  e.  RR )  /\  ( 0  <_  N  /\  1  <_  2
) )  ->  N  <_  ( 2  x.  N
) )
8579, 83, 84syl2anc 415 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  ->  N  <_  ( 2  x.  N ) )
86 ledivmul 9216 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( N  e.  RR  /\  N  e.  RR  /\  (
2  e.  RR  /\  0  <  2 ) )  ->  ( ( N  /  2 )  <_  N 
<->  N  <_  ( 2  x.  N ) ) )
8749, 49, 62, 86syl3anc 1278 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( N  / 
2 )  <_  N  <->  N  <_  ( 2  x.  N ) ) )
8885, 87mpbird 167 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  /  2
)  <_  N )
8955, 78, 49, 58, 88letrd 8458 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( k  +  1 )  <_  N )
90 1red 8348 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
1  e.  RR )
9151, 90, 49leaddsub2d 8883 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( k  +  1 )  <_  N  <->  1  <_  ( N  -  k ) ) )
9289, 91mpbid 147 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
1  <_  ( N  -  k ) )
93 elnnz1 9679 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  -  k )  e.  NN  <->  ( ( N  -  k )  e.  ZZ  /\  1  <_ 
( N  -  k
) ) )
9477, 92, 93sylanbrc 421 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  -  k
)  e.  NN )
95 nnre 9321 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  -  k )  e.  NN  ->  ( N  -  k )  e.  RR )
96 nngt0 9339 . . . . . . . . . . . . . . . . . . 19  |-  ( ( N  -  k )  e.  NN  ->  0  <  ( N  -  k
) )
9795, 96jca 306 . . . . . . . . . . . . . . . . . 18  |-  ( ( N  -  k )  e.  NN  ->  (
( N  -  k
)  e.  RR  /\  0  <  ( N  -  k ) ) )
9894, 97syl 14 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( N  -  k )  e.  RR  /\  0  <  ( N  -  k ) ) )
99 faccl 11196 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN0  ->  ( ! `
 N )  e.  NN )
100993ad2ant2 1050 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ! `  N
)  e.  NN )
101 nnm1nn0 9616 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( N  -  k )  e.  NN  ->  (
( N  -  k
)  -  1 )  e.  NN0 )
102 faccl 11196 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( N  -  k
)  -  1 )  e.  NN0  ->  ( ! `
 ( ( N  -  k )  - 
1 ) )  e.  NN )
10394, 101, 1023syl 17 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ! `  (
( N  -  k
)  -  1 ) )  e.  NN )
104 faccl 11196 . . . . . . . . . . . . . . . . . . . . 21  |-  ( k  e.  NN0  ->  ( ! `
 k )  e.  NN )
1051043ad2ant1 1049 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ! `  k
)  e.  NN )
106103, 105nnmulcld 9363 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k )
)  e.  NN )
107 nnrp 10082 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ! `  N )  e.  NN  ->  ( ! `  N )  e.  RR+ )
108 nnrp 10082 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ! `  (
( N  -  k
)  -  1 ) )  x.  ( ! `
 k ) )  e.  NN  ->  (
( ! `  (
( N  -  k
)  -  1 ) )  x.  ( ! `
 k ) )  e.  RR+ )
109 rpdivcl 10098 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ! `  N
)  e.  RR+  /\  (
( ! `  (
( N  -  k
)  -  1 ) )  x.  ( ! `
 k ) )  e.  RR+ )  ->  (
( ! `  N
)  /  ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k ) ) )  e.  RR+ )
110107, 108, 109syl2an 289 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ! `  N
)  e.  NN  /\  ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k )
)  e.  NN )  ->  ( ( ! `
 N )  / 
( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k )
) )  e.  RR+ )
111100, 106, 110syl2anc 415 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ! `  N )  /  (
( ! `  (
( N  -  k
)  -  1 ) )  x.  ( ! `
 k ) ) )  e.  RR+ )
112111rpregt0d 10122 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ( ! `
 N )  / 
( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k )
) )  e.  RR  /\  0  <  ( ( ! `  N )  /  ( ( ! `
 ( ( N  -  k )  - 
1 ) )  x.  ( ! `  k
) ) ) ) )
113 lediv2 9230 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( k  +  1 )  e.  RR  /\  0  <  ( k  +  1 ) )  /\  ( ( N  -  k )  e.  RR  /\  0  < 
( N  -  k
) )  /\  (
( ( ! `  N )  /  (
( ! `  (
( N  -  k
)  -  1 ) )  x.  ( ! `
 k ) ) )  e.  RR  /\  0  <  ( ( ! `
 N )  / 
( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k )
) ) ) )  ->  ( ( k  +  1 )  <_ 
( N  -  k
)  <->  ( ( ( ! `  N )  /  ( ( ! `
 ( ( N  -  k )  - 
1 ) )  x.  ( ! `  k
) ) )  / 
( N  -  k
) )  <_  (
( ( ! `  N )  /  (
( ! `  (
( N  -  k
)  -  1 ) )  x.  ( ! `
 k ) ) )  /  ( k  +  1 ) ) ) )
11472, 98, 112, 113syl3anc 1278 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( k  +  1 )  <_  ( N  -  k )  <->  ( ( ( ! `  N )  /  (
( ! `  (
( N  -  k
)  -  1 ) )  x.  ( ! `
 k ) ) )  /  ( N  -  k ) )  <_  ( ( ( ! `  N )  /  ( ( ! `
 ( ( N  -  k )  - 
1 ) )  x.  ( ! `  k
) ) )  / 
( k  +  1 ) ) ) )
11568, 114mpbid 147 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ( ! `
 N )  / 
( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k )
) )  /  ( N  -  k )
)  <_  ( (
( ! `  N
)  /  ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k ) ) )  /  ( k  +  1 ) ) )
116 facnn2 11195 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( N  -  k )  e.  NN  ->  ( ! `  ( N  -  k ) )  =  ( ( ! `
 ( ( N  -  k )  - 
1 ) )  x.  ( N  -  k
) ) )
11794, 116syl 14 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ! `  ( N  -  k )
)  =  ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( N  -  k ) ) )
118117oveq1d 6103 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ! `  ( N  -  k
) )  x.  ( ! `  k )
)  =  ( ( ( ! `  (
( N  -  k
)  -  1 ) )  x.  ( N  -  k ) )  x.  ( ! `  k ) ) )
119103nncnd 9328 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ! `  (
( N  -  k
)  -  1 ) )  e.  CC )
120105nncnd 9328 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ! `  k
)  e.  CC )
12177zcnd 9781 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  -  k
)  e.  CC )
122119, 120, 121mul32d 8487 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ( ! `
 ( ( N  -  k )  - 
1 ) )  x.  ( ! `  k
) )  x.  ( N  -  k )
)  =  ( ( ( ! `  (
( N  -  k
)  -  1 ) )  x.  ( N  -  k ) )  x.  ( ! `  k ) ) )
123118, 122eqtr4d 2274 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ! `  ( N  -  k
) )  x.  ( ! `  k )
)  =  ( ( ( ! `  (
( N  -  k
)  -  1 ) )  x.  ( ! `
 k ) )  x.  ( N  -  k ) ) )
124123oveq2d 6104 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ! `  N )  /  (
( ! `  ( N  -  k )
)  x.  ( ! `
 k ) ) )  =  ( ( ! `  N )  /  ( ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k ) )  x.  ( N  -  k
) ) ) )
125 0zd 9668 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
0  e.  ZZ )
126 nn0ge0 9600 . . . . . . . . . . . . . . . . . . 19  |-  ( k  e.  NN0  ->  0  <_ 
k )
1271263ad2ant1 1049 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
0  <_  k )
12851, 55, 49, 67, 89letrd 8458 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
k  <_  N )
129125, 74, 76, 127, 128elfzd 10437 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
k  e.  ( 0 ... N ) )
130 bcval2 11211 . . . . . . . . . . . . . . . . 17  |-  ( k  e.  ( 0 ... N )  ->  ( N  _C  k )  =  ( ( ! `  N )  /  (
( ! `  ( N  -  k )
)  x.  ( ! `
 k ) ) ) )
131129, 130syl 14 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  _C  k
)  =  ( ( ! `  N )  /  ( ( ! `
 ( N  -  k ) )  x.  ( ! `  k
) ) ) )
132100nncnd 9328 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ! `  N
)  e.  CC )
133106nncnd 9328 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k )
)  e.  CC )
134106nnap0d 9360 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k )
) #  0 )
13594nnap0d 9360 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  -  k
) #  0 )
136132, 133, 121, 134, 135divdivap1d 9161 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ( ! `
 N )  / 
( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k )
) )  /  ( N  -  k )
)  =  ( ( ! `  N )  /  ( ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k ) )  x.  ( N  -  k
) ) ) )
137124, 131, 1363eqtr4d 2281 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  _C  k
)  =  ( ( ( ! `  N
)  /  ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k ) ) )  /  ( N  -  k ) ) )
138 nn0cn 9585 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( N  e.  NN0  ->  N  e.  CC )
1391383ad2ant2 1050 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  ->  N  e.  CC )
140 nn0cn 9585 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( k  e.  NN0  ->  k  e.  CC )
1411403ad2ant1 1049 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
k  e.  CC )
142 1cnd 8349 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
1  e.  CC )
143139, 141, 142subsub4d 8676 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( N  -  k )  -  1 )  =  ( N  -  ( k  +  1 ) ) )
144143eqcomd 2244 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  -  (
k  +  1 ) )  =  ( ( N  -  k )  -  1 ) )
145144fveq2d 5702 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ! `  ( N  -  ( k  +  1 ) ) )  =  ( ! `
 ( ( N  -  k )  - 
1 ) ) )
146 facp1 11191 . . . . . . . . . . . . . . . . . . . 20  |-  ( k  e.  NN0  ->  ( ! `
 ( k  +  1 ) )  =  ( ( ! `  k )  x.  (
k  +  1 ) ) )
1471463ad2ant1 1049 . . . . . . . . . . . . . . . . . . 19  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ! `  (
k  +  1 ) )  =  ( ( ! `  k )  x.  ( k  +  1 ) ) )
148145, 147oveq12d 6106 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ! `  ( N  -  (
k  +  1 ) ) )  x.  ( ! `  ( k  +  1 ) ) )  =  ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ( ! `
 k )  x.  ( k  +  1 ) ) ) )
149119, 120, 56mulassd 8356 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ( ! `
 ( ( N  -  k )  - 
1 ) )  x.  ( ! `  k
) )  x.  (
k  +  1 ) )  =  ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ( ! `
 k )  x.  ( k  +  1 ) ) ) )
150148, 149eqtr4d 2274 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ! `  ( N  -  (
k  +  1 ) ) )  x.  ( ! `  ( k  +  1 ) ) )  =  ( ( ( ! `  (
( N  -  k
)  -  1 ) )  x.  ( ! `
 k ) )  x.  ( k  +  1 ) ) )
151150oveq2d 6104 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ! `  N )  /  (
( ! `  ( N  -  ( k  +  1 ) ) )  x.  ( ! `
 ( k  +  1 ) ) ) )  =  ( ( ! `  N )  /  ( ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k ) )  x.  ( k  +  1 ) ) ) )
15253nnzd 9779 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( k  +  1 )  e.  ZZ )
15354nn0ge0d 9635 . . . . . . . . . . . . . . . . . 18  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
0  <_  ( k  +  1 ) )
154125, 74, 152, 153, 89elfzd 10437 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( k  +  1 )  e.  ( 0 ... N ) )
155 bcval2 11211 . . . . . . . . . . . . . . . . 17  |-  ( ( k  +  1 )  e.  ( 0 ... N )  ->  ( N  _C  ( k  +  1 ) )  =  ( ( ! `  N )  /  (
( ! `  ( N  -  ( k  +  1 ) ) )  x.  ( ! `
 ( k  +  1 ) ) ) ) )
156154, 155syl 14 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  _C  (
k  +  1 ) )  =  ( ( ! `  N )  /  ( ( ! `
 ( N  -  ( k  +  1 ) ) )  x.  ( ! `  (
k  +  1 ) ) ) ) )
15753nnap0d 9360 . . . . . . . . . . . . . . . . 17  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( k  +  1 ) #  0 )
158132, 133, 56, 134, 157divdivap1d 9161 . . . . . . . . . . . . . . . 16  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( ( ( ! `
 N )  / 
( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k )
) )  /  (
k  +  1 ) )  =  ( ( ! `  N )  /  ( ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k ) )  x.  ( k  +  1 ) ) ) )
159151, 156, 1583eqtr4d 2281 . . . . . . . . . . . . . . 15  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  _C  (
k  +  1 ) )  =  ( ( ( ! `  N
)  /  ( ( ! `  ( ( N  -  k )  -  1 ) )  x.  ( ! `  k ) ) )  /  ( k  +  1 ) ) )
160115, 137, 1593brtr4d 4163 . . . . . . . . . . . . . 14  |-  ( ( k  e.  NN0  /\  N  e.  NN0  /\  (
k  +  1 )  <_  ( N  / 
2 ) )  -> 
( N  _C  k
)  <_  ( N  _C  ( k  +  1 ) ) )
1611603exp 1233 . . . . . . . . . . . . 13  |-  ( k  e.  NN0  ->  ( N  e.  NN0  ->  ( ( k  +  1 )  <_  ( N  / 
2 )  ->  ( N  _C  k )  <_ 
( N  _C  (
k  +  1 ) ) ) ) )
16248, 161syl 14 . . . . . . . . . . . 12  |-  ( ( A  e.  NN0  /\  k  e.  ( ZZ>= `  A ) )  -> 
( N  e.  NN0  ->  ( ( k  +  1 )  <_  ( N  /  2 )  -> 
( N  _C  k
)  <_  ( N  _C  ( k  +  1 ) ) ) ) )
1631623impia 1231 . . . . . . . . . . 11  |-  ( ( A  e.  NN0  /\  k  e.  ( ZZ>= `  A )  /\  N  e.  NN0 )  ->  (
( k  +  1 )  <_  ( N  /  2 )  -> 
( N  _C  k
)  <_  ( N  _C  ( k  +  1 ) ) ) )
1641633coml 1241 . . . . . . . . . 10  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  (
( k  +  1 )  <_  ( N  /  2 )  -> 
( N  _C  k
)  <_  ( N  _C  ( k  +  1 ) ) ) )
165 simp2 1029 . . . . . . . . . . . . . 14  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  N  e.  NN0 )
166 nn0z 9676 . . . . . . . . . . . . . . 15  |-  ( A  e.  NN0  ->  A  e.  ZZ )
1671663ad2ant3 1051 . . . . . . . . . . . . . 14  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  A  e.  ZZ )
168165, 167, 29syl2anc 415 . . . . . . . . . . . . 13  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  ( N  _C  A )  e. 
NN0 )
169168nn0red 9633 . . . . . . . . . . . 12  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  ( N  _C  A )  e.  RR )
170 bccl 11228 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN0  /\  k  e.  ZZ )  ->  ( N  _C  k
)  e.  NN0 )
171165, 36, 170syl2anc 415 . . . . . . . . . . . . 13  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  ( N  _C  k )  e. 
NN0 )
172171nn0red 9633 . . . . . . . . . . . 12  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  ( N  _C  k )  e.  RR )
17336peano2zd 9783 . . . . . . . . . . . . . 14  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  (
k  +  1 )  e.  ZZ )
174 bccl 11228 . . . . . . . . . . . . . 14  |-  ( ( N  e.  NN0  /\  ( k  +  1 )  e.  ZZ )  ->  ( N  _C  ( k  +  1 ) )  e.  NN0 )
175165, 173, 174syl2anc 415 . . . . . . . . . . . . 13  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  ( N  _C  ( k  +  1 ) )  e. 
NN0 )
176175nn0red 9633 . . . . . . . . . . . 12  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  ( N  _C  ( k  +  1 ) )  e.  RR )
177 letr 8415 . . . . . . . . . . . 12  |-  ( ( ( N  _C  A
)  e.  RR  /\  ( N  _C  k
)  e.  RR  /\  ( N  _C  (
k  +  1 ) )  e.  RR )  ->  ( ( ( N  _C  A )  <_  ( N  _C  k )  /\  ( N  _C  k )  <_ 
( N  _C  (
k  +  1 ) ) )  ->  ( N  _C  A )  <_ 
( N  _C  (
k  +  1 ) ) ) )
178169, 172, 176, 177syl3anc 1278 . . . . . . . . . . 11  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  (
( ( N  _C  A )  <_  ( N  _C  k )  /\  ( N  _C  k
)  <_  ( N  _C  ( k  +  1 ) ) )  -> 
( N  _C  A
)  <_  ( N  _C  ( k  +  1 ) ) ) )
179178expcomd 1491 . . . . . . . . . 10  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  (
( N  _C  k
)  <_  ( N  _C  ( k  +  1 ) )  ->  (
( N  _C  A
)  <_  ( N  _C  k )  ->  ( N  _C  A )  <_ 
( N  _C  (
k  +  1 ) ) ) ) )
180164, 179syld 45 . . . . . . . . 9  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  (
( k  +  1 )  <_  ( N  /  2 )  -> 
( ( N  _C  A )  <_  ( N  _C  k )  -> 
( N  _C  A
)  <_  ( N  _C  ( k  +  1 ) ) ) ) )
181180a2d 26 . . . . . . . 8  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  (
( ( k  +  1 )  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  k ) )  -> 
( ( k  +  1 )  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  ( k  +  1 ) ) ) ) )
18247, 181syld 45 . . . . . . 7  |-  ( ( k  e.  ( ZZ>= `  A )  /\  N  e.  NN0  /\  A  e. 
NN0 )  ->  (
( k  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  k ) )  -> 
( ( k  +  1 )  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  ( k  +  1 ) ) ) ) )
1831823expib 1237 . . . . . 6  |-  ( k  e.  ( ZZ>= `  A
)  ->  ( ( N  e.  NN0  /\  A  e.  NN0 )  ->  (
( k  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  k ) )  -> 
( ( k  +  1 )  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  ( k  +  1 ) ) ) ) ) )
184183a2d 26 . . . . 5  |-  ( k  e.  ( ZZ>= `  A
)  ->  ( (
( N  e.  NN0  /\  A  e.  NN0 )  ->  ( k  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  k ) ) )  ->  ( ( N  e.  NN0  /\  A  e. 
NN0 )  ->  (
( k  +  1 )  <_  ( N  /  2 )  -> 
( N  _C  A
)  <_  ( N  _C  ( k  +  1 ) ) ) ) ) )
18513, 18, 23, 28, 34, 184uzind4 10005 . . . 4  |-  ( B  e.  ( ZZ>= `  A
)  ->  ( ( N  e.  NN0  /\  A  e.  NN0 )  ->  ( B  <_  ( N  / 
2 )  ->  ( N  _C  A )  <_ 
( N  _C  B
) ) ) )
1861853imp 1224 . . 3  |-  ( ( B  e.  ( ZZ>= `  A )  /\  ( N  e.  NN0  /\  A  e.  NN0 )  /\  B  <_  ( N  /  2
) )  ->  ( N  _C  A )  <_ 
( N  _C  B
) )
1871, 2, 7, 8, 186syl121anc 1283 . 2  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  0  <_  A )  ->  ( N  _C  A )  <_ 
( N  _C  B
) )
188 simpl1 1031 . . . 4  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  A  <  0 )  ->  N  e.  NN0 )
1894adantr 276 . . . 4  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  A  <  0 )  ->  A  e.  ZZ )
190 animorrl 838 . . . 4  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  A  <  0 )  ->  ( A  <  0  \/  N  <  A ) )
191 bcval4 11213 . . . 4  |-  ( ( N  e.  NN0  /\  A  e.  ZZ  /\  ( A  <  0  \/  N  <  A ) )  -> 
( N  _C  A
)  =  0 )
192188, 189, 190, 191syl3anc 1278 . . 3  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  A  <  0 )  ->  ( N  _C  A )  =  0 )
193 simpl2 1032 . . . . . 6  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  A  <  0 )  ->  B  e.  ( ZZ>= `  A )
)
194 eluzelz 9948 . . . . . 6  |-  ( B  e.  ( ZZ>= `  A
)  ->  B  e.  ZZ )
195193, 194syl 14 . . . . 5  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  A  <  0 )  ->  B  e.  ZZ )
196 bccl 11228 . . . . 5  |-  ( ( N  e.  NN0  /\  B  e.  ZZ )  ->  ( N  _C  B
)  e.  NN0 )
197188, 195, 196syl2anc 415 . . . 4  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  A  <  0 )  ->  ( N  _C  B )  e. 
NN0 )
198197nn0ge0d 9635 . . 3  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  A  <  0 )  ->  0  <_  ( N  _C  B
) )
199192, 198eqbrtrd 4153 . 2  |-  ( ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  /\  A  <  0 )  ->  ( N  _C  A )  <_ 
( N  _C  B
) )
200 0z 9667 . . 3  |-  0  e.  ZZ
201 zlelttric 9701 . . 3  |-  ( ( 0  e.  ZZ  /\  A  e.  ZZ )  ->  ( 0  <_  A  \/  A  <  0
) )
202200, 4, 201sylancr 418 . 2  |-  ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  ->  (
0  <_  A  \/  A  <  0 ) )
203187, 199, 202mpjaodan 810 1  |-  ( ( N  e.  NN0  /\  B  e.  ( ZZ>= `  A )  /\  B  <_  ( N  /  2
) )  ->  ( N  _C  A )  <_ 
( N  _C  B
) )
Colors of variables:    wff set class
This proof depends on syntax axioms:    -> wi 4    /\ wa 104    <-> wb 105    \/ wo 720    /\ w3a 1009    = wceq 1402    e. wcel 2209   class class class wbr 4131   ` cfv 5380  (class class class)co 6088   CCcc 8184   RRcr 8185   0cc0 8186   1c1 8187    + caddc 8189    x. cmul 8191    < clt 8367    <_ cle 8368    - cmin 8505    / cdiv 9011   NNcn 9314   2c2 9365   NN0cn0 9575   ZZcz 9656   ZZ>=cuz 9938   RR+crp 10072   ...cfz 10429   !cfa 11186    _C cbc 11208
This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 623  ax-in2 624  ax-io 721  ax-5 1500  ax-7 1501  ax-gen 1502  ax-ie1 1546  ax-ie2 1547  ax-8 1557  ax-10 1558  ax-11 1559  ax-i12 1560  ax-bndl 1562  ax-4 1563  ax-17 1579  ax-i9 1583  ax-ial 1587  ax-i5r 1588  ax-14 2212  ax-ext 2220  ax-coll 4248  ax-sep 4251  ax-nul 4261  ax-pow 4313  ax-pr 4348  ax-un 4580  ax-setind 4686  ax-iinf 4737  ax-cnex 8277  ax-resscn 8278  ax-1cn 8279  ax-1re 8280  ax-icn 8281  ax-addcl 8282  ax-addrcl 8283  ax-mulcl 8284  ax-mulrcl 8285  ax-addcom 8286  ax-mulcom 8287  ax-addass 8288  ax-mulass 8289  ax-distr 8290  ax-i2m1 8291  ax-0lt1 8292  ax-1rid 8293  ax-0id 8294  ax-rnegex 8295  ax-precex 8296  ax-cnre 8297  ax-pre-ltirr 8298  ax-pre-ltwlin 8299  ax-pre-lttrn 8300  ax-pre-apti 8301  ax-pre-ltadd 8302  ax-pre-mulgt0 8303  ax-pre-mulext 8304
This proof depends on definitions:  df-bi 117  df-dc 847  df-3or 1010  df-3an 1011  df-tru 1405  df-fal 1408  df-nf 1514  df-sb 1816  df-eu 2089  df-mo 2090  df-clab 2225  df-cleq 2231  df-clel 2234  df-nfc 2381  df-ne 2421  df-nel 2516  df-ral 2533  df-rex 2534  df-reu 2535  df-rmo 2536  df-rab 2537  df-v 2823  df-sbc 3052  df-csb 3148  df-dif 3222  df-un 3224  df-in 3226  df-ss 3233  df-nul 3521  df-if 3639  df-pw 3690  df-sn 3715  df-pr 3716  df-op 3718  df-uni 3936  df-int 3971  df-iun 4014  df-br 4132  df-opab 4194  df-mpt 4195  df-tr 4232  df-id 4440  df-po 4443  df-iso 4444  df-iord 4513  df-on 4515  df-ilim 4516  df-suc 4518  df-iom 4740  df-xp 4782  df-rel 4783  df-cnv 4784  df-co 4785  df-dm 4786  df-rn 4787  df-res 4788  df-ima 4789  df-iota 5340  df-fun 5382  df-fn 5383  df-f 5384  df-f1 5385  df-fo 5386  df-f1o 5387  df-fv 5388  df-riota 6041  df-ov 6091  df-oprab 6092  df-mpo 6093  df-1st 6378  df-2nd 6379  df-recs 6580  df-frec 6666  df-pnf 8369  df-mnf 8370  df-xr 8371  df-ltxr 8372  df-le 8373  df-sub 8507  df-neg 8508  df-reap 8912  df-ap 8919  df-div 9012  df-inn 9315  df-2 9373  df-n0 9576  df-z 9657  df-uz 9939  df-q 10037  df-rp 10073  df-fz 10430  df-seqfrec 10907  df-fac 11187  df-bc 11209
This theorem is used by:  bcmax  16317
  Copyright terms: Public domain W3C validator