Metamath Proof Explorer


Theorem bcm1k

Description: The proportion of one binomial coefficient to another with K decreased by 1. (Contributed by Mario Carneiro, 10-Mar-2014)

Ref Expression
Assertion bcm1k ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ๐‘ C ๐พ ) = ( ( ๐‘ C ( ๐พ โˆ’ 1 ) ) ยท ( ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) / ๐พ ) ) )

Proof

Step Hyp Ref Expression
1 elfzuz2 โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ 1 ) )
2 nnuz โŠข โ„• = ( โ„คโ‰ฅ โ€˜ 1 )
3 1 2 eleqtrrdi โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐‘ โˆˆ โ„• )
4 3 nnnn0d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐‘ โˆˆ โ„•0 )
5 4 faccld โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ๐‘ ) โˆˆ โ„• )
6 5 nncnd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ๐‘ ) โˆˆ โ„‚ )
7 fznn0sub โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ๐‘ โˆ’ ๐พ ) โˆˆ โ„•0 )
8 nn0p1nn โŠข ( ( ๐‘ โˆ’ ๐พ ) โˆˆ โ„•0 โ†’ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) โˆˆ โ„• )
9 7 8 syl โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) โˆˆ โ„• )
10 9 nncnd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) โˆˆ โ„‚ )
11 9 nnnn0d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) โˆˆ โ„•0 )
12 11 faccld โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) โˆˆ โ„• )
13 elfznn โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐พ โˆˆ โ„• )
14 nnm1nn0 โŠข ( ๐พ โˆˆ โ„• โ†’ ( ๐พ โˆ’ 1 ) โˆˆ โ„•0 )
15 faccl โŠข ( ( ๐พ โˆ’ 1 ) โˆˆ โ„•0 โ†’ ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) โˆˆ โ„• )
16 13 14 15 3syl โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) โˆˆ โ„• )
17 12 16 nnmulcld โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โˆˆ โ„• )
18 nncn โŠข ( ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โˆˆ โ„• โ†’ ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โˆˆ โ„‚ )
19 nnne0 โŠข ( ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โˆˆ โ„• โ†’ ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โ‰  0 )
20 18 19 jca โŠข ( ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โˆˆ โ„• โ†’ ( ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โˆˆ โ„‚ โˆง ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โ‰  0 ) )
21 17 20 syl โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โˆˆ โ„‚ โˆง ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โ‰  0 ) )
22 13 nncnd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐พ โˆˆ โ„‚ )
23 13 nnne0d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐พ โ‰  0 )
24 22 23 jca โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ๐พ โˆˆ โ„‚ โˆง ๐พ โ‰  0 ) )
25 divmuldiv โŠข ( ( ( ( ! โ€˜ ๐‘ ) โˆˆ โ„‚ โˆง ( ( ๐‘ โˆ’ ๐พ ) + 1 ) โˆˆ โ„‚ ) โˆง ( ( ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โˆˆ โ„‚ โˆง ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) โ‰  0 ) โˆง ( ๐พ โˆˆ โ„‚ โˆง ๐พ โ‰  0 ) ) ) โ†’ ( ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ) ยท ( ( ( ๐‘ โˆ’ ๐พ ) + 1 ) / ๐พ ) ) = ( ( ( ! โ€˜ ๐‘ ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) / ( ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ยท ๐พ ) ) )
26 6 10 21 24 25 syl22anc โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ) ยท ( ( ( ๐‘ โˆ’ ๐พ ) + 1 ) / ๐พ ) ) = ( ( ( ! โ€˜ ๐‘ ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) / ( ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ยท ๐พ ) ) )
27 elfzel2 โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐‘ โˆˆ โ„ค )
28 27 zcnd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐‘ โˆˆ โ„‚ )
29 1cnd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ 1 โˆˆ โ„‚ )
30 28 22 29 subsubd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) = ( ( ๐‘ โˆ’ ๐พ ) + 1 ) )
31 30 fveq2d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) ) = ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) )
32 31 oveq1d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ! โ€˜ ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) = ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) )
33 32 oveq2d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ) = ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ) )
34 30 oveq1d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) / ๐พ ) = ( ( ( ๐‘ โˆ’ ๐พ ) + 1 ) / ๐พ ) )
35 33 34 oveq12d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ) ยท ( ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) / ๐พ ) ) = ( ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ) ยท ( ( ( ๐‘ โˆ’ ๐พ ) + 1 ) / ๐พ ) ) )
36 facp1 โŠข ( ( ๐‘ โˆ’ ๐พ ) โˆˆ โ„•0 โ†’ ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) = ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) )
37 7 36 syl โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) = ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) )
38 37 eqcomd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) = ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) )
39 facnn2 โŠข ( ๐พ โˆˆ โ„• โ†’ ( ! โ€˜ ๐พ ) = ( ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ยท ๐พ ) )
40 13 39 syl โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ๐พ ) = ( ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ยท ๐พ ) )
41 38 40 oveq12d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ๐พ ) ) = ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ยท ๐พ ) ) )
42 7 faccld โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) โˆˆ โ„• )
43 42 nncnd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) โˆˆ โ„‚ )
44 13 nnnn0d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐พ โˆˆ โ„•0 )
45 44 faccld โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ๐พ ) โˆˆ โ„• )
46 45 nncnd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ๐พ ) โˆˆ โ„‚ )
47 43 46 10 mul32d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) = ( ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ๐พ ) ) )
48 12 nncnd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) โˆˆ โ„‚ )
49 16 nncnd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) โˆˆ โ„‚ )
50 48 49 22 mulassd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ยท ๐พ ) = ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ยท ๐พ ) ) )
51 41 47 50 3eqtr4d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) = ( ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ยท ๐พ ) )
52 51 oveq2d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ! โ€˜ ๐‘ ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) / ( ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ) = ( ( ( ! โ€˜ ๐‘ ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) / ( ( ( ! โ€˜ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ยท ๐พ ) ) )
53 26 35 52 3eqtr4d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ) ยท ( ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) / ๐พ ) ) = ( ( ( ! โ€˜ ๐‘ ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) / ( ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ) )
54 6 10 mulcomd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ! โ€˜ ๐‘ ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) = ( ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ยท ( ! โ€˜ ๐‘ ) ) )
55 42 45 nnmulcld โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) โˆˆ โ„• )
56 55 nncnd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) โˆˆ โ„‚ )
57 56 10 mulcomd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) = ( ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ยท ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ) )
58 54 57 oveq12d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ! โ€˜ ๐‘ ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) / ( ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ยท ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ) ) = ( ( ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ยท ( ! โ€˜ ๐‘ ) ) / ( ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ยท ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ) ) )
59 55 nnne0d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) โ‰  0 )
60 9 nnne0d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ๐‘ โˆ’ ๐พ ) + 1 ) โ‰  0 )
61 6 56 10 59 60 divcan5d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ยท ( ! โ€˜ ๐‘ ) ) / ( ( ( ๐‘ โˆ’ ๐พ ) + 1 ) ยท ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ) ) = ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ) )
62 53 58 61 3eqtrrd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ) = ( ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ) ยท ( ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) / ๐พ ) ) )
63 fz1ssfz0 โŠข ( 1 ... ๐‘ ) โŠ† ( 0 ... ๐‘ )
64 63 sseli โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐พ โˆˆ ( 0 ... ๐‘ ) )
65 bcval2 โŠข ( ๐พ โˆˆ ( 0 ... ๐‘ ) โ†’ ( ๐‘ C ๐พ ) = ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ) )
66 64 65 syl โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ๐‘ C ๐พ ) = ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ๐‘ โˆ’ ๐พ ) ) ยท ( ! โ€˜ ๐พ ) ) ) )
67 ax-1cn โŠข 1 โˆˆ โ„‚
68 npcan โŠข ( ( ๐‘ โˆˆ โ„‚ โˆง 1 โˆˆ โ„‚ ) โ†’ ( ( ๐‘ โˆ’ 1 ) + 1 ) = ๐‘ )
69 28 67 68 sylancl โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ๐‘ โˆ’ 1 ) + 1 ) = ๐‘ )
70 peano2zm โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ โ„ค )
71 uzid โŠข ( ( ๐‘ โˆ’ 1 ) โˆˆ โ„ค โ†’ ( ๐‘ โˆ’ 1 ) โˆˆ ( โ„คโ‰ฅ โ€˜ ( ๐‘ โˆ’ 1 ) ) )
72 peano2uz โŠข ( ( ๐‘ โˆ’ 1 ) โˆˆ ( โ„คโ‰ฅ โ€˜ ( ๐‘ โˆ’ 1 ) ) โ†’ ( ( ๐‘ โˆ’ 1 ) + 1 ) โˆˆ ( โ„คโ‰ฅ โ€˜ ( ๐‘ โˆ’ 1 ) ) )
73 27 70 71 72 4syl โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ๐‘ โˆ’ 1 ) + 1 ) โˆˆ ( โ„คโ‰ฅ โ€˜ ( ๐‘ โˆ’ 1 ) ) )
74 69 73 eqeltrrd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ ( ๐‘ โˆ’ 1 ) ) )
75 fzss2 โŠข ( ๐‘ โˆˆ ( โ„คโ‰ฅ โ€˜ ( ๐‘ โˆ’ 1 ) ) โ†’ ( 0 ... ( ๐‘ โˆ’ 1 ) ) โŠ† ( 0 ... ๐‘ ) )
76 74 75 syl โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( 0 ... ( ๐‘ โˆ’ 1 ) ) โŠ† ( 0 ... ๐‘ ) )
77 elfzmlbm โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ๐พ โˆ’ 1 ) โˆˆ ( 0 ... ( ๐‘ โˆ’ 1 ) ) )
78 76 77 sseldd โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ๐พ โˆ’ 1 ) โˆˆ ( 0 ... ๐‘ ) )
79 bcval2 โŠข ( ( ๐พ โˆ’ 1 ) โˆˆ ( 0 ... ๐‘ ) โ†’ ( ๐‘ C ( ๐พ โˆ’ 1 ) ) = ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ) )
80 78 79 syl โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ๐‘ C ( ๐พ โˆ’ 1 ) ) = ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ) )
81 80 oveq1d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ( ๐‘ C ( ๐พ โˆ’ 1 ) ) ยท ( ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) / ๐พ ) ) = ( ( ( ! โ€˜ ๐‘ ) / ( ( ! โ€˜ ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) ) ยท ( ! โ€˜ ( ๐พ โˆ’ 1 ) ) ) ) ยท ( ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) / ๐พ ) ) )
82 62 66 81 3eqtr4d โŠข ( ๐พ โˆˆ ( 1 ... ๐‘ ) โ†’ ( ๐‘ C ๐พ ) = ( ( ๐‘ C ( ๐พ โˆ’ 1 ) ) ยท ( ( ๐‘ โˆ’ ( ๐พ โˆ’ 1 ) ) / ๐พ ) ) )