Proof of Theorem bcp1n
Step | Hyp | Ref
| Expression |
1 | | elfz3nn0 10071 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → 𝑁 ∈
ℕ0) |
2 | | facp1 10664 |
. . . . 5
⊢ (𝑁 ∈ ℕ0
→ (!‘(𝑁 + 1)) =
((!‘𝑁) ·
(𝑁 + 1))) |
3 | 1, 2 | syl 14 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1))) |
4 | | fznn0sub 10013 |
. . . . . . . 8
⊢ (𝐾 ∈ (0...𝑁) → (𝑁 − 𝐾) ∈
ℕ0) |
5 | | facp1 10664 |
. . . . . . . 8
⊢ ((𝑁 − 𝐾) ∈ ℕ0 →
(!‘((𝑁 − 𝐾) + 1)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 − 𝐾) + 1))) |
6 | 4, 5 | syl 14 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘((𝑁 − 𝐾) + 1)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 − 𝐾) + 1))) |
7 | 1 | nn0cnd 9190 |
. . . . . . . . 9
⊢ (𝐾 ∈ (0...𝑁) → 𝑁 ∈ ℂ) |
8 | | 1cnd 7936 |
. . . . . . . . 9
⊢ (𝐾 ∈ (0...𝑁) → 1 ∈ ℂ) |
9 | | elfznn0 10070 |
. . . . . . . . . 10
⊢ (𝐾 ∈ (0...𝑁) → 𝐾 ∈
ℕ0) |
10 | 9 | nn0cnd 9190 |
. . . . . . . . 9
⊢ (𝐾 ∈ (0...𝑁) → 𝐾 ∈ ℂ) |
11 | 7, 8, 10 | addsubd 8251 |
. . . . . . . 8
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) = ((𝑁 − 𝐾) + 1)) |
12 | 11 | fveq2d 5500 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘((𝑁 + 1) − 𝐾)) = (!‘((𝑁 − 𝐾) + 1))) |
13 | 11 | oveq2d 5869 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 − 𝐾) + 1))) |
14 | 6, 12, 13 | 3eqtr4d 2213 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → (!‘((𝑁 + 1) − 𝐾)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾))) |
15 | 14 | oveq1d 5868 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)) = (((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾)) · (!‘𝐾))) |
16 | 4 | faccld 10670 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘(𝑁 − 𝐾)) ∈ ℕ) |
17 | 16 | nncnd 8892 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → (!‘(𝑁 − 𝐾)) ∈ ℂ) |
18 | | nn0p1nn 9174 |
. . . . . . . . 9
⊢ ((𝑁 − 𝐾) ∈ ℕ0 → ((𝑁 − 𝐾) + 1) ∈ ℕ) |
19 | 4, 18 | syl 14 |
. . . . . . . 8
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 − 𝐾) + 1) ∈ ℕ) |
20 | 11, 19 | eqeltrd 2247 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) ∈ ℕ) |
21 | 20 | nncnd 8892 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) ∈ ℂ) |
22 | 9 | faccld 10670 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝐾) ∈ ℕ) |
23 | 22 | nncnd 8892 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝐾) ∈ ℂ) |
24 | 17, 21, 23 | mul32d 8072 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → (((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾)) · (!‘𝐾)) = (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾))) |
25 | 15, 24 | eqtrd 2203 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)) = (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾))) |
26 | 3, 25 | oveq12d 5871 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾))) = (((!‘𝑁) · (𝑁 + 1)) / (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾)))) |
27 | 1 | faccld 10670 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝑁) ∈ ℕ) |
28 | 27 | nncnd 8892 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝑁) ∈ ℂ) |
29 | 16, 22 | nnmulcld 8927 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 − 𝐾)) · (!‘𝐾)) ∈ ℕ) |
30 | 29 | nncnd 8892 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 − 𝐾)) · (!‘𝐾)) ∈ ℂ) |
31 | | nn0p1nn 9174 |
. . . . . 6
⊢ (𝑁 ∈ ℕ0
→ (𝑁 + 1) ∈
ℕ) |
32 | 1, 31 | syl 14 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → (𝑁 + 1) ∈ ℕ) |
33 | 32 | nncnd 8892 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → (𝑁 + 1) ∈ ℂ) |
34 | 29 | nnap0d 8924 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 − 𝐾)) · (!‘𝐾)) # 0) |
35 | 20 | nnap0d 8924 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) # 0) |
36 | 28, 30, 33, 21, 34, 35 | divmuldivapd 8749 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → (((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾))) = (((!‘𝑁) · (𝑁 + 1)) / (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾)))) |
37 | 26, 36 | eqtr4d 2206 |
. 2
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾))) = (((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾)))) |
38 | | fzelp1 10030 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → 𝐾 ∈ (0...(𝑁 + 1))) |
39 | | bcval2 10684 |
. . 3
⊢ (𝐾 ∈ (0...(𝑁 + 1)) → ((𝑁 + 1)C𝐾) = ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)))) |
40 | 38, 39 | syl 14 |
. 2
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1)C𝐾) = ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)))) |
41 | | bcval2 10684 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → (𝑁C𝐾) = ((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾)))) |
42 | 41 | oveq1d 5868 |
. 2
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁C𝐾) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾))) = (((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾)))) |
43 | 37, 40, 42 | 3eqtr4d 2213 |
1
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1)C𝐾) = ((𝑁C𝐾) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾)))) |