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 36837

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

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

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

Step	Hyp	Ref	Expression
1		f1ocnv 6842	. . . . . . . 8 ⊢ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))
2		f1of 6830	. . . . . . . 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) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ^◡𝐹:ran (1^st ‘𝑆)⟶ran (1^st ‘𝑅))
5		eqid 2732	. . . . . . . . . 10 ⊢ (2^nd ‘𝑅) = (2^nd ‘𝑅)
6		eqid 2732	. . . . . . . . . 10 ⊢ (GId‘(2^nd ‘𝑅)) = (GId‘(2^nd ‘𝑅))
7		eqid 2732	. . . . . . . . . 10 ⊢ (2^nd ‘𝑆) = (2^nd ‘𝑆)
8		eqid 2732	. . . . . . . . . 10 ⊢ (GId‘(2^nd ‘𝑆)) = (GId‘(2^nd ‘𝑆))
9	5, 6, 7, 8	rngohom1 36824	. . . . . . . . 9 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RngHom 𝑆)) → (𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)))
10	9	3expa 1118	. . . . . . . 8 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ 𝐹 ∈ (𝑅 RngHom 𝑆)) → (𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)))
11	10	adantrr 715	. . . . . . 7 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → (𝐹‘(GId‘(2^nd ‘𝑅))) = (GId‘(2^nd ‘𝑆)))
12		eqid 2732	. . . . . . . . . . 11 ⊢ ran (1^st ‘𝑅) = ran (1^st ‘𝑅)
13	12, 5, 6	rngo1cl 36795	. . . . . . . . . 10 ⊢ (𝑅 ∈ RingOps → (GId‘(2^nd ‘𝑅)) ∈ ran (1^st ‘𝑅))
14		f1ocnvfv 7272	. . . . . . . . . 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 459	. . . . . . . 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) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹: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) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → (^◡𝐹‘(GId‘(2^nd ‘𝑆))) = (GId‘(2^nd ‘𝑅)))
19		f1ocnvfv2 7271	. . . . . . . . . . . . . 14 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ 𝑥 ∈ ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘𝑥)) = 𝑥)
20		f1ocnvfv2 7271	. . . . . . . . . . . . . 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 7414	. . . . . . . . . . . . 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 ⊢ (((𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹: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) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
26		f1ocnvdm 7279	. . . . . . . . . . . . . . . 16 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ 𝑥 ∈ ran (1^st ‘𝑆)) → (^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅))
27		f1ocnvdm 7279	. . . . . . . . . . . . . . . 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 2732	. . . . . . . . . . . . . . . 16 ⊢ (1^st ‘𝑅) = (1^st ‘𝑅)
30		eqid 2732	. . . . . . . . . . . . . . . 16 ⊢ (1^st ‘𝑆) = (1^st ‘𝑆)
31	29, 12, 30	rngohomadd 36825	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RngHom 𝑆)) ∧ ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
32	28, 31	sylan2 593	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RngHom 𝑆)) ∧ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)))) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
33	32	exp32 421	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RngHom 𝑆)) → (𝐹: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) ∧ 𝐹 ∈ (𝑅 RngHom 𝑆)) → (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → ((𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))))
35	34	impr 455	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ((𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦)))))
36	35	imp 407	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(1^st ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
37		eqid 2732	. . . . . . . . . . . . . . . 16 ⊢ ran (1^st ‘𝑆) = ran (1^st ‘𝑆)
38	30, 37	rngogcl 36768	. . . . . . . . . . . . . . 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 7271	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
41	40	ancoms 459	. . . . . . . . . . . . . 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 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) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝑥(1^st ‘𝑆)𝑦))
46	25, 36, 45	3eqtr4rd 2783	. . . . . . . . 9 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦))) = (𝐹‘((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦))))
47		f1of1 6829	. . . . . . . . . . . 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 7279	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(1^st ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
50	49	ancoms 459	. . . . . . . . . . . . . 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 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 36768	. . . . . . . . . . . . . . 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 468	. . . . . . . . . . . 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 7257	. . . . . . . . . . 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) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹: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) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (^◡𝐹‘(𝑥(1^st ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(1^st ‘𝑅)(^◡𝐹‘𝑦)))
63		oveq12 7414	. . . . . . . . . . . . 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 ⊢ (((𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹: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) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹: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 36826	. . . . . . . . . . . . . . 15 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RngHom 𝑆)) ∧ ((^◡𝐹‘𝑥) ∈ ran (1^st ‘𝑅) ∧ (^◡𝐹‘𝑦) ∈ ran (1^st ‘𝑅))) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
68	28, 67	sylan2 593	. . . . . . . . . . . . . 14 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RngHom 𝑆)) ∧ (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)))) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
69	68	exp32 421	. . . . . . . . . . . . 13 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RngHom 𝑆)) → (𝐹: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) ∧ 𝐹 ∈ (𝑅 RngHom 𝑆)) → (𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) → ((𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))))
71	70	impr 455	. . . . . . . . . . 11 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ((𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆)) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦)))))
72	71	imp 407	. . . . . . . . . 10 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))) = ((𝐹‘(^◡𝐹‘𝑥))(2^nd ‘𝑆)(𝐹‘(^◡𝐹‘𝑦))))
73	30, 7, 37	rngocl 36757	. . . . . . . . . . . . . . 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 7271	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
76	75	ancoms 459	. . . . . . . . . . . . . 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 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) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝑥(2^nd ‘𝑆)𝑦))
81	66, 72, 80	3eqtr4rd 2783	. . . . . . . . 9 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (𝐹‘(^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦))) = (𝐹‘((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦))))
82		f1ocnvdm 7279	. . . . . . . . . . . . . . 15 ⊢ ((𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆) ∧ (𝑥(2^nd ‘𝑆)𝑦) ∈ ran (1^st ‘𝑆)) → (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) ∈ ran (1^st ‘𝑅))
83	82	ancoms 459	. . . . . . . . . . . . . 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 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 36757	. . . . . . . . . . . . . . 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 468	. . . . . . . . . . . 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 7257	. . . . . . . . . . 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) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹: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) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) ∧ (𝑥 ∈ ran (1^st ‘𝑆) ∧ 𝑦 ∈ ran (1^st ‘𝑆))) → (^◡𝐹‘(𝑥(2^nd ‘𝑆)𝑦)) = ((^◡𝐹‘𝑥)(2^nd ‘𝑅)(^◡𝐹‘𝑦)))
96	62, 95	jca 512	. . . . . . 7 ⊢ ((((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹: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 3200	. . . . . 6 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹: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 36821	. . . . . . . 8 ⊢ ((𝑆 ∈ RingOps ∧ 𝑅 ∈ RingOps) → (^◡𝐹 ∈ (𝑆 RngHom 𝑅) ↔ (^◡𝐹: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 459	. . . . . . 7 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → (^◡𝐹 ∈ (𝑆 RngHom 𝑅) ↔ (^◡𝐹: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 481	. . . . . 6 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → (^◡𝐹 ∈ (𝑆 RngHom 𝑅) ↔ (^◡𝐹: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 1342	. . . . 5 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ^◡𝐹 ∈ (𝑆 RngHom 𝑅))
102	1	ad2antll 727	. . . . 5 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))
103	101, 102	jca 512	. . . 4 ⊢ (((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) ∧ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))) → (^◡𝐹 ∈ (𝑆 RngHom 𝑅) ∧ ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅)))
104	103	ex 413	. . 3 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → ((𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆)) → (^◡𝐹 ∈ (𝑆 RngHom 𝑅) ∧ ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))))
105	29, 12, 30, 37	isrngoiso 36834	. . 3 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → (𝐹 ∈ (𝑅 RngIso 𝑆) ↔ (𝐹 ∈ (𝑅 RngHom 𝑆) ∧ 𝐹:ran (1^st ‘𝑅)–1-1-onto→ran (1^st ‘𝑆))))
106	30, 37, 29, 12	isrngoiso 36834	. . . 4 ⊢ ((𝑆 ∈ RingOps ∧ 𝑅 ∈ RingOps) → (^◡𝐹 ∈ (𝑆 RngIso 𝑅) ↔ (^◡𝐹 ∈ (𝑆 RngHom 𝑅) ∧ ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))))
107	106	ancoms 459	. . 3 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → (^◡𝐹 ∈ (𝑆 RngIso 𝑅) ↔ (^◡𝐹 ∈ (𝑆 RngHom 𝑅) ∧ ^◡𝐹:ran (1^st ‘𝑆)–1-1-onto→ran (1^st ‘𝑅))))
108	104, 105, 107	3imtr4d 293	. 2 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps) → (𝐹 ∈ (𝑅 RngIso 𝑆) → ^◡𝐹 ∈ (𝑆 RngIso 𝑅)))
109	108	3impia 1117	1 ⊢ ((𝑅 ∈ RingOps ∧ 𝑆 ∈ RingOps ∧ 𝐹 ∈ (𝑅 RngIso 𝑆)) → ^◡𝐹 ∈ (𝑆 RngIso 𝑅))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 ∧ w3a 1087 = wceq 1541 ∈ wcel 2106 ∀wral 3061 ^◡ccnv 5674 ran crn 5676 ⟶wf 6536 –1-1→wf1 6537 –1-1-onto→wf1o 6539 ‘cfv 6540 (class class class)co 7405 1^st c1st 7969 2^nd c2nd 7970 GIdcgi 29730 RingOpscrngo 36750 RngHom crnghom 36816 RngIso crngiso 36817

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 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-sep 5298 ax-nul 5305 ax-pow 5362 ax-pr 5426 ax-un 7721

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-ral 3062 df-rex 3071 df-rmo 3376 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3777 df-csb 3893 df-dif 3950 df-un 3952 df-in 3954 df-ss 3964 df-nul 4322 df-if 4528 df-pw 4603 df-sn 4628 df-pr 4630 df-op 4634 df-uni 4908 df-iun 4998 df-br 5148 df-opab 5210 df-mpt 5231 df-id 5573 df-xp 5681 df-rel 5682 df-cnv 5683 df-co 5684 df-dm 5685 df-rn 5686 df-res 5687 df-ima 5688 df-iota 6492 df-fun 6542 df-fn 6543 df-f 6544 df-f1 6545 df-fo 6546 df-f1o 6547 df-fv 6548 df-riota 7361 df-ov 7408 df-oprab 7409 df-mpo 7410 df-1st 7971 df-2nd 7972 df-map 8818 df-grpo 29733 df-gid 29734 df-ablo 29785 df-ass 36699 df-exid 36701 df-mgmOLD 36705 df-sgrOLD 36717 df-mndo 36723 df-rngo 36751 df-rngohom 36819 df-rngoiso 36832

This theorem is referenced by: riscer 36844

W3C validator