Step | Hyp | Ref
| Expression |
1 | | prhash2ex 14356 |
. 2
β’
(β―β{0, 1}) = 2 |
2 | | eqid 2733 |
. . . 4
β’ {0, 1} =
{0, 1} |
3 | | prex 5432 |
. . . . . 6
β’ {0, 1}
β V |
4 | | eqeq1 2737 |
. . . . . . . . . . 11
β’ (π₯ = π’ β (π₯ = 0 β π’ = 0)) |
5 | 4 | ifbid 4551 |
. . . . . . . . . 10
β’ (π₯ = π’ β if(π₯ = 0, 0, 1) = if(π’ = 0, 0, 1)) |
6 | | eqidd 2734 |
. . . . . . . . . 10
β’ (π¦ = π£ β if(π’ = 0, 0, 1) = if(π’ = 0, 0, 1)) |
7 | 5, 6 | cbvmpov 7501 |
. . . . . . . . 9
β’ (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1)) = (π’ β {0, 1}, π£ β {0, 1} β¦ if(π’ = 0, 0, 1)) |
8 | 7 | opeq2i 4877 |
. . . . . . . 8
β’
β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β© =
β¨(+gβndx), (π’ β {0, 1}, π£ β {0, 1} β¦ if(π’ = 0, 0, 1))β© |
9 | 8 | preq2i 4741 |
. . . . . . 7
β’
{β¨(Baseβndx), {0, 1}β©, β¨(+gβndx),
(π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©} =
{β¨(Baseβndx), {0, 1}β©, β¨(+gβndx), (π’ β {0, 1}, π£ β {0, 1} β¦ if(π’ = 0, 0,
1))β©} |
10 | 9 | grpbase 17228 |
. . . . . 6
β’ ({0, 1}
β V β {0, 1} = (Baseβ{β¨(Baseβndx), {0, 1}β©,
β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©})) |
11 | 3, 10 | ax-mp 5 |
. . . . 5
β’ {0, 1} =
(Baseβ{β¨(Baseβndx), {0, 1}β©,
β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©}) |
12 | 11 | eqcomi 2742 |
. . . 4
β’
(Baseβ{β¨(Baseβndx), {0, 1}β©,
β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©}) = {0,
1} |
13 | 3, 3 | mpoex 8063 |
. . . . . 6
β’ (π’ β {0, 1}, π£ β {0, 1} β¦ if(π’ = 0, 0, 1)) β
V |
14 | 9 | grpplusg 17230 |
. . . . . 6
β’ ((π’ β {0, 1}, π£ β {0, 1} β¦ if(π’ = 0, 0, 1)) β V β
(π’ β {0, 1}, π£ β {0, 1} β¦ if(π’ = 0, 0, 1)) =
(+gβ{β¨(Baseβndx), {0, 1}β©,
β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©})) |
15 | 13, 14 | ax-mp 5 |
. . . . 5
β’ (π’ β {0, 1}, π£ β {0, 1} β¦ if(π’ = 0, 0, 1)) =
(+gβ{β¨(Baseβndx), {0, 1}β©,
β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©}) |
16 | 15 | eqcomi 2742 |
. . . 4
β’
(+gβ{β¨(Baseβndx), {0, 1}β©,
β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©}) = (π’ β {0, 1}, π£ β {0, 1} β¦ if(π’ = 0, 0, 1)) |
17 | 2, 12, 16 | sgrp2nmndlem4 18806 |
. . 3
β’
((β―β{0, 1}) = 2 β {β¨(Baseβndx), {0,
1}β©, β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©} β
Smgrp) |
18 | | neleq1 3053 |
. . . 4
β’ (π = {β¨(Baseβndx), {0,
1}β©, β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©} β (π β Mnd β
{β¨(Baseβndx), {0, 1}β©, β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©} β
Mnd)) |
19 | 18 | adantl 483 |
. . 3
β’
(((β―β{0, 1}) = 2 β§ π = {β¨(Baseβndx), {0, 1}β©,
β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©}) β (π β Mnd β
{β¨(Baseβndx), {0, 1}β©, β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©} β
Mnd)) |
20 | 2, 12, 16 | sgrp2nmndlem5 18807 |
. . 3
β’
((β―β{0, 1}) = 2 β {β¨(Baseβndx), {0,
1}β©, β¨(+gβndx), (π₯ β {0, 1}, π¦ β {0, 1} β¦ if(π₯ = 0, 0, 1))β©} β
Mnd) |
21 | 17, 19, 20 | rspcedvd 3615 |
. 2
β’
((β―β{0, 1}) = 2 β βπ β Smgrp π β Mnd) |
22 | 1, 21 | ax-mp 5 |
1
β’
βπ β
Smgrp π β
Mnd |