Theorem grplactcnv 19011

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 2739	. . 3 ⊢ (𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)) = (𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎))
2		grplact.2	. . . . 5 ⊢ 𝑋 = (Base‘𝐺)
3		grplact.3	. . . . 5 ⊢ + = (+g‘𝐺)
4	2, 3	grpcl 18909	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋 ∧ 𝑎 ∈ 𝑋) → (𝐴 + 𝑎) ∈ 𝑋)
5	4	3expa 1124	. . 3 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ 𝑎 ∈ 𝑋) → (𝐴 + 𝑎) ∈ 𝑋)
6		grplactcnv.4	. . . . 5 ⊢ 𝐼 = (invg‘𝐺)
7	2, 6	grpinvcl 18955	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → (𝐼‘𝐴) ∈ 𝑋)
8	2, 3	grpcl 18909	. . . . 5 ⊢ ((𝐺 ∈ Grp ∧ (𝐼‘𝐴) ∈ 𝑋 ∧ 𝑏 ∈ 𝑋) → ((𝐼‘𝐴) + 𝑏) ∈ 𝑋)
9	8	3expa 1124	. . . 4 ⊢ (((𝐺 ∈ Grp ∧ (𝐼‘𝐴) ∈ 𝑋) ∧ 𝑏 ∈ 𝑋) → ((𝐼‘𝐴) + 𝑏) ∈ 𝑋)
10	7, 9	syldanl 608	. . 3 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ 𝑏 ∈ 𝑋) → ((𝐼‘𝐴) + 𝑏) ∈ 𝑋)
11		eqcom 2746	. . . . 5 ⊢ (𝑎 = ((𝐼‘𝐴) + 𝑏) ↔ ((𝐼‘𝐴) + 𝑏) = 𝑎)
12		eqid 2739	. . . . . . . . . 10 ⊢ (0g‘𝐺) = (0g‘𝐺)
13	2, 3, 12, 6	grplinv 18957	. . . . . . . . 9 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ((𝐼‘𝐴) + 𝐴) = (0g‘𝐺))
14	13	adantr 481	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → ((𝐼‘𝐴) + 𝐴) = (0g‘𝐺))
15	14	oveq1d 7372	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (((𝐼‘𝐴) + 𝐴) + 𝑎) = ((0g‘𝐺) + 𝑎))
16		simpll 772	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → 𝐺 ∈ Grp)
17	7	adantr 481	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (𝐼‘𝐴) ∈ 𝑋)
18		simplr 774	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → 𝐴 ∈ 𝑋)
19		simprl 776	. . . . . . . 8 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → 𝑎 ∈ 𝑋)
20	2, 3	grpass 18910	. . . . . . . 8 ⊢ ((𝐺 ∈ Grp ∧ ((𝐼‘𝐴) ∈ 𝑋 ∧ 𝐴 ∈ 𝑋 ∧ 𝑎 ∈ 𝑋)) → (((𝐼‘𝐴) + 𝐴) + 𝑎) = ((𝐼‘𝐴) + (𝐴 + 𝑎)))
21	16, 17, 18, 19, 20	syl13anc 1380	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (((𝐼‘𝐴) + 𝐴) + 𝑎) = ((𝐼‘𝐴) + (𝐴 + 𝑎)))
22	2, 3, 12	grplid 18935	. . . . . . . 8 ⊢ ((𝐺 ∈ Grp ∧ 𝑎 ∈ 𝑋) → ((0g‘𝐺) + 𝑎) = 𝑎)
23	22	ad2ant2r 753	. . . . . . 7 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → ((0g‘𝐺) + 𝑎) = 𝑎)
24	15, 21, 23	3eqtr3rd 2783	. . . . . 6 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → 𝑎 = ((𝐼‘𝐴) + (𝐴 + 𝑎)))
25	24	eqeq2d 2750	. . . . 5 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (((𝐼‘𝐴) + 𝑏) = 𝑎 ↔ ((𝐼‘𝐴) + 𝑏) = ((𝐼‘𝐴) + (𝐴 + 𝑎))))
26	11, 25	bitrid 284	. . . 4 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (𝑎 = ((𝐼‘𝐴) + 𝑏) ↔ ((𝐼‘𝐴) + 𝑏) = ((𝐼‘𝐴) + (𝐴 + 𝑎))))
27		simprr 778	. . . . 5 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → 𝑏 ∈ 𝑋)
28	5	adantrr 723	. . . . 5 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (𝐴 + 𝑎) ∈ 𝑋)
29	2, 3	grplcan 18968	. . . . 5 ⊢ ((𝐺 ∈ Grp ∧ (𝑏 ∈ 𝑋 ∧ (𝐴 + 𝑎) ∈ 𝑋 ∧ (𝐼‘𝐴) ∈ 𝑋)) → (((𝐼‘𝐴) + 𝑏) = ((𝐼‘𝐴) + (𝐴 + 𝑎)) ↔ 𝑏 = (𝐴 + 𝑎)))
30	16, 27, 28, 17, 29	syl13anc 1380	. . . 4 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (((𝐼‘𝐴) + 𝑏) = ((𝐼‘𝐴) + (𝐴 + 𝑎)) ↔ 𝑏 = (𝐴 + 𝑎)))
31	26, 30	bitrd 280	. . 3 ⊢ (((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) ∧ (𝑎 ∈ 𝑋 ∧ 𝑏 ∈ 𝑋)) → (𝑎 = ((𝐼‘𝐴) + 𝑏) ↔ 𝑏 = (𝐴 + 𝑎)))
32	1, 5, 10, 31	f1ocnv2d 7610	. 2 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ((𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)):𝑋–1-1-onto→𝑋 ∧ ◡(𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏))))
33		grplact.1	. . . . . 6 ⊢ 𝐹 = (𝑔 ∈ 𝑋 ↦ (𝑎 ∈ 𝑋 ↦ (𝑔 + 𝑎)))
34	33, 2	grplactfval 19009	. . . . 5 ⊢ (𝐴 ∈ 𝑋 → (𝐹‘𝐴) = (𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)))
35	34	adantl 482	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → (𝐹‘𝐴) = (𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)))
36	35	f1oeq1d 6763	. . 3 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ((𝐹‘𝐴):𝑋–1-1-onto→𝑋 ↔ (𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)):𝑋–1-1-onto→𝑋))
37	35	cnveqd 5818	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ◡(𝐹‘𝐴) = ◡(𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)))
38	33, 2	grplactfval 19009	. . . . . 6 ⊢ ((𝐼‘𝐴) ∈ 𝑋 → (𝐹‘(𝐼‘𝐴)) = (𝑎 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑎)))
39		oveq2 7365	. . . . . . 7 ⊢ (𝑎 = 𝑏 → ((𝐼‘𝐴) + 𝑎) = ((𝐼‘𝐴) + 𝑏))
40	39	cbvmptv 5177	. . . . . 6 ⊢ (𝑎 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑎)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏))
41	38, 40	eqtrdi 2790	. . . . 5 ⊢ ((𝐼‘𝐴) ∈ 𝑋 → (𝐹‘(𝐼‘𝐴)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏)))
42	7, 41	syl 17	. . . 4 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → (𝐹‘(𝐼‘𝐴)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏)))
43	37, 42	eqeq12d 2755	. . 3 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → (◡(𝐹‘𝐴) = (𝐹‘(𝐼‘𝐴)) ↔ ◡(𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏))))
44	36, 43	anbi12d 638	. 2 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → (((𝐹‘𝐴):𝑋–1-1-onto→𝑋 ∧ ◡(𝐹‘𝐴) = (𝐹‘(𝐼‘𝐴))) ↔ ((𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)):𝑋–1-1-onto→𝑋 ∧ ◡(𝑎 ∈ 𝑋 ↦ (𝐴 + 𝑎)) = (𝑏 ∈ 𝑋 ↦ ((𝐼‘𝐴) + 𝑏)))))
45	32, 44	mpbird 258	1 ⊢ ((𝐺 ∈ Grp ∧ 𝐴 ∈ 𝑋) → ((𝐹‘𝐴):𝑋–1-1-onto→𝑋 ∧ ◡(𝐹‘𝐴) = (𝐹‘(𝐼‘𝐴))))

