Theorem rhmopp 31420

Description: A ring homomorphism is also a ring homomorphism for the opposite rings. (Contributed by Thierry Arnoux, 27-Oct-2017.)

Assertion

Ref	Expression
rhmopp	⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹 ∈ ((oppr‘𝑅) RingHom (oppr‘𝑆)))

Proof of Theorem rhmopp

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

Step	Hyp	Ref	Expression
1		eqid 2738	. 2 ⊢ (Base‘(oppr‘𝑅)) = (Base‘(oppr‘𝑅))
2		eqid 2738	. 2 ⊢ (1r‘(oppr‘𝑅)) = (1r‘(oppr‘𝑅))
3		eqid 2738	. 2 ⊢ (1r‘(oppr‘𝑆)) = (1r‘(oppr‘𝑆))
4		eqid 2738	. 2 ⊢ (.r‘(oppr‘𝑅)) = (.r‘(oppr‘𝑅))
5		eqid 2738	. 2 ⊢ (.r‘(oppr‘𝑆)) = (.r‘(oppr‘𝑆))
6		rhmrcl1 19878	. . 3 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝑅 ∈ Ring)
7		eqid 2738	. . . 4 ⊢ (oppr‘𝑅) = (oppr‘𝑅)
8	7	opprringb 19789	. . 3 ⊢ (𝑅 ∈ Ring ↔ (oppr‘𝑅) ∈ Ring)
9	6, 8	sylib 217	. 2 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → (oppr‘𝑅) ∈ Ring)
10		rhmrcl2 19879	. . 3 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝑆 ∈ Ring)
11		eqid 2738	. . . 4 ⊢ (oppr‘𝑆) = (oppr‘𝑆)
12	11	opprringb 19789	. . 3 ⊢ (𝑆 ∈ Ring ↔ (oppr‘𝑆) ∈ Ring)
13	10, 12	sylib 217	. 2 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → (oppr‘𝑆) ∈ Ring)
14		eqid 2738	. . . . 5 ⊢ (1r‘𝑅) = (1r‘𝑅)
15	7, 14	oppr1 19791	. . . 4 ⊢ (1r‘𝑅) = (1r‘(oppr‘𝑅))
16	15	eqcomi 2747	. . 3 ⊢ (1r‘(oppr‘𝑅)) = (1r‘𝑅)
17		eqid 2738	. . . . 5 ⊢ (1r‘𝑆) = (1r‘𝑆)
18	11, 17	oppr1 19791	. . . 4 ⊢ (1r‘𝑆) = (1r‘(oppr‘𝑆))
19	18	eqcomi 2747	. . 3 ⊢ (1r‘(oppr‘𝑆)) = (1r‘𝑆)
20	16, 19	rhm1 19889	. 2 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → (𝐹‘(1r‘(oppr‘𝑅))) = (1r‘(oppr‘𝑆)))
21		simpl 482	. . . 4 ⊢ ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ (𝑥 ∈ (Base‘(oppr‘𝑅)) ∧ 𝑦 ∈ (Base‘(oppr‘𝑅)))) → 𝐹 ∈ (𝑅 RingHom 𝑆))
22		simprr 769	. . . . 5 ⊢ ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ (𝑥 ∈ (Base‘(oppr‘𝑅)) ∧ 𝑦 ∈ (Base‘(oppr‘𝑅)))) → 𝑦 ∈ (Base‘(oppr‘𝑅)))
23		eqid 2738	. . . . . 6 ⊢ (Base‘𝑅) = (Base‘𝑅)
24	7, 23	opprbas 19784	. . . . 5 ⊢ (Base‘𝑅) = (Base‘(oppr‘𝑅))
25	22, 24	eleqtrrdi 2850	. . . 4 ⊢ ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ (𝑥 ∈ (Base‘(oppr‘𝑅)) ∧ 𝑦 ∈ (Base‘(oppr‘𝑅)))) → 𝑦 ∈ (Base‘𝑅))
26		simprl 767	. . . . 5 ⊢ ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ (𝑥 ∈ (Base‘(oppr‘𝑅)) ∧ 𝑦 ∈ (Base‘(oppr‘𝑅)))) → 𝑥 ∈ (Base‘(oppr‘𝑅)))
27	26, 24	eleqtrrdi 2850	. . . 4 ⊢ ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ (𝑥 ∈ (Base‘(oppr‘𝑅)) ∧ 𝑦 ∈ (Base‘(oppr‘𝑅)))) → 𝑥 ∈ (Base‘𝑅))
28		eqid 2738	. . . . 5 ⊢ (.r‘𝑅) = (.r‘𝑅)
29		eqid 2738	. . . . 5 ⊢ (.r‘𝑆) = (.r‘𝑆)
30	23, 28, 29	rhmmul 19886	. . . 4 ⊢ ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝑦 ∈ (Base‘𝑅) ∧ 𝑥 ∈ (Base‘𝑅)) → (𝐹‘(𝑦(.r‘𝑅)𝑥)) = ((𝐹‘𝑦)(.r‘𝑆)(𝐹‘𝑥)))
31	21, 25, 27, 30	syl3anc 1369	. . 3 ⊢ ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ (𝑥 ∈ (Base‘(oppr‘𝑅)) ∧ 𝑦 ∈ (Base‘(oppr‘𝑅)))) → (𝐹‘(𝑦(.r‘𝑅)𝑥)) = ((𝐹‘𝑦)(.r‘𝑆)(𝐹‘𝑥)))
32	23, 28, 7, 4	opprmul 19780	. . . 4 ⊢ (𝑥(.r‘(oppr‘𝑅))𝑦) = (𝑦(.r‘𝑅)𝑥)
33	32	fveq2i 6759	. . 3 ⊢ (𝐹‘(𝑥(.r‘(oppr‘𝑅))𝑦)) = (𝐹‘(𝑦(.r‘𝑅)𝑥))
34		eqid 2738	. . . 4 ⊢ (Base‘𝑆) = (Base‘𝑆)
35	34, 29, 11, 5	opprmul 19780	. . 3 ⊢ ((𝐹‘𝑥)(.r‘(oppr‘𝑆))(𝐹‘𝑦)) = ((𝐹‘𝑦)(.r‘𝑆)(𝐹‘𝑥))
36	31, 33, 35	3eqtr4g 2804	. 2 ⊢ ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ (𝑥 ∈ (Base‘(oppr‘𝑅)) ∧ 𝑦 ∈ (Base‘(oppr‘𝑅)))) → (𝐹‘(𝑥(.r‘(oppr‘𝑅))𝑦)) = ((𝐹‘𝑥)(.r‘(oppr‘𝑆))(𝐹‘𝑦)))
37		ringgrp 19703	. . . . 5 ⊢ ((oppr‘𝑅) ∈ Ring → (oppr‘𝑅) ∈ Grp)
38	9, 37	syl 17	. . . 4 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → (oppr‘𝑅) ∈ Grp)
39		ringgrp 19703	. . . . 5 ⊢ ((oppr‘𝑆) ∈ Ring → (oppr‘𝑆) ∈ Grp)
40	13, 39	syl 17	. . . 4 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → (oppr‘𝑆) ∈ Grp)
41	23, 34	rhmf 19885	. . . . 5 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹:(Base‘𝑅)⟶(Base‘𝑆))
42		rhmghm 19884	. . . . . . . . 9 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹 ∈ (𝑅 GrpHom 𝑆))
43	42	ad2antrr 722	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) → 𝐹 ∈ (𝑅 GrpHom 𝑆))
44		simplr 765	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) → 𝑥 ∈ (Base‘𝑅))
45		simpr 484	. . . . . . . 8 ⊢ (((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) → 𝑦 ∈ (Base‘𝑅))
46		eqid 2738	. . . . . . . . 9 ⊢ (+g‘𝑅) = (+g‘𝑅)
47		eqid 2738	. . . . . . . . 9 ⊢ (+g‘𝑆) = (+g‘𝑆)
48	23, 46, 47	ghmlin 18754	. . . . . . . 8 ⊢ ((𝐹 ∈ (𝑅 GrpHom 𝑆) ∧ 𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅)) → (𝐹‘(𝑥(+g‘𝑅)𝑦)) = ((𝐹‘𝑥)(+g‘𝑆)(𝐹‘𝑦)))
49	43, 44, 45, 48	syl3anc 1369	. . . . . . 7 ⊢ (((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝑥 ∈ (Base‘𝑅)) ∧ 𝑦 ∈ (Base‘𝑅)) → (𝐹‘(𝑥(+g‘𝑅)𝑦)) = ((𝐹‘𝑥)(+g‘𝑆)(𝐹‘𝑦)))
50	49	ralrimiva 3107	. . . . . 6 ⊢ ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝑥 ∈ (Base‘𝑅)) → ∀𝑦 ∈ (Base‘𝑅)(𝐹‘(𝑥(+g‘𝑅)𝑦)) = ((𝐹‘𝑥)(+g‘𝑆)(𝐹‘𝑦)))
51	50	ralrimiva 3107	. . . . 5 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → ∀𝑥 ∈ (Base‘𝑅)∀𝑦 ∈ (Base‘𝑅)(𝐹‘(𝑥(+g‘𝑅)𝑦)) = ((𝐹‘𝑥)(+g‘𝑆)(𝐹‘𝑦)))
52	41, 51	jca 511	. . . 4 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → (𝐹:(Base‘𝑅)⟶(Base‘𝑆) ∧ ∀𝑥 ∈ (Base‘𝑅)∀𝑦 ∈ (Base‘𝑅)(𝐹‘(𝑥(+g‘𝑅)𝑦)) = ((𝐹‘𝑥)(+g‘𝑆)(𝐹‘𝑦))))
53	38, 40, 52	jca31 514	. . 3 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → (((oppr‘𝑅) ∈ Grp ∧ (oppr‘𝑆) ∈ Grp) ∧ (𝐹:(Base‘𝑅)⟶(Base‘𝑆) ∧ ∀𝑥 ∈ (Base‘𝑅)∀𝑦 ∈ (Base‘𝑅)(𝐹‘(𝑥(+g‘𝑅)𝑦)) = ((𝐹‘𝑥)(+g‘𝑆)(𝐹‘𝑦)))))
54	11, 34	opprbas 19784	. . . 4 ⊢ (Base‘𝑆) = (Base‘(oppr‘𝑆))
55	7, 46	oppradd 19786	. . . 4 ⊢ (+g‘𝑅) = (+g‘(oppr‘𝑅))
56	11, 47	oppradd 19786	. . . 4 ⊢ (+g‘𝑆) = (+g‘(oppr‘𝑆))
57	24, 54, 55, 56	isghm 18749	. . 3 ⊢ (𝐹 ∈ ((oppr‘𝑅) GrpHom (oppr‘𝑆)) ↔ (((oppr‘𝑅) ∈ Grp ∧ (oppr‘𝑆) ∈ Grp) ∧ (𝐹:(Base‘𝑅)⟶(Base‘𝑆) ∧ ∀𝑥 ∈ (Base‘𝑅)∀𝑦 ∈ (Base‘𝑅)(𝐹‘(𝑥(+g‘𝑅)𝑦)) = ((𝐹‘𝑥)(+g‘𝑆)(𝐹‘𝑦)))))
58	53, 57	sylibr 233	. 2 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹 ∈ ((oppr‘𝑅) GrpHom (oppr‘𝑆)))
59	1, 2, 3, 4, 5, 9, 13, 20, 36, 58	isrhm2d 19887	1 ⊢ (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹 ∈ ((oppr‘𝑅) RingHom (oppr‘𝑆)))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1539   ∈ wcel 2108  ∀wral 3063  ⟶wf 6414  ‘cfv 6418  (class class class)co 7255  Basecbs 16840  +_gcplusg 16888  ._rcmulr 16889  Grpcgrp 18492   GrpHom cghm 18746  1_rcur 19652  Ringcrg 19698  opp_rcoppr 19776   RingHom crh 19871

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1799  ax-4 1813  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2110  ax-9 2118  ax-10 2139  ax-11 2156  ax-12 2173  ax-ext 2709  ax-rep 5205  ax-sep 5218  ax-nul 5225  ax-pow 5283  ax-pr 5347  ax-un 7566  ax-cnex 10858  ax-resscn 10859  ax-1cn 10860  ax-icn 10861  ax-addcl 10862  ax-addrcl 10863  ax-mulcl 10864  ax-mulrcl 10865  ax-mulcom 10866  ax-addass 10867  ax-mulass 10868  ax-distr 10869  ax-i2m1 10870  ax-1ne0 10871  ax-1rid 10872  ax-rnegex 10873  ax-rrecex 10874  ax-cnre 10875  ax-pre-lttri 10876  ax-pre-lttrn 10877  ax-pre-ltadd 10878  ax-pre-mulgt0 10879

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 844  df-3or 1086  df-3an 1087  df-tru 1542  df-fal 1552  df-ex 1784  df-nf 1788  df-sb 2069  df-mo 2540  df-eu 2569  df-clab 2716  df-cleq 2730  df-clel 2817  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3068  df-rex 3069  df-reu 3070  df-rmo 3071  df-rab 3072  df-v 3424  df-sbc 3712  df-csb 3829  df-dif 3886  df-un 3888  df-in 3890  df-ss 3900  df-pss 3902  df-nul 4254  df-if 4457  df-pw 4532  df-sn 4559  df-pr 4561  df-tp 4563  df-op 4565  df-uni 4837  df-iun 4923  df-br 5071  df-opab 5133  df-mpt 5154  df-tr 5188  df-id 5480  df-eprel 5486  df-po 5494  df-so 5495  df-fr 5535  df-we 5537  df-xp 5586  df-rel 5587  df-cnv 5588  df-co 5589  df-dm 5590  df-rn 5591  df-res 5592  df-ima 5593  df-pred 6191  df-ord 6254  df-on 6255  df-lim 6256  df-suc 6257  df-iota 6376  df-fun 6420  df-fn 6421  df-f 6422  df-f1 6423  df-fo 6424  df-f1o 6425  df-fv 6426  df-riota 7212  df-ov 7258  df-oprab 7259  df-mpo 7260  df-om 7688  df-2nd 7805  df-tpos 8013  df-frecs 8068  df-wrecs 8099  df-recs 8173  df-rdg 8212  df-er 8456  df-map 8575  df-en 8692  df-dom 8693  df-sdom 8694  df-pnf 10942  df-mnf 10943  df-xr 10944  df-ltxr 10945  df-le 10946  df-sub 11137  df-neg 11138  df-nn 11904  df-2 11966  df-3 11967  df-sets 16793  df-slot 16811  df-ndx 16823  df-base 16841  df-plusg 16901  df-mulr 16902  df-0g 17069  df-mgm 18241  df-sgrp 18290  df-mnd 18301  df-mhm 18345  df-grp 18495  df-ghm 18747  df-mgp 19636  df-ur 19653  df-ring 19700  df-oppr 19777  df-rnghom 19874

This theorem is referenced by:  elrhmunit  31421