Theorem kerf1ghm 13924

Description: A group homomorphism 𝐹 is injective if and only if its kernel is the singleton {𝑁}. (Contributed by Thierry Arnoux, 27-Oct-2017.) (Proof shortened by AV, 24-Oct-2019.) (Revised by Thierry Arnoux, 13-May-2023.)

Hypotheses

Ref	Expression
f1ghm0to0.a	⊢ 𝐴 = (Base‘𝑅)
f1ghm0to0.b	⊢ 𝐵 = (Base‘𝑆)
f1ghm0to0.n	⊢ 𝑁 = (0g‘𝑅)
f1ghm0to0.0	⊢ 0 = (0g‘𝑆)

Assertion

Ref	Expression
kerf1ghm	⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝐹:𝐴–1-1→𝐵 ↔ (◡𝐹 “ { 0 }) = {𝑁}))

Proof of Theorem kerf1ghm

Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 109	. . . . . . 7 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → (𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵))
2		f1fn 5553	. . . . . . . . . . 11 ⊢ (𝐹:𝐴–1-1→𝐵 → 𝐹 Fn 𝐴)
3	2	adantl 277	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → 𝐹 Fn 𝐴)
4		elpreima 5775	. . . . . . . . . 10 ⊢ (𝐹 Fn 𝐴 → (𝑥 ∈ (◡𝐹 “ { 0 }) ↔ (𝑥 ∈ 𝐴 ∧ (𝐹‘𝑥) ∈ { 0 })))
5	3, 4	syl 14	. . . . . . . . 9 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → (𝑥 ∈ (◡𝐹 “ { 0 }) ↔ (𝑥 ∈ 𝐴 ∧ (𝐹‘𝑥) ∈ { 0 })))
6	5	biimpa 296	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → (𝑥 ∈ 𝐴 ∧ (𝐹‘𝑥) ∈ { 0 }))
7	6	simpld 112	. . . . . . 7 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → 𝑥 ∈ 𝐴)
8	6	simprd 114	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → (𝐹‘𝑥) ∈ { 0 })
9		elsng 3688	. . . . . . . . 9 ⊢ ((𝐹‘𝑥) ∈ { 0 } → ((𝐹‘𝑥) ∈ { 0 } ↔ (𝐹‘𝑥) = 0 ))
10	8, 9	syl 14	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → ((𝐹‘𝑥) ∈ { 0 } ↔ (𝐹‘𝑥) = 0 ))
11	8, 10	mpbid 147	. . . . . . 7 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → (𝐹‘𝑥) = 0 )
12		f1ghm0to0.a	. . . . . . . . . . 11 ⊢ 𝐴 = (Base‘𝑅)
13		f1ghm0to0.b	. . . . . . . . . . 11 ⊢ 𝐵 = (Base‘𝑆)
14		f1ghm0to0.n	. . . . . . . . . . 11 ⊢ 𝑁 = (0g‘𝑅)
15		f1ghm0to0.0	. . . . . . . . . . 11 ⊢ 0 = (0g‘𝑆)
16	12, 13, 14, 15	f1ghm0to0 13922	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵 ∧ 𝑥 ∈ 𝐴) → ((𝐹‘𝑥) = 0 ↔ 𝑥 = 𝑁))
17	16	biimpd 144	. . . . . . . . 9 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵 ∧ 𝑥 ∈ 𝐴) → ((𝐹‘𝑥) = 0 → 𝑥 = 𝑁))
18	17	3expa 1230	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ 𝐴) → ((𝐹‘𝑥) = 0 → 𝑥 = 𝑁))
19	18	imp 124	. . . . . . 7 ⊢ ((((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ 𝐴) ∧ (𝐹‘𝑥) = 0 ) → 𝑥 = 𝑁)
20	1, 7, 11, 19	syl21anc 1273	. . . . . 6 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → 𝑥 = 𝑁)
21	20	ex 115	. . . . 5 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → (𝑥 ∈ (◡𝐹 “ { 0 }) → 𝑥 = 𝑁))
22		velsn 3690	. . . . 5 ⊢ (𝑥 ∈ {𝑁} ↔ 𝑥 = 𝑁)
23	21, 22	imbitrrdi 162	. . . 4 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → (𝑥 ∈ (◡𝐹 “ { 0 }) → 𝑥 ∈ {𝑁}))
24	23	ssrdv 3234	. . 3 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → (◡𝐹 “ { 0 }) ⊆ {𝑁})
25		ghmgrp1 13895	. . . . . . 7 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → 𝑅 ∈ Grp)
26	12, 14	grpidcl 13675	. . . . . . 7 ⊢ (𝑅 ∈ Grp → 𝑁 ∈ 𝐴)
27	25, 26	syl 14	. . . . . 6 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → 𝑁 ∈ 𝐴)
28	14, 15	ghmid 13899	. . . . . . 7 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝐹‘𝑁) = 0 )
29	12, 13	ghmf 13897	. . . . . . . . 9 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → 𝐹:𝐴⟶𝐵)
30	29, 27	ffvelcdmd 5791	. . . . . . . 8 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝐹‘𝑁) ∈ 𝐵)
31		elsng 3688	. . . . . . . 8 ⊢ ((𝐹‘𝑁) ∈ 𝐵 → ((𝐹‘𝑁) ∈ { 0 } ↔ (𝐹‘𝑁) = 0 ))
32	30, 31	syl 14	. . . . . . 7 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → ((𝐹‘𝑁) ∈ { 0 } ↔ (𝐹‘𝑁) = 0 ))
33	28, 32	mpbird 167	. . . . . 6 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝐹‘𝑁) ∈ { 0 })
34		ffn 5489	. . . . . . 7 ⊢ (𝐹:𝐴⟶𝐵 → 𝐹 Fn 𝐴)
35		elpreima 5775	. . . . . . 7 ⊢ (𝐹 Fn 𝐴 → (𝑁 ∈ (◡𝐹 “ { 0 }) ↔ (𝑁 ∈ 𝐴 ∧ (𝐹‘𝑁) ∈ { 0 })))
36	29, 34, 35	3syl 17	. . . . . 6 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝑁 ∈ (◡𝐹 “ { 0 }) ↔ (𝑁 ∈ 𝐴 ∧ (𝐹‘𝑁) ∈ { 0 })))
37	27, 33, 36	mpbir2and 953	. . . . 5 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → 𝑁 ∈ (◡𝐹 “ { 0 }))
38	37	snssd 3823	. . . 4 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → {𝑁} ⊆ (◡𝐹 “ { 0 }))
39	38	adantr 276	. . 3 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → {𝑁} ⊆ (◡𝐹 “ { 0 }))
40	24, 39	eqssd 3245	. 2 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → (◡𝐹 “ { 0 }) = {𝑁})
41	29	adantr 276	. . 3 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ (◡𝐹 “ { 0 }) = {𝑁}) → 𝐹:𝐴⟶𝐵)
42		simpl 109	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → 𝐹 ∈ (𝑅 GrpHom 𝑆))
43		simpr2l 1083	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → 𝑥 ∈ 𝐴)
44		simpr2r 1084	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → 𝑦 ∈ 𝐴)
45		simpr3 1032	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → (𝐹‘𝑥) = (𝐹‘𝑦))
46		eqid 2231	. . . . . . . . . . . 12 ⊢ (◡𝐹 “ { 0 }) = (◡𝐹 “ { 0 })
47		eqid 2231	. . . . . . . . . . . 12 ⊢ (-g‘𝑅) = (-g‘𝑅)
48	12, 15, 46, 47	ghmeqker 13921	. . . . . . . . . . 11 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) → ((𝐹‘𝑥) = (𝐹‘𝑦) ↔ (𝑥(-g‘𝑅)𝑦) ∈ (◡𝐹 “ { 0 })))
49	48	biimpa 296	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) → (𝑥(-g‘𝑅)𝑦) ∈ (◡𝐹 “ { 0 }))
50	42, 43, 44, 45, 49	syl31anc 1277	. . . . . . . . 9 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → (𝑥(-g‘𝑅)𝑦) ∈ (◡𝐹 “ { 0 }))
51		simpr1 1030	. . . . . . . . 9 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → (◡𝐹 “ { 0 }) = {𝑁})
52	50, 51	eleqtrd 2310	. . . . . . . 8 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → (𝑥(-g‘𝑅)𝑦) ∈ {𝑁})
53		simp2 1025	. . . . . . . . . 10 ⊢ (((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) → (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴))
54	12, 47	grpsubcl 13726	. . . . . . . . . . 11 ⊢ ((𝑅 ∈ Grp ∧ 𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) → (𝑥(-g‘𝑅)𝑦) ∈ 𝐴)
55	54	3expb 1231	. . . . . . . . . 10 ⊢ ((𝑅 ∈ Grp ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → (𝑥(-g‘𝑅)𝑦) ∈ 𝐴)
56	25, 53, 55	syl2an 289	. . . . . . . . 9 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → (𝑥(-g‘𝑅)𝑦) ∈ 𝐴)
57		elsng 3688	. . . . . . . . 9 ⊢ ((𝑥(-g‘𝑅)𝑦) ∈ 𝐴 → ((𝑥(-g‘𝑅)𝑦) ∈ {𝑁} ↔ (𝑥(-g‘𝑅)𝑦) = 𝑁))
58	56, 57	syl 14	. . . . . . . 8 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → ((𝑥(-g‘𝑅)𝑦) ∈ {𝑁} ↔ (𝑥(-g‘𝑅)𝑦) = 𝑁))
59	52, 58	mpbid 147	. . . . . . 7 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → (𝑥(-g‘𝑅)𝑦) = 𝑁)
60	25	adantr 276	. . . . . . . 8 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → 𝑅 ∈ Grp)
61	12, 14, 47	grpsubeq0 13732	. . . . . . . 8 ⊢ ((𝑅 ∈ Grp ∧ 𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) → ((𝑥(-g‘𝑅)𝑦) = 𝑁 ↔ 𝑥 = 𝑦))
62	60, 43, 44, 61	syl3anc 1274	. . . . . . 7 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → ((𝑥(-g‘𝑅)𝑦) = 𝑁 ↔ 𝑥 = 𝑦))
63	59, 62	mpbid 147	. . . . . 6 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → 𝑥 = 𝑦)
64	63	3anassrs 1256	. . . . 5 ⊢ ((((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ (◡𝐹 “ { 0 }) = {𝑁}) ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) → 𝑥 = 𝑦)
65	64	ex 115	. . . 4 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ (◡𝐹 “ { 0 }) = {𝑁}) ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → ((𝐹‘𝑥) = (𝐹‘𝑦) → 𝑥 = 𝑦))
66	65	ralrimivva 2615	. . 3 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ (◡𝐹 “ { 0 }) = {𝑁}) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ((𝐹‘𝑥) = (𝐹‘𝑦) → 𝑥 = 𝑦))
67		dff13 5919	. . 3 ⊢ (𝐹:𝐴–1-1→𝐵 ↔ (𝐹:𝐴⟶𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ((𝐹‘𝑥) = (𝐹‘𝑦) → 𝑥 = 𝑦)))
68	41, 66, 67	sylanbrc 417	. 2 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ (◡𝐹 “ { 0 }) = {𝑁}) → 𝐹:𝐴–1-1→𝐵)
69	40, 68	impbida 600	1 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝐹:𝐴–1-1→𝐵 ↔ (◡𝐹 “ { 0 }) = {𝑁}))

