Metamath Proof Explorer


Theorem pgpfac1lem3a

Description: Lemma for pgpfac1 . (Contributed by Mario Carneiro, 4-Jun-2016)

Ref Expression
Hypotheses pgpfac1.k K = mrCls SubGrp G
pgpfac1.s S = K A
pgpfac1.b B = Base G
pgpfac1.o O = od G
pgpfac1.e E = gEx G
pgpfac1.z 0 ˙ = 0 G
pgpfac1.l ˙ = LSSum G
pgpfac1.p φ P pGrp G
pgpfac1.g φ G Abel
pgpfac1.n φ B Fin
pgpfac1.oe φ O A = E
pgpfac1.u φ U SubGrp G
pgpfac1.au φ A U
pgpfac1.w φ W SubGrp G
pgpfac1.i φ S W = 0 ˙
pgpfac1.ss φ S ˙ W U
pgpfac1.2 φ w SubGrp G w U A w ¬ S ˙ W w
pgpfac1.c φ C U S ˙ W
pgpfac1.mg · ˙ = G
pgpfac1.m φ M
pgpfac1.mw φ P · ˙ C + G M · ˙ A W
Assertion pgpfac1lem3a φ P E P M

Proof

Step Hyp Ref Expression
1 pgpfac1.k K = mrCls SubGrp G
2 pgpfac1.s S = K A
3 pgpfac1.b B = Base G
4 pgpfac1.o O = od G
5 pgpfac1.e E = gEx G
6 pgpfac1.z 0 ˙ = 0 G
7 pgpfac1.l ˙ = LSSum G
8 pgpfac1.p φ P pGrp G
9 pgpfac1.g φ G Abel
10 pgpfac1.n φ B Fin
11 pgpfac1.oe φ O A = E
12 pgpfac1.u φ U SubGrp G
13 pgpfac1.au φ A U
14 pgpfac1.w φ W SubGrp G
15 pgpfac1.i φ S W = 0 ˙
16 pgpfac1.ss φ S ˙ W U
17 pgpfac1.2 φ w SubGrp G w U A w ¬ S ˙ W w
18 pgpfac1.c φ C U S ˙ W
19 pgpfac1.mg · ˙ = G
20 pgpfac1.m φ M
21 pgpfac1.mw φ P · ˙ C + G M · ˙ A W
22 18 eldifbd φ ¬ C S ˙ W
23 pgpprm P pGrp G P
24 8 23 syl φ P
25 ablgrp G Abel G Grp
26 9 25 syl φ G Grp
27 3 5 gexcl2 G Grp B Fin E
28 26 10 27 syl2anc φ E
29 pceq0 P E P pCnt E = 0 ¬ P E
30 24 28 29 syl2anc φ P pCnt E = 0 ¬ P E
31 oveq2 P pCnt E = 0 P P pCnt E = P 0
32 30 31 syl6bir φ ¬ P E P P pCnt E = P 0
33 3 grpbn0 G Grp B
34 26 33 syl φ B
35 hashnncl B Fin B B
36 10 35 syl φ B B
37 34 36 mpbird φ B
38 24 37 pccld φ P pCnt B 0
39 3 5 gexdvds3 G Grp B Fin E B
40 26 10 39 syl2anc φ E B
41 3 pgphash P pGrp G B Fin B = P P pCnt B
42 8 10 41 syl2anc φ B = P P pCnt B
43 40 42 breqtrd φ E P P pCnt B
44 oveq2 k = P pCnt B P k = P P pCnt B
45 44 breq2d k = P pCnt B E P k E P P pCnt B
46 45 rspcev P pCnt B 0 E P P pCnt B k 0 E P k
47 38 43 46 syl2anc φ k 0 E P k
48 pcprmpw2 P E k 0 E P k E = P P pCnt E
49 24 28 48 syl2anc φ k 0 E P k E = P P pCnt E
50 47 49 mpbid φ E = P P pCnt E
51 50 eqcomd φ P P pCnt E = E
52 prmnn P P
53 24 52 syl φ P
54 53 nncnd φ P
55 54 exp0d φ P 0 = 1
56 51 55 eqeq12d φ P P pCnt E = P 0 E = 1
57 grpmnd G Grp G Mnd
58 26 57 syl φ G Mnd
59 3 5 gex1 G Mnd E = 1 B 1 𝑜
60 58 59 syl φ E = 1 B 1 𝑜
61 56 60 bitrd φ P P pCnt E = P 0 B 1 𝑜
62 32 61 sylibd φ ¬ P E B 1 𝑜
63 3 subgacs G Grp SubGrp G ACS B
64 26 63 syl φ SubGrp G ACS B
65 64 acsmred φ SubGrp G Moore B
66 3 subgss U SubGrp G U B
67 12 66 syl φ U B
68 67 13 sseldd φ A B
69 1 mrcsncl SubGrp G Moore B A B K A SubGrp G
70 65 68 69 syl2anc φ K A SubGrp G
71 2 70 eqeltrid φ S SubGrp G
72 7 lsmsubg2 G Abel S SubGrp G W SubGrp G S ˙ W SubGrp G
73 9 71 14 72 syl3anc φ S ˙ W SubGrp G
74 6 subg0cl S ˙ W SubGrp G 0 ˙ S ˙ W
75 73 74 syl φ 0 ˙ S ˙ W
76 75 snssd φ 0 ˙ S ˙ W
77 76 adantr φ B 1 𝑜 0 ˙ S ˙ W
78 18 eldifad φ C U
79 67 78 sseldd φ C B
80 79 adantr φ B 1 𝑜 C B
81 3 6 grpidcl G Grp 0 ˙ B
82 26 81 syl φ 0 ˙ B
83 en1eqsn 0 ˙ B B 1 𝑜 B = 0 ˙
84 82 83 sylan φ B 1 𝑜 B = 0 ˙
85 80 84 eleqtrd φ B 1 𝑜 C 0 ˙
86 77 85 sseldd φ B 1 𝑜 C S ˙ W
87 86 ex φ B 1 𝑜 C S ˙ W
88 62 87 syld φ ¬ P E C S ˙ W
89 22 88 mt3d φ P E
90 28 nncnd φ E
91 53 nnne0d φ P 0
92 90 54 91 divcan1d φ E P P = E
93 11 92 eqtr4d φ O A = E P P
94 nndivdvds E P P E E P
95 28 53 94 syl2anc φ P E E P
96 89 95 mpbid φ E P
97 96 nnzd φ E P
98 97 20 zmulcld φ E P M
99 68 snssd φ A B
100 65 1 99 mrcssidd φ A K A
101 100 2 sseqtrrdi φ A S
102 snssg A U A S A S
103 13 102 syl φ A S A S
104 101 103 mpbird φ A S
105 19 subgmulgcl S SubGrp G E P M A S E P M · ˙ A S
106 71 98 104 105 syl3anc φ E P M · ˙ A S
107 prmz P P
108 24 107 syl φ P
109 3 19 mulgcl G Grp P C B P · ˙ C B
110 26 108 79 109 syl3anc φ P · ˙ C B
111 3 19 mulgcl G Grp M A B M · ˙ A B
112 26 20 68 111 syl3anc φ M · ˙ A B
113 eqid + G = + G
114 3 19 113 mulgdi G Abel E P P · ˙ C B M · ˙ A B E P · ˙ P · ˙ C + G M · ˙ A = E P · ˙ P · ˙ C + G E P · ˙ M · ˙ A
115 9 97 110 112 114 syl13anc φ E P · ˙ P · ˙ C + G M · ˙ A = E P · ˙ P · ˙ C + G E P · ˙ M · ˙ A
116 92 oveq1d φ E P P · ˙ C = E · ˙ C
117 3 19 mulgass G Grp E P P C B E P P · ˙ C = E P · ˙ P · ˙ C
118 26 97 108 79 117 syl13anc φ E P P · ˙ C = E P · ˙ P · ˙ C
119 3 5 19 6 gexid C B E · ˙ C = 0 ˙
120 79 119 syl φ E · ˙ C = 0 ˙
121 116 118 120 3eqtr3rd φ 0 ˙ = E P · ˙ P · ˙ C
122 3 19 mulgass G Grp E P M A B E P M · ˙ A = E P · ˙ M · ˙ A
123 26 97 20 68 122 syl13anc φ E P M · ˙ A = E P · ˙ M · ˙ A
124 121 123 oveq12d φ 0 ˙ + G E P M · ˙ A = E P · ˙ P · ˙ C + G E P · ˙ M · ˙ A
125 3 subgss S SubGrp G S B
126 71 125 syl φ S B
127 126 106 sseldd φ E P M · ˙ A B
128 3 113 6 grplid G Grp E P M · ˙ A B 0 ˙ + G E P M · ˙ A = E P M · ˙ A
129 26 127 128 syl2anc φ 0 ˙ + G E P M · ˙ A = E P M · ˙ A
130 115 124 129 3eqtr2d φ E P · ˙ P · ˙ C + G M · ˙ A = E P M · ˙ A
131 19 subgmulgcl W SubGrp G E P P · ˙ C + G M · ˙ A W E P · ˙ P · ˙ C + G M · ˙ A W
132 14 97 21 131 syl3anc φ E P · ˙ P · ˙ C + G M · ˙ A W
133 130 132 eqeltrrd φ E P M · ˙ A W
134 106 133 elind φ E P M · ˙ A S W
135 134 15 eleqtrd φ E P M · ˙ A 0 ˙
136 elsni E P M · ˙ A 0 ˙ E P M · ˙ A = 0 ˙
137 135 136 syl φ E P M · ˙ A = 0 ˙
138 3 4 19 6 oddvds G Grp A B E P M O A E P M E P M · ˙ A = 0 ˙
139 26 68 98 138 syl3anc φ O A E P M E P M · ˙ A = 0 ˙
140 137 139 mpbird φ O A E P M
141 93 140 eqbrtrrd φ E P P E P M
142 96 nnne0d φ E P 0
143 dvdscmulr P M E P E P 0 E P P E P M P M
144 108 20 97 142 143 syl112anc φ E P P E P M P M
145 141 144 mpbid φ P M
146 89 145 jca φ P E P M