Metamath Proof Explorer


Theorem cntzsubg

Description: Centralizers in a group are subgroups. (Contributed by Stefan O'Rear, 6-Sep-2015)

Ref Expression
Hypotheses cntzrec.b B=BaseM
cntzrec.z Z=CntzM
Assertion cntzsubg MGrpSBZSSubGrpM

Proof

Step Hyp Ref Expression
1 cntzrec.b B=BaseM
2 cntzrec.z Z=CntzM
3 grpmnd MGrpMMnd
4 1 2 cntzsubm MMndSBZSSubMndM
5 3 4 sylan MGrpSBZSSubMndM
6 simpll MGrpSBxZSySMGrp
7 1 2 cntzssv ZSB
8 simprl MGrpSBxZSySxZS
9 7 8 sselid MGrpSBxZSySxB
10 eqid invgM=invgM
11 1 10 grpinvcl MGrpxBinvgMxB
12 6 9 11 syl2anc MGrpSBxZSySinvgMxB
13 ssel2 SBySyB
14 13 ad2ant2l MGrpSBxZSySyB
15 eqid +M=+M
16 1 15 grpcl MGrpxBinvgMxBx+MinvgMxB
17 6 9 12 16 syl3anc MGrpSBxZSySx+MinvgMxB
18 1 15 grpass MGrpinvgMxByBx+MinvgMxBinvgMx+My+Mx+MinvgMx=invgMx+My+Mx+MinvgMx
19 6 12 14 17 18 syl13anc MGrpSBxZSySinvgMx+My+Mx+MinvgMx=invgMx+My+Mx+MinvgMx
20 1 15 grpass MGrpyBxBinvgMxBy+Mx+MinvgMx=y+Mx+MinvgMx
21 6 14 9 12 20 syl13anc MGrpSBxZSySy+Mx+MinvgMx=y+Mx+MinvgMx
22 21 oveq2d MGrpSBxZSySinvgMx+My+Mx+MinvgMx=invgMx+My+Mx+MinvgMx
23 19 22 eqtr4d MGrpSBxZSySinvgMx+My+Mx+MinvgMx=invgMx+My+Mx+MinvgMx
24 15 2 cntzi xZSySx+My=y+Mx
25 24 adantl MGrpSBxZSySx+My=y+Mx
26 25 oveq1d MGrpSBxZSySx+My+MinvgMx=y+Mx+MinvgMx
27 26 oveq2d MGrpSBxZSySinvgMx+Mx+My+MinvgMx=invgMx+My+Mx+MinvgMx
28 23 27 eqtr4d MGrpSBxZSySinvgMx+My+Mx+MinvgMx=invgMx+Mx+My+MinvgMx
29 1 15 grpcl MGrpyBinvgMxBy+MinvgMxB
30 6 14 12 29 syl3anc MGrpSBxZSySy+MinvgMxB
31 1 15 grpass MGrpinvgMxBxBy+MinvgMxBinvgMx+Mx+My+MinvgMx=invgMx+Mx+My+MinvgMx
32 6 12 9 30 31 syl13anc MGrpSBxZSySinvgMx+Mx+My+MinvgMx=invgMx+Mx+My+MinvgMx
33 1 15 grpass MGrpxByBinvgMxBx+My+MinvgMx=x+My+MinvgMx
34 6 9 14 12 33 syl13anc MGrpSBxZSySx+My+MinvgMx=x+My+MinvgMx
35 34 oveq2d MGrpSBxZSySinvgMx+Mx+My+MinvgMx=invgMx+Mx+My+MinvgMx
36 32 35 eqtr4d MGrpSBxZSySinvgMx+Mx+My+MinvgMx=invgMx+Mx+My+MinvgMx
37 28 36 eqtr4d MGrpSBxZSySinvgMx+My+Mx+MinvgMx=invgMx+Mx+My+MinvgMx
38 eqid 0M=0M
39 1 15 38 10 grprinv MGrpxBx+MinvgMx=0M
40 6 9 39 syl2anc MGrpSBxZSySx+MinvgMx=0M
41 40 oveq2d MGrpSBxZSySinvgMx+My+Mx+MinvgMx=invgMx+My+M0M
42 1 15 grpcl MGrpinvgMxByBinvgMx+MyB
43 6 12 14 42 syl3anc MGrpSBxZSySinvgMx+MyB
44 1 15 38 grprid MGrpinvgMx+MyBinvgMx+My+M0M=invgMx+My
45 6 43 44 syl2anc MGrpSBxZSySinvgMx+My+M0M=invgMx+My
46 41 45 eqtrd MGrpSBxZSySinvgMx+My+Mx+MinvgMx=invgMx+My
47 1 15 38 10 grplinv MGrpxBinvgMx+Mx=0M
48 6 9 47 syl2anc MGrpSBxZSySinvgMx+Mx=0M
49 48 oveq1d MGrpSBxZSySinvgMx+Mx+My+MinvgMx=0M+My+MinvgMx
50 1 15 38 grplid MGrpy+MinvgMxB0M+My+MinvgMx=y+MinvgMx
51 6 30 50 syl2anc MGrpSBxZSyS0M+My+MinvgMx=y+MinvgMx
52 49 51 eqtrd MGrpSBxZSySinvgMx+Mx+My+MinvgMx=y+MinvgMx
53 37 46 52 3eqtr3d MGrpSBxZSySinvgMx+My=y+MinvgMx
54 53 anassrs MGrpSBxZSySinvgMx+My=y+MinvgMx
55 54 ralrimiva MGrpSBxZSySinvgMx+My=y+MinvgMx
56 simplr MGrpSBxZSSB
57 simpll MGrpSBxZSMGrp
58 simpr MGrpSBxZSxZS
59 7 58 sselid MGrpSBxZSxB
60 57 59 11 syl2anc MGrpSBxZSinvgMxB
61 1 15 2 cntzel SBinvgMxBinvgMxZSySinvgMx+My=y+MinvgMx
62 56 60 61 syl2anc MGrpSBxZSinvgMxZSySinvgMx+My=y+MinvgMx
63 55 62 mpbird MGrpSBxZSinvgMxZS
64 63 ralrimiva MGrpSBxZSinvgMxZS
65 10 issubg3 MGrpZSSubGrpMZSSubMndMxZSinvgMxZS
66 65 adantr MGrpSBZSSubGrpMZSSubMndMxZSinvgMxZS
67 5 64 66 mpbir2and MGrpSBZSSubGrpM