Theorem rhmqusnsg 21257

Description: The mapping 𝐽 induced by a ring homomorphism 𝐹 from a subring 𝑁 of the quotient group 𝑄 over 𝐹's kernel 𝐾 is a ring homomorphism. (Contributed by Thierry Arnoux, 13-May-2025.)

Hypotheses

Ref	Expression
rhmqusnsg.0	⊢ 0 = (0g‘𝐻)
rhmqusnsg.f	⊢ (𝜑 → 𝐹 ∈ (𝐺 RingHom 𝐻))
rhmqusnsg.k	⊢ 𝐾 = (◡𝐹 “ { 0 })
rhmqusnsg.q	⊢ 𝑄 = (𝐺 /s (𝐺 ~QG 𝑁))
rhmqusnsg.j	⊢ 𝐽 = (𝑞 ∈ (Base‘𝑄) ↦ ∪ (𝐹 “ 𝑞))
rhmqusnsg.g	⊢ (𝜑 → 𝐺 ∈ CRing)
rhmqusnsg.n	⊢ (𝜑 → 𝑁 ⊆ 𝐾)
rhmqusnsg.1	⊢ (𝜑 → 𝑁 ∈ (LIdeal‘𝐺))

Assertion

Ref	Expression
rhmqusnsg	⊢ (𝜑 → 𝐽 ∈ (𝑄 RingHom 𝐻))

Distinct variable groups:   𝐹,𝑞   𝐺,𝑞   𝐻,𝑞   𝐽,𝑞   𝐾,𝑞   𝑁,𝑞   𝑄,𝑞   𝜑,𝑞

Allowed substitution hint:   0 (𝑞)

Proof of Theorem rhmqusnsg

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