Syntax hints:   → wi 4   ↔ wb 207   ∧ wa 396   = wceq 1547   ∈ wcel 2119   ↦ cmpt 5154  ^◡ccnv 5618  –1-1-onto→wf1o 6485  ‘cfv 6486  (class class class)co 7357  Basecbs 17171  +_gcplusg 17212  0_gc0g 17394  Grpcgrp 18901  inv_gcminusg 18902

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 1917  ax-6 1974  ax-7 2015  ax-8 2121  ax-9 2129  ax-10 2152  ax-11 2168  ax-12 2189  ax-ext 2711  ax-rep 5200  ax-sep 5219  ax-nul 5229  ax-pow 5295  ax-pr 5363  ax-un 7679

This theorem depends on definitions:  df-bi 208  df-an 397  df-or 854  df-3an 1094  df-tru 1550  df-fal 1560  df-ex 1787  df-nf 1791  df-sb 2074  df-mo 2543  df-eu 2573  df-clab 2718  df-cleq 2731  df-clel 2814  df-nfc 2888  df-ne 2935  df-ral 3054  df-rex 3064  df-rmo 3344  df-reu 3345  df-rab 3392  df-v 3433  df-sbc 3724  df-csb 3832  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-nul 4263  df-if 4456  df-pw 4532  df-sn 4557  df-pr 4559  df-op 4563  df-uni 4840  df-iun 4924  df-br 5074  df-opab 5136  df-mpt 5155  df-id 5514  df-xp 5625  df-rel 5626  df-cnv 5627  df-co 5628  df-dm 5629  df-rn 5630  df-res 5631  df-ima 5632  df-iota 6442  df-fun 6488  df-fn 6489  df-f 6490  df-f1 6491  df-fo 6492  df-f1o 6493  df-fv 6494  df-riota 7314  df-ov 7360  df-0g 17396  df-mgm 18600  df-sgrp 18679  df-mnd 18695  df-grp 18904  df-minusg 18905

This theorem is referenced by:  grplactf1o  19012  eqglact  19146  tgplacthmeo  24087  tgpconncompeqg  24096