Theorem kerf1ghm 19161

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 481	. . . . . . 7 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → (𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵))
2		f1fn 6787	. . . . . . . . . . 11 ⊢ (𝐹:𝐴–1-1→𝐵 → 𝐹 Fn 𝐴)
3	2	adantl 480	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → 𝐹 Fn 𝐴)
4		elpreima 7058	. . . . . . . . . 10 ⊢ (𝐹 Fn 𝐴 → (𝑥 ∈ (◡𝐹 “ { 0 }) ↔ (𝑥 ∈ 𝐴 ∧ (𝐹‘𝑥) ∈ { 0 })))
5	3, 4	syl 17	. . . . . . . . 9 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → (𝑥 ∈ (◡𝐹 “ { 0 }) ↔ (𝑥 ∈ 𝐴 ∧ (𝐹‘𝑥) ∈ { 0 })))
6	5	biimpa 475	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → (𝑥 ∈ 𝐴 ∧ (𝐹‘𝑥) ∈ { 0 }))
7	6	simpld 493	. . . . . . 7 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → 𝑥 ∈ 𝐴)
8	6	simprd 494	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → (𝐹‘𝑥) ∈ { 0 })
9		fvex 6903	. . . . . . . . 9 ⊢ (𝐹‘𝑥) ∈ V
10	9	elsn 4642	. . . . . . . 8 ⊢ ((𝐹‘𝑥) ∈ { 0 } ↔ (𝐹‘𝑥) = 0 )
11	8, 10	sylib 217	. . . . . . 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 19159	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵 ∧ 𝑥 ∈ 𝐴) → ((𝐹‘𝑥) = 0 ↔ 𝑥 = 𝑁))
17	16	biimpd 228	. . . . . . . . 9 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵 ∧ 𝑥 ∈ 𝐴) → ((𝐹‘𝑥) = 0 → 𝑥 = 𝑁))
18	17	3expa 1116	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ 𝐴) → ((𝐹‘𝑥) = 0 → 𝑥 = 𝑁))
19	18	imp 405	. . . . . . 7 ⊢ ((((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ 𝐴) ∧ (𝐹‘𝑥) = 0 ) → 𝑥 = 𝑁)
20	1, 7, 11, 19	syl21anc 834	. . . . . 6 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) ∧ 𝑥 ∈ (◡𝐹 “ { 0 })) → 𝑥 = 𝑁)
21	20	ex 411	. . . . 5 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → (𝑥 ∈ (◡𝐹 “ { 0 }) → 𝑥 = 𝑁))
22		velsn 4643	. . . . 5 ⊢ (𝑥 ∈ {𝑁} ↔ 𝑥 = 𝑁)
23	21, 22	imbitrrdi 251	. . . 4 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → (𝑥 ∈ (◡𝐹 “ { 0 }) → 𝑥 ∈ {𝑁}))
24	23	ssrdv 3987	. . 3 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → (◡𝐹 “ { 0 }) ⊆ {𝑁})
25		ghmgrp1 19132	. . . . . . 7 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → 𝑅 ∈ Grp)
26	12, 14	grpidcl 18886	. . . . . . 7 ⊢ (𝑅 ∈ Grp → 𝑁 ∈ 𝐴)
27	25, 26	syl 17	. . . . . 6 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → 𝑁 ∈ 𝐴)
28	14, 15	ghmid 19136	. . . . . . 7 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝐹‘𝑁) = 0 )
29		fvex 6903	. . . . . . . 8 ⊢ (𝐹‘𝑁) ∈ V
30	29	elsn 4642	. . . . . . 7 ⊢ ((𝐹‘𝑁) ∈ { 0 } ↔ (𝐹‘𝑁) = 0 )
31	28, 30	sylibr 233	. . . . . 6 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝐹‘𝑁) ∈ { 0 })
32	12, 13	ghmf 19134	. . . . . . 7 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → 𝐹:𝐴⟶𝐵)
33		ffn 6716	. . . . . . 7 ⊢ (𝐹:𝐴⟶𝐵 → 𝐹 Fn 𝐴)
34		elpreima 7058	. . . . . . 7 ⊢ (𝐹 Fn 𝐴 → (𝑁 ∈ (◡𝐹 “ { 0 }) ↔ (𝑁 ∈ 𝐴 ∧ (𝐹‘𝑁) ∈ { 0 })))
35	32, 33, 34	3syl 18	. . . . . 6 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝑁 ∈ (◡𝐹 “ { 0 }) ↔ (𝑁 ∈ 𝐴 ∧ (𝐹‘𝑁) ∈ { 0 })))
36	27, 31, 35	mpbir2and 709	. . . . 5 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → 𝑁 ∈ (◡𝐹 “ { 0 }))
37	36	snssd 4811	. . . 4 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → {𝑁} ⊆ (◡𝐹 “ { 0 }))
38	37	adantr 479	. . 3 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → {𝑁} ⊆ (◡𝐹 “ { 0 }))
39	24, 38	eqssd 3998	. 2 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝐹:𝐴–1-1→𝐵) → (◡𝐹 “ { 0 }) = {𝑁})
40	32	adantr 479	. . 3 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ (◡𝐹 “ { 0 }) = {𝑁}) → 𝐹:𝐴⟶𝐵)
41		simpl 481	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → 𝐹 ∈ (𝑅 GrpHom 𝑆))
42		simpr2l 1230	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → 𝑥 ∈ 𝐴)
43		simpr2r 1231	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → 𝑦 ∈ 𝐴)
44		simpr3 1194	. . . . . . . . . 10 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → (𝐹‘𝑥) = (𝐹‘𝑦))
45		eqid 2730	. . . . . . . . . . . 12 ⊢ (◡𝐹 “ { 0 }) = (◡𝐹 “ { 0 })
46		eqid 2730	. . . . . . . . . . . 12 ⊢ (-g‘𝑅) = (-g‘𝑅)
47	12, 15, 45, 46	ghmeqker 19157	. . . . . . . . . . 11 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) → ((𝐹‘𝑥) = (𝐹‘𝑦) ↔ (𝑥(-g‘𝑅)𝑦) ∈ (◡𝐹 “ { 0 })))
48	47	biimpa 475	. . . . . . . . . 10 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) → (𝑥(-g‘𝑅)𝑦) ∈ (◡𝐹 “ { 0 }))
49	41, 42, 43, 44, 48	syl31anc 1371	. . . . . . . . 9 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → (𝑥(-g‘𝑅)𝑦) ∈ (◡𝐹 “ { 0 }))
50		simpr1 1192	. . . . . . . . 9 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → (◡𝐹 “ { 0 }) = {𝑁})
51	49, 50	eleqtrd 2833	. . . . . . . 8 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → (𝑥(-g‘𝑅)𝑦) ∈ {𝑁})
52		ovex 7444	. . . . . . . . 9 ⊢ (𝑥(-g‘𝑅)𝑦) ∈ V
53	52	elsn 4642	. . . . . . . 8 ⊢ ((𝑥(-g‘𝑅)𝑦) ∈ {𝑁} ↔ (𝑥(-g‘𝑅)𝑦) = 𝑁)
54	51, 53	sylib 217	. . . . . . 7 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → (𝑥(-g‘𝑅)𝑦) = 𝑁)
55	25	adantr 479	. . . . . . . 8 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → 𝑅 ∈ Grp)
56	12, 14, 46	grpsubeq0 18945	. . . . . . . 8 ⊢ ((𝑅 ∈ Grp ∧ 𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) → ((𝑥(-g‘𝑅)𝑦) = 𝑁 ↔ 𝑥 = 𝑦))
57	55, 42, 43, 56	syl3anc 1369	. . . . . . 7 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → ((𝑥(-g‘𝑅)𝑦) = 𝑁 ↔ 𝑥 = 𝑦))
58	54, 57	mpbid 231	. . . . . 6 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ ((◡𝐹 “ { 0 }) = {𝑁} ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴) ∧ (𝐹‘𝑥) = (𝐹‘𝑦))) → 𝑥 = 𝑦)
59	58	3anassrs 1358	. . . . 5 ⊢ ((((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ (◡𝐹 “ { 0 }) = {𝑁}) ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) ∧ (𝐹‘𝑥) = (𝐹‘𝑦)) → 𝑥 = 𝑦)
60	59	ex 411	. . . 4 ⊢ (((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ (◡𝐹 “ { 0 }) = {𝑁}) ∧ (𝑥 ∈ 𝐴 ∧ 𝑦 ∈ 𝐴)) → ((𝐹‘𝑥) = (𝐹‘𝑦) → 𝑥 = 𝑦))
61	60	ralrimivva 3198	. . 3 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ (◡𝐹 “ { 0 }) = {𝑁}) → ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ((𝐹‘𝑥) = (𝐹‘𝑦) → 𝑥 = 𝑦))
62		dff13 7256	. . 3 ⊢ (𝐹:𝐴–1-1→𝐵 ↔ (𝐹:𝐴⟶𝐵 ∧ ∀𝑥 ∈ 𝐴 ∀𝑦 ∈ 𝐴 ((𝐹‘𝑥) = (𝐹‘𝑦) → 𝑥 = 𝑦)))
63	40, 61, 62	sylanbrc 581	. 2 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ (◡𝐹 “ { 0 }) = {𝑁}) → 𝐹:𝐴–1-1→𝐵)
64	39, 63	impbida 797	1 ⊢ (𝐹 ∈ (𝑅 GrpHom 𝑆) → (𝐹:𝐴–1-1→𝐵 ↔ (◡𝐹 “ { 0 }) = {𝑁}))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 394   ∧ w3a 1085   = wceq 1539   ∈ wcel 2104  ∀wral 3059   ⊆ wss 3947  {csn 4627  ^◡ccnv 5674   “ cima 5678   Fn wfn 6537  ⟶wf 6538  –1-1→wf1 6539  ‘cfv 6542  (class class class)co 7411  Basecbs 17148  0_gc0g 17389  Grpcgrp 18855  -_gcsg 18857   GrpHom cghm 19127

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1911  ax-6 1969  ax-7 2009  ax-8 2106  ax-9 2114  ax-10 2135  ax-11 2152  ax-12 2169  ax-ext 2701  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7727

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 844  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2532  df-eu 2561  df-clab 2708  df-cleq 2722  df-clel 2808  df-nfc 2883  df-ne 2939  df-ral 3060  df-rex 3069  df-rmo 3374  df-reu 3375  df-rab 3431  df-v 3474  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-id 5573  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-iota 6494  df-fun 6544  df-fn 6545  df-f 6546  df-f1 6547  df-fo 6548  df-f1o 6549  df-fv 6550  df-riota 7367  df-ov 7414  df-oprab 7415  df-mpo 7416  df-1st 7977  df-2nd 7978  df-0g 17391  df-mgm 18565  df-sgrp 18644  df-mnd 18660  df-grp 18858  df-minusg 18859  df-sbg 18860  df-ghm 19128

This theorem is referenced by:  rngqiprngimf1  21059  ghmqusker  32806  dimkerim  33000  zrhf1ker  33253