Step	Hyp	Ref	Expression
1		eqid 2737	. 2 ⊢ (Base‘𝑄) = (Base‘𝑄)
2		eqid 2737	. 2 ⊢ (1r‘𝑄) = (1r‘𝑄)
3		eqid 2737	. 2 ⊢ (1r‘𝐻) = (1r‘𝐻)
4		eqid 2737	. 2 ⊢ (.r‘𝑄) = (.r‘𝑄)
5		eqid 2737	. 2 ⊢ (.r‘𝐻) = (.r‘𝐻)
6		rhmqusnsg.g	. . . . 5 ⊢ (𝜑 → 𝐺 ∈ CRing)
7	6	crngringd 20198	. . . 4 ⊢ (𝜑 → 𝐺 ∈ Ring)
8		rhmqusnsg.1	. . . . 5 ⊢ (𝜑 → 𝑁 ∈ (LIdeal‘𝐺))
9		eqid 2737	. . . . . . 7 ⊢ (LIdeal‘𝐺) = (LIdeal‘𝐺)
10	9	crng2idl 21253	. . . . . 6 ⊢ (𝐺 ∈ CRing → (LIdeal‘𝐺) = (2Ideal‘𝐺))
11	6, 10	syl 17	. . . . 5 ⊢ (𝜑 → (LIdeal‘𝐺) = (2Ideal‘𝐺))
12	8, 11	eleqtrd 2839	. . . 4 ⊢ (𝜑 → 𝑁 ∈ (2Ideal‘𝐺))
13		rhmqusnsg.q	. . . . 5 ⊢ 𝑄 = (𝐺 /s (𝐺 ~QG 𝑁))
14		eqid 2737	. . . . 5 ⊢ (2Ideal‘𝐺) = (2Ideal‘𝐺)
15		eqid 2737	. . . . 5 ⊢ (1r‘𝐺) = (1r‘𝐺)
16	13, 14, 15	qus1 21246	. . . 4 ⊢ ((𝐺 ∈ Ring ∧ 𝑁 ∈ (2Ideal‘𝐺)) → (𝑄 ∈ Ring ∧ [(1r‘𝐺)](𝐺 ~QG 𝑁) = (1r‘𝑄)))
17	7, 12, 16	syl2anc 585	. . 3 ⊢ (𝜑 → (𝑄 ∈ Ring ∧ [(1r‘𝐺)](𝐺 ~QG 𝑁) = (1r‘𝑄)))
18	17	simpld 494	. 2 ⊢ (𝜑 → 𝑄 ∈ Ring)
19		rhmqusnsg.f	. . 3 ⊢ (𝜑 → 𝐹 ∈ (𝐺 RingHom 𝐻))
20		rhmrcl2 20430	. . 3 ⊢ (𝐹 ∈ (𝐺 RingHom 𝐻) → 𝐻 ∈ Ring)
21	19, 20	syl 17	. 2 ⊢ (𝜑 → 𝐻 ∈ Ring)
22		rhmqusnsg.0	. . . 4 ⊢ 0 = (0g‘𝐻)
23		rhmghm 20436	. . . . 5 ⊢ (𝐹 ∈ (𝐺 RingHom 𝐻) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
24	19, 23	syl 17	. . . 4 ⊢ (𝜑 → 𝐹 ∈ (𝐺 GrpHom 𝐻))
25		rhmqusnsg.k	. . . 4 ⊢ 𝐾 = (◡𝐹 “ { 0 })
26		rhmqusnsg.j	. . . 4 ⊢ 𝐽 = (𝑞 ∈ (Base‘𝑄) ↦ ∪ (𝐹 “ 𝑞))
27		rhmqusnsg.n	. . . 4 ⊢ (𝜑 → 𝑁 ⊆ 𝐾)
28		lidlnsg 21220	. . . . 5 ⊢ ((𝐺 ∈ Ring ∧ 𝑁 ∈ (LIdeal‘𝐺)) → 𝑁 ∈ (NrmSGrp‘𝐺))
29	7, 8, 28	syl2anc 585	. . . 4 ⊢ (𝜑 → 𝑁 ∈ (NrmSGrp‘𝐺))
30		eqid 2737	. . . . . 6 ⊢ (Base‘𝐺) = (Base‘𝐺)
31	30, 15	ringidcl 20217	. . . . 5 ⊢ (𝐺 ∈ Ring → (1r‘𝐺) ∈ (Base‘𝐺))
32	7, 31	syl 17	. . . 4 ⊢ (𝜑 → (1r‘𝐺) ∈ (Base‘𝐺))
33	22, 24, 25, 13, 26, 27, 29, 32	ghmqusnsglem1 19226	. . 3 ⊢ (𝜑 → (𝐽‘[(1r‘𝐺)](𝐺 ~QG 𝑁)) = (𝐹‘(1r‘𝐺)))
34	17	simprd 495	. . . 4 ⊢ (𝜑 → [(1r‘𝐺)](𝐺 ~QG 𝑁) = (1r‘𝑄))
35	34	fveq2d 6848	. . 3 ⊢ (𝜑 → (𝐽‘[(1r‘𝐺)](𝐺 ~QG 𝑁)) = (𝐽‘(1r‘𝑄)))
36	15, 3	rhm1 20441	. . . 4 ⊢ (𝐹 ∈ (𝐺 RingHom 𝐻) → (𝐹‘(1r‘𝐺)) = (1r‘𝐻))
37	19, 36	syl 17	. . 3 ⊢ (𝜑 → (𝐹‘(1r‘𝐺)) = (1r‘𝐻))
38	33, 35, 37	3eqtr3d 2780	. 2 ⊢ (𝜑 → (𝐽‘(1r‘𝑄)) = (1r‘𝐻))
39	19	ad6antr 737	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝐹 ∈ (𝐺 RingHom 𝐻))
40	13	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑄 = (𝐺 /s (𝐺 ~QG 𝑁)))
41		eqidd 2738	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Base‘𝐺) = (Base‘𝐺))
42		ovexd 7405	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐺 ~QG 𝑁) ∈ V)
43	40, 41, 42, 6	qusbas 17480	. . . . . . . . . . . 12 ⊢ (𝜑 → ((Base‘𝐺) / (𝐺 ~QG 𝑁)) = (Base‘𝑄))
44		nsgsubg 19104	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (NrmSGrp‘𝐺) → 𝑁 ∈ (SubGrp‘𝐺))
45		eqid 2737	. . . . . . . . . . . . . . 15 ⊢ (𝐺 ~QG 𝑁) = (𝐺 ~QG 𝑁)
46	30, 45	eqger 19124	. . . . . . . . . . . . . 14 ⊢ (𝑁 ∈ (SubGrp‘𝐺) → (𝐺 ~QG 𝑁) Er (Base‘𝐺))
47	29, 44, 46	3syl 18	. . . . . . . . . . . . 13 ⊢ (𝜑 → (𝐺 ~QG 𝑁) Er (Base‘𝐺))
48	47	qsss 8726	. . . . . . . . . . . 12 ⊢ (𝜑 → ((Base‘𝐺) / (𝐺 ~QG 𝑁)) ⊆ 𝒫 (Base‘𝐺))
49	43, 48	eqsstrrd 3971	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘𝑄) ⊆ 𝒫 (Base‘𝐺))
50	49	sselda 3935	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → 𝑟 ∈ 𝒫 (Base‘𝐺))
51	50	elpwid 4565	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) → 𝑟 ⊆ (Base‘𝐺))
52	51	ad5antr 735	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 ⊆ (Base‘𝐺))
53		simp-4r 784	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑥 ∈ 𝑟)
54	52, 53	sseldd 3936	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑥 ∈ (Base‘𝐺))
55	49	sselda 3935	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑠 ∈ 𝒫 (Base‘𝐺))
56	55	elpwid 4565	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑠 ⊆ (Base‘𝐺))
57	56	adantlr 716	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑠 ⊆ (Base‘𝐺))
58	57	ad4antr 733	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 ⊆ (Base‘𝐺))
59		simplr 769	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑦 ∈ 𝑠)
60	58, 59	sseldd 3936	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑦 ∈ (Base‘𝐺))
61		eqid 2737	. . . . . . . 8 ⊢ (.r‘𝐺) = (.r‘𝐺)
62	30, 61, 5	rhmmul 20438	. . . . . . 7 ⊢ ((𝐹 ∈ (𝐺 RingHom 𝐻) ∧ 𝑥 ∈ (Base‘𝐺) ∧ 𝑦 ∈ (Base‘𝐺)) → (𝐹‘(𝑥(.r‘𝐺)𝑦)) = ((𝐹‘𝑥)(.r‘𝐻)(𝐹‘𝑦)))
63	39, 54, 60, 62	syl3anc 1374	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐹‘(𝑥(.r‘𝐺)𝑦)) = ((𝐹‘𝑥)(.r‘𝐻)(𝐹‘𝑦)))
64	47	ad6antr 737	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐺 ~QG 𝑁) Er (Base‘𝐺))
65		simp-6r 788	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 ∈ (Base‘𝑄))
66	43	ad6antr 737	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → ((Base‘𝐺) / (𝐺 ~QG 𝑁)) = (Base‘𝑄))
67	65, 66	eleqtrrd 2840	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 ∈ ((Base‘𝐺) / (𝐺 ~QG 𝑁)))
68		qsel 8747	. . . . . . . . . . 11 ⊢ (((𝐺 ~QG 𝑁) Er (Base‘𝐺) ∧ 𝑟 ∈ ((Base‘𝐺) / (𝐺 ~QG 𝑁)) ∧ 𝑥 ∈ 𝑟) → 𝑟 = [𝑥](𝐺 ~QG 𝑁))
69	64, 67, 53, 68	syl3anc 1374	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑟 = [𝑥](𝐺 ~QG 𝑁))
70		simp-5r 786	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 ∈ (Base‘𝑄))
71	70, 66	eleqtrrd 2840	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 ∈ ((Base‘𝐺) / (𝐺 ~QG 𝑁)))
72		qsel 8747	. . . . . . . . . . 11 ⊢ (((𝐺 ~QG 𝑁) Er (Base‘𝐺) ∧ 𝑠 ∈ ((Base‘𝐺) / (𝐺 ~QG 𝑁)) ∧ 𝑦 ∈ 𝑠) → 𝑠 = [𝑦](𝐺 ~QG 𝑁))
73	64, 71, 59, 72	syl3anc 1374	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑠 = [𝑦](𝐺 ~QG 𝑁))
74	69, 73	oveq12d 7388	. . . . . . . . 9 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝑟(.r‘𝑄)𝑠) = ([𝑥](𝐺 ~QG 𝑁)(.r‘𝑄)[𝑦](𝐺 ~QG 𝑁)))
75	6	ad6antr 737	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝐺 ∈ CRing)
76	8	ad6antr 737	. . . . . . . . . 10 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑁 ∈ (LIdeal‘𝐺))
77	13, 30, 61, 4, 75, 76, 54, 60	qusmulcrng 21256	. . . . . . . . 9 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → ([𝑥](𝐺 ~QG 𝑁)(.r‘𝑄)[𝑦](𝐺 ~QG 𝑁)) = [(𝑥(.r‘𝐺)𝑦)](𝐺 ~QG 𝑁))
78	74, 77	eqtr2d 2773	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → [(𝑥(.r‘𝐺)𝑦)](𝐺 ~QG 𝑁) = (𝑟(.r‘𝑄)𝑠))
79	78	fveq2d 6848	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘[(𝑥(.r‘𝐺)𝑦)](𝐺 ~QG 𝑁)) = (𝐽‘(𝑟(.r‘𝑄)𝑠)))
80	39, 23	syl 17	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
81	27	ad6antr 737	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑁 ⊆ 𝐾)
82	29	ad6antr 737	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝑁 ∈ (NrmSGrp‘𝐺))
83		rhmrcl1 20429	. . . . . . . . . 10 ⊢ (𝐹 ∈ (𝐺 RingHom 𝐻) → 𝐺 ∈ Ring)
84	39, 83	syl 17	. . . . . . . . 9 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → 𝐺 ∈ Ring)
85	30, 61, 84, 54, 60	ringcld 20212	. . . . . . . 8 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝑥(.r‘𝐺)𝑦) ∈ (Base‘𝐺))
86	22, 80, 25, 13, 26, 81, 82, 85	ghmqusnsglem1 19226	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘[(𝑥(.r‘𝐺)𝑦)](𝐺 ~QG 𝑁)) = (𝐹‘(𝑥(.r‘𝐺)𝑦)))
87	79, 86	eqtr3d 2774	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘(𝑟(.r‘𝑄)𝑠)) = (𝐹‘(𝑥(.r‘𝐺)𝑦)))
88		simpllr 776	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘𝑟) = (𝐹‘𝑥))
89		simpr 484	. . . . . . 7 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘𝑠) = (𝐹‘𝑦))
90	88, 89	oveq12d 7388	. . . . . 6 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → ((𝐽‘𝑟)(.r‘𝐻)(𝐽‘𝑠)) = ((𝐹‘𝑥)(.r‘𝐻)(𝐹‘𝑦)))
91	63, 87, 90	3eqtr4d 2782	. . . . 5 ⊢ (((((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) ∧ 𝑦 ∈ 𝑠) ∧ (𝐽‘𝑠) = (𝐹‘𝑦)) → (𝐽‘(𝑟(.r‘𝑄)𝑠)) = ((𝐽‘𝑟)(.r‘𝐻)(𝐽‘𝑠)))
92	24	ad4antr 733	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
93	27	ad4antr 733	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝑁 ⊆ 𝐾)
94	29	ad4antr 733	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝑁 ∈ (NrmSGrp‘𝐺))
95		simpllr 776	. . . . . 6 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → 𝑠 ∈ (Base‘𝑄))
96	22, 92, 25, 13, 26, 93, 94, 95	ghmqusnsglem2 19227	. . . . 5 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → ∃𝑦 ∈ 𝑠 (𝐽‘𝑠) = (𝐹‘𝑦))
97	91, 96	r19.29a 3146	. . . 4 ⊢ (((((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) ∧ 𝑥 ∈ 𝑟) ∧ (𝐽‘𝑟) = (𝐹‘𝑥)) → (𝐽‘(𝑟(.r‘𝑄)𝑠)) = ((𝐽‘𝑟)(.r‘𝐻)(𝐽‘𝑠)))
98	24	ad2antrr 727	. . . . 5 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → 𝐹 ∈ (𝐺 GrpHom 𝐻))
99	27	ad2antrr 727	. . . . 5 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑁 ⊆ 𝐾)
100	29	ad2antrr 727	. . . . 5 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑁 ∈ (NrmSGrp‘𝐺))
101		simplr 769	. . . . 5 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → 𝑟 ∈ (Base‘𝑄))
102	22, 98, 25, 13, 26, 99, 100, 101	ghmqusnsglem2 19227	. . . 4 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → ∃𝑥 ∈ 𝑟 (𝐽‘𝑟) = (𝐹‘𝑥))
103	97, 102	r19.29a 3146	. . 3 ⊢ (((𝜑 ∧ 𝑟 ∈ (Base‘𝑄)) ∧ 𝑠 ∈ (Base‘𝑄)) → (𝐽‘(𝑟(.r‘𝑄)𝑠)) = ((𝐽‘𝑟)(.r‘𝐻)(𝐽‘𝑠)))
104	103	anasss 466	. 2 ⊢ ((𝜑 ∧ (𝑟 ∈ (Base‘𝑄) ∧ 𝑠 ∈ (Base‘𝑄))) → (𝐽‘(𝑟(.r‘𝑄)𝑠)) = ((𝐽‘𝑟)(.r‘𝐻)(𝐽‘𝑠)))
105	22, 24, 25, 13, 26, 27, 29	ghmqusnsg 19228	. 2 ⊢ (𝜑 → 𝐽 ∈ (𝑄 GrpHom 𝐻))
106	1, 2, 3, 4, 5, 18, 21, 38, 104, 105	isrhm2d 20439	1 ⊢ (𝜑 → 𝐽 ∈ (𝑄 RingHom 𝐻))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1542   ∈ wcel 2114  Vcvv 3442   ⊆ wss 3903  𝒫 cpw 4556  {csn 4582  ∪ cuni 4865   ↦ cmpt 5181  ^◡ccnv 5633   “ cima 5637  ‘cfv 6502  (class class class)co 7370   Er wer 8644  [cec 8645   / cqs 8646  Basecbs 17150  ._rcmulr 17192  0_gc0g 17373   /_s cqus 17440  SubGrpcsubg 19067  NrmSGrpcnsg 19068   ~_QG cqg 19069   GrpHom cghm 19158  1_rcur 20133  Ringcrg 20185  CRingccrg 20186   RingHom crh 20422  LIdealclidl 21178  2Idealc2idl 21221

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5245  ax-nul 5255  ax-pow 5314  ax-pr 5381  ax-un 7692  ax-cnex 11096  ax-resscn 11097  ax-1cn 11098  ax-icn 11099  ax-addcl 11100  ax-addrcl 11101  ax-mulcl 11102  ax-mulrcl 11103  ax-mulcom 11104  ax-addass 11105  ax-mulass 11106  ax-distr 11107  ax-i2m1 11108  ax-1ne0 11109  ax-1rid 11110  ax-rnegex 11111  ax-rrecex 11112  ax-cnre 11113  ax-pre-lttri 11114  ax-pre-lttrn 11115  ax-pre-ltadd 11116  ax-pre-mulgt0 11117

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-int 4905  df-iun 4950  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5529  df-eprel 5534  df-po 5542  df-so 5543  df-fr 5587  df-we 5589  df-xp 5640  df-rel 5641  df-cnv 5642  df-co 5643  df-dm 5644  df-rn 5645  df-res 5646  df-ima 5647  df-pred 6269  df-ord 6330  df-on 6331  df-lim 6332  df-suc 6333  df-iota 6458  df-fun 6504  df-fn 6505  df-f 6506  df-f1 6507  df-fo 6508  df-f1o 6509  df-fv 6510  df-riota 7327  df-ov 7373  df-oprab 7374  df-mpo 7375  df-om 7821  df-1st 7945  df-2nd 7946  df-tpos 8180  df-frecs 8235  df-wrecs 8266  df-recs 8315  df-rdg 8353  df-1o 8409  df-er 8647  df-ec 8649  df-qs 8653  df-map 8779  df-en 8898  df-dom 8899  df-sdom 8900  df-fin 8901  df-sup 9359  df-inf 9360  df-pnf 11182  df-mnf 11183  df-xr 11184  df-ltxr 11185  df-le 11186  df-sub 11380  df-neg 11381  df-nn 12160  df-2 12222  df-3 12223  df-4 12224  df-5 12225  df-6 12226  df-7 12227  df-8 12228  df-9 12229  df-n0 12416  df-z 12503  df-dec 12622  df-uz 12766  df-fz 13438  df-struct 17088  df-sets 17105  df-slot 17123  df-ndx 17135  df-base 17151  df-ress 17172  df-plusg 17204  df-mulr 17205  df-sca 17207  df-vsca 17208  df-ip 17209  df-tset 17210  df-ple 17211  df-ds 17213  df-0g 17375  df-imas 17443  df-qus 17444  df-mgm 18579  df-sgrp 18658  df-mnd 18674  df-mhm 18722  df-grp 18883  df-minusg 18884  df-sbg 18885  df-subg 19070  df-nsg 19071  df-eqg 19072  df-ghm 19159  df-cmn 19728  df-abl 19729  df-mgp 20093  df-rng 20105  df-ur 20134  df-ring 20187  df-cring 20188  df-oppr 20290  df-rhm 20425  df-subrg 20520  df-lmod 20830  df-lss 20900  df-lsp 20940  df-sra 21142  df-rgmod 21143  df-lidl 21180  df-rsp 21181  df-2idl 21222

This theorem is referenced by:  zndvdchrrhm  42371  rhmqusspan  42584