Proof of Theorem bcn2
Step | Hyp | Ref
| Expression |
1 | | 2nn 11976 |
. . 3
⊢ 2 ∈
ℕ |
2 | | bcval5 13960 |
. . 3
⊢ ((𝑁 ∈ ℕ0
∧ 2 ∈ ℕ) → (𝑁C2) = ((seq((𝑁 − 2) + 1)( · , I )‘𝑁) /
(!‘2))) |
3 | 1, 2 | mpan2 687 |
. 2
⊢ (𝑁 ∈ ℕ0
→ (𝑁C2) = ((seq((𝑁 − 2) + 1)( · , I
)‘𝑁) /
(!‘2))) |
4 | | 2m1e1 12029 |
. . . . . . . 8
⊢ (2
− 1) = 1 |
5 | 4 | oveq2i 7266 |
. . . . . . 7
⊢ ((𝑁 − 2) + (2 − 1)) =
((𝑁 − 2) +
1) |
6 | | nn0cn 12173 |
. . . . . . . 8
⊢ (𝑁 ∈ ℕ0
→ 𝑁 ∈
ℂ) |
7 | | 2cn 11978 |
. . . . . . . . 9
⊢ 2 ∈
ℂ |
8 | | ax-1cn 10860 |
. . . . . . . . 9
⊢ 1 ∈
ℂ |
9 | | npncan 11172 |
. . . . . . . . 9
⊢ ((𝑁 ∈ ℂ ∧ 2 ∈
ℂ ∧ 1 ∈ ℂ) → ((𝑁 − 2) + (2 − 1)) = (𝑁 − 1)) |
10 | 7, 8, 9 | mp3an23 1451 |
. . . . . . . 8
⊢ (𝑁 ∈ ℂ → ((𝑁 − 2) + (2 − 1)) =
(𝑁 −
1)) |
11 | 6, 10 | syl 17 |
. . . . . . 7
⊢ (𝑁 ∈ ℕ0
→ ((𝑁 − 2) + (2
− 1)) = (𝑁 −
1)) |
12 | 5, 11 | eqtr3id 2793 |
. . . . . 6
⊢ (𝑁 ∈ ℕ0
→ ((𝑁 − 2) + 1)
= (𝑁 −
1)) |
13 | 12 | seqeq1d 13655 |
. . . . 5
⊢ (𝑁 ∈ ℕ0
→ seq((𝑁 − 2) +
1)( · , I ) = seq(𝑁
− 1)( · , I )) |
14 | 13 | fveq1d 6758 |
. . . 4
⊢ (𝑁 ∈ ℕ0
→ (seq((𝑁 − 2) +
1)( · , I )‘𝑁)
= (seq(𝑁 − 1)(
· , I )‘𝑁)) |
15 | | nn0z 12273 |
. . . . . . . 8
⊢ (𝑁 ∈ ℕ0
→ 𝑁 ∈
ℤ) |
16 | | peano2zm 12293 |
. . . . . . . 8
⊢ (𝑁 ∈ ℤ → (𝑁 − 1) ∈
ℤ) |
17 | 15, 16 | syl 17 |
. . . . . . 7
⊢ (𝑁 ∈ ℕ0
→ (𝑁 − 1) ∈
ℤ) |
18 | | uzid 12526 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℤ → 𝑁 ∈
(ℤ≥‘𝑁)) |
19 | 15, 18 | syl 17 |
. . . . . . . 8
⊢ (𝑁 ∈ ℕ0
→ 𝑁 ∈
(ℤ≥‘𝑁)) |
20 | | npcan 11160 |
. . . . . . . . . 10
⊢ ((𝑁 ∈ ℂ ∧ 1 ∈
ℂ) → ((𝑁 −
1) + 1) = 𝑁) |
21 | 6, 8, 20 | sylancl 585 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℕ0
→ ((𝑁 − 1) + 1)
= 𝑁) |
22 | 21 | fveq2d 6760 |
. . . . . . . 8
⊢ (𝑁 ∈ ℕ0
→ (ℤ≥‘((𝑁 − 1) + 1)) =
(ℤ≥‘𝑁)) |
23 | 19, 22 | eleqtrrd 2842 |
. . . . . . 7
⊢ (𝑁 ∈ ℕ0
→ 𝑁 ∈
(ℤ≥‘((𝑁 − 1) + 1))) |
24 | | seqm1 13668 |
. . . . . . 7
⊢ (((𝑁 − 1) ∈ ℤ ∧
𝑁 ∈
(ℤ≥‘((𝑁 − 1) + 1))) → (seq(𝑁 − 1)( · , I
)‘𝑁) = ((seq(𝑁 − 1)( · , I
)‘(𝑁 − 1))
· ( I ‘𝑁))) |
25 | 17, 23, 24 | syl2anc 583 |
. . . . . 6
⊢ (𝑁 ∈ ℕ0
→ (seq(𝑁 − 1)(
· , I )‘𝑁) =
((seq(𝑁 − 1)(
· , I )‘(𝑁
− 1)) · ( I ‘𝑁))) |
26 | | seq1 13662 |
. . . . . . . . 9
⊢ ((𝑁 − 1) ∈ ℤ
→ (seq(𝑁 − 1)(
· , I )‘(𝑁
− 1)) = ( I ‘(𝑁
− 1))) |
27 | 17, 26 | syl 17 |
. . . . . . . 8
⊢ (𝑁 ∈ ℕ0
→ (seq(𝑁 − 1)(
· , I )‘(𝑁
− 1)) = ( I ‘(𝑁
− 1))) |
28 | | fvi 6826 |
. . . . . . . . 9
⊢ ((𝑁 − 1) ∈ ℤ
→ ( I ‘(𝑁
− 1)) = (𝑁 −
1)) |
29 | 17, 28 | syl 17 |
. . . . . . . 8
⊢ (𝑁 ∈ ℕ0
→ ( I ‘(𝑁
− 1)) = (𝑁 −
1)) |
30 | 27, 29 | eqtrd 2778 |
. . . . . . 7
⊢ (𝑁 ∈ ℕ0
→ (seq(𝑁 − 1)(
· , I )‘(𝑁
− 1)) = (𝑁 −
1)) |
31 | | fvi 6826 |
. . . . . . 7
⊢ (𝑁 ∈ ℕ0
→ ( I ‘𝑁) =
𝑁) |
32 | 30, 31 | oveq12d 7273 |
. . . . . 6
⊢ (𝑁 ∈ ℕ0
→ ((seq(𝑁 − 1)(
· , I )‘(𝑁
− 1)) · ( I ‘𝑁)) = ((𝑁 − 1) · 𝑁)) |
33 | 25, 32 | eqtrd 2778 |
. . . . 5
⊢ (𝑁 ∈ ℕ0
→ (seq(𝑁 − 1)(
· , I )‘𝑁) =
((𝑁 − 1) ·
𝑁)) |
34 | | subcl 11150 |
. . . . . . 7
⊢ ((𝑁 ∈ ℂ ∧ 1 ∈
ℂ) → (𝑁 −
1) ∈ ℂ) |
35 | 6, 8, 34 | sylancl 585 |
. . . . . 6
⊢ (𝑁 ∈ ℕ0
→ (𝑁 − 1) ∈
ℂ) |
36 | 35, 6 | mulcomd 10927 |
. . . . 5
⊢ (𝑁 ∈ ℕ0
→ ((𝑁 − 1)
· 𝑁) = (𝑁 · (𝑁 − 1))) |
37 | 33, 36 | eqtrd 2778 |
. . . 4
⊢ (𝑁 ∈ ℕ0
→ (seq(𝑁 − 1)(
· , I )‘𝑁) =
(𝑁 · (𝑁 − 1))) |
38 | 14, 37 | eqtrd 2778 |
. . 3
⊢ (𝑁 ∈ ℕ0
→ (seq((𝑁 − 2) +
1)( · , I )‘𝑁)
= (𝑁 · (𝑁 − 1))) |
39 | | fac2 13921 |
. . . 4
⊢
(!‘2) = 2 |
40 | 39 | a1i 11 |
. . 3
⊢ (𝑁 ∈ ℕ0
→ (!‘2) = 2) |
41 | 38, 40 | oveq12d 7273 |
. 2
⊢ (𝑁 ∈ ℕ0
→ ((seq((𝑁 − 2)
+ 1)( · , I )‘𝑁) / (!‘2)) = ((𝑁 · (𝑁 − 1)) / 2)) |
42 | 3, 41 | eqtrd 2778 |
1
⊢ (𝑁 ∈ ℕ0
→ (𝑁C2) = ((𝑁 · (𝑁 − 1)) / 2)) |