Theorem grplactcnv 18313

Description: The left group action of element 𝐴 of group 𝐺 maps the underlying set 𝑋 of 𝐺 one-to-one onto itself. (Contributed by Paul Chapman, 18-Mar-2008.) (Proof shortened by Mario Carneiro, 14-Aug-2015.)

Hypotheses

Ref	Expression
grplact.1	⊢ 𝐹 = (𝑔 ∈ 𝑋 ↦ (𝑎 ∈ 𝑋 ↦ (𝑔 + 𝑎)))
grplact.2	⊢ 𝑋 = (Base‘𝐺)
grplact.3	⊢ + = (+g‘𝐺)
grplactcnv.4	⊢ 𝐼 = (invg‘𝐺)

Assertion

Ref	Expression
grplactcnv	⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ((𝐹‘𝐴):𝑋–1-1-onto→𝑋 ∧ ◡(𝐹‘𝐴) = (𝐹‘(𝐼‘𝐴))))

Distinct variable groups:   𝑔,𝑎,𝐴   𝐺,𝑎,𝑔   𝐼,𝑎,𝑔   + ,𝑎,𝑔   𝑋,𝑎,𝑔

Allowed substitution hints:   𝐹(𝑔,𝑎)

Proof of Theorem grplactcnv

Dummy variable 𝑏 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2738	. . 3 ⊢ (𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)) = (𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎))
2		grplact.2	. . . . 5 ⊢ 𝑋 = (Base‘𝐺)
3		grplact.3	. . . . 5 ⊢ + = (+g‘𝐺)
4	2, 3	grpcl 18220	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ 𝑎 ∈ 𝑋) → (𝐴 + 𝑎) ∈ 𝑋)
5	4	3expa 1119	. . 3 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ 𝑎 ∈ 𝑋) → (𝐴 + 𝑎) ∈ 𝑋)
6		grplactcnv.4	. . . . 5 ⊢ 𝐼 = (invg‘𝐺)
7	2, 6	grpinvcl 18262	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → (𝐼‘𝐴) ∈ 𝑋)
8	2, 3	grpcl 18220	. . . . 5 ⊢ ((𝐺 ∈ Grp ∧ (𝐼‘𝐴) ∈ 𝑋 ∧ 𝑏 ∈ 𝑋) → ((𝐼‘𝐴) + 𝑏) ∈ 𝑋)
9	8	3expa 1119	. . . 4 ⊢ (((𝐺 ∈ Grp ∧ (𝐼‘𝐴) ∈ 𝑋) ∧ 𝑏 ∈ 𝑋) → ((𝐼‘𝐴) + 𝑏) ∈ 𝑋)
10	7, 9	syldanl 605	. . 3 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ 𝑏 ∈ 𝑋) → ((𝐼‘𝐴) + 𝑏) ∈ 𝑋)
11		eqcom 2745	. . . . 5 ⊢ (𝑎 = ((𝐼‘𝐴) + 𝑏) ↔ ((𝐼‘𝐴) + 𝑏) = 𝑎)
12		eqid 2738	. . . . . . . . . 10 ⊢ (0g‘𝐺) = (0g‘𝐺)
13	2, 3, 12, 6	grplinv 18263	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ((𝐼‘𝐴) + 𝐴) = (0g‘𝐺))
14	13	adantr 484	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → ((𝐼‘𝐴) + 𝐴) = (0g‘𝐺))
15	14	oveq1d 7179	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (((𝐼‘𝐴) + 𝐴) + 𝑎) = ((0g‘𝐺) + 𝑎))
16		simpll 767	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → 𝐺 ∈ Grp)
17	7	adantr 484	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (𝐼‘𝐴) ∈ 𝑋)
18		simplr 769	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → 𝐴 ∈ 𝑋)
19		simprl 771	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → 𝑎 ∈ 𝑋)
20	2, 3	grpass 18221	. . . . . . . 8 ⊢ ((𝐺 ∈ Grp ∧ ((𝐼‘𝐴) ∈ 𝑋 ∧ 𝐴 ∈ 𝑋 ∧ 𝑎 ∈ 𝑋)) → (((𝐼‘𝐴) + 𝐴) + 𝑎) = ((𝐼‘𝐴) + (𝐴 + 𝑎)))
21	16, 17, 18, 19, 20	syl13anc 1373	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (((𝐼‘𝐴) + 𝐴) + 𝑎) = ((𝐼‘𝐴) + (𝐴 + 𝑎)))
22	2, 3, 12	grplid 18244	. . . . . . . 8 ⊢ ((𝐺 ∈ Grp ∧ 𝑎 ∈ 𝑋) → ((0g‘𝐺) + 𝑎) = 𝑎)
23	22	ad2ant2r 747	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → ((0g‘𝐺) + 𝑎) = 𝑎)
24	15, 21, 23	3eqtr3rd 2782	. . . . . 6 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → 𝑎 = ((𝐼‘𝐴) + (𝐴 + 𝑎)))
25	24	eqeq2d 2749	. . . . 5 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (((𝐼‘𝐴) + 𝑏) = 𝑎 ↔ ((𝐼‘𝐴) + 𝑏) = ((𝐼‘𝐴) + (𝐴 + 𝑎))))
26	11, 25	syl5bb 286	. . . 4 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (𝑎 = ((𝐼‘𝐴) + 𝑏) ↔ ((𝐼‘𝐴) + 𝑏) = ((𝐼‘𝐴) + (𝐴 + 𝑎))))
27		simprr 773	. . . . 5 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → 𝑏 ∈ 𝑋)
28	5	adantrr 717	. . . . 5 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (𝐴 + 𝑎) ∈ 𝑋)
29	2, 3	grplcan 18272	. . . . 5 ⊢ ((𝐺 ∈ Grp ∧ (𝑏 ∈ 𝑋 ∧ (𝐴 + 𝑎) ∈ 𝑋 ∧ (𝐼‘𝐴) ∈ 𝑋)) → (((𝐼‘𝐴) + 𝑏) = ((𝐼‘𝐴) + (𝐴 + 𝑎)) ↔ 𝑏 = (𝐴 + 𝑎)))
30	16, 27, 28, 17, 29	syl13anc 1373	. . . 4 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (((𝐼‘𝐴) + 𝑏) = ((𝐼‘𝐴) + (𝐴 + 𝑎)) ↔ 𝑏 = (𝐴 + 𝑎)))
31	26, 30	bitrd 282	. . 3 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (𝑎 = ((𝐼‘𝐴) + 𝑏) ↔ 𝑏 = (𝐴 + 𝑎)))
32	1, 5, 10, 31	f1ocnv2d 7408	. 2 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ((𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)):𝑋–1-1-onto→𝑋 ∧ ◡(𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏))))
33		grplact.1	. . . . . 6 ⊢ 𝐹 = (𝑔 ∈ 𝑋 ↦ (𝑎 ∈ 𝑋 ↦ (𝑔 + 𝑎)))
34	33, 2	grplactfval 18311	. . . . 5 ⊢ (𝐴 ∈ 𝑋 → (𝐹‘𝐴) = (𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)))
35	34	adantl 485	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → (𝐹‘𝐴) = (𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)))
36	35	f1oeq1d 6607	. . 3 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ((𝐹‘𝐴):𝑋–1-1-onto→𝑋 ↔ (𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)):𝑋–1-1-onto→𝑋))
37	35	cnveqd 5712	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ◡(𝐹‘𝐴) = ◡(𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)))
38	33, 2	grplactfval 18311	. . . . . 6 ⊢ ((𝐼‘𝐴) ∈ 𝑋 → (𝐹‘(𝐼‘𝐴)) = (𝑎 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑎)))
39		oveq2 7172	. . . . . . 7 ⊢ (𝑎 = 𝑏 → ((𝐼‘𝐴) + 𝑎) = ((𝐼‘𝐴) + 𝑏))
40	39	cbvmptv 5130	. . . . . 6 ⊢ (𝑎 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑎)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏))
41	38, 40	eqtrdi 2789	. . . . 5 ⊢ ((𝐼‘𝐴) ∈ 𝑋 → (𝐹‘(𝐼‘𝐴)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏)))
42	7, 41	syl 17	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → (𝐹‘(𝐼‘𝐴)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏)))
43	37, 42	eqeq12d 2754	. . 3 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → (◡(𝐹‘𝐴) = (𝐹‘(𝐼‘𝐴)) ↔ ◡(𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏))))
44	36, 43	anbi12d 634	. 2 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → (((𝐹‘𝐴):𝑋–1-1-onto→𝑋 ∧ ◡(𝐹‘𝐴) = (𝐹‘(𝐼‘𝐴))) ↔ ((𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)):𝑋–1-1-onto→𝑋 ∧ ◡(𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏)))))
45	32, 44	mpbird 260	1 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ((𝐹‘𝐴):𝑋–1-1-onto→𝑋 ∧ ◡(𝐹‘𝐴) = (𝐹‘(𝐼‘𝐴))))

