Step | Hyp | Ref
| Expression |
1 | | peano2nn 11032 |
. . . . 5
⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈
ℕ) |
2 | 1 | nnnn0d 11351 |
. . . 4
⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈
ℕ0) |
3 | | derang.d |
. . . . 5
⊢ 𝐷 = (𝑥 ∈ Fin ↦ (#‘{𝑓 ∣ (𝑓:𝑥–1-1-onto→𝑥 ∧ ∀𝑦 ∈ 𝑥 (𝑓‘𝑦) ≠ 𝑦)})) |
4 | | subfac.n |
. . . . 5
⊢ 𝑆 = (𝑛 ∈ ℕ0 ↦ (𝐷‘(1...𝑛))) |
5 | 3, 4 | subfacval 31155 |
. . . 4
⊢ ((𝑁 + 1) ∈ ℕ0
→ (𝑆‘(𝑁 + 1)) = (𝐷‘(1...(𝑁 + 1)))) |
6 | 2, 5 | syl 17 |
. . 3
⊢ (𝑁 ∈ ℕ → (𝑆‘(𝑁 + 1)) = (𝐷‘(1...(𝑁 + 1)))) |
7 | | fzfid 12772 |
. . . . 5
⊢ (𝑁 ∈ ℕ →
(1...(𝑁 + 1)) ∈
Fin) |
8 | 3 | derangval 31149 |
. . . . 5
⊢
((1...(𝑁 + 1))
∈ Fin → (𝐷‘(1...(𝑁 + 1))) = (#‘{𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)})) |
9 | 7, 8 | syl 17 |
. . . 4
⊢ (𝑁 ∈ ℕ → (𝐷‘(1...(𝑁 + 1))) = (#‘{𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)})) |
10 | | subfacp1lem.a |
. . . . 5
⊢ 𝐴 = {𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)} |
11 | 10 | fveq2i 6194 |
. . . 4
⊢
(#‘𝐴) =
(#‘{𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)}) |
12 | 9, 11 | syl6eqr 2674 |
. . 3
⊢ (𝑁 ∈ ℕ → (𝐷‘(1...(𝑁 + 1))) = (#‘𝐴)) |
13 | | nnuz 11723 |
. . . . . . . . . . 11
⊢ ℕ =
(ℤ≥‘1) |
14 | 1, 13 | syl6eleq 2711 |
. . . . . . . . . 10
⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈
(ℤ≥‘1)) |
15 | | eluzfz1 12348 |
. . . . . . . . . 10
⊢ ((𝑁 + 1) ∈
(ℤ≥‘1) → 1 ∈ (1...(𝑁 + 1))) |
16 | 14, 15 | syl 17 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℕ → 1 ∈
(1...(𝑁 +
1))) |
17 | | f1of 6137 |
. . . . . . . . . 10
⊢ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) → 𝑓:(1...(𝑁 + 1))⟶(1...(𝑁 + 1))) |
18 | 17 | adantr 481 |
. . . . . . . . 9
⊢ ((𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦) → 𝑓:(1...(𝑁 + 1))⟶(1...(𝑁 + 1))) |
19 | | ffvelrn 6357 |
. . . . . . . . . 10
⊢ ((𝑓:(1...(𝑁 + 1))⟶(1...(𝑁 + 1)) ∧ 1 ∈ (1...(𝑁 + 1))) → (𝑓‘1) ∈ (1...(𝑁 + 1))) |
20 | 19 | expcom 451 |
. . . . . . . . 9
⊢ (1 ∈
(1...(𝑁 + 1)) → (𝑓:(1...(𝑁 + 1))⟶(1...(𝑁 + 1)) → (𝑓‘1) ∈ (1...(𝑁 + 1)))) |
21 | 16, 18, 20 | syl2im 40 |
. . . . . . . 8
⊢ (𝑁 ∈ ℕ → ((𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦) → (𝑓‘1) ∈ (1...(𝑁 + 1)))) |
22 | 21 | ss2abdv 3675 |
. . . . . . 7
⊢ (𝑁 ∈ ℕ → {𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)} ⊆ {𝑓 ∣ (𝑓‘1) ∈ (1...(𝑁 + 1))}) |
23 | | fveq1 6190 |
. . . . . . . . 9
⊢ (𝑔 = 𝑓 → (𝑔‘1) = (𝑓‘1)) |
24 | 23 | eleq1d 2686 |
. . . . . . . 8
⊢ (𝑔 = 𝑓 → ((𝑔‘1) ∈ (1...(𝑁 + 1)) ↔ (𝑓‘1) ∈ (1...(𝑁 + 1)))) |
25 | 24 | cbvabv 2747 |
. . . . . . 7
⊢ {𝑔 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))} = {𝑓 ∣ (𝑓‘1) ∈ (1...(𝑁 + 1))} |
26 | 22, 10, 25 | 3sstr4g 3646 |
. . . . . 6
⊢ (𝑁 ∈ ℕ → 𝐴 ⊆ {𝑔 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))}) |
27 | | ssabral 3673 |
. . . . . 6
⊢ (𝐴 ⊆ {𝑔 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))} ↔ ∀𝑔 ∈ 𝐴 (𝑔‘1) ∈ (1...(𝑁 + 1))) |
28 | 26, 27 | sylib 208 |
. . . . 5
⊢ (𝑁 ∈ ℕ →
∀𝑔 ∈ 𝐴 (𝑔‘1) ∈ (1...(𝑁 + 1))) |
29 | | rabid2 3118 |
. . . . 5
⊢ (𝐴 = {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))} ↔ ∀𝑔 ∈ 𝐴 (𝑔‘1) ∈ (1...(𝑁 + 1))) |
30 | 28, 29 | sylibr 224 |
. . . 4
⊢ (𝑁 ∈ ℕ → 𝐴 = {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))}) |
31 | 30 | fveq2d 6195 |
. . 3
⊢ (𝑁 ∈ ℕ →
(#‘𝐴) =
(#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))})) |
32 | 6, 12, 31 | 3eqtrd 2660 |
. 2
⊢ (𝑁 ∈ ℕ → (𝑆‘(𝑁 + 1)) = (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))})) |
33 | | elfz1end 12371 |
. . . 4
⊢ ((𝑁 + 1) ∈ ℕ ↔
(𝑁 + 1) ∈ (1...(𝑁 + 1))) |
34 | 1, 33 | sylib 208 |
. . 3
⊢ (𝑁 ∈ ℕ → (𝑁 + 1) ∈ (1...(𝑁 + 1))) |
35 | | eleq1 2689 |
. . . . . . 7
⊢ (𝑥 = 1 → (𝑥 ∈ (1...(𝑁 + 1)) ↔ 1 ∈ (1...(𝑁 + 1)))) |
36 | | oveq2 6658 |
. . . . . . . . . . . . 13
⊢ (𝑥 = 1 → (1...𝑥) = (1...1)) |
37 | | 1z 11407 |
. . . . . . . . . . . . . 14
⊢ 1 ∈
ℤ |
38 | | fzsn 12383 |
. . . . . . . . . . . . . 14
⊢ (1 ∈
ℤ → (1...1) = {1}) |
39 | 37, 38 | ax-mp 5 |
. . . . . . . . . . . . 13
⊢ (1...1) =
{1} |
40 | 36, 39 | syl6eq 2672 |
. . . . . . . . . . . 12
⊢ (𝑥 = 1 → (1...𝑥) = {1}) |
41 | 40 | eleq2d 2687 |
. . . . . . . . . . 11
⊢ (𝑥 = 1 → ((𝑔‘1) ∈ (1...𝑥) ↔ (𝑔‘1) ∈ {1})) |
42 | | fvex 6201 |
. . . . . . . . . . . 12
⊢ (𝑔‘1) ∈
V |
43 | 42 | elsn 4192 |
. . . . . . . . . . 11
⊢ ((𝑔‘1) ∈ {1} ↔
(𝑔‘1) =
1) |
44 | 41, 43 | syl6bb 276 |
. . . . . . . . . 10
⊢ (𝑥 = 1 → ((𝑔‘1) ∈ (1...𝑥) ↔ (𝑔‘1) = 1)) |
45 | 44 | rabbidv 3189 |
. . . . . . . . 9
⊢ (𝑥 = 1 → {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)} = {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = 1}) |
46 | 45 | fveq2d 6195 |
. . . . . . . 8
⊢ (𝑥 = 1 → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = 1})) |
47 | | oveq1 6657 |
. . . . . . . . . 10
⊢ (𝑥 = 1 → (𝑥 − 1) = (1 − 1)) |
48 | | 1m1e0 11089 |
. . . . . . . . . 10
⊢ (1
− 1) = 0 |
49 | 47, 48 | syl6eq 2672 |
. . . . . . . . 9
⊢ (𝑥 = 1 → (𝑥 − 1) = 0) |
50 | 49 | oveq1d 6665 |
. . . . . . . 8
⊢ (𝑥 = 1 → ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) = (0 · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) |
51 | 46, 50 | eqeq12d 2637 |
. . . . . . 7
⊢ (𝑥 = 1 → ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) ↔ (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = 1}) = (0 · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) |
52 | 35, 51 | imbi12d 334 |
. . . . . 6
⊢ (𝑥 = 1 → ((𝑥 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) ↔ (1 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = 1}) = (0 · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))))) |
53 | 52 | imbi2d 330 |
. . . . 5
⊢ (𝑥 = 1 → ((𝑁 ∈ ℕ → (𝑥 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) ↔ (𝑁 ∈ ℕ → (1 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = 1}) = (0 · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))))) |
54 | | eleq1 2689 |
. . . . . . 7
⊢ (𝑥 = 𝑚 → (𝑥 ∈ (1...(𝑁 + 1)) ↔ 𝑚 ∈ (1...(𝑁 + 1)))) |
55 | | oveq2 6658 |
. . . . . . . . . . 11
⊢ (𝑥 = 𝑚 → (1...𝑥) = (1...𝑚)) |
56 | 55 | eleq2d 2687 |
. . . . . . . . . 10
⊢ (𝑥 = 𝑚 → ((𝑔‘1) ∈ (1...𝑥) ↔ (𝑔‘1) ∈ (1...𝑚))) |
57 | 56 | rabbidv 3189 |
. . . . . . . . 9
⊢ (𝑥 = 𝑚 → {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)} = {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) |
58 | 57 | fveq2d 6195 |
. . . . . . . 8
⊢ (𝑥 = 𝑚 → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)})) |
59 | | oveq1 6657 |
. . . . . . . . 9
⊢ (𝑥 = 𝑚 → (𝑥 − 1) = (𝑚 − 1)) |
60 | 59 | oveq1d 6665 |
. . . . . . . 8
⊢ (𝑥 = 𝑚 → ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) |
61 | 58, 60 | eqeq12d 2637 |
. . . . . . 7
⊢ (𝑥 = 𝑚 → ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) ↔ (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) |
62 | 54, 61 | imbi12d 334 |
. . . . . 6
⊢ (𝑥 = 𝑚 → ((𝑥 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) ↔ (𝑚 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))))) |
63 | 62 | imbi2d 330 |
. . . . 5
⊢ (𝑥 = 𝑚 → ((𝑁 ∈ ℕ → (𝑥 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) ↔ (𝑁 ∈ ℕ → (𝑚 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))))) |
64 | | eleq1 2689 |
. . . . . . 7
⊢ (𝑥 = (𝑚 + 1) → (𝑥 ∈ (1...(𝑁 + 1)) ↔ (𝑚 + 1) ∈ (1...(𝑁 + 1)))) |
65 | | oveq2 6658 |
. . . . . . . . . . 11
⊢ (𝑥 = (𝑚 + 1) → (1...𝑥) = (1...(𝑚 + 1))) |
66 | 65 | eleq2d 2687 |
. . . . . . . . . 10
⊢ (𝑥 = (𝑚 + 1) → ((𝑔‘1) ∈ (1...𝑥) ↔ (𝑔‘1) ∈ (1...(𝑚 + 1)))) |
67 | 66 | rabbidv 3189 |
. . . . . . . . 9
⊢ (𝑥 = (𝑚 + 1) → {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)} = {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) |
68 | 67 | fveq2d 6195 |
. . . . . . . 8
⊢ (𝑥 = (𝑚 + 1) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))})) |
69 | | oveq1 6657 |
. . . . . . . . 9
⊢ (𝑥 = (𝑚 + 1) → (𝑥 − 1) = ((𝑚 + 1) − 1)) |
70 | 69 | oveq1d 6665 |
. . . . . . . 8
⊢ (𝑥 = (𝑚 + 1) → ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) = (((𝑚 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) |
71 | 68, 70 | eqeq12d 2637 |
. . . . . . 7
⊢ (𝑥 = (𝑚 + 1) → ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) ↔ (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = (((𝑚 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) |
72 | 64, 71 | imbi12d 334 |
. . . . . 6
⊢ (𝑥 = (𝑚 + 1) → ((𝑥 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) ↔ ((𝑚 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = (((𝑚 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))))) |
73 | 72 | imbi2d 330 |
. . . . 5
⊢ (𝑥 = (𝑚 + 1) → ((𝑁 ∈ ℕ → (𝑥 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) ↔ (𝑁 ∈ ℕ → ((𝑚 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = (((𝑚 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))))) |
74 | | eleq1 2689 |
. . . . . . 7
⊢ (𝑥 = (𝑁 + 1) → (𝑥 ∈ (1...(𝑁 + 1)) ↔ (𝑁 + 1) ∈ (1...(𝑁 + 1)))) |
75 | | oveq2 6658 |
. . . . . . . . . . 11
⊢ (𝑥 = (𝑁 + 1) → (1...𝑥) = (1...(𝑁 + 1))) |
76 | 75 | eleq2d 2687 |
. . . . . . . . . 10
⊢ (𝑥 = (𝑁 + 1) → ((𝑔‘1) ∈ (1...𝑥) ↔ (𝑔‘1) ∈ (1...(𝑁 + 1)))) |
77 | 76 | rabbidv 3189 |
. . . . . . . . 9
⊢ (𝑥 = (𝑁 + 1) → {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)} = {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))}) |
78 | 77 | fveq2d 6195 |
. . . . . . . 8
⊢ (𝑥 = (𝑁 + 1) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))})) |
79 | | oveq1 6657 |
. . . . . . . . 9
⊢ (𝑥 = (𝑁 + 1) → (𝑥 − 1) = ((𝑁 + 1) − 1)) |
80 | 79 | oveq1d 6665 |
. . . . . . . 8
⊢ (𝑥 = (𝑁 + 1) → ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) = (((𝑁 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) |
81 | 78, 80 | eqeq12d 2637 |
. . . . . . 7
⊢ (𝑥 = (𝑁 + 1) → ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) ↔ (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))}) = (((𝑁 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) |
82 | 74, 81 | imbi12d 334 |
. . . . . 6
⊢ (𝑥 = (𝑁 + 1) → ((𝑥 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) ↔ ((𝑁 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))}) = (((𝑁 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))))) |
83 | 82 | imbi2d 330 |
. . . . 5
⊢ (𝑥 = (𝑁 + 1) → ((𝑁 ∈ ℕ → (𝑥 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑥)}) = ((𝑥 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) ↔ (𝑁 ∈ ℕ → ((𝑁 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))}) = (((𝑁 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))))) |
84 | | hash0 13158 |
. . . . . . 7
⊢
(#‘∅) = 0 |
85 | | fveq2 6191 |
. . . . . . . . . . . . . . . 16
⊢ (𝑦 = 1 → (𝑓‘𝑦) = (𝑓‘1)) |
86 | | id 22 |
. . . . . . . . . . . . . . . 16
⊢ (𝑦 = 1 → 𝑦 = 1) |
87 | 85, 86 | neeq12d 2855 |
. . . . . . . . . . . . . . 15
⊢ (𝑦 = 1 → ((𝑓‘𝑦) ≠ 𝑦 ↔ (𝑓‘1) ≠ 1)) |
88 | 87 | rspcv 3305 |
. . . . . . . . . . . . . 14
⊢ (1 ∈
(1...(𝑁 + 1)) →
(∀𝑦 ∈
(1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦 → (𝑓‘1) ≠ 1)) |
89 | 16, 88 | syl 17 |
. . . . . . . . . . . . 13
⊢ (𝑁 ∈ ℕ →
(∀𝑦 ∈
(1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦 → (𝑓‘1) ≠ 1)) |
90 | 89 | adantld 483 |
. . . . . . . . . . . 12
⊢ (𝑁 ∈ ℕ → ((𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦) → (𝑓‘1) ≠ 1)) |
91 | 90 | ss2abdv 3675 |
. . . . . . . . . . 11
⊢ (𝑁 ∈ ℕ → {𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)} ⊆ {𝑓 ∣ (𝑓‘1) ≠ 1}) |
92 | | df-ne 2795 |
. . . . . . . . . . . . 13
⊢ ((𝑔‘1) ≠ 1 ↔ ¬
(𝑔‘1) =
1) |
93 | 23 | neeq1d 2853 |
. . . . . . . . . . . . 13
⊢ (𝑔 = 𝑓 → ((𝑔‘1) ≠ 1 ↔ (𝑓‘1) ≠ 1)) |
94 | 92, 93 | syl5bbr 274 |
. . . . . . . . . . . 12
⊢ (𝑔 = 𝑓 → (¬ (𝑔‘1) = 1 ↔ (𝑓‘1) ≠ 1)) |
95 | 94 | cbvabv 2747 |
. . . . . . . . . . 11
⊢ {𝑔 ∣ ¬ (𝑔‘1) = 1} = {𝑓 ∣ (𝑓‘1) ≠ 1} |
96 | 91, 10, 95 | 3sstr4g 3646 |
. . . . . . . . . 10
⊢ (𝑁 ∈ ℕ → 𝐴 ⊆ {𝑔 ∣ ¬ (𝑔‘1) = 1}) |
97 | | ssabral 3673 |
. . . . . . . . . 10
⊢ (𝐴 ⊆ {𝑔 ∣ ¬ (𝑔‘1) = 1} ↔ ∀𝑔 ∈ 𝐴 ¬ (𝑔‘1) = 1) |
98 | 96, 97 | sylib 208 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℕ →
∀𝑔 ∈ 𝐴 ¬ (𝑔‘1) = 1) |
99 | | rabeq0 3957 |
. . . . . . . . 9
⊢ ({𝑔 ∈ 𝐴 ∣ (𝑔‘1) = 1} = ∅ ↔ ∀𝑔 ∈ 𝐴 ¬ (𝑔‘1) = 1) |
100 | 98, 99 | sylibr 224 |
. . . . . . . 8
⊢ (𝑁 ∈ ℕ → {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = 1} = ∅) |
101 | 100 | fveq2d 6195 |
. . . . . . 7
⊢ (𝑁 ∈ ℕ →
(#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = 1}) =
(#‘∅)) |
102 | | nnnn0 11299 |
. . . . . . . . . . 11
⊢ (𝑁 ∈ ℕ → 𝑁 ∈
ℕ0) |
103 | 3, 4 | subfacf 31157 |
. . . . . . . . . . . 12
⊢ 𝑆:ℕ0⟶ℕ0 |
104 | 103 | ffvelrni 6358 |
. . . . . . . . . . 11
⊢ (𝑁 ∈ ℕ0
→ (𝑆‘𝑁) ∈
ℕ0) |
105 | 102, 104 | syl 17 |
. . . . . . . . . 10
⊢ (𝑁 ∈ ℕ → (𝑆‘𝑁) ∈
ℕ0) |
106 | | nnm1nn0 11334 |
. . . . . . . . . . 11
⊢ (𝑁 ∈ ℕ → (𝑁 − 1) ∈
ℕ0) |
107 | 103 | ffvelrni 6358 |
. . . . . . . . . . 11
⊢ ((𝑁 − 1) ∈
ℕ0 → (𝑆‘(𝑁 − 1)) ∈
ℕ0) |
108 | 106, 107 | syl 17 |
. . . . . . . . . 10
⊢ (𝑁 ∈ ℕ → (𝑆‘(𝑁 − 1)) ∈
ℕ0) |
109 | 105, 108 | nn0addcld 11355 |
. . . . . . . . 9
⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))) ∈
ℕ0) |
110 | 109 | nn0cnd 11353 |
. . . . . . . 8
⊢ (𝑁 ∈ ℕ → ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))) ∈
ℂ) |
111 | 110 | mul02d 10234 |
. . . . . . 7
⊢ (𝑁 ∈ ℕ → (0
· ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) = 0) |
112 | 84, 101, 111 | 3eqtr4a 2682 |
. . . . . 6
⊢ (𝑁 ∈ ℕ →
(#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = 1}) = (0 · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) |
113 | 112 | a1d 25 |
. . . . 5
⊢ (𝑁 ∈ ℕ → (1 ∈
(1...(𝑁 + 1)) →
(#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = 1}) = (0 · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) |
114 | | simplr 792 |
. . . . . . . . . . . 12
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → 𝑚 ∈
ℕ) |
115 | 114, 13 | syl6eleq 2711 |
. . . . . . . . . . 11
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → 𝑚 ∈
(ℤ≥‘1)) |
116 | | peano2fzr 12354 |
. . . . . . . . . . 11
⊢ ((𝑚 ∈
(ℤ≥‘1) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → 𝑚 ∈ (1...(𝑁 + 1))) |
117 | 115, 116 | sylancom 701 |
. . . . . . . . . 10
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → 𝑚 ∈ (1...(𝑁 + 1))) |
118 | 117 | ex 450 |
. . . . . . . . 9
⊢ ((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) → ((𝑚 + 1) ∈ (1...(𝑁 + 1)) → 𝑚 ∈ (1...(𝑁 + 1)))) |
119 | 118 | imim1d 82 |
. . . . . . . 8
⊢ ((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) → ((𝑚 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) → ((𝑚 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))))) |
120 | | oveq1 6657 |
. . . . . . . . . . 11
⊢
((#‘{𝑔 ∈
𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) → ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) + (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)})) = (((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) + (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}))) |
121 | | elfzp1 12391 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑚 ∈
(ℤ≥‘1) → ((𝑔‘1) ∈ (1...(𝑚 + 1)) ↔ ((𝑔‘1) ∈ (1...𝑚) ∨ (𝑔‘1) = (𝑚 + 1)))) |
122 | 115, 121 | syl 17 |
. . . . . . . . . . . . . . . 16
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → ((𝑔‘1) ∈ (1...(𝑚 + 1)) ↔ ((𝑔‘1) ∈ (1...𝑚) ∨ (𝑔‘1) = (𝑚 + 1)))) |
123 | 122 | rabbidv 3189 |
. . . . . . . . . . . . . . 15
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))} = {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) ∈ (1...𝑚) ∨ (𝑔‘1) = (𝑚 + 1))}) |
124 | | unrab 3898 |
. . . . . . . . . . . . . . 15
⊢ ({𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ∪ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}) = {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) ∈ (1...𝑚) ∨ (𝑔‘1) = (𝑚 + 1))} |
125 | 123, 124 | syl6eqr 2674 |
. . . . . . . . . . . . . 14
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))} = ({𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ∪ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)})) |
126 | 125 | fveq2d 6195 |
. . . . . . . . . . . . 13
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = (#‘({𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ∪ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}))) |
127 | | fzfi 12771 |
. . . . . . . . . . . . . . . . 17
⊢
(1...(𝑁 + 1)) ∈
Fin |
128 | | deranglem 31148 |
. . . . . . . . . . . . . . . . 17
⊢
((1...(𝑁 + 1))
∈ Fin → {𝑓
∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)} ∈ Fin) |
129 | 127, 128 | ax-mp 5 |
. . . . . . . . . . . . . . . 16
⊢ {𝑓 ∣ (𝑓:(1...(𝑁 + 1))–1-1-onto→(1...(𝑁 + 1)) ∧ ∀𝑦 ∈ (1...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)} ∈ Fin |
130 | 10, 129 | eqeltri 2697 |
. . . . . . . . . . . . . . 15
⊢ 𝐴 ∈ Fin |
131 | | ssrab2 3687 |
. . . . . . . . . . . . . . 15
⊢ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ⊆ 𝐴 |
132 | | ssfi 8180 |
. . . . . . . . . . . . . . 15
⊢ ((𝐴 ∈ Fin ∧ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ⊆ 𝐴) → {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ∈ Fin) |
133 | 130, 131,
132 | mp2an 708 |
. . . . . . . . . . . . . 14
⊢ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ∈ Fin |
134 | | ssrab2 3687 |
. . . . . . . . . . . . . . 15
⊢ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)} ⊆ 𝐴 |
135 | | ssfi 8180 |
. . . . . . . . . . . . . . 15
⊢ ((𝐴 ∈ Fin ∧ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)} ⊆ 𝐴) → {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)} ∈ Fin) |
136 | 130, 134,
135 | mp2an 708 |
. . . . . . . . . . . . . 14
⊢ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)} ∈ Fin |
137 | | inrab 3899 |
. . . . . . . . . . . . . . 15
⊢ ({𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ∩ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}) = {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) ∈ (1...𝑚) ∧ (𝑔‘1) = (𝑚 + 1))} |
138 | | fzp1disj 12399 |
. . . . . . . . . . . . . . . . . 18
⊢
((1...𝑚) ∩
{(𝑚 + 1)}) =
∅ |
139 | 42 | elsn 4192 |
. . . . . . . . . . . . . . . . . . . 20
⊢ ((𝑔‘1) ∈ {(𝑚 + 1)} ↔ (𝑔‘1) = (𝑚 + 1)) |
140 | | inelcm 4032 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (((𝑔‘1) ∈ (1...𝑚) ∧ (𝑔‘1) ∈ {(𝑚 + 1)}) → ((1...𝑚) ∩ {(𝑚 + 1)}) ≠ ∅) |
141 | 139, 140 | sylan2br 493 |
. . . . . . . . . . . . . . . . . . 19
⊢ (((𝑔‘1) ∈ (1...𝑚) ∧ (𝑔‘1) = (𝑚 + 1)) → ((1...𝑚) ∩ {(𝑚 + 1)}) ≠ ∅) |
142 | 141 | necon2bi 2824 |
. . . . . . . . . . . . . . . . . 18
⊢
(((1...𝑚) ∩
{(𝑚 + 1)}) = ∅ →
¬ ((𝑔‘1) ∈
(1...𝑚) ∧ (𝑔‘1) = (𝑚 + 1))) |
143 | 138, 142 | ax-mp 5 |
. . . . . . . . . . . . . . . . 17
⊢ ¬
((𝑔‘1) ∈
(1...𝑚) ∧ (𝑔‘1) = (𝑚 + 1)) |
144 | 143 | rgenw 2924 |
. . . . . . . . . . . . . . . 16
⊢
∀𝑔 ∈
𝐴 ¬ ((𝑔‘1) ∈ (1...𝑚) ∧ (𝑔‘1) = (𝑚 + 1)) |
145 | | rabeq0 3957 |
. . . . . . . . . . . . . . . 16
⊢ ({𝑔 ∈ 𝐴 ∣ ((𝑔‘1) ∈ (1...𝑚) ∧ (𝑔‘1) = (𝑚 + 1))} = ∅ ↔ ∀𝑔 ∈ 𝐴 ¬ ((𝑔‘1) ∈ (1...𝑚) ∧ (𝑔‘1) = (𝑚 + 1))) |
146 | 144, 145 | mpbir 221 |
. . . . . . . . . . . . . . 15
⊢ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) ∈ (1...𝑚) ∧ (𝑔‘1) = (𝑚 + 1))} = ∅ |
147 | 137, 146 | eqtri 2644 |
. . . . . . . . . . . . . 14
⊢ ({𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ∩ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}) = ∅ |
148 | | hashun 13171 |
. . . . . . . . . . . . . 14
⊢ (({𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ∈ Fin ∧ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)} ∈ Fin ∧ ({𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ∩ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}) = ∅) → (#‘({𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ∪ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)})) = ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) + (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}))) |
149 | 133, 136,
147, 148 | mp3an 1424 |
. . . . . . . . . . . . 13
⊢
(#‘({𝑔 ∈
𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)} ∪ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)})) = ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) + (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)})) |
150 | 126, 149 | syl6eq 2672 |
. . . . . . . . . . . 12
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) + (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}))) |
151 | | nncn 11028 |
. . . . . . . . . . . . . . . 16
⊢ (𝑚 ∈ ℕ → 𝑚 ∈
ℂ) |
152 | 151 | ad2antlr 763 |
. . . . . . . . . . . . . . 15
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → 𝑚 ∈
ℂ) |
153 | | ax-1cn 9994 |
. . . . . . . . . . . . . . . 16
⊢ 1 ∈
ℂ |
154 | 153 | a1i 11 |
. . . . . . . . . . . . . . 15
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → 1 ∈
ℂ) |
155 | 152, 154,
154 | addsubd 10413 |
. . . . . . . . . . . . . 14
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → ((𝑚 + 1) − 1) = ((𝑚 − 1) +
1)) |
156 | 155 | oveq1d 6665 |
. . . . . . . . . . . . 13
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (((𝑚 + 1) − 1) ·
((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) = (((𝑚 − 1) + 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) |
157 | | subcl 10280 |
. . . . . . . . . . . . . . 15
⊢ ((𝑚 ∈ ℂ ∧ 1 ∈
ℂ) → (𝑚 −
1) ∈ ℂ) |
158 | 152, 153,
157 | sylancl 694 |
. . . . . . . . . . . . . 14
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (𝑚 − 1) ∈
ℂ) |
159 | 109 | ad2antrr 762 |
. . . . . . . . . . . . . . 15
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))) ∈
ℕ0) |
160 | 159 | nn0cnd 11353 |
. . . . . . . . . . . . . 14
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))) ∈
ℂ) |
161 | 158, 154,
160 | adddird 10065 |
. . . . . . . . . . . . 13
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (((𝑚 − 1) + 1) ·
((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) = (((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) + (1 · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) |
162 | 160 | mulid2d 10058 |
. . . . . . . . . . . . . . 15
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (1 ·
((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) = ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) |
163 | | exmidne 2804 |
. . . . . . . . . . . . . . . . . . . . . . . 24
⊢ ((𝑔‘(𝑚 + 1)) = 1 ∨ (𝑔‘(𝑚 + 1)) ≠ 1) |
164 | | orcom 402 |
. . . . . . . . . . . . . . . . . . . . . . . 24
⊢ (((𝑔‘(𝑚 + 1)) = 1 ∨ (𝑔‘(𝑚 + 1)) ≠ 1) ↔ ((𝑔‘(𝑚 + 1)) ≠ 1 ∨ (𝑔‘(𝑚 + 1)) = 1)) |
165 | 163, 164 | mpbi 220 |
. . . . . . . . . . . . . . . . . . . . . . 23
⊢ ((𝑔‘(𝑚 + 1)) ≠ 1 ∨ (𝑔‘(𝑚 + 1)) = 1) |
166 | 165 | biantru 526 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ ((𝑔‘1) = (𝑚 + 1) ↔ ((𝑔‘1) = (𝑚 + 1) ∧ ((𝑔‘(𝑚 + 1)) ≠ 1 ∨ (𝑔‘(𝑚 + 1)) = 1))) |
167 | | andi 911 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (((𝑔‘1) = (𝑚 + 1) ∧ ((𝑔‘(𝑚 + 1)) ≠ 1 ∨ (𝑔‘(𝑚 + 1)) = 1)) ↔ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∨ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1))) |
168 | 166, 167 | bitri 264 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ((𝑔‘1) = (𝑚 + 1) ↔ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∨ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1))) |
169 | 168 | a1i 11 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑔 ∈ 𝐴 → ((𝑔‘1) = (𝑚 + 1) ↔ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∨ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)))) |
170 | 169 | rabbiia 3185 |
. . . . . . . . . . . . . . . . . . 19
⊢ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)} = {𝑔 ∈ 𝐴 ∣ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∨ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1))} |
171 | | unrab 3898 |
. . . . . . . . . . . . . . . . . . 19
⊢ ({𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ∪ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)}) = {𝑔 ∈ 𝐴 ∣ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∨ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1))} |
172 | 170, 171 | eqtr4i 2647 |
. . . . . . . . . . . . . . . . . 18
⊢ {𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)} = ({𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ∪ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)}) |
173 | 172 | fveq2i 6194 |
. . . . . . . . . . . . . . . . 17
⊢
(#‘{𝑔 ∈
𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}) = (#‘({𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ∪ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)})) |
174 | | ssrab2 3687 |
. . . . . . . . . . . . . . . . . . 19
⊢ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ⊆ 𝐴 |
175 | | ssfi 8180 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((𝐴 ∈ Fin ∧ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ⊆ 𝐴) → {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ∈ Fin) |
176 | 130, 174,
175 | mp2an 708 |
. . . . . . . . . . . . . . . . . 18
⊢ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ∈ Fin |
177 | | ssrab2 3687 |
. . . . . . . . . . . . . . . . . . 19
⊢ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)} ⊆ 𝐴 |
178 | | ssfi 8180 |
. . . . . . . . . . . . . . . . . . 19
⊢ ((𝐴 ∈ Fin ∧ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)} ⊆ 𝐴) → {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)} ∈ Fin) |
179 | 130, 177,
178 | mp2an 708 |
. . . . . . . . . . . . . . . . . 18
⊢ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)} ∈ Fin |
180 | | inrab 3899 |
. . . . . . . . . . . . . . . . . . 19
⊢ ({𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ∩ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)}) = {𝑔 ∈ 𝐴 ∣ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∧ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1))} |
181 | | simpr 477 |
. . . . . . . . . . . . . . . . . . . . . . . 24
⊢ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1) → (𝑔‘(𝑚 + 1)) = 1) |
182 | 181 | necon3ai 2819 |
. . . . . . . . . . . . . . . . . . . . . . 23
⊢ ((𝑔‘(𝑚 + 1)) ≠ 1 → ¬ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)) |
183 | 182 | adantl 482 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) → ¬ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)) |
184 | | imnan 438 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ ((((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) → ¬ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)) ↔ ¬ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∧ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1))) |
185 | 183, 184 | mpbi 220 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ ¬
(((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∧ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)) |
186 | 185 | rgenw 2924 |
. . . . . . . . . . . . . . . . . . . 20
⊢
∀𝑔 ∈
𝐴 ¬ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∧ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)) |
187 | | rabeq0 3957 |
. . . . . . . . . . . . . . . . . . . 20
⊢ ({𝑔 ∈ 𝐴 ∣ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∧ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1))} = ∅ ↔ ∀𝑔 ∈ 𝐴 ¬ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∧ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1))) |
188 | 186, 187 | mpbir 221 |
. . . . . . . . . . . . . . . . . . 19
⊢ {𝑔 ∈ 𝐴 ∣ (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ∧ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1))} = ∅ |
189 | 180, 188 | eqtri 2644 |
. . . . . . . . . . . . . . . . . 18
⊢ ({𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ∩ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)}) = ∅ |
190 | | hashun 13171 |
. . . . . . . . . . . . . . . . . 18
⊢ (({𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ∈ Fin ∧ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)} ∈ Fin ∧ ({𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ∩ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)}) = ∅) →
(#‘({𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ∪ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)})) = ((#‘{𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)}) + (#‘{𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)}))) |
191 | 176, 179,
189, 190 | mp3an 1424 |
. . . . . . . . . . . . . . . . 17
⊢
(#‘({𝑔 ∈
𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} ∪ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)})) = ((#‘{𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)}) + (#‘{𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)})) |
192 | 173, 191 | eqtri 2644 |
. . . . . . . . . . . . . . . 16
⊢
(#‘{𝑔 ∈
𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}) = ((#‘{𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)}) + (#‘{𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)})) |
193 | | simpll 790 |
. . . . . . . . . . . . . . . . . 18
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → 𝑁 ∈ ℕ) |
194 | | nnne0 11053 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (𝑚 ∈ ℕ → 𝑚 ≠ 0) |
195 | | 0p1e1 11132 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
⊢ (0 + 1) =
1 |
196 | 195 | eqeq2i 2634 |
. . . . . . . . . . . . . . . . . . . . . . . 24
⊢ ((𝑚 + 1) = (0 + 1) ↔ (𝑚 + 1) = 1) |
197 | | 0cn 10032 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
⊢ 0 ∈
ℂ |
198 | | addcan2 10221 |
. . . . . . . . . . . . . . . . . . . . . . . . . 26
⊢ ((𝑚 ∈ ℂ ∧ 0 ∈
ℂ ∧ 1 ∈ ℂ) → ((𝑚 + 1) = (0 + 1) ↔ 𝑚 = 0)) |
199 | 197, 153,
198 | mp3an23 1416 |
. . . . . . . . . . . . . . . . . . . . . . . . 25
⊢ (𝑚 ∈ ℂ → ((𝑚 + 1) = (0 + 1) ↔ 𝑚 = 0)) |
200 | 151, 199 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . . . 24
⊢ (𝑚 ∈ ℕ → ((𝑚 + 1) = (0 + 1) ↔ 𝑚 = 0)) |
201 | 196, 200 | syl5bbr 274 |
. . . . . . . . . . . . . . . . . . . . . . 23
⊢ (𝑚 ∈ ℕ → ((𝑚 + 1) = 1 ↔ 𝑚 = 0)) |
202 | 201 | necon3bbid 2831 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (𝑚 ∈ ℕ → (¬
(𝑚 + 1) = 1 ↔ 𝑚 ≠ 0)) |
203 | 194, 202 | mpbird 247 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝑚 ∈ ℕ → ¬
(𝑚 + 1) =
1) |
204 | 203 | ad2antlr 763 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → ¬ (𝑚 + 1) = 1) |
205 | 14 | adantr 481 |
. . . . . . . . . . . . . . . . . . . . . . 23
⊢ ((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) → (𝑁 + 1) ∈
(ℤ≥‘1)) |
206 | | elfzp12 12419 |
. . . . . . . . . . . . . . . . . . . . . . 23
⊢ ((𝑁 + 1) ∈
(ℤ≥‘1) → ((𝑚 + 1) ∈ (1...(𝑁 + 1)) ↔ ((𝑚 + 1) = 1 ∨ (𝑚 + 1) ∈ ((1 + 1)...(𝑁 + 1))))) |
207 | 205, 206 | syl 17 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ ((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) → ((𝑚 + 1) ∈ (1...(𝑁 + 1)) ↔ ((𝑚 + 1) = 1 ∨ (𝑚 + 1) ∈ ((1 + 1)...(𝑁 + 1))))) |
208 | 207 | biimpa 501 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → ((𝑚 + 1) = 1 ∨ (𝑚 + 1) ∈ ((1 + 1)...(𝑁 + 1)))) |
209 | 208 | ord 392 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (¬ (𝑚 + 1) = 1 → (𝑚 + 1) ∈ ((1 + 1)...(𝑁 + 1)))) |
210 | 204, 209 | mpd 15 |
. . . . . . . . . . . . . . . . . . 19
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (𝑚 + 1) ∈ ((1 + 1)...(𝑁 + 1))) |
211 | | df-2 11079 |
. . . . . . . . . . . . . . . . . . . 20
⊢ 2 = (1 +
1) |
212 | 211 | oveq1i 6660 |
. . . . . . . . . . . . . . . . . . 19
⊢
(2...(𝑁 + 1)) = ((1
+ 1)...(𝑁 +
1)) |
213 | 210, 212 | syl6eleqr 2712 |
. . . . . . . . . . . . . . . . . 18
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (𝑚 + 1) ∈ (2...(𝑁 + 1))) |
214 | | ovex 6678 |
. . . . . . . . . . . . . . . . . 18
⊢ (𝑚 + 1) ∈ V |
215 | | eqid 2622 |
. . . . . . . . . . . . . . . . . 18
⊢
((2...(𝑁 + 1))
∖ {(𝑚 + 1)}) =
((2...(𝑁 + 1)) ∖
{(𝑚 + 1)}) |
216 | | fveq1 6190 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝑔 = ℎ → (𝑔‘1) = (ℎ‘1)) |
217 | 216 | eqeq1d 2624 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑔 = ℎ → ((𝑔‘1) = (𝑚 + 1) ↔ (ℎ‘1) = (𝑚 + 1))) |
218 | | fveq1 6190 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝑔 = ℎ → (𝑔‘(𝑚 + 1)) = (ℎ‘(𝑚 + 1))) |
219 | 218 | neeq1d 2853 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑔 = ℎ → ((𝑔‘(𝑚 + 1)) ≠ 1 ↔ (ℎ‘(𝑚 + 1)) ≠ 1)) |
220 | 217, 219 | anbi12d 747 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑔 = ℎ → (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1) ↔ ((ℎ‘1) = (𝑚 + 1) ∧ (ℎ‘(𝑚 + 1)) ≠ 1))) |
221 | 220 | cbvrabv 3199 |
. . . . . . . . . . . . . . . . . 18
⊢ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)} = {ℎ ∈ 𝐴 ∣ ((ℎ‘1) = (𝑚 + 1) ∧ (ℎ‘(𝑚 + 1)) ≠ 1)} |
222 | | eqid 2622 |
. . . . . . . . . . . . . . . . . 18
⊢ (( I
↾ ((2...(𝑁 + 1))
∖ {(𝑚 + 1)})) ∪
{〈1, (𝑚 + 1)〉,
〈(𝑚 + 1), 1〉}) =
(( I ↾ ((2...(𝑁 + 1))
∖ {(𝑚 + 1)})) ∪
{〈1, (𝑚 + 1)〉,
〈(𝑚 + 1),
1〉}) |
223 | | f1oeq1 6127 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑔 = 𝑓 → (𝑔:(2...(𝑁 + 1))–1-1-onto→(2...(𝑁 + 1)) ↔ 𝑓:(2...(𝑁 + 1))–1-1-onto→(2...(𝑁 + 1)))) |
224 | | fveq2 6191 |
. . . . . . . . . . . . . . . . . . . . . . 23
⊢ (𝑧 = 𝑦 → (𝑔‘𝑧) = (𝑔‘𝑦)) |
225 | | id 22 |
. . . . . . . . . . . . . . . . . . . . . . 23
⊢ (𝑧 = 𝑦 → 𝑧 = 𝑦) |
226 | 224, 225 | neeq12d 2855 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (𝑧 = 𝑦 → ((𝑔‘𝑧) ≠ 𝑧 ↔ (𝑔‘𝑦) ≠ 𝑦)) |
227 | 226 | cbvralv 3171 |
. . . . . . . . . . . . . . . . . . . . 21
⊢
(∀𝑧 ∈
(2...(𝑁 + 1))(𝑔‘𝑧) ≠ 𝑧 ↔ ∀𝑦 ∈ (2...(𝑁 + 1))(𝑔‘𝑦) ≠ 𝑦) |
228 | | fveq1 6190 |
. . . . . . . . . . . . . . . . . . . . . . 23
⊢ (𝑔 = 𝑓 → (𝑔‘𝑦) = (𝑓‘𝑦)) |
229 | 228 | neeq1d 2853 |
. . . . . . . . . . . . . . . . . . . . . 22
⊢ (𝑔 = 𝑓 → ((𝑔‘𝑦) ≠ 𝑦 ↔ (𝑓‘𝑦) ≠ 𝑦)) |
230 | 229 | ralbidv 2986 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝑔 = 𝑓 → (∀𝑦 ∈ (2...(𝑁 + 1))(𝑔‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ (2...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)) |
231 | 227, 230 | syl5bb 272 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑔 = 𝑓 → (∀𝑧 ∈ (2...(𝑁 + 1))(𝑔‘𝑧) ≠ 𝑧 ↔ ∀𝑦 ∈ (2...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)) |
232 | 223, 231 | anbi12d 747 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑔 = 𝑓 → ((𝑔:(2...(𝑁 + 1))–1-1-onto→(2...(𝑁 + 1)) ∧ ∀𝑧 ∈ (2...(𝑁 + 1))(𝑔‘𝑧) ≠ 𝑧) ↔ (𝑓:(2...(𝑁 + 1))–1-1-onto→(2...(𝑁 + 1)) ∧ ∀𝑦 ∈ (2...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦))) |
233 | 232 | cbvabv 2747 |
. . . . . . . . . . . . . . . . . 18
⊢ {𝑔 ∣ (𝑔:(2...(𝑁 + 1))–1-1-onto→(2...(𝑁 + 1)) ∧ ∀𝑧 ∈ (2...(𝑁 + 1))(𝑔‘𝑧) ≠ 𝑧)} = {𝑓 ∣ (𝑓:(2...(𝑁 + 1))–1-1-onto→(2...(𝑁 + 1)) ∧ ∀𝑦 ∈ (2...(𝑁 + 1))(𝑓‘𝑦) ≠ 𝑦)} |
234 | 3, 4, 10, 193, 213, 214, 215, 221, 222, 233 | subfacp1lem5 31166 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (#‘{𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)}) = (𝑆‘𝑁)) |
235 | 218 | eqeq1d 2624 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑔 = ℎ → ((𝑔‘(𝑚 + 1)) = 1 ↔ (ℎ‘(𝑚 + 1)) = 1)) |
236 | 217, 235 | anbi12d 747 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑔 = ℎ → (((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1) ↔ ((ℎ‘1) = (𝑚 + 1) ∧ (ℎ‘(𝑚 + 1)) = 1))) |
237 | 236 | cbvrabv 3199 |
. . . . . . . . . . . . . . . . . 18
⊢ {𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)} = {ℎ ∈ 𝐴 ∣ ((ℎ‘1) = (𝑚 + 1) ∧ (ℎ‘(𝑚 + 1)) = 1)} |
238 | | f1oeq1 6127 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑔 = 𝑓 → (𝑔:((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})–1-1-onto→((2...(𝑁 + 1)) ∖ {(𝑚 + 1)}) ↔ 𝑓:((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})–1-1-onto→((2...(𝑁 + 1)) ∖ {(𝑚 + 1)}))) |
239 | 226 | cbvralv 3171 |
. . . . . . . . . . . . . . . . . . . . 21
⊢
(∀𝑧 ∈
((2...(𝑁 + 1)) ∖
{(𝑚 + 1)})(𝑔‘𝑧) ≠ 𝑧 ↔ ∀𝑦 ∈ ((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})(𝑔‘𝑦) ≠ 𝑦) |
240 | 229 | ralbidv 2986 |
. . . . . . . . . . . . . . . . . . . . 21
⊢ (𝑔 = 𝑓 → (∀𝑦 ∈ ((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})(𝑔‘𝑦) ≠ 𝑦 ↔ ∀𝑦 ∈ ((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})(𝑓‘𝑦) ≠ 𝑦)) |
241 | 239, 240 | syl5bb 272 |
. . . . . . . . . . . . . . . . . . . 20
⊢ (𝑔 = 𝑓 → (∀𝑧 ∈ ((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})(𝑔‘𝑧) ≠ 𝑧 ↔ ∀𝑦 ∈ ((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})(𝑓‘𝑦) ≠ 𝑦)) |
242 | 238, 241 | anbi12d 747 |
. . . . . . . . . . . . . . . . . . 19
⊢ (𝑔 = 𝑓 → ((𝑔:((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})–1-1-onto→((2...(𝑁 + 1)) ∖ {(𝑚 + 1)}) ∧ ∀𝑧 ∈ ((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})(𝑔‘𝑧) ≠ 𝑧) ↔ (𝑓:((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})–1-1-onto→((2...(𝑁 + 1)) ∖ {(𝑚 + 1)}) ∧ ∀𝑦 ∈ ((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})(𝑓‘𝑦) ≠ 𝑦))) |
243 | 242 | cbvabv 2747 |
. . . . . . . . . . . . . . . . . 18
⊢ {𝑔 ∣ (𝑔:((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})–1-1-onto→((2...(𝑁 + 1)) ∖ {(𝑚 + 1)}) ∧ ∀𝑧 ∈ ((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})(𝑔‘𝑧) ≠ 𝑧)} = {𝑓 ∣ (𝑓:((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})–1-1-onto→((2...(𝑁 + 1)) ∖ {(𝑚 + 1)}) ∧ ∀𝑦 ∈ ((2...(𝑁 + 1)) ∖ {(𝑚 + 1)})(𝑓‘𝑦) ≠ 𝑦)} |
244 | 3, 4, 10, 193, 213, 214, 215, 237, 243 | subfacp1lem3 31164 |
. . . . . . . . . . . . . . . . 17
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (#‘{𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)}) = (𝑆‘(𝑁 − 1))) |
245 | 234, 244 | oveq12d 6668 |
. . . . . . . . . . . . . . . 16
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → ((#‘{𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) ≠ 1)}) + (#‘{𝑔 ∈ 𝐴 ∣ ((𝑔‘1) = (𝑚 + 1) ∧ (𝑔‘(𝑚 + 1)) = 1)})) = ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) |
246 | 192, 245 | syl5eq 2668 |
. . . . . . . . . . . . . . 15
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}) = ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) |
247 | 162, 246 | eqtr4d 2659 |
. . . . . . . . . . . . . 14
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (1 ·
((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) = (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)})) |
248 | 247 | oveq2d 6666 |
. . . . . . . . . . . . 13
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) + (1 · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) = (((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) + (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}))) |
249 | 156, 161,
248 | 3eqtrd 2660 |
. . . . . . . . . . . 12
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → (((𝑚 + 1) − 1) ·
((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) = (((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) + (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)}))) |
250 | 150, 249 | eqeq12d 2637 |
. . . . . . . . . . 11
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = (((𝑚 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) ↔ ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) + (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)})) = (((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) + (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) = (𝑚 + 1)})))) |
251 | 120, 250 | syl5ibr 236 |
. . . . . . . . . 10
⊢ (((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) ∧ (𝑚 + 1) ∈ (1...(𝑁 + 1))) → ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = (((𝑚 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) |
252 | 251 | ex 450 |
. . . . . . . . 9
⊢ ((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) → ((𝑚 + 1) ∈ (1...(𝑁 + 1)) → ((#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = (((𝑚 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))))) |
253 | 252 | a2d 29 |
. . . . . . . 8
⊢ ((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) → (((𝑚 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) → ((𝑚 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = (((𝑚 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))))) |
254 | 119, 253 | syld 47 |
. . . . . . 7
⊢ ((𝑁 ∈ ℕ ∧ 𝑚 ∈ ℕ) → ((𝑚 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) → ((𝑚 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = (((𝑚 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))))) |
255 | 254 | expcom 451 |
. . . . . 6
⊢ (𝑚 ∈ ℕ → (𝑁 ∈ ℕ → ((𝑚 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) → ((𝑚 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = (((𝑚 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))))) |
256 | 255 | a2d 29 |
. . . . 5
⊢ (𝑚 ∈ ℕ → ((𝑁 ∈ ℕ → (𝑚 ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...𝑚)}) = ((𝑚 − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) → (𝑁 ∈ ℕ → ((𝑚 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑚 + 1))}) = (((𝑚 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))))) |
257 | 53, 63, 73, 83, 113, 256 | nnind 11038 |
. . . 4
⊢ ((𝑁 + 1) ∈ ℕ →
(𝑁 ∈ ℕ →
((𝑁 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))}) = (((𝑁 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))))) |
258 | 1, 257 | mpcom 38 |
. . 3
⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) ∈ (1...(𝑁 + 1)) → (#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))}) = (((𝑁 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))))) |
259 | 34, 258 | mpd 15 |
. 2
⊢ (𝑁 ∈ ℕ →
(#‘{𝑔 ∈ 𝐴 ∣ (𝑔‘1) ∈ (1...(𝑁 + 1))}) = (((𝑁 + 1) − 1) · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) |
260 | | nncn 11028 |
. . . 4
⊢ (𝑁 ∈ ℕ → 𝑁 ∈
ℂ) |
261 | | pncan 10287 |
. . . 4
⊢ ((𝑁 ∈ ℂ ∧ 1 ∈
ℂ) → ((𝑁 + 1)
− 1) = 𝑁) |
262 | 260, 153,
261 | sylancl 694 |
. . 3
⊢ (𝑁 ∈ ℕ → ((𝑁 + 1) − 1) = 𝑁) |
263 | 262 | oveq1d 6665 |
. 2
⊢ (𝑁 ∈ ℕ → (((𝑁 + 1) − 1) ·
((𝑆‘𝑁) + (𝑆‘(𝑁 − 1)))) = (𝑁 · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) |
264 | 32, 259, 263 | 3eqtrd 2660 |
1
⊢ (𝑁 ∈ ℕ → (𝑆‘(𝑁 + 1)) = (𝑁 · ((𝑆‘𝑁) + (𝑆‘(𝑁 − 1))))) |