ghmquskerlem3 - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > ghmquskerlem3		Structured version Visualization version GIF version

Theorem ghmquskerlem3 19326

Description: The mapping 𝐻 induced by a surjective group homomorphism 𝐹 from the quotient group 𝑄 over 𝐹's kernel 𝐾 is a group isomorphism. In this case, one says that 𝐹 factors through 𝑄, which is also called the factor group. (Contributed by Thierry Arnoux, 22-Mar-2025.)

**Hypotheses**
Ref	Expression
ghmqusker.1	⊢ 0 = (0_g‘𝐻)
ghmqusker.f	⊢ (𝜑 → 𝐹 ∈ (𝐺 GrpHom 𝐻))
ghmqusker.k	⊢ 𝐾 = (^◡𝐹 “ { 0 })
ghmqusker.q	⊢ 𝑄 = (𝐺 /_s (𝐺 ~_QG 𝐾))
ghmqusker.j	⊢ 𝐽 = (𝑞 ∈ (Base‘𝑄) ↦ ∪ (𝐹 “ 𝑞))

**Assertion**
Ref	Expression
ghmquskerlem3	⊢ (𝜑 → 𝐽 ∈ (𝑄 GrpHom 𝐻))

Distinct variable groups: 𝐹,𝑞 𝐺,𝑞 𝐻,𝑞 𝐽,𝑞 𝐾,𝑞 𝑄,𝑞 𝜑,𝑞 Allowed substitution hint: 0 (𝑞)