Syntax hints:   → wi 4   ↔ wb 209   ∧ wa 399   = wceq 1542   ∈ wcel 2113   ↦ cmpt 5107  ^◡ccnv 5518  –1-1-onto→wf1o 6332  ‘cfv 6333  (class class class)co 7164  Basecbs 16579  +_gcplusg 16661  0_gc0g 16809  Grpcgrp 18212  inv_gcminusg 18213

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1916  ax-6 1974  ax-7 2019  ax-8 2115  ax-9 2123  ax-10 2144  ax-11 2161  ax-12 2178  ax-ext 2710  ax-rep 5151  ax-sep 5164  ax-nul 5171  ax-pow 5229  ax-pr 5293  ax-un 7473

This theorem depends on definitions:  df-bi 210  df-an 400  df-or 847  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2540  df-eu 2570  df-clab 2717  df-cleq 2730  df-clel 2811  df-nfc 2881  df-ne 2935  df-ral 3058  df-rex 3059  df-reu 3060  df-rmo 3061  df-rab 3062  df-v 3399  df-sbc 3680  df-csb 3789  df-dif 3844  df-un 3846  df-in 3848  df-ss 3858  df-nul 4210  df-if 4412  df-pw 4487  df-sn 4514  df-pr 4516  df-op 4520  df-uni 4794  df-iun 4880  df-br 5028  df-opab 5090  df-mpt 5108  df-id 5425  df-xp 5525  df-rel 5526  df-cnv 5527  df-co 5528  df-dm 5529  df-rn 5530  df-res 5531  df-ima 5532  df-iota 6291  df-fun 6335  df-fn 6336  df-f 6337  df-f1 6338  df-fo 6339  df-f1o 6340  df-fv 6341  df-riota 7121  df-ov 7167  df-0g 16811  df-mgm 17961  df-sgrp 18010  df-mnd 18021  df-grp 18215  df-minusg 18216

This theorem is referenced by:  grplactf1o  18314  eqglact  18442  tgplacthmeo  22847  tgpconncompeqg  22856