Step | Hyp | Ref
| Expression |
1 | | pgpfac1.ss |
. . . 4
β’ (π β (π β π) β π) |
2 | 1 | adantr 482 |
. . 3
β’ ((π β§ πΆ β (π β (π β π))) β (π β π) β π) |
3 | | pgpfac1.g |
. . . . . 6
β’ (π β πΊ β Abel) |
4 | | ablgrp 19648 |
. . . . . 6
β’ (πΊ β Abel β πΊ β Grp) |
5 | | pgpfac1.b |
. . . . . . 7
β’ π΅ = (BaseβπΊ) |
6 | 5 | subgacs 19036 |
. . . . . 6
β’ (πΊ β Grp β
(SubGrpβπΊ) β
(ACSβπ΅)) |
7 | | acsmre 17593 |
. . . . . 6
β’
((SubGrpβπΊ)
β (ACSβπ΅) β
(SubGrpβπΊ) β
(Mooreβπ΅)) |
8 | 3, 4, 6, 7 | 4syl 19 |
. . . . 5
β’ (π β (SubGrpβπΊ) β (Mooreβπ΅)) |
9 | 8 | adantr 482 |
. . . 4
β’ ((π β§ πΆ β (π β (π β π))) β (SubGrpβπΊ) β (Mooreβπ΅)) |
10 | | eldifi 4126 |
. . . . . 6
β’ (πΆ β (π β (π β π)) β πΆ β π) |
11 | 10 | adantl 483 |
. . . . 5
β’ ((π β§ πΆ β (π β (π β π))) β πΆ β π) |
12 | 11 | snssd 4812 |
. . . 4
β’ ((π β§ πΆ β (π β (π β π))) β {πΆ} β π) |
13 | | pgpfac1.u |
. . . . 5
β’ (π β π β (SubGrpβπΊ)) |
14 | 13 | adantr 482 |
. . . 4
β’ ((π β§ πΆ β (π β (π β π))) β π β (SubGrpβπΊ)) |
15 | | pgpfac1.k |
. . . . 5
β’ πΎ =
(mrClsβ(SubGrpβπΊ)) |
16 | 15 | mrcsscl 17561 |
. . . 4
β’
(((SubGrpβπΊ)
β (Mooreβπ΅)
β§ {πΆ} β π β§ π β (SubGrpβπΊ)) β (πΎβ{πΆ}) β π) |
17 | 9, 12, 14, 16 | syl3anc 1372 |
. . 3
β’ ((π β§ πΆ β (π β (π β π))) β (πΎβ{πΆ}) β π) |
18 | | pgpfac1.s |
. . . . . . 7
β’ π = (πΎβ{π΄}) |
19 | 5 | subgss 19002 |
. . . . . . . . . 10
β’ (π β (SubGrpβπΊ) β π β π΅) |
20 | 13, 19 | syl 17 |
. . . . . . . . 9
β’ (π β π β π΅) |
21 | | pgpfac1.au |
. . . . . . . . 9
β’ (π β π΄ β π) |
22 | 20, 21 | sseldd 3983 |
. . . . . . . 8
β’ (π β π΄ β π΅) |
23 | 15 | mrcsncl 17553 |
. . . . . . . 8
β’
(((SubGrpβπΊ)
β (Mooreβπ΅)
β§ π΄ β π΅) β (πΎβ{π΄}) β (SubGrpβπΊ)) |
24 | 8, 22, 23 | syl2anc 585 |
. . . . . . 7
β’ (π β (πΎβ{π΄}) β (SubGrpβπΊ)) |
25 | 18, 24 | eqeltrid 2838 |
. . . . . 6
β’ (π β π β (SubGrpβπΊ)) |
26 | | pgpfac1.w |
. . . . . 6
β’ (π β π β (SubGrpβπΊ)) |
27 | | pgpfac1.l |
. . . . . . 7
β’ β =
(LSSumβπΊ) |
28 | 27 | lsmsubg2 19722 |
. . . . . 6
β’ ((πΊ β Abel β§ π β (SubGrpβπΊ) β§ π β (SubGrpβπΊ)) β (π β π) β (SubGrpβπΊ)) |
29 | 3, 25, 26, 28 | syl3anc 1372 |
. . . . 5
β’ (π β (π β π) β (SubGrpβπΊ)) |
30 | 29 | adantr 482 |
. . . 4
β’ ((π β§ πΆ β (π β (π β π))) β (π β π) β (SubGrpβπΊ)) |
31 | 20 | sselda 3982 |
. . . . . 6
β’ ((π β§ πΆ β π) β πΆ β π΅) |
32 | 10, 31 | sylan2 594 |
. . . . 5
β’ ((π β§ πΆ β (π β (π β π))) β πΆ β π΅) |
33 | 15 | mrcsncl 17553 |
. . . . 5
β’
(((SubGrpβπΊ)
β (Mooreβπ΅)
β§ πΆ β π΅) β (πΎβ{πΆ}) β (SubGrpβπΊ)) |
34 | 9, 32, 33 | syl2anc 585 |
. . . 4
β’ ((π β§ πΆ β (π β (π β π))) β (πΎβ{πΆ}) β (SubGrpβπΊ)) |
35 | 27 | lsmlub 19527 |
. . . 4
β’ (((π β π) β (SubGrpβπΊ) β§ (πΎβ{πΆ}) β (SubGrpβπΊ) β§ π β (SubGrpβπΊ)) β (((π β π) β π β§ (πΎβ{πΆ}) β π) β ((π β π) β (πΎβ{πΆ})) β π)) |
36 | 30, 34, 14, 35 | syl3anc 1372 |
. . 3
β’ ((π β§ πΆ β (π β (π β π))) β (((π β π) β π β§ (πΎβ{πΆ}) β π) β ((π β π) β (πΎβ{πΆ})) β π)) |
37 | 2, 17, 36 | mpbi2and 711 |
. 2
β’ ((π β§ πΆ β (π β (π β π))) β ((π β π) β (πΎβ{πΆ})) β π) |
38 | 27 | lsmub1 19520 |
. . . . . 6
β’ (((π β π) β (SubGrpβπΊ) β§ (πΎβ{πΆ}) β (SubGrpβπΊ)) β (π β π) β ((π β π) β (πΎβ{πΆ}))) |
39 | 30, 34, 38 | syl2anc 585 |
. . . . 5
β’ ((π β§ πΆ β (π β (π β π))) β (π β π) β ((π β π) β (πΎβ{πΆ}))) |
40 | 27 | lsmub2 19521 |
. . . . . . 7
β’ (((π β π) β (SubGrpβπΊ) β§ (πΎβ{πΆ}) β (SubGrpβπΊ)) β (πΎβ{πΆ}) β ((π β π) β (πΎβ{πΆ}))) |
41 | 30, 34, 40 | syl2anc 585 |
. . . . . 6
β’ ((π β§ πΆ β (π β (π β π))) β (πΎβ{πΆ}) β ((π β π) β (πΎβ{πΆ}))) |
42 | 32 | snssd 4812 |
. . . . . . . 8
β’ ((π β§ πΆ β (π β (π β π))) β {πΆ} β π΅) |
43 | 9, 15, 42 | mrcssidd 17566 |
. . . . . . 7
β’ ((π β§ πΆ β (π β (π β π))) β {πΆ} β (πΎβ{πΆ})) |
44 | | snssg 4787 |
. . . . . . . 8
β’ (πΆ β π΅ β (πΆ β (πΎβ{πΆ}) β {πΆ} β (πΎβ{πΆ}))) |
45 | 32, 44 | syl 17 |
. . . . . . 7
β’ ((π β§ πΆ β (π β (π β π))) β (πΆ β (πΎβ{πΆ}) β {πΆ} β (πΎβ{πΆ}))) |
46 | 43, 45 | mpbird 257 |
. . . . . 6
β’ ((π β§ πΆ β (π β (π β π))) β πΆ β (πΎβ{πΆ})) |
47 | 41, 46 | sseldd 3983 |
. . . . 5
β’ ((π β§ πΆ β (π β (π β π))) β πΆ β ((π β π) β (πΎβ{πΆ}))) |
48 | | eldifn 4127 |
. . . . . 6
β’ (πΆ β (π β (π β π)) β Β¬ πΆ β (π β π)) |
49 | 48 | adantl 483 |
. . . . 5
β’ ((π β§ πΆ β (π β (π β π))) β Β¬ πΆ β (π β π)) |
50 | 39, 47, 49 | ssnelpssd 4112 |
. . . 4
β’ ((π β§ πΆ β (π β (π β π))) β (π β π) β ((π β π) β (πΎβ{πΆ}))) |
51 | 27 | lsmub1 19520 |
. . . . . . . . 9
β’ ((π β (SubGrpβπΊ) β§ π β (SubGrpβπΊ)) β π β (π β π)) |
52 | 25, 26, 51 | syl2anc 585 |
. . . . . . . 8
β’ (π β π β (π β π)) |
53 | 22 | snssd 4812 |
. . . . . . . . . . 11
β’ (π β {π΄} β π΅) |
54 | 8, 15, 53 | mrcssidd 17566 |
. . . . . . . . . 10
β’ (π β {π΄} β (πΎβ{π΄})) |
55 | 54, 18 | sseqtrrdi 4033 |
. . . . . . . . 9
β’ (π β {π΄} β π) |
56 | | snssg 4787 |
. . . . . . . . . 10
β’ (π΄ β π β (π΄ β π β {π΄} β π)) |
57 | 21, 56 | syl 17 |
. . . . . . . . 9
β’ (π β (π΄ β π β {π΄} β π)) |
58 | 55, 57 | mpbird 257 |
. . . . . . . 8
β’ (π β π΄ β π) |
59 | 52, 58 | sseldd 3983 |
. . . . . . 7
β’ (π β π΄ β (π β π)) |
60 | 59 | adantr 482 |
. . . . . 6
β’ ((π β§ πΆ β (π β (π β π))) β π΄ β (π β π)) |
61 | 39, 60 | sseldd 3983 |
. . . . 5
β’ ((π β§ πΆ β (π β (π β π))) β π΄ β ((π β π) β (πΎβ{πΆ}))) |
62 | | psseq1 4087 |
. . . . . . . 8
β’ (π€ = ((π β π) β (πΎβ{πΆ})) β (π€ β π β ((π β π) β (πΎβ{πΆ})) β π)) |
63 | | eleq2 2823 |
. . . . . . . 8
β’ (π€ = ((π β π) β (πΎβ{πΆ})) β (π΄ β π€ β π΄ β ((π β π) β (πΎβ{πΆ})))) |
64 | 62, 63 | anbi12d 632 |
. . . . . . 7
β’ (π€ = ((π β π) β (πΎβ{πΆ})) β ((π€ β π β§ π΄ β π€) β (((π β π) β (πΎβ{πΆ})) β π β§ π΄ β ((π β π) β (πΎβ{πΆ}))))) |
65 | | psseq2 4088 |
. . . . . . . 8
β’ (π€ = ((π β π) β (πΎβ{πΆ})) β ((π β π) β π€ β (π β π) β ((π β π) β (πΎβ{πΆ})))) |
66 | 65 | notbid 318 |
. . . . . . 7
β’ (π€ = ((π β π) β (πΎβ{πΆ})) β (Β¬ (π β π) β π€ β Β¬ (π β π) β ((π β π) β (πΎβ{πΆ})))) |
67 | 64, 66 | imbi12d 345 |
. . . . . 6
β’ (π€ = ((π β π) β (πΎβ{πΆ})) β (((π€ β π β§ π΄ β π€) β Β¬ (π β π) β π€) β ((((π β π) β (πΎβ{πΆ})) β π β§ π΄ β ((π β π) β (πΎβ{πΆ}))) β Β¬ (π β π) β ((π β π) β (πΎβ{πΆ}))))) |
68 | | pgpfac1.2 |
. . . . . . 7
β’ (π β βπ€ β (SubGrpβπΊ)((π€ β π β§ π΄ β π€) β Β¬ (π β π) β π€)) |
69 | 68 | adantr 482 |
. . . . . 6
β’ ((π β§ πΆ β (π β (π β π))) β βπ€ β (SubGrpβπΊ)((π€ β π β§ π΄ β π€) β Β¬ (π β π) β π€)) |
70 | 3 | adantr 482 |
. . . . . . 7
β’ ((π β§ πΆ β (π β (π β π))) β πΊ β Abel) |
71 | 27 | lsmsubg2 19722 |
. . . . . . 7
β’ ((πΊ β Abel β§ (π β π) β (SubGrpβπΊ) β§ (πΎβ{πΆ}) β (SubGrpβπΊ)) β ((π β π) β (πΎβ{πΆ})) β (SubGrpβπΊ)) |
72 | 70, 30, 34, 71 | syl3anc 1372 |
. . . . . 6
β’ ((π β§ πΆ β (π β (π β π))) β ((π β π) β (πΎβ{πΆ})) β (SubGrpβπΊ)) |
73 | 67, 69, 72 | rspcdva 3614 |
. . . . 5
β’ ((π β§ πΆ β (π β (π β π))) β ((((π β π) β (πΎβ{πΆ})) β π β§ π΄ β ((π β π) β (πΎβ{πΆ}))) β Β¬ (π β π) β ((π β π) β (πΎβ{πΆ})))) |
74 | 61, 73 | mpan2d 693 |
. . . 4
β’ ((π β§ πΆ β (π β (π β π))) β (((π β π) β (πΎβ{πΆ})) β π β Β¬ (π β π) β ((π β π) β (πΎβ{πΆ})))) |
75 | 50, 74 | mt2d 136 |
. . 3
β’ ((π β§ πΆ β (π β (π β π))) β Β¬ ((π β π) β (πΎβ{πΆ})) β π) |
76 | | npss 4110 |
. . 3
β’ (Β¬
((π β π) β (πΎβ{πΆ})) β π β (((π β π) β (πΎβ{πΆ})) β π β ((π β π) β (πΎβ{πΆ})) = π)) |
77 | 75, 76 | sylib 217 |
. 2
β’ ((π β§ πΆ β (π β (π β π))) β (((π β π) β (πΎβ{πΆ})) β π β ((π β π) β (πΎβ{πΆ})) = π)) |
78 | 37, 77 | mpd 15 |
1
β’ ((π β§ πΆ β (π β (π β π))) β ((π β π) β (πΎβ{πΆ})) = π) |