rngoisocnv - Mathbox for Jeff Madsen

	Mathbox for Jeff Madsen		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > Mathboxes > rngoisocnv		Structured version Visualization version GIF version

Theorem rngoisocnv 38010

Description: The inverse of a ring isomorphism is a ring isomorphism. (Contributed by Jeff Madsen, 16-Jun-2011.)

**Assertion**
Ref	Expression
rngoisocnv	⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsIso 𝑆)) → ^◡𝐹 ∈ (𝑆 RingOpsIso 𝑅))

Proof of Theorem rngoisocnv Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		f1ocnv 6835	. . . . . . . 8 ⊢ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))
2		f1of 6823	. . . . . . . 8 ⊢ (^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅) → ^◡𝐹:ran (1^st ‘𝑆)⟶ran (1^st ‘𝑅))
3	1, 2	syl 17	. . . . . . 7 ⊢ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → ^◡𝐹:ran (1^st ‘𝑆)⟶ran (1^st ‘𝑅))
4	3	ad2antll 729	. . . . . 6 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ^◡𝐹:ran (1^st ‘𝑆)⟶ran (1^st ‘𝑅))
5		eqid 2736	. . . . . . . . . 10 ⊢ (2^nd ‘𝑅) = (2^nd ‘𝑅)
6		eqid 2736	. . . . . . . . . 10 ⊢ (GId‘(2^nd ‘𝑅)) = (GId‘(2^nd ‘𝑅))
7		eqid 2736	. . . . . . . . . 10 ⊢ (2^nd ‘𝑆) = (2^nd ‘𝑆)
8		eqid 2736	. . . . . . . . . 10 ⊢ (GId‘(2^nd ‘𝑆)) = (GId‘(2^nd ‘𝑆))
9	5, 6, 7, 8	rngohom1 37997	. . . . . . . . 9 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) → (𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)))
10	9	3expa 1118	. . . . . . . 8 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) → (𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)))
11	10	adantrr 717	. . . . . . 7 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → (𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)))
12		eqid 2736	. . . . . . . . . . 11 ⊢ ran (1^st ‘𝑅) = ran (1^st ‘𝑅)
13	12, 5, 6	rngo1cl 37968	. . . . . . . . . 10 ⊢ (𝑅 ∈ RingOps → (GId‘(2^nd ‘𝑅)) ∈ ran (1^st ‘𝑅))
14		f1ocnvfv 7276	. . . . . . . . . 10 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (GId‘(2^nd ‘𝑅)) ∈ ran (1^st ‘𝑅)) → ((𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)) → (^◡𝐹‘(GId‘(2^nd ‘𝑆))) = (GId‘(2^nd ‘𝑅))))
15	13, 14	sylan2 593	. . . . . . . . 9 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ 𝑅 ∈ RingOps) → ((𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)) → (^◡𝐹‘(GId‘(2^nd ‘𝑆))) = (GId‘(2^nd ‘𝑅))))
16	15	ancoms 458	. . . . . . . 8 ⊢ ((𝑅 ∈ RingOps ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → ((𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)) → (^◡𝐹‘(GId‘(2^nd ‘𝑆))) = (GId‘(2^nd ‘𝑅))))
17	16	ad2ant2rl 749	. . . . . . 7 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ((𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)) → (^◡𝐹‘(GId‘(2^nd ‘𝑆))) = (GId‘(2^nd ‘𝑅))))
18	11, 17	mpd 15	. . . . . 6 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → (^◡𝐹‘(GId‘(2^nd ‘𝑆))) = (GId‘(2^nd ‘𝑅)))
19		f1ocnvfv2 7275	. . . . . . . . . . . . . 14 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ 𝑥 ∈ ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘𝑥)) = 𝑥)
20		f1ocnvfv2 7275	. . . . . . . . . . . . . 14 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘𝑦)) = 𝑦)
21	19, 20	anim12dan 619	. . . . . . . . . . . . 13 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘𝑥)) = 𝑥 ∧ (𝐹‘(^◡𝐹‘𝑦)) = 𝑦))
22		oveq12 7419	. . . . . . . . . . . . 13 ⊢ (((𝐹‘(^◡𝐹‘𝑥)) = 𝑥 ∧ (𝐹‘(^◡𝐹‘𝑦)) = 𝑦) → ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
23	21, 22	syl 17	. . . . . . . . . . . 12 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
24	23	adantll 714	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
25	24	adantll 714	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
26		f1ocnvdm 7283	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ 𝑥 ∈ ran (1^st ‘𝑆)) → (^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅))
27		f1ocnvdm 7283	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))
28	26, 27	anim12dan 619	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅)))
29		eqid 2736	. . . . . . . . . . . . . . . 16 ⊢ (1^st ‘𝑅) = (1^st ‘𝑅)
30		eqid 2736	. . . . . . . . . . . . . . . 16 ⊢ (1^st ‘𝑆) = (1^st ‘𝑆)
31	29, 12, 30	rngohomadd 37998	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) ∧ ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
32	28, 31	sylan2 593	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) ∧ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)))) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
33	32	exp32 420	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) → (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → ((𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))))
34	33	3expa 1118	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) → (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → ((𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))))
35	34	impr 454	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ((𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦)))))
36	35	imp 406	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
37		eqid 2736	. . . . . . . . . . . . . . . 16 ⊢ ran (1^st ‘𝑆) = ran (1^st ‘𝑆)
38	30, 37	rngogcl 37941	. . . . . . . . . . . . . . 15 ⊢ ((𝑆 ∈ RingOps ∧ 𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆))
39	38	3expb 1120	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ∈ RingOps ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆))
40		f1ocnvfv2 7275	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
41	40	ancoms 458	. . . . . . . . . . . . . 14 ⊢ (((𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
42	39, 41	sylan 580	. . . . . . . . . . . . 13 ⊢ (((𝑆 ∈ RingOps ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
43	42	an32s 652	. . . . . . . . . . . 12 ⊢ (((𝑆 ∈ RingOps ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
44	43	adantlll 718	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
45	44	adantlrl 720	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
46	25, 36, 45	3eqtr4rd 2782	. . . . . . . . 9 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))))
47		f1of1 6822	. . . . . . . . . . . 12 ⊢ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → 𝐹:ran (1^st ‘𝑅)–1-1→ran (1^st ‘𝑆))
48	47	ad2antlr 727	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → 𝐹:ran (1^st ‘𝑅)–1-1→ran (1^st ‘𝑆))
49		f1ocnvdm 7283	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
50	49	ancoms 458	. . . . . . . . . . . . . 14 ⊢ (((𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
51	39, 50	sylan 580	. . . . . . . . . . . . 13 ⊢ (((𝑆 ∈ RingOps ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
52	51	an32s 652	. . . . . . . . . . . 12 ⊢ (((𝑆 ∈ RingOps ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
53	52	adantlll 718	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
54	29, 12	rngogcl 37941	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ RingOps ∧ (^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅)) → ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
55	54	3expb 1120	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ RingOps ∧ ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))) → ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
56	28, 55	sylan2 593	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ RingOps ∧ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)))) → ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
57	56	anassrs 467	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ RingOps ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
58	57	adantllr 719	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
59		f1fveq 7260	. . . . . . . . . . 11 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1→ran (1^st ‘𝑆) ∧ ((^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅) ∧ ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))) → ((𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) ↔ (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))))
60	48, 53, 58, 59	syl12anc 836	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) ↔ (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))))
61	60	adantlrl 720	. . . . . . . . 9 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) ↔ (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))))
62	46, 61	mpbid 232	. . . . . . . 8 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)))
63		oveq12 7419	. . . . . . . . . . . . 13 ⊢ (((𝐹‘(^◡𝐹‘𝑥)) = 𝑥 ∧ (𝐹‘(^◡𝐹‘𝑦)) = 𝑦) → ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
64	21, 63	syl 17	. . . . . . . . . . . 12 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
65	64	adantll 714	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
66	65	adantll 714	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
67	29, 12, 5, 7	rngohommul 37999	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) ∧ ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
68	28, 67	sylan2 593	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) ∧ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)))) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
69	68	exp32 420	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) → (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → ((𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))))
70	69	3expa 1118	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) → (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → ((𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))))
71	70	impr 454	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ((𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦)))))
72	71	imp 406	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
73	30, 7, 37	rngocl 37930	. . . . . . . . . . . . . . 15 ⊢ ((𝑆 ∈ RingOps ∧ 𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆))
74	73	3expb 1120	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ∈ RingOps ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆))
75		f1ocnvfv2 7275	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
76	75	ancoms 458	. . . . . . . . . . . . . 14 ⊢ (((𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
77	74, 76	sylan 580	. . . . . . . . . . . . 13 ⊢ (((𝑆 ∈ RingOps ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
78	77	an32s 652	. . . . . . . . . . . 12 ⊢ (((𝑆 ∈ RingOps ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
79	78	adantlll 718	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
80	79	adantlrl 720	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
81	66, 72, 80	3eqtr4rd 2782	. . . . . . . . 9 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))))
82		f1ocnvdm 7283	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
83	82	ancoms 458	. . . . . . . . . . . . . 14 ⊢ (((𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
84	74, 83	sylan 580	. . . . . . . . . . . . 13 ⊢ (((𝑆 ∈ RingOps ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
85	84	an32s 652	. . . . . . . . . . . 12 ⊢ (((𝑆 ∈ RingOps ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
86	85	adantlll 718	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
87	29, 5, 12	rngocl 37930	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ RingOps ∧ (^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅)) → ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
88	87	3expb 1120	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ RingOps ∧ ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))) → ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
89	28, 88	sylan2 593	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ RingOps ∧ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)))) → ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
90	89	anassrs 467	. . . . . . . . . . . 12 ⊢ (((𝑅 ∈ RingOps ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
91	90	adantllr 719	. . . . . . . . . . 11 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
92		f1fveq 7260	. . . . . . . . . . 11 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1→ran (1^st ‘𝑆) ∧ ((^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅) ∧ ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))) → ((𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) ↔ (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))))
93	48, 86, 91, 92	syl12anc 836	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) ↔ (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))))
94	93	adantlrl 720	. . . . . . . . 9 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) ↔ (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))))
95	81, 94	mpbid 232	. . . . . . . 8 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦)))
96	62, 95	jca 511	. . . . . . 7 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∧ (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))))
97	96	ralrimivva 3188	. . . . . 6 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ∀𝑥 ∈ ran (1^st ‘𝑆)∀𝑦 ∈ ran (1^st ‘𝑆)((^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∧ (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))))
98	30, 7, 37, 8, 29, 5, 12, 6	isrngohom 37994	. . . . . . . 8 ⊢ ((𝑆 ∈ RingOps ∧ 𝑅 ∈ RingOps) → (^◡𝐹 ∈ (𝑆 RingOpsHom 𝑅) ↔ (^◡𝐹:ran (1^st ‘𝑆)⟶ran (1^st ‘𝑅) ∧ (^◡𝐹‘(GId‘(2^nd ‘𝑆))) = (GId‘(2^nd ‘𝑅)) ∧ ∀𝑥 ∈ ran (1^st ‘𝑆)∀𝑦 ∈ ran (1^st ‘𝑆)((^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∧ (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))))))
99	98	ancoms 458	. . . . . . 7 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → (^◡𝐹 ∈ (𝑆 RingOpsHom 𝑅) ↔ (^◡𝐹:ran (1^st ‘𝑆)⟶ran (1^st ‘𝑅) ∧ (^◡𝐹‘(GId‘(2^nd ‘𝑆))) = (GId‘(2^nd ‘𝑅)) ∧ ∀𝑥 ∈ ran (1^st ‘𝑆)∀𝑦 ∈ ran (1^st ‘𝑆)((^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∧ (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))))))
100	99	adantr 480	. . . . . 6 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → (^◡𝐹 ∈ (𝑆 RingOpsHom 𝑅) ↔ (^◡𝐹:ran (1^st ‘𝑆)⟶ran (1^st ‘𝑅) ∧ (^◡𝐹‘(GId‘(2^nd ‘𝑆))) = (GId‘(2^nd ‘𝑅)) ∧ ∀𝑥 ∈ ran (1^st ‘𝑆)∀𝑦 ∈ ran (1^st ‘𝑆)((^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∧ (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))))))
101	4, 18, 97, 100	mpbir3and 1343	. . . . 5 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ^◡𝐹 ∈ (𝑆 RingOpsHom 𝑅))
102	1	ad2antll 729	. . . . 5 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))
103	101, 102	jca 511	. . . 4 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → (^◡𝐹 ∈ (𝑆 RingOpsHom 𝑅) ∧ ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅)))
104	103	ex 412	. . 3 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → ((𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (^◡𝐹 ∈ (𝑆 RingOpsHom 𝑅) ∧ ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))))
105	29, 12, 30, 37	isrngoiso 38007	. . 3 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → (𝐹 ∈ (𝑅 RingOpsIso 𝑆) ↔ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))))
106	30, 37, 29, 12	isrngoiso 38007	. . . 4 ⊢ ((𝑆 ∈ RingOps ∧ 𝑅 ∈ RingOps) → (^◡𝐹 ∈ (𝑆 RingOpsIso 𝑅) ↔ (^◡𝐹 ∈ (𝑆 RingOpsHom 𝑅) ∧ ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))))
107	106	ancoms 458	. . 3 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → (^◡𝐹 ∈ (𝑆 RingOpsIso 𝑅) ↔ (^◡𝐹 ∈ (𝑆 RingOpsHom 𝑅) ∧ ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))))
108	104, 105, 107	3imtr4d 294	. 2 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → (𝐹 ∈ (𝑅 RingOpsIso 𝑆) → ^◡𝐹 ∈ (𝑆 RingOpsIso 𝑅)))
109	108	3impia 1117	1 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsIso 𝑆)) → ^◡𝐹 ∈ (𝑆 RingOpsIso 𝑅))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1086 = wceq 1540 ∈ wcel 2109 ∀wral 3052 ^◡ccnv 5658 ran crn 5660 ⟶wf 6532 –1-1→wf1 6533 –1-1-onto→wf1o 6535 ‘cfv 6536 (class class class)co 7410 1^st c1st 7991 2^nd c2nd 7992 GIdcgi 30476 RingOpscrngo 37923 RingOpsHom crngohom 37989 RingOpsIso crngoiso 37990

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 2708 ax-sep 5271 ax-nul 5281 ax-pow 5340 ax-pr 5407 ax-un 7734

