Metamath Proof Explorer


Theorem bcp1m1

Description: Compute the binomial coefficient of ( N + 1 ) over ( N - 1 ) (Contributed by Scott Fenton, 11-May-2014) (Revised by Mario Carneiro, 22-May-2014)

Ref Expression
Assertion bcp1m1 ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) C ( ๐‘ โˆ’ 1 ) ) = ( ( ( ๐‘ + 1 ) ยท ๐‘ ) / 2 ) )

Proof

Step Hyp Ref Expression
1 peano2nn0 โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ๐‘ + 1 ) โˆˆ โ„•0 )
2 nn0z โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ๐‘ โˆˆ โ„ค )
3 peano2zm โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ โ„ค )
4 2 3 syl โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ โ„ค )
5 bccmpl โŠข ( ( ( ๐‘ + 1 ) โˆˆ โ„•0 โˆง ( ๐‘ โˆ’ 1 ) โˆˆ โ„ค ) โ†’ ( ( ๐‘ + 1 ) C ( ๐‘ โˆ’ 1 ) ) = ( ( ๐‘ + 1 ) C ( ( ๐‘ + 1 ) โˆ’ ( ๐‘ โˆ’ 1 ) ) ) )
6 1 4 5 syl2anc โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) C ( ๐‘ โˆ’ 1 ) ) = ( ( ๐‘ + 1 ) C ( ( ๐‘ + 1 ) โˆ’ ( ๐‘ โˆ’ 1 ) ) ) )
7 nn0cn โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ๐‘ โˆˆ โ„‚ )
8 1cnd โŠข ( ๐‘ โˆˆ โ„•0 โ†’ 1 โˆˆ โ„‚ )
9 7 8 8 pnncand โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) โˆ’ ( ๐‘ โˆ’ 1 ) ) = ( 1 + 1 ) )
10 df-2 โŠข 2 = ( 1 + 1 )
11 9 10 eqtr4di โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) โˆ’ ( ๐‘ โˆ’ 1 ) ) = 2 )
12 11 oveq2d โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) C ( ( ๐‘ + 1 ) โˆ’ ( ๐‘ โˆ’ 1 ) ) ) = ( ( ๐‘ + 1 ) C 2 ) )
13 bcn2 โŠข ( ( ๐‘ + 1 ) โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) C 2 ) = ( ( ( ๐‘ + 1 ) ยท ( ( ๐‘ + 1 ) โˆ’ 1 ) ) / 2 ) )
14 1 13 syl โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) C 2 ) = ( ( ( ๐‘ + 1 ) ยท ( ( ๐‘ + 1 ) โˆ’ 1 ) ) / 2 ) )
15 ax-1cn โŠข 1 โˆˆ โ„‚
16 pncan โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚ ) โ†’ ( ( ๐‘ + 1 ) โˆ’ 1 ) = ๐‘ )
17 7 15 16 sylancl โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) โˆ’ 1 ) = ๐‘ )
18 17 oveq2d โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) ยท ( ( ๐‘ + 1 ) โˆ’ 1 ) ) = ( ( ๐‘ + 1 ) ยท ๐‘ ) )
19 18 oveq1d โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ( ๐‘ + 1 ) ยท ( ( ๐‘ + 1 ) โˆ’ 1 ) ) / 2 ) = ( ( ( ๐‘ + 1 ) ยท ๐‘ ) / 2 ) )
20 14 19 eqtrd โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) C 2 ) = ( ( ( ๐‘ + 1 ) ยท ๐‘ ) / 2 ) )
21 12 20 eqtrd โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) C ( ( ๐‘ + 1 ) โˆ’ ( ๐‘ โˆ’ 1 ) ) ) = ( ( ( ๐‘ + 1 ) ยท ๐‘ ) / 2 ) )
22 6 21 eqtrd โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( ๐‘ + 1 ) C ( ๐‘ โˆ’ 1 ) ) = ( ( ( ๐‘ + 1 ) ยท ๐‘ ) / 2 ) )