Metamath Proof Explorer


Theorem conjnmz

Description: A subgroup is unchanged under conjugation by an element of its normalizer. (Contributed by Mario Carneiro, 18-Jan-2015)

Ref Expression
Hypotheses conjghm.x 𝑋 = ( Base ‘ 𝐺 )
conjghm.p + = ( +g𝐺 )
conjghm.m = ( -g𝐺 )
conjsubg.f 𝐹 = ( 𝑥𝑆 ↦ ( ( 𝐴 + 𝑥 ) 𝐴 ) )
conjnmz.1 𝑁 = { 𝑦𝑋 ∣ ∀ 𝑧𝑋 ( ( 𝑦 + 𝑧 ) ∈ 𝑆 ↔ ( 𝑧 + 𝑦 ) ∈ 𝑆 ) }
Assertion conjnmz ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) → 𝑆 = ran 𝐹 )

Proof

Step Hyp Ref Expression
1 conjghm.x 𝑋 = ( Base ‘ 𝐺 )
2 conjghm.p + = ( +g𝐺 )
3 conjghm.m = ( -g𝐺 )
4 conjsubg.f 𝐹 = ( 𝑥𝑆 ↦ ( ( 𝐴 + 𝑥 ) 𝐴 ) )
5 conjnmz.1 𝑁 = { 𝑦𝑋 ∣ ∀ 𝑧𝑋 ( ( 𝑦 + 𝑧 ) ∈ 𝑆 ↔ ( 𝑧 + 𝑦 ) ∈ 𝑆 ) }
6 subgrcl ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) → 𝐺 ∈ Grp )
7 6 ad2antrr ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → 𝐺 ∈ Grp )
8 eqid ( invg𝐺 ) = ( invg𝐺 )
9 5 ssrab3 𝑁𝑋
10 simplr ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → 𝐴𝑁 )
11 9 10 sselid ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → 𝐴𝑋 )
12 1 8 7 11 grpinvcld ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( invg𝐺 ) ‘ 𝐴 ) ∈ 𝑋 )
13 1 subgss ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) → 𝑆𝑋 )
14 13 adantr ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) → 𝑆𝑋 )
15 14 sselda ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → 𝑤𝑋 )
16 1 2 7 12 15 11 grpassd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( ( ( invg𝐺 ) ‘ 𝐴 ) + 𝑤 ) + 𝐴 ) = ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) )
17 eqid ( 0g𝐺 ) = ( 0g𝐺 )
18 1 2 17 8 7 11 grprinvd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( 𝐴 + ( ( invg𝐺 ) ‘ 𝐴 ) ) = ( 0g𝐺 ) )
19 18 oveq1d ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( 𝐴 + ( ( invg𝐺 ) ‘ 𝐴 ) ) + 𝑤 ) = ( ( 0g𝐺 ) + 𝑤 ) )
20 1 2 7 11 12 15 grpassd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( 𝐴 + ( ( invg𝐺 ) ‘ 𝐴 ) ) + 𝑤 ) = ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + 𝑤 ) ) )
21 1 2 17 7 15 grplidd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( 0g𝐺 ) + 𝑤 ) = 𝑤 )
22 19 20 21 3eqtr3d ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + 𝑤 ) ) = 𝑤 )
23 simpr ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → 𝑤𝑆 )
24 22 23 eqeltrd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + 𝑤 ) ) ∈ 𝑆 )
25 1 2 7 12 15 grpcld ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( ( invg𝐺 ) ‘ 𝐴 ) + 𝑤 ) ∈ 𝑋 )
26 5 nmzbi ( ( 𝐴𝑁 ∧ ( ( ( invg𝐺 ) ‘ 𝐴 ) + 𝑤 ) ∈ 𝑋 ) → ( ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + 𝑤 ) ) ∈ 𝑆 ↔ ( ( ( ( invg𝐺 ) ‘ 𝐴 ) + 𝑤 ) + 𝐴 ) ∈ 𝑆 ) )
27 10 25 26 syl2anc ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + 𝑤 ) ) ∈ 𝑆 ↔ ( ( ( ( invg𝐺 ) ‘ 𝐴 ) + 𝑤 ) + 𝐴 ) ∈ 𝑆 ) )
28 24 27 mpbid ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( ( ( invg𝐺 ) ‘ 𝐴 ) + 𝑤 ) + 𝐴 ) ∈ 𝑆 )
29 16 28 eqeltrrd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ∈ 𝑆 )
30 oveq2 ( 𝑥 = ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) → ( 𝐴 + 𝑥 ) = ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) )
31 30 oveq1d ( 𝑥 = ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) → ( ( 𝐴 + 𝑥 ) 𝐴 ) = ( ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) 𝐴 ) )
32 ovex ( ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) 𝐴 ) ∈ V
33 31 4 32 fvmpt ( ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ∈ 𝑆 → ( 𝐹 ‘ ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) = ( ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) 𝐴 ) )
34 29 33 syl ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( 𝐹 ‘ ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) = ( ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) 𝐴 ) )
35 18 oveq1d ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( 𝐴 + ( ( invg𝐺 ) ‘ 𝐴 ) ) + ( 𝑤 + 𝐴 ) ) = ( ( 0g𝐺 ) + ( 𝑤 + 𝐴 ) ) )
36 1 2 7 15 11 grpcld ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( 𝑤 + 𝐴 ) ∈ 𝑋 )
37 1 2 7 11 12 36 grpassd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( 𝐴 + ( ( invg𝐺 ) ‘ 𝐴 ) ) + ( 𝑤 + 𝐴 ) ) = ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) )
38 1 2 17 7 36 grplidd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( 0g𝐺 ) + ( 𝑤 + 𝐴 ) ) = ( 𝑤 + 𝐴 ) )
39 35 37 38 3eqtr3d ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) = ( 𝑤 + 𝐴 ) )
40 39 oveq1d ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( 𝐴 + ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) 𝐴 ) = ( ( 𝑤 + 𝐴 ) 𝐴 ) )
41 1 2 3 grppncan ( ( 𝐺 ∈ Grp ∧ 𝑤𝑋𝐴𝑋 ) → ( ( 𝑤 + 𝐴 ) 𝐴 ) = 𝑤 )
42 7 15 11 41 syl3anc ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( ( 𝑤 + 𝐴 ) 𝐴 ) = 𝑤 )
43 34 40 42 3eqtrd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( 𝐹 ‘ ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) = 𝑤 )
44 ovex ( ( 𝐴 + 𝑥 ) 𝐴 ) ∈ V
45 44 4 fnmpti 𝐹 Fn 𝑆
46 fnfvelrn ( ( 𝐹 Fn 𝑆 ∧ ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ∈ 𝑆 ) → ( 𝐹 ‘ ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) ∈ ran 𝐹 )
47 45 29 46 sylancr ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → ( 𝐹 ‘ ( ( ( invg𝐺 ) ‘ 𝐴 ) + ( 𝑤 + 𝐴 ) ) ) ∈ ran 𝐹 )
48 43 47 eqeltrrd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑤𝑆 ) → 𝑤 ∈ ran 𝐹 )
49 48 ex ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) → ( 𝑤𝑆𝑤 ∈ ran 𝐹 ) )
50 49 ssrdv ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) → 𝑆 ⊆ ran 𝐹 )
51 6 ad2antrr ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → 𝐺 ∈ Grp )
52 simplr ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → 𝐴𝑁 )
53 9 52 sselid ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → 𝐴𝑋 )
54 14 sselda ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → 𝑥𝑋 )
55 1 2 3 grpaddsubass ( ( 𝐺 ∈ Grp ∧ ( 𝐴𝑋𝑥𝑋𝐴𝑋 ) ) → ( ( 𝐴 + 𝑥 ) 𝐴 ) = ( 𝐴 + ( 𝑥 𝐴 ) ) )
56 51 53 54 53 55 syl13anc ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → ( ( 𝐴 + 𝑥 ) 𝐴 ) = ( 𝐴 + ( 𝑥 𝐴 ) ) )
57 1 2 3 grpnpcan ( ( 𝐺 ∈ Grp ∧ 𝑥𝑋𝐴𝑋 ) → ( ( 𝑥 𝐴 ) + 𝐴 ) = 𝑥 )
58 51 54 53 57 syl3anc ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → ( ( 𝑥 𝐴 ) + 𝐴 ) = 𝑥 )
59 simpr ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → 𝑥𝑆 )
60 58 59 eqeltrd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → ( ( 𝑥 𝐴 ) + 𝐴 ) ∈ 𝑆 )
61 1 3 grpsubcl ( ( 𝐺 ∈ Grp ∧ 𝑥𝑋𝐴𝑋 ) → ( 𝑥 𝐴 ) ∈ 𝑋 )
62 51 54 53 61 syl3anc ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → ( 𝑥 𝐴 ) ∈ 𝑋 )
63 5 nmzbi ( ( 𝐴𝑁 ∧ ( 𝑥 𝐴 ) ∈ 𝑋 ) → ( ( 𝐴 + ( 𝑥 𝐴 ) ) ∈ 𝑆 ↔ ( ( 𝑥 𝐴 ) + 𝐴 ) ∈ 𝑆 ) )
64 52 62 63 syl2anc ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → ( ( 𝐴 + ( 𝑥 𝐴 ) ) ∈ 𝑆 ↔ ( ( 𝑥 𝐴 ) + 𝐴 ) ∈ 𝑆 ) )
65 60 64 mpbird ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → ( 𝐴 + ( 𝑥 𝐴 ) ) ∈ 𝑆 )
66 56 65 eqeltrd ( ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) ∧ 𝑥𝑆 ) → ( ( 𝐴 + 𝑥 ) 𝐴 ) ∈ 𝑆 )
67 66 4 fmptd ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) → 𝐹 : 𝑆𝑆 )
68 67 frnd ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) → ran 𝐹𝑆 )
69 50 68 eqssd ( ( 𝑆 ∈ ( SubGrp ‘ 𝐺 ) ∧ 𝐴𝑁 ) → 𝑆 = ran 𝐹 )