This theorem depends on definitions: df-bi 207 df-an 396 df-or 848 df-3an 1088 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2066 df-mo 2540 df-eu 2569 df-clab 2715 df-cleq 2728 df-clel 2810 df-nfc 2886 df-ne 2934 df-ral 3053 df-rex 3062 df-rmo 3364 df-reu 3365 df-rab 3421 df-v 3466 df-sbc 3771 df-csb 3880 df-dif 3934 df-un 3936 df-in 3938 df-ss 3948 df-nul 4314 df-if 4506 df-pw 4582 df-sn 4607 df-pr 4609 df-op 4613 df-uni 4889 df-iun 4974 df-br 5125 df-opab 5187 df-mpt 5207 df-id 5553 df-xp 5665 df-rel 5666 df-cnv 5667 df-co 5668 df-dm 5669 df-rn 5670 df-res 5671 df-ima 5672 df-iota 6489 df-fun 6538 df-fn 6539 df-f 6540 df-f1 6541 df-fo 6542 df-f1o 6543 df-fv 6544 df-riota 7367 df-ov 7413 df-oprab 7414 df-mpo 7415 df-1st 7993 df-2nd 7994 df-map 8847 df-grpo 30479 df-gid 30480 df-ablo 30531 df-ass 37872 df-exid 37874 df-mgmOLD 37878 df-sgrOLD 37890 df-mndo 37896 df-rngo 37924 df-rngohom 37992 df-rngoiso 38005

This theorem is referenced by: riscer 38017

W3C validator