Proof of Theorem bcp1n
| Step | Hyp | Ref
| Expression |
| 1 | | elfz3nn0 10190 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → 𝑁 ∈
ℕ0) |
| 2 | | facp1 10822 |
. . . . 5
⊢ (𝑁 ∈ ℕ0
→ (!‘(𝑁 + 1)) =
((!‘𝑁) ·
(𝑁 + 1))) |
| 3 | 1, 2 | syl 14 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1))) |
| 4 | | fznn0sub 10132 |
. . . . . . . 8
⊢ (𝐾 ∈ (0...𝑁) → (𝑁 − 𝐾) ∈
ℕ0) |
| 5 | | facp1 10822 |
. . . . . . . 8
⊢ ((𝑁 − 𝐾) ∈ ℕ0 →
(!‘((𝑁 − 𝐾) + 1)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 − 𝐾) + 1))) |
| 6 | 4, 5 | syl 14 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘((𝑁 − 𝐾) + 1)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 − 𝐾) + 1))) |
| 7 | 1 | nn0cnd 9304 |
. . . . . . . . 9
⊢ (𝐾 ∈ (0...𝑁) → 𝑁 ∈ ℂ) |
| 8 | | 1cnd 8042 |
. . . . . . . . 9
⊢ (𝐾 ∈ (0...𝑁) → 1 ∈ ℂ) |
| 9 | | elfznn0 10189 |
. . . . . . . . . 10
⊢ (𝐾 ∈ (0...𝑁) → 𝐾 ∈
ℕ0) |
| 10 | 9 | nn0cnd 9304 |
. . . . . . . . 9
⊢ (𝐾 ∈ (0...𝑁) → 𝐾 ∈ ℂ) |
| 11 | 7, 8, 10 | addsubd 8358 |
. . . . . . . 8
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) = ((𝑁 − 𝐾) + 1)) |
| 12 | 11 | fveq2d 5562 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘((𝑁 + 1) − 𝐾)) = (!‘((𝑁 − 𝐾) + 1))) |
| 13 | 11 | oveq2d 5938 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 − 𝐾) + 1))) |
| 14 | 6, 12, 13 | 3eqtr4d 2239 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → (!‘((𝑁 + 1) − 𝐾)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾))) |
| 15 | 14 | oveq1d 5937 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)) = (((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾)) · (!‘𝐾))) |
| 16 | 4 | faccld 10828 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘(𝑁 − 𝐾)) ∈ ℕ) |
| 17 | 16 | nncnd 9004 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → (!‘(𝑁 − 𝐾)) ∈ ℂ) |
| 18 | | nn0p1nn 9288 |
. . . . . . . . 9
⊢ ((𝑁 − 𝐾) ∈ ℕ0 → ((𝑁 − 𝐾) + 1) ∈ ℕ) |
| 19 | 4, 18 | syl 14 |
. . . . . . . 8
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 − 𝐾) + 1) ∈ ℕ) |
| 20 | 11, 19 | eqeltrd 2273 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) ∈ ℕ) |
| 21 | 20 | nncnd 9004 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) ∈ ℂ) |
| 22 | 9 | faccld 10828 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝐾) ∈ ℕ) |
| 23 | 22 | nncnd 9004 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝐾) ∈ ℂ) |
| 24 | 17, 21, 23 | mul32d 8179 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → (((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾)) · (!‘𝐾)) = (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾))) |
| 25 | 15, 24 | eqtrd 2229 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)) = (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾))) |
| 26 | 3, 25 | oveq12d 5940 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾))) = (((!‘𝑁) · (𝑁 + 1)) / (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾)))) |
| 27 | 1 | faccld 10828 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝑁) ∈ ℕ) |
| 28 | 27 | nncnd 9004 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝑁) ∈ ℂ) |
| 29 | 16, 22 | nnmulcld 9039 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 − 𝐾)) · (!‘𝐾)) ∈ ℕ) |
| 30 | 29 | nncnd 9004 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 − 𝐾)) · (!‘𝐾)) ∈ ℂ) |
| 31 | | nn0p1nn 9288 |
. . . . . 6
⊢ (𝑁 ∈ ℕ0
→ (𝑁 + 1) ∈
ℕ) |
| 32 | 1, 31 | syl 14 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → (𝑁 + 1) ∈ ℕ) |
| 33 | 32 | nncnd 9004 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → (𝑁 + 1) ∈ ℂ) |
| 34 | 29 | nnap0d 9036 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 − 𝐾)) · (!‘𝐾)) # 0) |
| 35 | 20 | nnap0d 9036 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) # 0) |
| 36 | 28, 30, 33, 21, 34, 35 | divmuldivapd 8859 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → (((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾))) = (((!‘𝑁) · (𝑁 + 1)) / (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾)))) |
| 37 | 26, 36 | eqtr4d 2232 |
. 2
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾))) = (((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾)))) |
| 38 | | fzelp1 10149 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → 𝐾 ∈ (0...(𝑁 + 1))) |
| 39 | | bcval2 10842 |
. . 3
⊢ (𝐾 ∈ (0...(𝑁 + 1)) → ((𝑁 + 1)C𝐾) = ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)))) |
| 40 | 38, 39 | syl 14 |
. 2
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1)C𝐾) = ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)))) |
| 41 | | bcval2 10842 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → (𝑁C𝐾) = ((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾)))) |
| 42 | 41 | oveq1d 5937 |
. 2
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁C𝐾) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾))) = (((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾)))) |
| 43 | 37, 40, 42 | 3eqtr4d 2239 |
1
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1)C𝐾) = ((𝑁C𝐾) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾)))) |