Step | Hyp | Ref
| Expression |
1 | | eqid 2732 |
. . 3
β’
(CntzβπΊ) =
(CntzβπΊ) |
2 | | dprd0.0 |
. . 3
β’ 0 =
(0gβπΊ) |
3 | | eqid 2732 |
. . 3
β’
(mrClsβ(SubGrpβπΊ)) = (mrClsβ(SubGrpβπΊ)) |
4 | | simpl 483 |
. . 3
β’ ((πΊ β Grp β§ πΌ β π) β πΊ β Grp) |
5 | | simpr 485 |
. . 3
β’ ((πΊ β Grp β§ πΌ β π) β πΌ β π) |
6 | 2 | 0subg 19025 |
. . . . 5
β’ (πΊ β Grp β { 0 } β
(SubGrpβπΊ)) |
7 | 6 | ad2antrr 724 |
. . . 4
β’ (((πΊ β Grp β§ πΌ β π) β§ π₯ β πΌ) β { 0 } β
(SubGrpβπΊ)) |
8 | 7 | fmpttd 7111 |
. . 3
β’ ((πΊ β Grp β§ πΌ β π) β (π₯ β πΌ β¦ { 0 }):πΌβΆ(SubGrpβπΊ)) |
9 | | eqid 2732 |
. . . . . . . . . . 11
β’
(BaseβπΊ) =
(BaseβπΊ) |
10 | 9, 2 | grpidcl 18846 |
. . . . . . . . . 10
β’ (πΊ β Grp β 0 β
(BaseβπΊ)) |
11 | 10 | adantr 481 |
. . . . . . . . 9
β’ ((πΊ β Grp β§ πΌ β π) β 0 β (BaseβπΊ)) |
12 | 11 | snssd 4811 |
. . . . . . . 8
β’ ((πΊ β Grp β§ πΌ β π) β { 0 } β
(BaseβπΊ)) |
13 | 9, 1 | cntzsubg 19197 |
. . . . . . . 8
β’ ((πΊ β Grp β§ { 0 } β
(BaseβπΊ)) β
((CntzβπΊ)β{
0 })
β (SubGrpβπΊ)) |
14 | 12, 13 | syldan 591 |
. . . . . . 7
β’ ((πΊ β Grp β§ πΌ β π) β ((CntzβπΊ)β{ 0 }) β
(SubGrpβπΊ)) |
15 | 2 | subg0cl 19008 |
. . . . . . 7
β’
(((CntzβπΊ)β{ 0 }) β
(SubGrpβπΊ) β
0 β
((CntzβπΊ)β{
0
})) |
16 | 14, 15 | syl 17 |
. . . . . 6
β’ ((πΊ β Grp β§ πΌ β π) β 0 β ((CntzβπΊ)β{ 0 })) |
17 | 16 | snssd 4811 |
. . . . 5
β’ ((πΊ β Grp β§ πΌ β π) β { 0 } β
((CntzβπΊ)β{
0
})) |
18 | 17 | adantr 481 |
. . . 4
β’ (((πΊ β Grp β§ πΌ β π) β§ (π¦ β πΌ β§ π§ β πΌ β§ π¦ β π§)) β { 0 } β
((CntzβπΊ)β{
0
})) |
19 | | simpr1 1194 |
. . . . 5
β’ (((πΊ β Grp β§ πΌ β π) β§ (π¦ β πΌ β§ π§ β πΌ β§ π¦ β π§)) β π¦ β πΌ) |
20 | | eqidd 2733 |
. . . . . 6
β’ (π₯ = π¦ β { 0 } = { 0 }) |
21 | | eqid 2732 |
. . . . . 6
β’ (π₯ β πΌ β¦ { 0 }) = (π₯ β πΌ β¦ { 0 }) |
22 | | snex 5430 |
. . . . . 6
β’ { 0 } β
V |
23 | 20, 21, 22 | fvmpt3i 7000 |
. . . . 5
β’ (π¦ β πΌ β ((π₯ β πΌ β¦ { 0 })βπ¦) = { 0 }) |
24 | 19, 23 | syl 17 |
. . . 4
β’ (((πΊ β Grp β§ πΌ β π) β§ (π¦ β πΌ β§ π§ β πΌ β§ π¦ β π§)) β ((π₯ β πΌ β¦ { 0 })βπ¦) = { 0 }) |
25 | | simpr2 1195 |
. . . . . 6
β’ (((πΊ β Grp β§ πΌ β π) β§ (π¦ β πΌ β§ π§ β πΌ β§ π¦ β π§)) β π§ β πΌ) |
26 | | eqidd 2733 |
. . . . . . 7
β’ (π₯ = π§ β { 0 } = { 0 }) |
27 | 26, 21, 22 | fvmpt3i 7000 |
. . . . . 6
β’ (π§ β πΌ β ((π₯ β πΌ β¦ { 0 })βπ§) = { 0 }) |
28 | 25, 27 | syl 17 |
. . . . 5
β’ (((πΊ β Grp β§ πΌ β π) β§ (π¦ β πΌ β§ π§ β πΌ β§ π¦ β π§)) β ((π₯ β πΌ β¦ { 0 })βπ§) = { 0 }) |
29 | 28 | fveq2d 6892 |
. . . 4
β’ (((πΊ β Grp β§ πΌ β π) β§ (π¦ β πΌ β§ π§ β πΌ β§ π¦ β π§)) β ((CntzβπΊ)β((π₯ β πΌ β¦ { 0 })βπ§)) = ((CntzβπΊ)β{ 0 })) |
30 | 18, 24, 29 | 3sstr4d 4028 |
. . 3
β’ (((πΊ β Grp β§ πΌ β π) β§ (π¦ β πΌ β§ π§ β πΌ β§ π¦ β π§)) β ((π₯ β πΌ β¦ { 0 })βπ¦) β ((CntzβπΊ)β((π₯ β πΌ β¦ { 0 })βπ§))) |
31 | 23 | adantl 482 |
. . . . . 6
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β ((π₯ β πΌ β¦ { 0 })βπ¦) = { 0 }) |
32 | 31 | ineq1d 4210 |
. . . . 5
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β (((π₯ β πΌ β¦ { 0 })βπ¦) β©
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})))) = ({ 0 } β©
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦}))))) |
33 | 9 | subgacs 19035 |
. . . . . . . . . . 11
β’ (πΊ β Grp β
(SubGrpβπΊ) β
(ACSβ(BaseβπΊ))) |
34 | 33 | ad2antrr 724 |
. . . . . . . . . 10
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β (SubGrpβπΊ) β (ACSβ(BaseβπΊ))) |
35 | 34 | acsmred 17596 |
. . . . . . . . 9
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β (SubGrpβπΊ) β (Mooreβ(BaseβπΊ))) |
36 | | imassrn 6068 |
. . . . . . . . . . 11
β’ ((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})) β ran (π₯ β πΌ β¦ { 0 }) |
37 | 8 | adantr 481 |
. . . . . . . . . . . . 13
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β (π₯ β πΌ β¦ { 0 }):πΌβΆ(SubGrpβπΊ)) |
38 | 37 | frnd 6722 |
. . . . . . . . . . . 12
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β ran (π₯ β πΌ β¦ { 0 }) β
(SubGrpβπΊ)) |
39 | | mresspw 17532 |
. . . . . . . . . . . . 13
β’
((SubGrpβπΊ)
β (Mooreβ(BaseβπΊ)) β (SubGrpβπΊ) β π« (BaseβπΊ)) |
40 | 35, 39 | syl 17 |
. . . . . . . . . . . 12
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β (SubGrpβπΊ) β π« (BaseβπΊ)) |
41 | 38, 40 | sstrd 3991 |
. . . . . . . . . . 11
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β ran (π₯ β πΌ β¦ { 0 }) β π«
(BaseβπΊ)) |
42 | 36, 41 | sstrid 3992 |
. . . . . . . . . 10
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β ((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})) β π« (BaseβπΊ)) |
43 | | sspwuni 5102 |
. . . . . . . . . 10
β’ (((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})) β π« (BaseβπΊ) β βͺ ((π₯
β πΌ β¦ { 0 }) β
(πΌ β {π¦})) β (BaseβπΊ)) |
44 | 42, 43 | sylib 217 |
. . . . . . . . 9
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β βͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})) β (BaseβπΊ)) |
45 | 3 | mrccl 17551 |
. . . . . . . . 9
β’
(((SubGrpβπΊ)
β (Mooreβ(BaseβπΊ)) β§ βͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})) β (BaseβπΊ)) β ((mrClsβ(SubGrpβπΊ))ββͺ ((π₯
β πΌ β¦ { 0 }) β
(πΌ β {π¦}))) β (SubGrpβπΊ)) |
46 | 35, 44, 45 | syl2anc 584 |
. . . . . . . 8
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β ((mrClsβ(SubGrpβπΊ))ββͺ ((π₯
β πΌ β¦ { 0 }) β
(πΌ β {π¦}))) β (SubGrpβπΊ)) |
47 | 2 | subg0cl 19008 |
. . . . . . . 8
β’
(((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦}))) β (SubGrpβπΊ) β 0 β
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})))) |
48 | 46, 47 | syl 17 |
. . . . . . 7
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β 0 β
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})))) |
49 | 48 | snssd 4811 |
. . . . . 6
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β { 0 } β
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})))) |
50 | | df-ss 3964 |
. . . . . 6
β’ ({ 0 } β
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦}))) β ({ 0 } β©
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})))) = { 0 }) |
51 | 49, 50 | sylib 217 |
. . . . 5
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β ({ 0 } β©
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})))) = { 0 }) |
52 | 32, 51 | eqtrd 2772 |
. . . 4
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β (((π₯ β πΌ β¦ { 0 })βπ¦) β©
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})))) = { 0 }) |
53 | | eqimss 4039 |
. . . 4
β’ ((((π₯ β πΌ β¦ { 0 })βπ¦) β©
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})))) = { 0 } β (((π₯ β πΌ β¦ { 0 })βπ¦) β©
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})))) β { 0 }) |
54 | 52, 53 | syl 17 |
. . 3
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β (((π₯ β πΌ β¦ { 0 })βπ¦) β©
((mrClsβ(SubGrpβπΊ))ββͺ
((π₯ β πΌ β¦ { 0 }) β (πΌ β {π¦})))) β { 0 }) |
55 | 1, 2, 3, 4, 5, 8, 30, 54 | dmdprdd 19863 |
. 2
β’ ((πΊ β Grp β§ πΌ β π) β πΊdom DProd (π₯ β πΌ β¦ { 0 })) |
56 | 21, 7 | dmmptd 6692 |
. . . 4
β’ ((πΊ β Grp β§ πΌ β π) β dom (π₯ β πΌ β¦ { 0 }) = πΌ) |
57 | 6 | adantr 481 |
. . . 4
β’ ((πΊ β Grp β§ πΌ β π) β { 0 } β
(SubGrpβπΊ)) |
58 | | eqimss 4039 |
. . . . 5
β’ (((π₯ β πΌ β¦ { 0 })βπ¦) = { 0 } β ((π₯ β πΌ β¦ { 0 })βπ¦) β { 0 }) |
59 | 31, 58 | syl 17 |
. . . 4
β’ (((πΊ β Grp β§ πΌ β π) β§ π¦ β πΌ) β ((π₯ β πΌ β¦ { 0 })βπ¦) β { 0 }) |
60 | 55, 56, 57, 59 | dprdlub 19890 |
. . 3
β’ ((πΊ β Grp β§ πΌ β π) β (πΊ DProd (π₯ β πΌ β¦ { 0 })) β { 0
}) |
61 | | dprdsubg 19888 |
. . . . 5
β’ (πΊdom DProd (π₯ β πΌ β¦ { 0 }) β (πΊ DProd (π₯ β πΌ β¦ { 0 })) β
(SubGrpβπΊ)) |
62 | 2 | subg0cl 19008 |
. . . . 5
β’ ((πΊ DProd (π₯ β πΌ β¦ { 0 })) β
(SubGrpβπΊ) β
0 β
(πΊ DProd (π₯ β πΌ β¦ { 0 }))) |
63 | 55, 61, 62 | 3syl 18 |
. . . 4
β’ ((πΊ β Grp β§ πΌ β π) β 0 β (πΊ DProd (π₯ β πΌ β¦ { 0 }))) |
64 | 63 | snssd 4811 |
. . 3
β’ ((πΊ β Grp β§ πΌ β π) β { 0 } β (πΊ DProd (π₯ β πΌ β¦ { 0 }))) |
65 | 60, 64 | eqssd 3998 |
. 2
β’ ((πΊ β Grp β§ πΌ β π) β (πΊ DProd (π₯ β πΌ β¦ { 0 })) = { 0 }) |
66 | 55, 65 | jca 512 |
1
β’ ((πΊ β Grp β§ πΌ β π) β (πΊdom DProd (π₯ β πΌ β¦ { 0 }) β§ (πΊ DProd (π₯ β πΌ β¦ { 0 })) = { 0 })) |