Metamath Proof Explorer


Theorem fallfacp1

Description: The value of the falling factorial at a successor. (Contributed by Scott Fenton, 5-Jan-2018)

Ref Expression
Assertion fallfacp1 A N 0 A N + 1 _ = A N _ A N

Proof

Step Hyp Ref Expression
1 nn0cn N 0 N
2 1 adantl A N 0 N
3 1cnd A N 0 1
4 2 3 pncand A N 0 N + 1 - 1 = N
5 4 oveq2d A N 0 0 N + 1 - 1 = 0 N
6 5 prodeq1d A N 0 k = 0 N + 1 - 1 A k = k = 0 N A k
7 elnn0uz N 0 N 0
8 7 bilani A N 0 N 0
9 elfznn0 k 0 N k 0
10 9 nn0cnd k 0 N k
11 subcl A k A k
12 10 11 sylan2 A k 0 N A k
13 12 adantlr A N 0 k 0 N A k
14 oveq2 k = N A k = A N
15 8 13 14 fprodm1 A N 0 k = 0 N A k = k = 0 N 1 A k A N
16 6 15 eqtrd A N 0 k = 0 N + 1 - 1 A k = k = 0 N 1 A k A N
17 peano2nn0 N 0 N + 1 0
18 fallfacval A N + 1 0 A N + 1 _ = k = 0 N + 1 - 1 A k
19 17 18 sylan2 A N 0 A N + 1 _ = k = 0 N + 1 - 1 A k
20 fallfacval A N 0 A N _ = k = 0 N 1 A k
21 20 oveq1d A N 0 A N _ A N = k = 0 N 1 A k A N
22 16 19 21 3eqtr4d A N 0 A N + 1 _ = A N _ A N