Metamath Proof Explorer


Theorem fallrisefac

Description: A relationship between falling and rising factorials. (Contributed by Scott Fenton, 17-Jan-2018)

Ref Expression
Assertion fallrisefac ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘‹ FallFac ๐‘ ) = ( ( - 1 โ†‘ ๐‘ ) ยท ( - ๐‘‹ RiseFac ๐‘ ) ) )

Proof

Step Hyp Ref Expression
1 nn0cn โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ๐‘ โˆˆ โ„‚ )
2 1 2timesd โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( 2 ยท ๐‘ ) = ( ๐‘ + ๐‘ ) )
3 2 oveq2d โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( - 1 โ†‘ ( 2 ยท ๐‘ ) ) = ( - 1 โ†‘ ( ๐‘ + ๐‘ ) ) )
4 nn0z โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ๐‘ โˆˆ โ„ค )
5 m1expeven โŠข ( ๐‘ โˆˆ โ„ค โ†’ ( - 1 โ†‘ ( 2 ยท ๐‘ ) ) = 1 )
6 4 5 syl โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( - 1 โ†‘ ( 2 ยท ๐‘ ) ) = 1 )
7 neg1cn โŠข - 1 โˆˆ โ„‚
8 expadd โŠข ( ( - 1 โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( - 1 โ†‘ ( ๐‘ + ๐‘ ) ) = ( ( - 1 โ†‘ ๐‘ ) ยท ( - 1 โ†‘ ๐‘ ) ) )
9 7 8 mp3an1 โŠข ( ( ๐‘ โˆˆ โ„•0 โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( - 1 โ†‘ ( ๐‘ + ๐‘ ) ) = ( ( - 1 โ†‘ ๐‘ ) ยท ( - 1 โ†‘ ๐‘ ) ) )
10 9 anidms โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( - 1 โ†‘ ( ๐‘ + ๐‘ ) ) = ( ( - 1 โ†‘ ๐‘ ) ยท ( - 1 โ†‘ ๐‘ ) ) )
11 3 6 10 3eqtr3rd โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( ( - 1 โ†‘ ๐‘ ) ยท ( - 1 โ†‘ ๐‘ ) ) = 1 )
12 11 adantl โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( - 1 โ†‘ ๐‘ ) ยท ( - 1 โ†‘ ๐‘ ) ) = 1 )
13 negneg โŠข ( ๐‘‹ โˆˆ โ„‚ โ†’ - - ๐‘‹ = ๐‘‹ )
14 13 adantr โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ - - ๐‘‹ = ๐‘‹ )
15 14 oveq1d โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( - - ๐‘‹ FallFac ๐‘ ) = ( ๐‘‹ FallFac ๐‘ ) )
16 12 15 oveq12d โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( ( - 1 โ†‘ ๐‘ ) ยท ( - 1 โ†‘ ๐‘ ) ) ยท ( - - ๐‘‹ FallFac ๐‘ ) ) = ( 1 ยท ( ๐‘‹ FallFac ๐‘ ) ) )
17 expcl โŠข ( ( - 1 โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( - 1 โ†‘ ๐‘ ) โˆˆ โ„‚ )
18 7 17 mpan โŠข ( ๐‘ โˆˆ โ„•0 โ†’ ( - 1 โ†‘ ๐‘ ) โˆˆ โ„‚ )
19 18 adantl โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( - 1 โ†‘ ๐‘ ) โˆˆ โ„‚ )
20 negcl โŠข ( ๐‘‹ โˆˆ โ„‚ โ†’ - ๐‘‹ โˆˆ โ„‚ )
21 20 negcld โŠข ( ๐‘‹ โˆˆ โ„‚ โ†’ - - ๐‘‹ โˆˆ โ„‚ )
22 fallfaccl โŠข ( ( - - ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( - - ๐‘‹ FallFac ๐‘ ) โˆˆ โ„‚ )
23 21 22 sylan โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( - - ๐‘‹ FallFac ๐‘ ) โˆˆ โ„‚ )
24 19 19 23 mulassd โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( ( - 1 โ†‘ ๐‘ ) ยท ( - 1 โ†‘ ๐‘ ) ) ยท ( - - ๐‘‹ FallFac ๐‘ ) ) = ( ( - 1 โ†‘ ๐‘ ) ยท ( ( - 1 โ†‘ ๐‘ ) ยท ( - - ๐‘‹ FallFac ๐‘ ) ) ) )
25 fallfaccl โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘‹ FallFac ๐‘ ) โˆˆ โ„‚ )
26 25 mullidd โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( 1 ยท ( ๐‘‹ FallFac ๐‘ ) ) = ( ๐‘‹ FallFac ๐‘ ) )
27 16 24 26 3eqtr3rd โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘‹ FallFac ๐‘ ) = ( ( - 1 โ†‘ ๐‘ ) ยท ( ( - 1 โ†‘ ๐‘ ) ยท ( - - ๐‘‹ FallFac ๐‘ ) ) ) )
28 risefallfac โŠข ( ( - ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( - ๐‘‹ RiseFac ๐‘ ) = ( ( - 1 โ†‘ ๐‘ ) ยท ( - - ๐‘‹ FallFac ๐‘ ) ) )
29 20 28 sylan โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( - ๐‘‹ RiseFac ๐‘ ) = ( ( - 1 โ†‘ ๐‘ ) ยท ( - - ๐‘‹ FallFac ๐‘ ) ) )
30 29 oveq2d โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ( - 1 โ†‘ ๐‘ ) ยท ( - ๐‘‹ RiseFac ๐‘ ) ) = ( ( - 1 โ†‘ ๐‘ ) ยท ( ( - 1 โ†‘ ๐‘ ) ยท ( - - ๐‘‹ FallFac ๐‘ ) ) ) )
31 27 30 eqtr4d โŠข ( ( ๐‘‹ โˆˆ โ„‚ โˆง ๐‘ โˆˆ โ„•0 ) โ†’ ( ๐‘‹ FallFac ๐‘ ) = ( ( - 1 โ†‘ ๐‘ ) ยท ( - ๐‘‹ RiseFac ๐‘ ) ) )