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 37510

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 6845	. . . . . . . 8 ⊢ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))
2		f1of 6833	. . . . . . . 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 727	. . . . . 6 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ^◡𝐹:ran (1^st ‘𝑆)⟶ran (1^st ‘𝑅))
5		eqid 2725	. . . . . . . . . 10 ⊢ (2^nd ‘𝑅) = (2^nd ‘𝑅)
6		eqid 2725	. . . . . . . . . 10 ⊢ (GId‘(2^nd ‘𝑅)) = (GId‘(2^nd ‘𝑅))
7		eqid 2725	. . . . . . . . . 10 ⊢ (2^nd ‘𝑆) = (2^nd ‘𝑆)
8		eqid 2725	. . . . . . . . . 10 ⊢ (GId‘(2^nd ‘𝑆)) = (GId‘(2^nd ‘𝑆))
9	5, 6, 7, 8	rngohom1 37497	. . . . . . . . 9 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) → (𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)))
10	9	3expa 1115	. . . . . . . 8 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) → (𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)))
11	10	adantrr 715	. . . . . . 7 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → (𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)))
12		eqid 2725	. . . . . . . . . . 11 ⊢ ran (1^st ‘𝑅) = ran (1^st ‘𝑅)
13	12, 5, 6	rngo1cl 37468	. . . . . . . . . 10 ⊢ (𝑅 ∈ RingOps → (GId‘(2^nd ‘𝑅)) ∈ ran (1^st ‘𝑅))
14		f1ocnvfv 7282	. . . . . . . . . 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 591	. . . . . . . . 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 457	. . . . . . . 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 747	. . . . . . 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 7281	. . . . . . . . . . . . . 14 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ 𝑥 ∈ ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘𝑥)) = 𝑥)
20		f1ocnvfv2 7281	. . . . . . . . . . . . . 14 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘𝑦)) = 𝑦)
21	19, 20	anim12dan 617	. . . . . . . . . . . . 13 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘𝑥)) = 𝑥 ∧ (𝐹‘(^◡𝐹‘𝑦)) = 𝑦))
22		oveq12 7424	. . . . . . . . . . . . 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 712	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
25	24	adantll 712	. . . . . . . . . 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 7289	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ 𝑥 ∈ ran (1^st ‘𝑆)) → (^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅))
27		f1ocnvdm 7289	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))
28	26, 27	anim12dan 617	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅)))
29		eqid 2725	. . . . . . . . . . . . . . . 16 ⊢ (1^st ‘𝑅) = (1^st ‘𝑅)
30		eqid 2725	. . . . . . . . . . . . . . . 16 ⊢ (1^st ‘𝑆) = (1^st ‘𝑆)
31	29, 12, 30	rngohomadd 37498	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) ∧ ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
32	28, 31	sylan2 591	. . . . . . . . . . . . . 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 419	. . . . . . . . . . . . 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 1115	. . . . . . . . . . . 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 453	. . . . . . . . . . 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 405	. . . . . . . . . 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 2725	. . . . . . . . . . . . . . . 16 ⊢ ran (1^st ‘𝑆) = ran (1^st ‘𝑆)
38	30, 37	rngogcl 37441	. . . . . . . . . . . . . . 15 ⊢ ((𝑆 ∈ RingOps ∧ 𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆))
39	38	3expb 1117	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ∈ RingOps ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆))
40		f1ocnvfv2 7281	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
41	40	ancoms 457	. . . . . . . . . . . . . 14 ⊢ (((𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
42	39, 41	sylan 578	. . . . . . . . . . . . 13 ⊢ (((𝑆 ∈ RingOps ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
43	42	an32s 650	. . . . . . . . . . . 12 ⊢ (((𝑆 ∈ RingOps ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
44	43	adantlll 716	. . . . . . . . . . 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 718	. . . . . . . . . 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 2776	. . . . . . . . 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 6832	. . . . . . . . . . . 12 ⊢ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → 𝐹:ran (1^st ‘𝑅)–1-1→ran (1^st ‘𝑆))
48	47	ad2antlr 725	. . . . . . . . . . 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 7289	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
50	49	ancoms 457	. . . . . . . . . . . . . 14 ⊢ (((𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
51	39, 50	sylan 578	. . . . . . . . . . . . 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 650	. . . . . . . . . . . 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 716	. . . . . . . . . . 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 37441	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ RingOps ∧ (^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅)) → ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
55	54	3expb 1117	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ RingOps ∧ ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))) → ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
56	28, 55	sylan2 591	. . . . . . . . . . . . 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 466	. . . . . . . . . . . 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 717	. . . . . . . . . . 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 7267	. . . . . . . . . . 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 835	. . . . . . . . . 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 718	. . . . . . . . 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 231	. . . . . . . 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 7424	. . . . . . . . . . . . 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 712	. . . . . . . . . . 11 ⊢ (((𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
66	65	adantll 712	. . . . . . . . . 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 37499	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsHom 𝑆)) ∧ ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
68	28, 67	sylan2 591	. . . . . . . . . . . . . 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 419	. . . . . . . . . . . . 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 1115	. . . . . . . . . . . 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 453	. . . . . . . . . . 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 405	. . . . . . . . . 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 37430	. . . . . . . . . . . . . . 15 ⊢ ((𝑆 ∈ RingOps ∧ 𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆))
74	73	3expb 1117	. . . . . . . . . . . . . 14 ⊢ ((𝑆 ∈ RingOps ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆))
75		f1ocnvfv2 7281	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
76	75	ancoms 457	. . . . . . . . . . . . . 14 ⊢ (((𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
77	74, 76	sylan 578	. . . . . . . . . . . . 13 ⊢ (((𝑆 ∈ RingOps ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
78	77	an32s 650	. . . . . . . . . . . 12 ⊢ (((𝑆 ∈ RingOps ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
79	78	adantlll 716	. . . . . . . . . . 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 718	. . . . . . . . . 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 2776	. . . . . . . . 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 7289	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
83	82	ancoms 457	. . . . . . . . . . . . . 14 ⊢ (((𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
84	74, 83	sylan 578	. . . . . . . . . . . . 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 650	. . . . . . . . . . . 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 716	. . . . . . . . . . 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 37430	. . . . . . . . . . . . . . 15 ⊢ ((𝑅 ∈ RingOps ∧ (^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅)) → ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
88	87	3expb 1117	. . . . . . . . . . . . . 14 ⊢ ((𝑅 ∈ RingOps ∧ ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))) → ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦)) ∈ ran (1^st ‘𝑅))
89	28, 88	sylan2 591	. . . . . . . . . . . . 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 466	. . . . . . . . . . . 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 717	. . . . . . . . . . 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 7267	. . . . . . . . . . 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 835	. . . . . . . . . 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 718	. . . . . . . . 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 231	. . . . . . . 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 510	. . . . . . 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 3191	. . . . . 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 37494	. . . . . . . 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 457	. . . . . . 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 479	. . . . . 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 1339	. . . . 5 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ^◡𝐹 ∈ (𝑆 RingOpsHom 𝑅))
102	1	ad2antll 727	. . . . 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 510	. . . 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 411	. . 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 37507	. . 3 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → (𝐹 ∈ (𝑅 RingOpsIso 𝑆) ↔ (𝐹 ∈ (𝑅 RingOpsHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))))
106	30, 37, 29, 12	isrngoiso 37507	. . . 4 ⊢ ((𝑆 ∈ RingOps ∧ 𝑅 ∈ RingOps) → (^◡𝐹 ∈ (𝑆 RingOpsIso 𝑅) ↔ (^◡𝐹 ∈ (𝑆 RingOpsHom 𝑅) ∧ ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))))
107	106	ancoms 457	. . 3 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → (^◡𝐹 ∈ (𝑆 RingOpsIso 𝑅) ↔ (^◡𝐹 ∈ (𝑆 RingOpsHom 𝑅) ∧ ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))))
108	104, 105, 107	3imtr4d 293	. 2 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → (𝐹 ∈ (𝑅 RingOpsIso 𝑆) → ^◡𝐹 ∈ (𝑆 RingOpsIso 𝑅)))
109	108	3impia 1114	1 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RingOpsIso 𝑆)) → ^◡𝐹 ∈ (𝑆 RingOpsIso 𝑅))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 394 ∧ w3a 1084 = wceq 1533 ∈ wcel 2098 ∀wral 3051 ^◡ccnv 5671 ran crn 5673 ⟶wf 6538 –1-1→wf1 6539 –1-1-onto→wf1o 6541 ‘cfv 6542 (class class class)co 7415 1^st c1st 7987 2^nd c2nd 7988 GIdcgi 30342 RingOpscrngo 37423 RingOpsHom crngohom 37489 RingOpsIso crngoiso 37490

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1789 ax-4 1803 ax-5 1905 ax-6 1963 ax-7 2003 ax-8 2100 ax-9 2108 ax-10 2129 ax-11 2146 ax-12 2166 ax-ext 2696 ax-sep 5294 ax-nul 5301 ax-pow 5359 ax-pr 5423 ax-un 7737

This theorem depends on definitions: df-bi 206 df-an 395 df-or 846 df-3an 1086 df-tru 1536 df-fal 1546 df-ex 1774 df-nf 1778 df-sb 2060 df-mo 2528 df-eu 2557 df-clab 2703 df-cleq 2717 df-clel 2802 df-nfc 2877 df-ne 2931 df-ral 3052 df-rex 3061 df-rmo 3364 df-reu 3365 df-rab 3420 df-v 3465 df-sbc 3770 df-csb 3886 df-dif 3943 df-un 3945 df-in 3947 df-ss 3957 df-nul 4319 df-if 4525 df-pw 4600 df-sn 4625 df-pr 4627 df-op 4631 df-uni 4904 df-iun 4993 df-br 5144 df-opab 5206 df-mpt 5227 df-id 5570 df-xp 5678 df-rel 5679 df-cnv 5680 df-co 5681 df-dm 5682 df-rn 5683 df-res 5684 df-ima 5685 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 7371 df-ov 7418 df-oprab 7419 df-mpo 7420 df-1st 7989 df-2nd 7990 df-map 8843 df-grpo 30345 df-gid 30346 df-ablo 30397 df-ass 37372 df-exid 37374 df-mgmOLD 37378 df-sgrOLD 37390 df-mndo 37396 df-rngo 37424 df-rngohom 37492 df-rngoiso 37505

This theorem is referenced by: riscer 37517

W3C validator