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 19225

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 2730	. 2 ⊢ (Base‘𝑄) = (Base‘𝑄)
2		eqid 2730	. 2 ⊢ (Base‘𝐻) = (Base‘𝐻)
3		eqid 2730	. 2 ⊢ (+_g‘𝑄) = (+_g‘𝑄)
4		eqid 2730	. 2 ⊢ (+_g‘𝐻) = (+_g‘𝐻)
5		ghmqusker.k	. . . 4 ⊢ 𝐾 = (^◡𝐹 “ { 0 })
6		ghmqusker.f	. . . . 5 ⊢ (𝜑 → 𝐹 ∈ (𝐺 GrpHom 𝐻))
7		ghmqusker.1	. . . . . 6 ⊢ 0 = (0_g‘𝐻)
8	7	ghmker 19181	. . . . 5 ⊢ (𝐹 ∈ (𝐺 GrpHom 𝐻) → (^◡𝐹 “ { 0 }) ∈ (NrmSGrp‘𝐺))
9	6, 8	syl 17	. . . 4 ⊢ (𝜑 → (^◡𝐹 “ { 0 }) ∈ (NrmSGrp‘𝐺))
10	5, 9	eqeltrid 2833	. . 3 ⊢ (𝜑 → 𝐾 ∈ (NrmSGrp‘𝐺))
11		ghmqusker.q	. . . 4 ⊢ 𝑄 = (𝐺 /_s (𝐺 ~_QG 𝐾))
12	11	qusgrp 19125	. . 3 ⊢ (𝐾 ∈ (NrmSGrp‘𝐺) → 𝑄 ∈ Grp)
13	10, 12	syl 17	. 2 ⊢ (𝜑 → 𝑄 ∈ Grp)
14		ghmrn 19168	. . 3 ⊢ (𝐹 ∈ (𝐺 GrpHom 𝐻) → ran 𝐹 ∈ (SubGrp‘𝐻))
15		subgrcl 19070	. . 3 ⊢ (ran 𝐹 ∈ (SubGrp‘𝐻) → 𝐻 ∈ Grp)
16	6, 14, 15	3syl 18	. 2 ⊢ (𝜑 → 𝐻 ∈ Grp)
17	6	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑞 ∈ (Base‘𝑄)) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
18	17	imaexd 7895	. . . 4 ⊢ ((𝜑 ∧ 𝑞 ∈ (Base‘𝑄)) → (𝐹 “ 𝑞) ∈ V)
19	18	uniexd 7721	. . 3 ⊢ ((𝜑 ∧ 𝑞 ∈ (Base‘𝑄)) → ∪ (𝐹 “ 𝑞) ∈ V)
20		ghmqusker.j	. . . 4 ⊢ 𝐽 = (𝑞 ∈ (Base‘𝑄) ↦ ∪ (𝐹 “ 𝑞))
21	20	a1i 11	. . 3 ⊢ (𝜑 → 𝐽 = (𝑞 ∈ (Base‘𝑄) ↦ ∪ (𝐹 “ 𝑞)))
22		simpr 484	. . . . 5 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → (𝐽‘𝑟) = (𝐹‘𝑥))
23		eqid 2730	. . . . . . . . . 10 ⊢ (Base‘𝐺) = (Base‘𝐺)
24	23, 2	ghmf 19159	. . . . . . . . 9 ⊢ (𝐹 ∈ (𝐺 GrpHom 𝐻) → 𝐹:(Base‘𝐺)⟶(Base‘𝐻))
25	6, 24	syl 17	. . . . . . . 8 ⊢ (𝜑 → 𝐹:(Base‘𝐺)⟶(Base‘𝐻))
26	25	frnd 6699	. . . . . . 7 ⊢ (𝜑 → ran 𝐹 ⊆ (Base‘𝐻))
27	26	ad3antrrr 730	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → ran 𝐹 ⊆ (Base‘𝐻))
28	25	ffnd 6692	. . . . . . . 8 ⊢ (𝜑 → 𝐹 Fn (Base‘𝐺))
29	28	ad3antrrr 730	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝐹 Fn (Base‘𝐺))
30	11	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑄 = (𝐺 /_s (𝐺 ~_QG 𝐾)))
31		eqidd 2731	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐺) = (Base‘𝐺))
32		ovexd 7425	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐺 ~_QG 𝐾) ∈ V)
33		ghmgrp1 19157	. . . . . . . . . . . . . 14 ⊢ (𝐹 ∈ (𝐺 GrpHom 𝐻) → 𝐺 ∈ Grp)
34	6, 33	syl 17	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐺 ∈ Grp)
35	30, 31, 32, 34	qusbas 17515	. . . . . . . . . . . 12 ⊢ (𝜑 → ((Base‘𝐺) / (𝐺 ~_QG 𝐾)) = (Base‘𝑄))
36		nsgsubg 19097	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ (NrmSGrp‘𝐺) → 𝐾 ∈ (SubGrp‘𝐺))
37		eqid 2730	. . . . . . . . . . . . . . 15 ⊢ (𝐺 ~_QG 𝐾) = (𝐺 ~_QG 𝐾)
38	23, 37	eqger 19117	. . . . . . . . . . . . . 14 ⊢ (𝐾 ∈ (SubGrp‘𝐺) → (𝐺 ~_QG 𝐾) Er (Base‘𝐺))
39	10, 36, 38	3syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐺 ~_QG 𝐾) Er (Base‘𝐺))
40	39	qsss 8752	. . . . . . . . . . . 12 ⊢ (𝜑 → ((Base‘𝐺) / (𝐺 ~_QG 𝐾)) ⊆ 𝒫 (Base‘𝐺))
41	35, 40	eqsstrrd 3985	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘𝑄) ⊆ 𝒫 (Base‘𝐺))
42	41	sselda 3949	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → 𝑟 ∈ 𝒫 (Base‘𝐺))
43	42	elpwid 4575	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → 𝑟 ⊆ (Base‘𝐺))
44	43	sselda 3949	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) → 𝑥 ∈ (Base‘𝐺))
45	44	adantr 480	. . . . . . 7 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝑥 ∈ (Base‘𝐺))
46	29, 45	fnfvelrnd 7057	. . . . . 6 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → (𝐹‘𝑥) ∈ ran 𝐹)
47	27, 46	sseldd 3950	. . . . 5 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → (𝐹‘𝑥) ∈ (Base‘𝐻))
48	22, 47	eqeltrd 2829	. . . 4 ⊢ ((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → (𝐽‘𝑟) ∈ (Base‘𝐻))
49	6	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
50		simpr 484	. . . . 5 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → 𝑟 ∈ (Base‘𝑄))
51	7, 49, 5, 11, 20, 50	ghmquskerlem2 19224	. . . 4 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → ∃𝑥 ∈ 𝑟 (𝐽‘𝑟) = (𝐹‘𝑥))
52	48, 51	r19.29a 3142	. . 3 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → (𝐽‘𝑟) ∈ (Base‘𝐻))
53	19, 21, 52	fmpt2d 7099	. 2 ⊢ (𝜑 → 𝐽:(Base‘𝑄)⟶(Base‘𝐻))
54	39	ad6antr 736	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐺 ~_QG 𝐾) Er (Base‘𝐺))
55	50	ad5antr 734	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 ∈ (Base‘𝑄))
56	35	ad6antr 736	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → ((Base‘𝐺) / (𝐺 ~_QG 𝐾)) = (Base‘𝑄))
57	55, 56	eleqtrrd 2832	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 ∈ ((Base‘𝐺) / (𝐺 ~_QG 𝐾)))
58		simp-4r 783	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑥 ∈ 𝑟)
59		qsel 8772	. . . . . . . . . . 11 ⊢ (((𝐺 ~_QG 𝐾) Er (Base‘𝐺) ∧ 𝑟 ∈ ((Base‘𝐺) / (𝐺 ~_QG 𝐾)) ∧ 𝑥 ∈ 𝑟) → 𝑟 = [𝑥](𝐺 ~_QG 𝐾))
60	54, 57, 58, 59	syl3anc 1373	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 = [𝑥](𝐺 ~_QG 𝐾))
61		simp-5r 785	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 ∈ (Base‘𝑄))
62	61, 56	eleqtrrd 2832	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 ∈ ((Base‘𝐺) / (𝐺 ~_QG 𝐾)))
63		simplr 768	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑦 ∈ 𝑠)
64		qsel 8772	. . . . . . . . . . 11 ⊢ (((𝐺 ~_QG 𝐾) Er (Base‘𝐺) ∧ 𝑠 ∈ ((Base‘𝐺) / (𝐺 ~_QG 𝐾)) ∧ 𝑦 ∈ 𝑠) → 𝑠 = [𝑦](𝐺 ~_QG 𝐾))
65	54, 62, 63, 64	syl3anc 1373	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 = [𝑦](𝐺 ~_QG 𝐾))
66	60, 65	oveq12d 7408	. . . . . . . . 9 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝑟(+_g‘𝑄)𝑠) = ([𝑥](𝐺 ~_QG 𝐾)(+_g‘𝑄)[𝑦](𝐺 ~_QG 𝐾)))
67	10	ad6antr 736	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝐾 ∈ (NrmSGrp‘𝐺))
68	43	ad5antr 734	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 ⊆ (Base‘𝐺))
69	68, 58	sseldd 3950	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑥 ∈ (Base‘𝐺))
70	41	sselda 3949	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑠 ∈ 𝒫 (Base‘𝐺))
71	70	elpwid 4575	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑠 ⊆ (Base‘𝐺))
72	71	adantlr 715	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑠 ⊆ (Base‘𝐺))
73	72	ad4antr 732	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 ⊆ (Base‘𝐺))
74	73, 63	sseldd 3950	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑦 ∈ (Base‘𝐺))
75		eqid 2730	. . . . . . . . . . 11 ⊢ (+_g‘𝐺) = (+_g‘𝐺)
76	11, 23, 75, 3	qusadd 19127	. . . . . . . . . 10 ⊢ ((𝐾 ∈ (NrmSGrp‘𝐺) ∧ 𝑥 ∈ (Base‘𝐺) ∧ 𝑦 ∈ (Base‘𝐺)) → ([𝑥](𝐺 ~_QG 𝐾)(+_g‘𝑄)[𝑦](𝐺 ~_QG 𝐾)) = [(𝑥(+_g‘𝐺)𝑦)](𝐺 ~_QG 𝐾))
77	67, 69, 74, 76	syl3anc 1373	. . . . . . . . 9 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → ([𝑥](𝐺 ~_QG 𝐾)(+_g‘𝑄)[𝑦](𝐺 ~_QG 𝐾)) = [(𝑥(+_g‘𝐺)𝑦)](𝐺 ~_QG 𝐾))
78	66, 77	eqtrd 2765	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝑟(+_g‘𝑄)𝑠) = [(𝑥(+_g‘𝐺)𝑦)](𝐺 ~_QG 𝐾))
79	78	fveq2d 6865	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = (𝐽‘[(𝑥(+_g‘𝐺)𝑦)](𝐺 ~_QG 𝐾)))
80	6	ad6antr 736	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
81	80, 33	syl 17	. . . . . . . . 9 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝐺 ∈ Grp)
82	23, 75, 81, 69, 74	grpcld 18886	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝑥(+_g‘𝐺)𝑦) ∈ (Base‘𝐺))
83	7, 80, 5, 11, 20, 82	ghmquskerlem1 19222	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘[(𝑥(+_g‘𝐺)𝑦)](𝐺 ~_QG 𝐾)) = (𝐹‘(𝑥(+_g‘𝐺)𝑦)))
84	23, 75, 4	ghmlin 19160	. . . . . . . 8 ⊢ ((𝐹 ∈ (𝐺 GrpHom 𝐻) ∧ 𝑥 ∈ (Base‘𝐺) ∧ 𝑦 ∈ (Base‘𝐺)) → (𝐹‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐹‘𝑥)(+_g‘𝐻)(𝐹‘𝑦)))
85	80, 69, 74, 84	syl3anc 1373	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐹‘(𝑥(+_g‘𝐺)𝑦)) = ((𝐹‘𝑥)(+_g‘𝐻)(𝐹‘𝑦)))
86	79, 83, 85	3eqtrd 2769	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = ((𝐹‘𝑥)(+_g‘𝐻)(𝐹‘𝑦)))
87		simpllr 775	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘𝑟) = (𝐹‘𝑥))
88		simpr 484	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘𝑠) = (𝐹‘𝑦))
89	87, 88	oveq12d 7408	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → ((𝐽‘𝑟)(+_g‘𝐻)(𝐽‘𝑠)) = ((𝐹‘𝑥)(+_g‘𝐻)(𝐹‘𝑦)))
90	86, 89	eqtr4d 2768	. . . . 5 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = ((𝐽‘𝑟)(+_g‘𝐻)(𝐽‘𝑠)))
91	6	ad4antr 732	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
92		simpllr 775	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝑠 ∈ (Base‘𝑄))
93	7, 91, 5, 11, 20, 92	ghmquskerlem2 19224	. . . . 5 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → ∃𝑦 ∈ 𝑠 (𝐽‘𝑠) = (𝐹‘𝑦))
94	90, 93	r19.29a 3142	. . . 4 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = ((𝐽‘𝑟)(+_g‘𝐻)(𝐽‘𝑠)))
95	51	adantr 480	. . . 4 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → ∃𝑥 ∈ 𝑟 (𝐽‘𝑟) = (𝐹‘𝑥))
96	94, 95	r19.29a 3142	. . 3 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = ((𝐽‘𝑟)(+_g‘𝐻)(𝐽‘𝑠)))
97	96	anasss 466	. 2 ⊢ ((𝜑 ∧ (𝑟 ∈ (Base‘𝑄) ∧ 𝑠 ∈ (Base‘𝑄))) → (𝐽‘(𝑟(+_g‘𝑄)𝑠)) = ((𝐽‘𝑟)(+_g‘𝐻)(𝐽‘𝑠)))
98	1, 2, 3, 4, 13, 16, 53, 97	isghmd 19164	1 ⊢ (𝜑 → 𝐽 ∈ (𝑄 GrpHom 𝐻))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 395 = wceq 1540 ∈ wcel 2109 ∃wrex 3054 Vcvv 3450 ⊆ wss 3917 𝒫 cpw 4566 {csn 4592 ∪ cuni 4874 ↦ cmpt 5191 ^◡ccnv 5640 ran crn 5642 “ cima 5644 Fn wfn 6509 ⟶wf 6510 ‘cfv 6514 (class class class)co 7390 Er wer 8671 [cec 8672 / cqs 8673 Basecbs 17186 +_gcplusg 17227 0_gc0g 17409 /_s cqus 17475 Grpcgrp 18872 SubGrpcsubg 19059 NrmSGrpcnsg 19060 ~_QG cqg 19061 GrpHom cghm 19151

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 1910 ax-6 1967 ax-7 2008 ax-8 2111 ax-9 2119 ax-10 2142 ax-11 2158 ax-12 2178 ax-ext 2702 ax-rep 5237 ax-sep 5254 ax-nul 5264 ax-pow 5323 ax-pr 5390 ax-un 7714 ax-cnex 11131 ax-resscn 11132 ax-1cn 11133 ax-icn 11134 ax-addcl 11135 ax-addrcl 11136 ax-mulcl 11137 ax-mulrcl 11138 ax-mulcom 11139 ax-addass 11140 ax-mulass 11141 ax-distr 11142 ax-i2m1 11143 ax-1ne0 11144 ax-1rid 11145 ax-rnegex 11146 ax-rrecex 11147 ax-cnre 11148 ax-pre-lttri 11149 ax-pre-lttrn 11150 ax-pre-ltadd 11151 ax-pre-mulgt0 11152

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3or 1087 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2534 df-eu 2563 df-clab 2709 df-cleq 2722 df-clel 2804 df-nfc 2879 df-ne 2927 df-nel 3031 df-ral 3046 df-rex 3055 df-rmo 3356 df-reu 3357 df-rab 3409 df-v 3452 df-sbc 3757 df-csb 3866 df-dif 3920 df-un 3922 df-in 3924 df-ss 3934 df-pss 3937 df-nul 4300 df-if 4492 df-pw 4568 df-sn 4593 df-pr 4595 df-tp 4597 df-op 4599 df-uni 4875 df-iun 4960 df-br 5111 df-opab 5173 df-mpt 5192 df-tr 5218 df-id 5536 df-eprel 5541 df-po 5549 df-so 5550 df-fr 5594 df-we 5596 df-xp 5647 df-rel 5648 df-cnv 5649 df-co 5650 df-dm 5651 df-rn 5652 df-res 5653 df-ima 5654 df-pred 6277 df-ord 6338 df-on 6339 df-lim 6340 df-suc 6341 df-iota 6467 df-fun 6516 df-fn 6517 df-f 6518 df-f1 6519 df-fo 6520 df-f1o 6521 df-fv 6522 df-riota 7347 df-ov 7393 df-oprab 7394 df-mpo 7395 df-om 7846 df-1st 7971 df-2nd 7972 df-frecs 8263 df-wrecs 8294 df-recs 8343 df-rdg 8381 df-1o 8437 df-er 8674 df-ec 8676 df-qs 8680 df-map 8804 df-en 8922 df-dom 8923 df-sdom 8924 df-fin 8925 df-sup 9400 df-inf 9401 df-pnf 11217 df-mnf 11218 df-xr 11219 df-ltxr 11220 df-le 11221 df-sub 11414 df-neg 11415 df-nn 12194 df-2 12256 df-3 12257 df-4 12258 df-5 12259 df-6 12260 df-7 12261 df-8 12262 df-9 12263 df-n0 12450 df-z 12537 df-dec 12657 df-uz 12801 df-fz 13476 df-struct 17124 df-sets 17141 df-slot 17159 df-ndx 17171 df-base 17187 df-ress 17208 df-plusg 17240 df-mulr 17241 df-sca 17243 df-vsca 17244 df-ip 17245 df-tset 17246 df-ple 17247 df-ds 17249 df-0g 17411 df-imas 17478 df-qus 17479 df-mgm 18574 df-sgrp 18653 df-mnd 18669 df-submnd 18718 df-grp 18875 df-minusg 18876 df-sbg 18877 df-subg 19062 df-nsg 19063 df-eqg 19064 df-ghm 19152

This theorem is referenced by: ghmqusker 19226 rhmquskerlem 33403

W3C validator