Proof of Theorem ghmquskerlem3 Dummy variables 𝑟 𝑥 𝑦 𝑠 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		eqid 2740	. 2 ⊢ (Base‘𝑄) = (Base‘𝑄)
2		eqid 2740	. 2 ⊢ (Base‘𝐻) = (Base‘𝐻)
3		eqid 2740	. 2 ⊢ (+_g‘𝑄) = (+_g‘𝑄)
4		eqid 2740	. 2 ⊢ (+_g‘𝐻) = (+_g‘𝐻)
5		ghmqusker.k	. . . 4 ⊢ 𝐾 = (^◡𝐹 “ { 0 })
6		ghmqusker.f	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ (𝐺 GrpHom 𝐻))
7		ghmqusker.1	. . . . . 6 ⊢ 0 = (0_g‘𝐻)
8	7	ghmker 19282	. . . . 5 ⊢ (𝐹 ∈ (𝐺 GrpHom 𝐻) → (^◡𝐹 “ { 0 }) ∈ (NrmSGrp‘𝐺))
9	6, 8	syl 17	. . . 4 ⊢ (𝜑 → (^◡𝐹 “ { 0 }) ∈ (NrmSGrp‘𝐺))
10	5, 9	eqeltrid 2848	. . 3 ⊢ (𝜑 → 𝐾 ∈ (NrmSGrp‘𝐺))
11		ghmqusker.q	. . . 4 ⊢ 𝑄 = (𝐺 /_s (𝐺 ~_QG 𝐾))
12	11	qusgrp 19226	. . 3 ⊢ (𝐾 ∈ (NrmSGrp‘𝐺) → 𝑄 ∈ Grp)
13	10, 12	syl 17	. 2 ⊢ (𝜑 → 𝑄 ∈ Grp)
14		ghmrn 19269	. . 3 ⊢ (𝐹 ∈ (𝐺 GrpHom 𝐻) → ran 𝐹 ∈ (SubGrp‘𝐻))
15		subgrcl 19171	. . 3 ⊢ (ran 𝐹 ∈ (SubGrp‘𝐻) → 𝐻 ∈ Grp)
16	6, 14, 15	3syl 18	. 2 ⊢ (𝜑 → 𝐻 ∈ Grp)
17	6	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑞 ∈ (Base‘𝑄)) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
18	17	imaexd 7956	. . . 4 ⊢ ((𝜑 ∧ 𝑞 ∈ (Base‘𝑄)) → (𝐹 “ 𝑞) ∈ V)
19	18	uniexd 7777	. . 3 ⊢ ((𝜑 ∧ 𝑞 ∈ (Base‘𝑄)) → ∪ (𝐹 “ 𝑞) ∈ V)
20		ghmqusker.j	. . . 4 ⊢ 𝐽 = (𝑞 ∈ (Base‘𝑄) ↦ ∪ (𝐹 “ 𝑞))
21	20	a1i 11	. . 3 ⊢ (𝜑 → 𝐽 = (𝑞 ∈ (Base‘𝑄) ↦ ∪ (𝐹 “ 𝑞)))
22		simpr 484	. . . . 5 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → (𝐽‘𝑟) = (𝐹‘𝑥))
23		eqid 2740	. . . . . . . . . 10 ⊢ (Base‘𝐺) = (Base‘𝐺)
24	23, 2	ghmf 19260	. . . . . . . . 9 ⊢ (𝐹 ∈ (𝐺 GrpHom 𝐻) → 𝐹:(Base‘𝐺)⟶(Base‘𝐻))
25	6, 24	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐹:(Base‘𝐺)⟶(Base‘𝐻))
26	25	frnd 6755	. . . . . . 7 ⊢ (𝜑 → ran 𝐹 ⊆ (Base‘𝐻))
27	26	ad3antrrr 729	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → ran 𝐹 ⊆ (Base‘𝐻))
28	25	ffnd 6748	. . . . . . . 8 ⊢ (𝜑 → 𝐹 Fn (Base‘𝐺))
29	28	ad3antrrr 729	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝐹 Fn (Base‘𝐺))
30	11	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑄 = (𝐺 /_s (𝐺 ~_QG 𝐾)))
31		eqidd 2741	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐺) = (Base‘𝐺))
32		ovexd 7483	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐺 ~_QG 𝐾) ∈ V)
33		ghmgrp1 19258	. . . . . . . . . . . . . 14 ⊢ (𝐹 ∈ (𝐺 GrpHom 𝐻) → 𝐺 ∈ Grp)
34	6, 33	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐺 ∈ Grp)
35	30, 31, 32, 34	qusbas 17605	. . . . . . . . . . . 12 ⊢ (𝜑 → ((Base‘𝐺) / (𝐺 ~_QG 𝐾)) = (Base‘𝑄))
36		nsgsubg 19198	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ (NrmSGrp‘𝐺) → 𝐾 ∈ (SubGrp‘𝐺))
37		eqid 2740	. . . . . . . . . . . . . . 15 ⊢ (𝐺 ~_QG 𝐾) = (𝐺 ~_QG 𝐾)
38	23, 37	eqger 19218	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ (SubGrp‘𝐺) → (𝐺 ~_QG 𝐾) Er (Base‘𝐺))
39	10, 36, 38	3syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐺 ~_QG 𝐾) Er (Base‘𝐺))
40	39	qsss 8836	. . . . . . . . . . . 12 ⊢ (𝜑 → ((Base‘𝐺) / (𝐺 ~_QG 𝐾)) ⊆ 𝒫 (Base‘𝐺))
41	35, 40	eqsstrrd 4048	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘𝑄) ⊆ 𝒫 (Base‘𝐺))
42	41	sselda 4008	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → 𝑟 ∈ 𝒫 (Base‘𝐺))
43	42	elpwid 4631	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → 𝑟 ⊆ (Base‘𝐺))
44	43	sselda 4008	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) → 𝑥 ∈ (Base‘𝐺))
45	44	adantr 480	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝑥 ∈ (Base‘𝐺))
46	29, 45	fnfvelrnd 7116	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → (𝐹‘𝑥) ∈ ran 𝐹)
47	27, 46	sseldd 4009	. . . . 5 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → (𝐹‘𝑥) ∈ (Base‘𝐻))
48	22, 47	eqeltrd 2844	. . . 4 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → (𝐽‘𝑟) ∈ (Base‘𝐻))
49	6	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
50		simpr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → 𝑟 ∈ (Base‘𝑄))
51	7, 49, 5, 11, 20, 50	ghmquskerlem2 19325	. . . 4 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → ∃𝑥 ∈ 𝑟 (𝐽‘𝑟) = (𝐹‘𝑥))
52	48, 51	r19.29a 3168	. . 3 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → (𝐽‘𝑟) ∈ (Base‘𝐻))
53	19, 21, 52	fmpt2d 7158	. 2 ⊢ (𝜑 → 𝐽:(Base‘𝑄)⟶(Base‘𝐻))
54	39	ad6antr 735	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐺 ~_QG 𝐾) Er (Base‘𝐺))
55	50	ad5antr 733	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 ∈ (Base‘𝑄))
56	35	ad6antr 735	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → ((Base‘𝐺) / (𝐺 ~_QG 𝐾)) = (Base‘𝑄))
57	55, 56	eleqtrrd 2847	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 ∈ ((Base‘𝐺) / (𝐺 ~_QG 𝐾)))
58		simp-4r 783	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑥 ∈ 𝑟)
59		qsel 8854	. . . . . . . . . . 11 ⊢ (((𝐺 ~_QG 𝐾) Er (Base‘𝐺) ∧ 𝑟 ∈ ((Base‘𝐺) / (𝐺 ~_QG 𝐾)) ∧ 𝑥 ∈ 𝑟) → 𝑟 = [𝑥](𝐺 ~_QG 𝐾))
60	54, 57, 58, 59	syl3anc 1371	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 = [𝑥](𝐺 ~_QG 𝐾))
61		simp-5r 785	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 ∈ (Base‘𝑄))
62	61, 56	eleqtrrd 2847	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 ∈ ((Base‘𝐺) / (𝐺 ~_QG 𝐾)))
63		simplr 768	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑦 ∈ 𝑠)
64		qsel 8854	. . . . . . . . . . 11 ⊢ (((𝐺 ~_QG 𝐾) Er (Base‘𝐺) ∧ 𝑠 ∈ ((Base‘𝐺) / (𝐺 ~_QG 𝐾)) ∧ 𝑦 ∈ 𝑠) → 𝑠 = [𝑦](𝐺 ~_QG 𝐾))
65	54, 62, 63, 64	syl3anc 1371	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 = [𝑦](𝐺 ~_QG 𝐾))
66	60, 65	oveq12d 7466	. . . . . . . . 9 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝑟(+_g‘𝑄)𝑠) = ([𝑥](𝐺 ~_QG 𝐾)(+_g‘𝑄)[𝑦](𝐺 ~_QG 𝐾)))
67	10	ad6antr 735	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝐾 ∈ (NrmSGrp‘𝐺))
68	43	ad5antr 733	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 ⊆ (Base‘𝐺))
69	68, 58	sseldd 4009	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑥 ∈ (Base‘𝐺))
70	41	sselda 4008	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑠 ∈ 𝒫 (Base‘𝐺))
71	70	elpwid 4631	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑠 ⊆ (Base‘𝐺))
72	71	adantlr 714	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑠 ⊆ (Base‘𝐺))
73	72	ad4antr 731	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 ⊆ (Base‘𝐺))
74	73, 63	sseldd 4009	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑦 ∈ (Base‘𝐺))
75		eqid 2740	. . . . . . . . . . 11 ⊢ (+_g‘𝐺) = (+_g‘𝐺)
76	11, 23, 75, 3	qusadd 19228	. . . . . . . . . 10 ⊢ ((𝐾 ∈ (NrmSGrp‘𝐺) ∧ 𝑥 ∈ (Base‘𝐺) ∧ 𝑦 ∈ (Base‘𝐺)) → ([𝑥](𝐺 ~_QG 𝐾)(+_g‘𝑄)[𝑦](𝐺 ~_QG 𝐾)) = [(𝑥(+_g‘𝐺)𝑦)](𝐺 ~_QG 𝐾))
77	67, 69, 74, 76	syl3anc 1371	. . . . . . . . 9 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → ([𝑥](𝐺 ~_QG 𝐾)(+_g‘𝑄)[𝑦](𝐺 ~_QG 𝐾)) = [(𝑥(+_g‘𝐺)𝑦)](𝐺 ~_QG 𝐾))
78	66, 77	eqtrd 2780	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝑟(+_g‘𝑄)𝑠) = [(𝑥(+_g‘𝐺)𝑦)](𝐺 ~_QG 𝐾))
79	78	fveq2d 6924	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = (𝐽‘[(𝑥(+_g‘𝐺)𝑦)](𝐺 ~_QG 𝐾)))
80	6	ad6antr 735	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
81	80, 33	syl 17	. . . . . . . . 9 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝐺 ∈ Grp)
82	23, 75, 81, 69, 74	grpcld 18987	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝑥(+_g‘𝐺)𝑦) ∈ (Base‘𝐺))
83	7, 80, 5, 11, 20, 82	ghmquskerlem1 19323	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘[(𝑥(+_g‘𝐺)𝑦)](𝐺 ~_QG 𝐾)) = (𝐹‘(𝑥(+_g‘𝐺)𝑦)))
84	23, 75, 4	ghmlin 19261	. . . . . . . 8 ⊢ ((𝐹 ∈ (𝐺 GrpHom 𝐻) ∧ 𝑥 ∈ (Base‘𝐺) ∧ 𝑦 ∈ (Base‘𝐺)) → (𝐹‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐹‘𝑥)(+_g‘𝐻)(𝐹‘𝑦)))
85	80, 69, 74, 84	syl3anc 1371	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐹‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐹‘𝑥)(+_g‘𝐻)(𝐹‘𝑦)))
86	79, 83, 85	3eqtrd 2784	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = ((𝐹‘𝑥)(+_g‘𝐻)(𝐹‘𝑦)))
87		simpllr 775	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘𝑟) = (𝐹‘𝑥))
88		simpr 484	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘𝑠) = (𝐹‘𝑦))
89	87, 88	oveq12d 7466	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → ((𝐽‘𝑟)(+_g‘𝐻)(𝐽‘𝑠)) = ((𝐹‘𝑥)(+_g‘𝐻)(𝐹‘𝑦)))
90	86, 89	eqtr4d 2783	. . . . 5 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = ((𝐽‘𝑟)(+_g‘𝐻)(𝐽‘𝑠)))
91	6	ad4antr 731	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
92		simpllr 775	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝑠 ∈ (Base‘𝑄))
93	7, 91, 5, 11, 20, 92	ghmquskerlem2 19325	. . . . 5 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → ∃𝑦 ∈ 𝑠 (𝐽‘𝑠) = (𝐹‘𝑦))
94	90, 93	r19.29a 3168	. . . 4 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = ((𝐽‘𝑟)(+_g‘𝐻)(𝐽‘𝑠)))
95	51	adantr 480	. . . 4 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → ∃𝑥 ∈ 𝑟 (𝐽‘𝑟) = (𝐹‘𝑥))
96	94, 95	r19.29a 3168	. . 3 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = ((𝐽‘𝑟)(+_g‘𝐻)(𝐽‘𝑠)))
97	96	anasss 466	. 2 ⊢ ((𝜑 ∧ (𝑟 ∈ (Base‘𝑄) ∧ 𝑠 ∈ (Base‘𝑄))) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = ((𝐽‘𝑟)(+_g‘𝐻)(𝐽‘𝑠)))
98	1, 2, 3, 4, 13, 16, 53, 97	isghmd 19265	1 ⊢ (𝜑 → 𝐽 ∈ (𝑄 GrpHom 𝐻))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1537 ∈ wcel 2108 ∃wrex 3076 Vcvv 3488 ⊆ wss 3976 𝒫 cpw 4622 {csn 4648 ∪ cuni 4931 ↦ cmpt 5249 ^◡ccnv 5699 ran crn 5701 “ cima 5703 Fn wfn 6568 ⟶wf 6569 ‘cfv 6573 (class class class)co 7448 Er wer 8760 [cec 8761 / cqs 8762 Basecbs 17258 +_gcplusg 17311 0_gc0g 17499 /_s cqus 17565 Grpcgrp 18973 SubGrpcsubg 19160 NrmSGrpcnsg 19161 ~_QG cqg 19162 GrpHom cghm 19252

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1793 ax-4 1807 ax-5 1909 ax-6 1967 ax-7 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2158 ax-12 2178 ax-ext 2711 ax-rep 5303 ax-sep 5317 ax-nul 5324 ax-pow 5383 ax-pr 5447 ax-un 7770 ax-cnex 11240 ax-resscn 11241 ax-1cn 11242 ax-icn 11243 ax-addcl 11244 ax-addrcl 11245 ax-mulcl 11246 ax-mulrcl 11247 ax-mulcom 11248 ax-addass 11249 ax-mulass 11250 ax-distr 11251 ax-i2m1 11252 ax-1ne0 11253 ax-1rid 11254 ax-rnegex 11255 ax-rrecex 11256 ax-cnre 11257 ax-pre-lttri 11258 ax-pre-lttrn 11259 ax-pre-ltadd 11260 ax-pre-mulgt0 11261

This theorem depends on definitions: df-bi 207 df-an 396 df-or 847 df-3or 1088 df-3an 1089 df-tru 1540 df-fal 1550 df-ex 1778 df-nf 1782 df-sb 2065 df-mo 2543 df-eu 2572 df-clab 2718 df-cleq 2732 df-clel 2819 df-nfc 2895 df-ne 2947 df-nel 3053 df-ral 3068 df-rex 3077 df-rmo 3388 df-reu 3389 df-rab 3444 df-v 3490 df-sbc 3805 df-csb 3922 df-dif 3979 df-un 3981 df-in 3983 df-ss 3993 df-pss 3996 df-nul 4353 df-if 4549 df-pw 4624 df-sn 4649 df-pr 4651 df-tp 4653 df-op 4655 df-uni 4932 df-iun 5017 df-br 5167 df-opab 5229 df-mpt 5250 df-tr 5284 df-id 5593 df-eprel 5599 df-po 5607 df-so 5608 df-fr 5652 df-we 5654 df-xp 5706 df-rel 5707 df-cnv 5708 df-co 5709 df-dm 5710 df-rn 5711 df-res 5712 df-ima 5713 df-pred 6332 df-ord 6398 df-on 6399 df-lim 6400 df-suc 6401 df-iota 6525 df-fun 6575 df-fn 6576 df-f 6577 df-f1 6578 df-fo 6579 df-f1o 6580 df-fv 6581 df-riota 7404 df-ov 7451 df-oprab 7452 df-mpo 7453 df-om 7904 df-1st 8030 df-2nd 8031 df-frecs 8322 df-wrecs 8353 df-recs 8427 df-rdg 8466 df-1o 8522 df-er 8763 df-ec 8765 df-qs 8769 df-map 8886 df-en 9004 df-dom 9005 df-sdom 9006 df-fin 9007 df-sup 9511 df-inf 9512 df-pnf 11326 df-mnf 11327 df-xr 11328 df-ltxr 11329 df-le 11330 df-sub 11522 df-neg 11523 df-nn 12294 df-2 12356 df-3 12357 df-4 12358 df-5 12359 df-6 12360 df-7 12361 df-8 12362 df-9 12363 df-n0 12554 df-z 12640 df-dec 12759 df-uz 12904 df-fz 13568 df-struct 17194 df-sets 17211 df-slot 17229 df-ndx 17241 df-base 17259 df-ress 17288 df-plusg 17324 df-mulr 17325 df-sca 17327 df-vsca 17328 df-ip 17329 df-tset 17330 df-ple 17331 df-ds 17333 df-0g 17501 df-imas 17568 df-qus 17569 df-mgm 18678 df-sgrp 18757 df-mnd 18773 df-submnd 18819 df-grp 18976 df-minusg 18977 df-sbg 18978 df-subg 19163 df-nsg 19164 df-eqg 19165 df-ghm 19253

This theorem is referenced by: ghmqusker 19327 rhmquskerlem 33418

W3C validator