Step | Hyp | Ref
| Expression |
1 | | fveq2 6888 |
. . . . . . . 8
β’ (π = π β (ΞΌβπ) = (ΞΌβπ)) |
2 | 1 | neeq1d 3001 |
. . . . . . 7
β’ (π = π β ((ΞΌβπ) β 0 β (ΞΌβπ) β 0)) |
3 | | breq1 5150 |
. . . . . . 7
β’ (π = π β (π β₯ π β π β₯ π)) |
4 | 2, 3 | anbi12d 632 |
. . . . . 6
β’ (π = π β (((ΞΌβπ) β 0 β§ π β₯ π) β ((ΞΌβπ) β 0 β§ π β₯ π))) |
5 | 4 | elrab 3682 |
. . . . 5
β’ (π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)} β (π β β β§ ((ΞΌβπ) β 0 β§ π β₯ π))) |
6 | | muval2 26618 |
. . . . . 6
β’ ((π β β β§
(ΞΌβπ) β 0)
β (ΞΌβπ) =
(-1β(β―β{π
β β β£ π
β₯ π}))) |
7 | 6 | adantrr 716 |
. . . . 5
β’ ((π β β β§
((ΞΌβπ) β 0
β§ π β₯ π)) β (ΞΌβπ) =
(-1β(β―β{π
β β β£ π
β₯ π}))) |
8 | 5, 7 | sylbi 216 |
. . . 4
β’ (π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)} β (ΞΌβπ) = (-1β(β―β{π β β β£ π β₯ π}))) |
9 | 8 | adantl 483 |
. . 3
β’ ((π β β β§ π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}) β (ΞΌβπ) = (-1β(β―β{π β β β£ π β₯ π}))) |
10 | 9 | sumeq2dv 15645 |
. 2
β’ (π β β β
Ξ£π β {π β β β£
((ΞΌβπ) β 0
β§ π β₯ π)} (ΞΌβπ) = Ξ£π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)} (-1β(β―β{π β β β£ π β₯ π}))) |
11 | | simpr 486 |
. . . . 5
β’
(((ΞΌβπ)
β 0 β§ π β₯
π) β π β₯ π) |
12 | 11 | a1i 11 |
. . . 4
β’ ((π β β β§ π β β) β
(((ΞΌβπ) β 0
β§ π β₯ π) β π β₯ π)) |
13 | 12 | ss2rabdv 4072 |
. . 3
β’ (π β β β {π β β β£
((ΞΌβπ) β 0
β§ π β₯ π)} β {π β β β£ π β₯ π}) |
14 | | ssrab2 4076 |
. . . . . 6
β’ {π β β β£
((ΞΌβπ) β 0
β§ π β₯ π)} β
β |
15 | | simpr 486 |
. . . . . 6
β’ ((π β β β§ π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}) β π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}) |
16 | 14, 15 | sselid 3979 |
. . . . 5
β’ ((π β β β§ π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}) β π β β) |
17 | | mucl 26625 |
. . . . 5
β’ (π β β β
(ΞΌβπ) β
β€) |
18 | 16, 17 | syl 17 |
. . . 4
β’ ((π β β β§ π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}) β (ΞΌβπ) β β€) |
19 | 18 | zcnd 12663 |
. . 3
β’ ((π β β β§ π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}) β (ΞΌβπ) β β) |
20 | | difrab 4307 |
. . . . . . 7
β’ ({π β β β£ π β₯ π} β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}) = {π β β β£ (π β₯ π β§ Β¬ ((ΞΌβπ) β 0 β§ π β₯ π))} |
21 | | pm3.21 473 |
. . . . . . . . . . 11
β’ (π β₯ π β ((ΞΌβπ) β 0 β ((ΞΌβπ) β 0 β§ π β₯ π))) |
22 | 21 | necon1bd 2959 |
. . . . . . . . . 10
β’ (π β₯ π β (Β¬ ((ΞΌβπ) β 0 β§ π β₯ π) β (ΞΌβπ) = 0)) |
23 | 22 | imp 408 |
. . . . . . . . 9
β’ ((π β₯ π β§ Β¬ ((ΞΌβπ) β 0 β§ π β₯ π)) β (ΞΌβπ) = 0) |
24 | 23 | a1i 11 |
. . . . . . . 8
β’ (π β β β ((π β₯ π β§ Β¬ ((ΞΌβπ) β 0 β§ π β₯ π)) β (ΞΌβπ) = 0)) |
25 | 24 | ss2rabi 4073 |
. . . . . . 7
β’ {π β β β£ (π β₯ π β§ Β¬ ((ΞΌβπ) β 0 β§ π β₯ π))} β {π β β β£ (ΞΌβπ) = 0} |
26 | 20, 25 | eqsstri 4015 |
. . . . . 6
β’ ({π β β β£ π β₯ π} β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}) β {π β β β£ (ΞΌβπ) = 0} |
27 | 26 | sseli 3977 |
. . . . 5
β’ (π β ({π β β β£ π β₯ π} β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}) β π β {π β β β£ (ΞΌβπ) = 0}) |
28 | | fveqeq2 6897 |
. . . . . . 7
β’ (π = π β ((ΞΌβπ) = 0 β (ΞΌβπ) = 0)) |
29 | 28 | elrab 3682 |
. . . . . 6
β’ (π β {π β β β£ (ΞΌβπ) = 0} β (π β β β§
(ΞΌβπ) =
0)) |
30 | 29 | simprbi 498 |
. . . . 5
β’ (π β {π β β β£ (ΞΌβπ) = 0} β (ΞΌβπ) = 0) |
31 | 27, 30 | syl 17 |
. . . 4
β’ (π β ({π β β β£ π β₯ π} β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}) β (ΞΌβπ) = 0) |
32 | 31 | adantl 483 |
. . 3
β’ ((π β β β§ π β ({π β β β£ π β₯ π} β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)})) β (ΞΌβπ) = 0) |
33 | | fzfid 13934 |
. . . 4
β’ (π β β β
(1...π) β
Fin) |
34 | | dvdsssfz1 16257 |
. . . 4
β’ (π β β β {π β β β£ π β₯ π} β (1...π)) |
35 | 33, 34 | ssfid 9263 |
. . 3
β’ (π β β β {π β β β£ π β₯ π} β Fin) |
36 | 13, 19, 32, 35 | fsumss 15667 |
. 2
β’ (π β β β
Ξ£π β {π β β β£
((ΞΌβπ) β 0
β§ π β₯ π)} (ΞΌβπ) = Ξ£π β {π β β β£ π β₯ π} (ΞΌβπ)) |
37 | | fveq2 6888 |
. . . . 5
β’ (π₯ = {π β β β£ π β₯ π} β (β―βπ₯) = (β―β{π β β β£ π β₯ π})) |
38 | 37 | oveq2d 7420 |
. . . 4
β’ (π₯ = {π β β β£ π β₯ π} β (-1β(β―βπ₯)) =
(-1β(β―β{π
β β β£ π
β₯ π}))) |
39 | 35, 13 | ssfid 9263 |
. . . 4
β’ (π β β β {π β β β£
((ΞΌβπ) β 0
β§ π β₯ π)} β Fin) |
40 | | eqid 2733 |
. . . . 5
β’ {π β β β£
((ΞΌβπ) β 0
β§ π β₯ π)} = {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)} |
41 | | eqid 2733 |
. . . . 5
β’ (π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)} β¦ {π β β β£ π β₯ π}) = (π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)} β¦ {π β β β£ π β₯ π}) |
42 | | oveq1 7411 |
. . . . . . . 8
β’ (π = π β (π pCnt π₯) = (π pCnt π₯)) |
43 | 42 | cbvmptv 5260 |
. . . . . . 7
β’ (π β β β¦ (π pCnt π₯)) = (π β β β¦ (π pCnt π₯)) |
44 | | oveq2 7412 |
. . . . . . . 8
β’ (π₯ = π β (π pCnt π₯) = (π pCnt π)) |
45 | 44 | mpteq2dv 5249 |
. . . . . . 7
β’ (π₯ = π β (π β β β¦ (π pCnt π₯)) = (π β β β¦ (π pCnt π))) |
46 | 43, 45 | eqtrid 2785 |
. . . . . 6
β’ (π₯ = π β (π β β β¦ (π pCnt π₯)) = (π β β β¦ (π pCnt π))) |
47 | 46 | cbvmptv 5260 |
. . . . 5
β’ (π₯ β β β¦ (π β β β¦ (π pCnt π₯))) = (π β β β¦ (π β β β¦ (π pCnt π))) |
48 | 40, 41, 47 | sqff1o 26666 |
. . . 4
β’ (π β β β (π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)} β¦ {π β β β£ π β₯ π}):{π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}β1-1-ontoβπ« {π β β β£ π β₯ π}) |
49 | | breq2 5151 |
. . . . . . 7
β’ (π = π β (π β₯ π β π β₯ π)) |
50 | 49 | rabbidv 3441 |
. . . . . 6
β’ (π = π β {π β β β£ π β₯ π} = {π β β β£ π β₯ π}) |
51 | | prmex 16610 |
. . . . . . 7
β’ β
β V |
52 | 51 | rabex 5331 |
. . . . . 6
β’ {π β β β£ π β₯ π} β V |
53 | 50, 41, 52 | fvmpt 6994 |
. . . . 5
β’ (π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)} β ((π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)} β¦ {π β β β£ π β₯ π})βπ) = {π β β β£ π β₯ π}) |
54 | 53 | adantl 483 |
. . . 4
β’ ((π β β β§ π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)}) β ((π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)} β¦ {π β β β£ π β₯ π})βπ) = {π β β β£ π β₯ π}) |
55 | | neg1cn 12322 |
. . . . 5
β’ -1 β
β |
56 | | prmdvdsfi 26591 |
. . . . . . 7
β’ (π β β β {π β β β£ π β₯ π} β Fin) |
57 | | elpwi 4608 |
. . . . . . 7
β’ (π₯ β π« {π β β β£ π β₯ π} β π₯ β {π β β β£ π β₯ π}) |
58 | | ssfi 9169 |
. . . . . . 7
β’ (({π β β β£ π β₯ π} β Fin β§ π₯ β {π β β β£ π β₯ π}) β π₯ β Fin) |
59 | 56, 57, 58 | syl2an 597 |
. . . . . 6
β’ ((π β β β§ π₯ β π« {π β β β£ π β₯ π}) β π₯ β Fin) |
60 | | hashcl 14312 |
. . . . . 6
β’ (π₯ β Fin β
(β―βπ₯) β
β0) |
61 | 59, 60 | syl 17 |
. . . . 5
β’ ((π β β β§ π₯ β π« {π β β β£ π β₯ π}) β (β―βπ₯) β
β0) |
62 | | expcl 14041 |
. . . . 5
β’ ((-1
β β β§ (β―βπ₯) β β0) β
(-1β(β―βπ₯))
β β) |
63 | 55, 61, 62 | sylancr 588 |
. . . 4
β’ ((π β β β§ π₯ β π« {π β β β£ π β₯ π}) β (-1β(β―βπ₯)) β
β) |
64 | 38, 39, 48, 54, 63 | fsumf1o 15665 |
. . 3
β’ (π β β β
Ξ£π₯ β π«
{π β β β£
π β₯ π} (-1β(β―βπ₯)) = Ξ£π β {π β β β£ ((ΞΌβπ) β 0 β§ π β₯ π)} (-1β(β―β{π β β β£ π β₯ π}))) |
65 | | fzfid 13934 |
. . . . 5
β’ (π β β β
(0...(β―β{π
β β β£ π
β₯ π})) β
Fin) |
66 | 56 | adantr 482 |
. . . . . . 7
β’ ((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β {π β β β£ π β₯ π} β Fin) |
67 | | pwfi 9174 |
. . . . . . 7
β’ ({π β β β£ π β₯ π} β Fin β π« {π β β β£ π β₯ π} β Fin) |
68 | 66, 67 | sylib 217 |
. . . . . 6
β’ ((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β
π« {π β β
β£ π β₯ π} β Fin) |
69 | | ssrab2 4076 |
. . . . . 6
β’ {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} β π« {π β β β£ π β₯ π} |
70 | | ssfi 9169 |
. . . . . 6
β’
((π« {π
β β β£ π
β₯ π} β Fin β§
{π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} β π« {π β β β£ π β₯ π}) β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} β Fin) |
71 | 68, 69, 70 | sylancl 587 |
. . . . 5
β’ ((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} β Fin) |
72 | | simprr 772 |
. . . . . . . 8
β’ ((π β β β§ (π§ β
(0...(β―β{π
β β β£ π
β₯ π})) β§ π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§})) β π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§}) |
73 | | fveqeq2 6897 |
. . . . . . . . . 10
β’ (π = π₯ β ((β―βπ ) = π§ β (β―βπ₯) = π§)) |
74 | 73 | elrab 3682 |
. . . . . . . . 9
β’ (π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} β (π₯ β π« {π β β β£ π β₯ π} β§ (β―βπ₯) = π§)) |
75 | 74 | simprbi 498 |
. . . . . . . 8
β’ (π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} β (β―βπ₯) = π§) |
76 | 72, 75 | syl 17 |
. . . . . . 7
β’ ((π β β β§ (π§ β
(0...(β―β{π
β β β£ π
β₯ π})) β§ π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§})) β (β―βπ₯) = π§) |
77 | 76 | ralrimivva 3201 |
. . . . . 6
β’ (π β β β
βπ§ β
(0...(β―β{π
β β β£ π
β₯ π}))βπ₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (β―βπ₯) = π§) |
78 | | invdisj 5131 |
. . . . . 6
β’
(βπ§ β
(0...(β―β{π
β β β£ π
β₯ π}))βπ₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (β―βπ₯) = π§ β Disj π§ β (0...(β―β{π β β β£ π β₯ π})){π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§}) |
79 | 77, 78 | syl 17 |
. . . . 5
β’ (π β β β
Disj π§ β
(0...(β―β{π
β β β£ π
β₯ π})){π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§}) |
80 | 56 | adantr 482 |
. . . . . . . 8
β’ ((π β β β§ (π§ β
(0...(β―β{π
β β β£ π
β₯ π})) β§ π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§})) β {π β β β£ π β₯ π} β Fin) |
81 | 69, 72 | sselid 3979 |
. . . . . . . . 9
β’ ((π β β β§ (π§ β
(0...(β―β{π
β β β£ π
β₯ π})) β§ π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§})) β π₯ β π« {π β β β£ π β₯ π}) |
82 | 81, 57 | syl 17 |
. . . . . . . 8
β’ ((π β β β§ (π§ β
(0...(β―β{π
β β β£ π
β₯ π})) β§ π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§})) β π₯ β {π β β β£ π β₯ π}) |
83 | 80, 82 | ssfid 9263 |
. . . . . . 7
β’ ((π β β β§ (π§ β
(0...(β―β{π
β β β£ π
β₯ π})) β§ π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§})) β π₯ β Fin) |
84 | 83, 60 | syl 17 |
. . . . . 6
β’ ((π β β β§ (π§ β
(0...(β―β{π
β β β£ π
β₯ π})) β§ π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§})) β (β―βπ₯) β
β0) |
85 | 55, 84, 62 | sylancr 588 |
. . . . 5
β’ ((π β β β§ (π§ β
(0...(β―β{π
β β β£ π
β₯ π})) β§ π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§})) β (-1β(β―βπ₯)) β
β) |
86 | 65, 71, 79, 85 | fsumiun 15763 |
. . . 4
β’ (π β β β
Ξ£π₯ β βͺ π§ β (0...(β―β{π β β β£ π β₯ π})){π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (-1β(β―βπ₯)) = Ξ£π§ β (0...(β―β{π β β β£ π β₯ π}))Ξ£π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (-1β(β―βπ₯))) |
87 | | iunrab 5054 |
. . . . . 6
β’ βͺ π§ β (0...(β―β{π β β β£ π β₯ π})){π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} = {π β π« {π β β β£ π β₯ π} β£ βπ§ β (0...(β―β{π β β β£ π β₯ π}))(β―βπ ) = π§} |
88 | 56 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β {π β β β£ π β₯ π} β Fin) |
89 | | elpwi 4608 |
. . . . . . . . . . . . 13
β’ (π β π« {π β β β£ π β₯ π} β π β {π β β β£ π β₯ π}) |
90 | 89 | adantl 483 |
. . . . . . . . . . . 12
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β π β {π β β β£ π β₯ π}) |
91 | | ssdomg 8992 |
. . . . . . . . . . . 12
β’ ({π β β β£ π β₯ π} β Fin β (π β {π β β β£ π β₯ π} β π βΌ {π β β β£ π β₯ π})) |
92 | 88, 90, 91 | sylc 65 |
. . . . . . . . . . 11
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β π βΌ {π β β β£ π β₯ π}) |
93 | | ssfi 9169 |
. . . . . . . . . . . . 13
β’ (({π β β β£ π β₯ π} β Fin β§ π β {π β β β£ π β₯ π}) β π β Fin) |
94 | 56, 89, 93 | syl2an 597 |
. . . . . . . . . . . 12
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β π β Fin) |
95 | | hashdom 14335 |
. . . . . . . . . . . 12
β’ ((π β Fin β§ {π β β β£ π β₯ π} β Fin) β ((β―βπ ) β€ (β―β{π β β β£ π β₯ π}) β π βΌ {π β β β£ π β₯ π})) |
96 | 94, 88, 95 | syl2anc 585 |
. . . . . . . . . . 11
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β ((β―βπ ) β€ (β―β{π β β β£ π β₯ π}) β π βΌ {π β β β£ π β₯ π})) |
97 | 92, 96 | mpbird 257 |
. . . . . . . . . 10
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β (β―βπ ) β€ (β―β{π β β β£ π β₯ π})) |
98 | | hashcl 14312 |
. . . . . . . . . . . . 13
β’ (π β Fin β
(β―βπ ) β
β0) |
99 | 94, 98 | syl 17 |
. . . . . . . . . . . 12
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β (β―βπ ) β
β0) |
100 | | nn0uz 12860 |
. . . . . . . . . . . 12
β’
β0 = (β€β₯β0) |
101 | 99, 100 | eleqtrdi 2844 |
. . . . . . . . . . 11
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β (β―βπ ) β
(β€β₯β0)) |
102 | | hashcl 14312 |
. . . . . . . . . . . . . 14
β’ ({π β β β£ π β₯ π} β Fin β (β―β{π β β β£ π β₯ π}) β
β0) |
103 | 56, 102 | syl 17 |
. . . . . . . . . . . . 13
β’ (π β β β
(β―β{π β
β β£ π β₯
π}) β
β0) |
104 | 103 | adantr 482 |
. . . . . . . . . . . 12
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β (β―β{π β β β£ π β₯ π}) β
β0) |
105 | 104 | nn0zd 12580 |
. . . . . . . . . . 11
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β (β―β{π β β β£ π β₯ π}) β β€) |
106 | | elfz5 13489 |
. . . . . . . . . . 11
β’
(((β―βπ )
β (β€β₯β0) β§ (β―β{π β β β£ π β₯ π}) β β€) β
((β―βπ ) β
(0...(β―β{π
β β β£ π
β₯ π})) β
(β―βπ ) β€
(β―β{π β
β β£ π β₯
π}))) |
107 | 101, 105,
106 | syl2anc 585 |
. . . . . . . . . 10
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β ((β―βπ ) β (0...(β―β{π β β β£ π β₯ π})) β (β―βπ ) β€ (β―β{π β β β£ π β₯ π}))) |
108 | 97, 107 | mpbird 257 |
. . . . . . . . 9
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β (β―βπ ) β (0...(β―β{π β β β£ π β₯ π}))) |
109 | | eqidd 2734 |
. . . . . . . . 9
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β (β―βπ ) = (β―βπ )) |
110 | | eqeq2 2745 |
. . . . . . . . . 10
β’ (π§ = (β―βπ ) β ((β―βπ ) = π§ β (β―βπ ) = (β―βπ ))) |
111 | 110 | rspcev 3612 |
. . . . . . . . 9
β’
(((β―βπ )
β (0...(β―β{π β β β£ π β₯ π})) β§ (β―βπ ) = (β―βπ )) β βπ§ β (0...(β―β{π β β β£ π β₯ π}))(β―βπ ) = π§) |
112 | 108, 109,
111 | syl2anc 585 |
. . . . . . . 8
β’ ((π β β β§ π β π« {π β β β£ π β₯ π}) β βπ§ β (0...(β―β{π β β β£ π β₯ π}))(β―βπ ) = π§) |
113 | 112 | ralrimiva 3147 |
. . . . . . 7
β’ (π β β β
βπ β π«
{π β β β£
π β₯ π}βπ§ β (0...(β―β{π β β β£ π β₯ π}))(β―βπ ) = π§) |
114 | | rabid2 3465 |
. . . . . . 7
β’
(π« {π β
β β£ π β₯
π} = {π β π« {π β β β£ π β₯ π} β£ βπ§ β (0...(β―β{π β β β£ π β₯ π}))(β―βπ ) = π§} β βπ β π« {π β β β£ π β₯ π}βπ§ β (0...(β―β{π β β β£ π β₯ π}))(β―βπ ) = π§) |
115 | 113, 114 | sylibr 233 |
. . . . . 6
β’ (π β β β π«
{π β β β£
π β₯ π} = {π β π« {π β β β£ π β₯ π} β£ βπ§ β (0...(β―β{π β β β£ π β₯ π}))(β―βπ ) = π§}) |
116 | 87, 115 | eqtr4id 2792 |
. . . . 5
β’ (π β β β βͺ π§ β (0...(β―β{π β β β£ π β₯ π})){π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} = π« {π β β β£ π β₯ π}) |
117 | 116 | sumeq1d 15643 |
. . . 4
β’ (π β β β
Ξ£π₯ β βͺ π§ β (0...(β―β{π β β β£ π β₯ π})){π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (-1β(β―βπ₯)) = Ξ£π₯ β π« {π β β β£ π β₯ π} (-1β(β―βπ₯))) |
118 | | elfznn0 13590 |
. . . . . . . . . 10
β’ (π§ β
(0...(β―β{π
β β β£ π
β₯ π})) β π§ β
β0) |
119 | 118 | adantl 483 |
. . . . . . . . 9
β’ ((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β π§ β
β0) |
120 | | expcl 14041 |
. . . . . . . . 9
β’ ((-1
β β β§ π§
β β0) β (-1βπ§) β β) |
121 | 55, 119, 120 | sylancr 588 |
. . . . . . . 8
β’ ((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β
(-1βπ§) β
β) |
122 | | fsumconst 15732 |
. . . . . . . 8
β’ (({π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} β Fin β§ (-1βπ§) β β) β
Ξ£π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (-1βπ§) = ((β―β{π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§}) Β· (-1βπ§))) |
123 | 71, 121, 122 | syl2anc 585 |
. . . . . . 7
β’ ((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β
Ξ£π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (-1βπ§) = ((β―β{π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§}) Β· (-1βπ§))) |
124 | 75 | adantl 483 |
. . . . . . . . 9
β’ (((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β§ π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§}) β (β―βπ₯) = π§) |
125 | 124 | oveq2d 7420 |
. . . . . . . 8
β’ (((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β§ π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§}) β (-1β(β―βπ₯)) = (-1βπ§)) |
126 | 125 | sumeq2dv 15645 |
. . . . . . 7
β’ ((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β
Ξ£π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (-1β(β―βπ₯)) = Ξ£π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (-1βπ§)) |
127 | | elfzelz 13497 |
. . . . . . . . 9
β’ (π§ β
(0...(β―β{π
β β β£ π
β₯ π})) β π§ β
β€) |
128 | | hashbc 14408 |
. . . . . . . . 9
β’ (({π β β β£ π β₯ π} β Fin β§ π§ β β€) β
((β―β{π β
β β£ π β₯
π})Cπ§) = (β―β{π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§})) |
129 | 56, 127, 128 | syl2an 597 |
. . . . . . . 8
β’ ((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β
((β―β{π β
β β£ π β₯
π})Cπ§) = (β―β{π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§})) |
130 | 129 | oveq1d 7419 |
. . . . . . 7
β’ ((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β
(((β―β{π β
β β£ π β₯
π})Cπ§) Β· (-1βπ§)) = ((β―β{π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§}) Β· (-1βπ§))) |
131 | 123, 126,
130 | 3eqtr4d 2783 |
. . . . . 6
β’ ((π β β β§ π§ β
(0...(β―β{π
β β β£ π
β₯ π}))) β
Ξ£π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (-1β(β―βπ₯)) = (((β―β{π β β β£ π β₯ π})Cπ§) Β· (-1βπ§))) |
132 | 131 | sumeq2dv 15645 |
. . . . 5
β’ (π β β β
Ξ£π§ β
(0...(β―β{π
β β β£ π
β₯ π}))Ξ£π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (-1β(β―βπ₯)) = Ξ£π§ β (0...(β―β{π β β β£ π β₯ π}))(((β―β{π β β β£ π β₯ π})Cπ§) Β· (-1βπ§))) |
133 | | 1pneg1e0 12327 |
. . . . . . 7
β’ (1 + -1)
= 0 |
134 | 133 | oveq1i 7414 |
. . . . . 6
β’ ((1 +
-1)β(β―β{π
β β β£ π
β₯ π})) =
(0β(β―β{π
β β β£ π
β₯ π})) |
135 | | binom1p 15773 |
. . . . . . 7
β’ ((-1
β β β§ (β―β{π β β β£ π β₯ π}) β β0) β ((1 +
-1)β(β―β{π
β β β£ π
β₯ π})) = Ξ£π§ β
(0...(β―β{π
β β β£ π
β₯ π}))(((β―β{π β β β£ π β₯ π})Cπ§) Β· (-1βπ§))) |
136 | 55, 103, 135 | sylancr 588 |
. . . . . 6
β’ (π β β β ((1 +
-1)β(β―β{π
β β β£ π
β₯ π})) = Ξ£π§ β
(0...(β―β{π
β β β£ π
β₯ π}))(((β―β{π β β β£ π β₯ π})Cπ§) Β· (-1βπ§))) |
137 | 134, 136 | eqtr3id 2787 |
. . . . 5
β’ (π β β β
(0β(β―β{π
β β β£ π
β₯ π})) = Ξ£π§ β
(0...(β―β{π
β β β£ π
β₯ π}))(((β―β{π β β β£ π β₯ π})Cπ§) Β· (-1βπ§))) |
138 | | eqeq2 2745 |
. . . . . 6
β’ (1 =
if(π = 1, 1, 0) β
((0β(β―β{π
β β β£ π
β₯ π})) = 1 β
(0β(β―β{π
β β β£ π
β₯ π})) = if(π = 1, 1, 0))) |
139 | | eqeq2 2745 |
. . . . . 6
β’ (0 =
if(π = 1, 1, 0) β
((0β(β―β{π
β β β£ π
β₯ π})) = 0 β
(0β(β―β{π
β β β£ π
β₯ π})) = if(π = 1, 1, 0))) |
140 | | nprmdvds1 16639 |
. . . . . . . . . . . . 13
β’ (π β β β Β¬
π β₯
1) |
141 | | simpr 486 |
. . . . . . . . . . . . . . 15
β’ ((π β β β§ π = 1) β π = 1) |
142 | 141 | breq2d 5159 |
. . . . . . . . . . . . . 14
β’ ((π β β β§ π = 1) β (π β₯ π β π β₯ 1)) |
143 | 142 | notbid 318 |
. . . . . . . . . . . . 13
β’ ((π β β β§ π = 1) β (Β¬ π β₯ π β Β¬ π β₯ 1)) |
144 | 140, 143 | imbitrrid 245 |
. . . . . . . . . . . 12
β’ ((π β β β§ π = 1) β (π β β β Β¬ π β₯ π)) |
145 | 144 | ralrimiv 3146 |
. . . . . . . . . . 11
β’ ((π β β β§ π = 1) β βπ β β Β¬ π β₯ π) |
146 | | rabeq0 4383 |
. . . . . . . . . . 11
β’ ({π β β β£ π β₯ π} = β
β βπ β β Β¬ π β₯ π) |
147 | 145, 146 | sylibr 233 |
. . . . . . . . . 10
β’ ((π β β β§ π = 1) β {π β β β£ π β₯ π} = β
) |
148 | 147 | fveq2d 6892 |
. . . . . . . . 9
β’ ((π β β β§ π = 1) β
(β―β{π β
β β£ π β₯
π}) =
(β―ββ
)) |
149 | | hash0 14323 |
. . . . . . . . 9
β’
(β―ββ
) = 0 |
150 | 148, 149 | eqtrdi 2789 |
. . . . . . . 8
β’ ((π β β β§ π = 1) β
(β―β{π β
β β£ π β₯
π}) = 0) |
151 | 150 | oveq2d 7420 |
. . . . . . 7
β’ ((π β β β§ π = 1) β
(0β(β―β{π
β β β£ π
β₯ π})) =
(0β0)) |
152 | | 0exp0e1 14028 |
. . . . . . 7
β’
(0β0) = 1 |
153 | 151, 152 | eqtrdi 2789 |
. . . . . 6
β’ ((π β β β§ π = 1) β
(0β(β―β{π
β β β£ π
β₯ π})) =
1) |
154 | | df-ne 2942 |
. . . . . . . . . . 11
β’ (π β 1 β Β¬ π = 1) |
155 | | eluz2b3 12902 |
. . . . . . . . . . . 12
β’ (π β
(β€β₯β2) β (π β β β§ π β 1)) |
156 | 155 | biimpri 227 |
. . . . . . . . . . 11
β’ ((π β β β§ π β 1) β π β
(β€β₯β2)) |
157 | 154, 156 | sylan2br 596 |
. . . . . . . . . 10
β’ ((π β β β§ Β¬
π = 1) β π β
(β€β₯β2)) |
158 | | exprmfct 16637 |
. . . . . . . . . 10
β’ (π β
(β€β₯β2) β βπ β β π β₯ π) |
159 | 157, 158 | syl 17 |
. . . . . . . . 9
β’ ((π β β β§ Β¬
π = 1) β βπ β β π β₯ π) |
160 | | rabn0 4384 |
. . . . . . . . 9
β’ ({π β β β£ π β₯ π} β β
β βπ β β π β₯ π) |
161 | 159, 160 | sylibr 233 |
. . . . . . . 8
β’ ((π β β β§ Β¬
π = 1) β {π β β β£ π β₯ π} β β
) |
162 | 56 | adantr 482 |
. . . . . . . . 9
β’ ((π β β β§ Β¬
π = 1) β {π β β β£ π β₯ π} β Fin) |
163 | | hashnncl 14322 |
. . . . . . . . 9
β’ ({π β β β£ π β₯ π} β Fin β ((β―β{π β β β£ π β₯ π}) β β β {π β β β£ π β₯ π} β β
)) |
164 | 162, 163 | syl 17 |
. . . . . . . 8
β’ ((π β β β§ Β¬
π = 1) β
((β―β{π β
β β£ π β₯
π}) β β β
{π β β β£
π β₯ π} β β
)) |
165 | 161, 164 | mpbird 257 |
. . . . . . 7
β’ ((π β β β§ Β¬
π = 1) β
(β―β{π β
β β£ π β₯
π}) β
β) |
166 | 165 | 0expd 14100 |
. . . . . 6
β’ ((π β β β§ Β¬
π = 1) β
(0β(β―β{π
β β β£ π
β₯ π})) =
0) |
167 | 138, 139,
153, 166 | ifbothda 4565 |
. . . . 5
β’ (π β β β
(0β(β―β{π
β β β£ π
β₯ π})) = if(π = 1, 1, 0)) |
168 | 132, 137,
167 | 3eqtr2d 2779 |
. . . 4
β’ (π β β β
Ξ£π§ β
(0...(β―β{π
β β β£ π
β₯ π}))Ξ£π₯ β {π β π« {π β β β£ π β₯ π} β£ (β―βπ ) = π§} (-1β(β―βπ₯)) = if(π = 1, 1, 0)) |
169 | 86, 117, 168 | 3eqtr3d 2781 |
. . 3
β’ (π β β β
Ξ£π₯ β π«
{π β β β£
π β₯ π} (-1β(β―βπ₯)) = if(π = 1, 1, 0)) |
170 | 64, 169 | eqtr3d 2775 |
. 2
β’ (π β β β
Ξ£π β {π β β β£
((ΞΌβπ) β 0
β§ π β₯ π)}
(-1β(β―β{π
β β β£ π
β₯ π})) = if(π = 1, 1, 0)) |
171 | 10, 36, 170 | 3eqtr3d 2781 |
1
β’ (π β β β
Ξ£π β {π β β β£ π β₯ π} (ΞΌβπ) = if(π = 1, 1, 0)) |