Proof of Theorem bcp1n
| Step | Hyp | Ref
| Expression |
| 1 | | elfz3nn0 13638 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → 𝑁 ∈
ℕ0) |
| 2 | | facp1 14296 |
. . . . 5
⊢ (𝑁 ∈ ℕ0
→ (!‘(𝑁 + 1)) =
((!‘𝑁) ·
(𝑁 + 1))) |
| 3 | 1, 2 | syl 17 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → (!‘(𝑁 + 1)) = ((!‘𝑁) · (𝑁 + 1))) |
| 4 | | fznn0sub 13573 |
. . . . . . . 8
⊢ (𝐾 ∈ (0...𝑁) → (𝑁 − 𝐾) ∈
ℕ0) |
| 5 | | facp1 14296 |
. . . . . . . 8
⊢ ((𝑁 − 𝐾) ∈ ℕ0 →
(!‘((𝑁 − 𝐾) + 1)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 − 𝐾) + 1))) |
| 6 | 4, 5 | syl 17 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘((𝑁 − 𝐾) + 1)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 − 𝐾) + 1))) |
| 7 | 1 | nn0cnd 12564 |
. . . . . . . . 9
⊢ (𝐾 ∈ (0...𝑁) → 𝑁 ∈ ℂ) |
| 8 | | 1cnd 11230 |
. . . . . . . . 9
⊢ (𝐾 ∈ (0...𝑁) → 1 ∈ ℂ) |
| 9 | | elfznn0 13637 |
. . . . . . . . . 10
⊢ (𝐾 ∈ (0...𝑁) → 𝐾 ∈
ℕ0) |
| 10 | 9 | nn0cnd 12564 |
. . . . . . . . 9
⊢ (𝐾 ∈ (0...𝑁) → 𝐾 ∈ ℂ) |
| 11 | 7, 8, 10 | addsubd 11615 |
. . . . . . . 8
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) = ((𝑁 − 𝐾) + 1)) |
| 12 | 11 | fveq2d 6880 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘((𝑁 + 1) − 𝐾)) = (!‘((𝑁 − 𝐾) + 1))) |
| 13 | 11 | oveq2d 7421 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 − 𝐾) + 1))) |
| 14 | 6, 12, 13 | 3eqtr4d 2780 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → (!‘((𝑁 + 1) − 𝐾)) = ((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾))) |
| 15 | 14 | oveq1d 7420 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)) = (((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾)) · (!‘𝐾))) |
| 16 | 4 | faccld 14302 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘(𝑁 − 𝐾)) ∈ ℕ) |
| 17 | 16 | nncnd 12256 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → (!‘(𝑁 − 𝐾)) ∈ ℂ) |
| 18 | | nn0p1nn 12540 |
. . . . . . . . 9
⊢ ((𝑁 − 𝐾) ∈ ℕ0 → ((𝑁 − 𝐾) + 1) ∈ ℕ) |
| 19 | 4, 18 | syl 17 |
. . . . . . . 8
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 − 𝐾) + 1) ∈ ℕ) |
| 20 | 11, 19 | eqeltrd 2834 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) ∈ ℕ) |
| 21 | 20 | nncnd 12256 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) ∈ ℂ) |
| 22 | 9 | faccld 14302 |
. . . . . . 7
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝐾) ∈ ℕ) |
| 23 | 22 | nncnd 12256 |
. . . . . 6
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝐾) ∈ ℂ) |
| 24 | 17, 21, 23 | mul32d 11445 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → (((!‘(𝑁 − 𝐾)) · ((𝑁 + 1) − 𝐾)) · (!‘𝐾)) = (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾))) |
| 25 | 15, 24 | eqtrd 2770 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)) = (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾))) |
| 26 | 3, 25 | oveq12d 7423 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾))) = (((!‘𝑁) · (𝑁 + 1)) / (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾)))) |
| 27 | 1 | faccld 14302 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝑁) ∈ ℕ) |
| 28 | 27 | nncnd 12256 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → (!‘𝑁) ∈ ℂ) |
| 29 | | nn0p1nn 12540 |
. . . . . 6
⊢ (𝑁 ∈ ℕ0
→ (𝑁 + 1) ∈
ℕ) |
| 30 | 1, 29 | syl 17 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → (𝑁 + 1) ∈ ℕ) |
| 31 | 30 | nncnd 12256 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → (𝑁 + 1) ∈ ℂ) |
| 32 | 16, 22 | nnmulcld 12293 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 − 𝐾)) · (!‘𝐾)) ∈ ℕ) |
| 33 | | nncn 12248 |
. . . . . 6
⊢
(((!‘(𝑁
− 𝐾)) ·
(!‘𝐾)) ∈ ℕ
→ ((!‘(𝑁 −
𝐾)) · (!‘𝐾)) ∈
ℂ) |
| 34 | | nnne0 12274 |
. . . . . 6
⊢
(((!‘(𝑁
− 𝐾)) ·
(!‘𝐾)) ∈ ℕ
→ ((!‘(𝑁 −
𝐾)) · (!‘𝐾)) ≠ 0) |
| 35 | 33, 34 | jca 511 |
. . . . 5
⊢
(((!‘(𝑁
− 𝐾)) ·
(!‘𝐾)) ∈ ℕ
→ (((!‘(𝑁
− 𝐾)) ·
(!‘𝐾)) ∈ ℂ
∧ ((!‘(𝑁 −
𝐾)) · (!‘𝐾)) ≠ 0)) |
| 36 | 32, 35 | syl 17 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) ∈ ℂ ∧ ((!‘(𝑁 − 𝐾)) · (!‘𝐾)) ≠ 0)) |
| 37 | 20 | nnne0d 12290 |
. . . . 5
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1) − 𝐾) ≠ 0) |
| 38 | 21, 37 | jca 511 |
. . . 4
⊢ (𝐾 ∈ (0...𝑁) → (((𝑁 + 1) − 𝐾) ∈ ℂ ∧ ((𝑁 + 1) − 𝐾) ≠ 0)) |
| 39 | | divmuldiv 11941 |
. . . 4
⊢
((((!‘𝑁)
∈ ℂ ∧ (𝑁 +
1) ∈ ℂ) ∧ ((((!‘(𝑁 − 𝐾)) · (!‘𝐾)) ∈ ℂ ∧ ((!‘(𝑁 − 𝐾)) · (!‘𝐾)) ≠ 0) ∧ (((𝑁 + 1) − 𝐾) ∈ ℂ ∧ ((𝑁 + 1) − 𝐾) ≠ 0))) → (((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾))) = (((!‘𝑁) · (𝑁 + 1)) / (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾)))) |
| 40 | 28, 31, 36, 38, 39 | syl22anc 838 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → (((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾))) = (((!‘𝑁) · (𝑁 + 1)) / (((!‘(𝑁 − 𝐾)) · (!‘𝐾)) · ((𝑁 + 1) − 𝐾)))) |
| 41 | 26, 40 | eqtr4d 2773 |
. 2
⊢ (𝐾 ∈ (0...𝑁) → ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾))) = (((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾)))) |
| 42 | | fzelp1 13593 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → 𝐾 ∈ (0...(𝑁 + 1))) |
| 43 | | bcval2 14323 |
. . 3
⊢ (𝐾 ∈ (0...(𝑁 + 1)) → ((𝑁 + 1)C𝐾) = ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)))) |
| 44 | 42, 43 | syl 17 |
. 2
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1)C𝐾) = ((!‘(𝑁 + 1)) / ((!‘((𝑁 + 1) − 𝐾)) · (!‘𝐾)))) |
| 45 | | bcval2 14323 |
. . 3
⊢ (𝐾 ∈ (0...𝑁) → (𝑁C𝐾) = ((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾)))) |
| 46 | 45 | oveq1d 7420 |
. 2
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁C𝐾) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾))) = (((!‘𝑁) / ((!‘(𝑁 − 𝐾)) · (!‘𝐾))) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾)))) |
| 47 | 41, 44, 46 | 3eqtr4d 2780 |
1
⊢ (𝐾 ∈ (0...𝑁) → ((𝑁 + 1)C𝐾) = ((𝑁C𝐾) · ((𝑁 + 1) / ((𝑁 + 1) − 𝐾)))) |