Syntax hints:   → wi 4   ∧ wa 104   ↔ wb 105   ∧ w3a 1005   = wceq 1398   ∈ wcel 2202  ∀wral 2511   ⊆ wss 3201  {csn 3673  ^◡ccnv 4730   “ cima 4734   Fn wfn 5328  ⟶wf 5329  –1-1→wf1 5330  ‘cfv 5333  (class class class)co 6028  Basecbs 13145  0_gc0g 13402  Grpcgrp 13646  -_gcsg 13648   GrpHom cghm 13890

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2204  ax-14 2205  ax-ext 2213  ax-coll 4209  ax-sep 4212  ax-pow 4270  ax-pr 4305  ax-un 4536  ax-setind 4641  ax-cnex 8166  ax-resscn 8167  ax-1re 8169  ax-addrcl 8172

This theorem depends on definitions:  df-bi 117  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1811  df-eu 2082  df-mo 2083  df-clab 2218  df-cleq 2224  df-clel 2227  df-nfc 2364  df-ne 2404  df-ral 2516  df-rex 2517  df-reu 2518  df-rmo 2519  df-rab 2520  df-v 2805  df-sbc 3033  df-csb 3129  df-dif 3203  df-un 3205  df-in 3207  df-ss 3214  df-pw 3658  df-sn 3679  df-pr 3680  df-op 3682  df-uni 3899  df-int 3934  df-iun 3977  df-br 4094  df-opab 4156  df-mpt 4157  df-id 4396  df-xp 4737  df-rel 4738  df-cnv 4739  df-co 4740  df-dm 4741  df-rn 4742  df-res 4743  df-ima 4744  df-iota 5293  df-fun 5335  df-fn 5336  df-f 5337  df-f1 5338  df-fo 5339  df-f1o 5340  df-fv 5341  df-riota 5981  df-ov 6031  df-oprab 6032  df-mpo 6033  df-1st 6312  df-2nd 6313  df-inn 9186  df-2 9244  df-ndx 13148  df-slot 13149  df-base 13151  df-plusg 13236  df-0g 13404  df-mgm 13502  df-sgrp 13548  df-mnd 13563  df-grp 13649  df-minusg 13650  df-sbg 13651  df-ghm 13891

This theorem is referenced by: (None)