MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  elrhmunit Structured version   Visualization version   GIF version

Theorem elrhmunit 20179
Description: Ring homomorphisms preserve unit elements. (Contributed by Thierry Arnoux, 23-Oct-2017.)
Assertion
Ref Expression
elrhmunit ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → (𝐹𝐴) ∈ (Unit‘𝑆))

Proof of Theorem elrhmunit
StepHypRef Expression
1 simpl 483 . . . 4 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → 𝐹 ∈ (𝑅 RingHom 𝑆))
2 eqid 2736 . . . . . 6 (Base‘𝑅) = (Base‘𝑅)
3 eqid 2736 . . . . . 6 (Unit‘𝑅) = (Unit‘𝑅)
42, 3unitss 20085 . . . . 5 (Unit‘𝑅) ⊆ (Base‘𝑅)
5 simpr 485 . . . . 5 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → 𝐴 ∈ (Unit‘𝑅))
64, 5sselid 3941 . . . 4 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → 𝐴 ∈ (Base‘𝑅))
7 rhmrcl1 20146 . . . . 5 (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝑅 ∈ Ring)
8 eqid 2736 . . . . . 6 (1r𝑅) = (1r𝑅)
92, 8ringidcl 19985 . . . . 5 (𝑅 ∈ Ring → (1r𝑅) ∈ (Base‘𝑅))
101, 7, 93syl 18 . . . 4 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → (1r𝑅) ∈ (Base‘𝑅))
11 eqid 2736 . . . . . . 7 (∥r𝑅) = (∥r𝑅)
12 eqid 2736 . . . . . . 7 (oppr𝑅) = (oppr𝑅)
13 eqid 2736 . . . . . . 7 (∥r‘(oppr𝑅)) = (∥r‘(oppr𝑅))
143, 8, 11, 12, 13isunit 20082 . . . . . 6 (𝐴 ∈ (Unit‘𝑅) ↔ (𝐴(∥r𝑅)(1r𝑅) ∧ 𝐴(∥r‘(oppr𝑅))(1r𝑅)))
155, 14sylib 217 . . . . 5 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → (𝐴(∥r𝑅)(1r𝑅) ∧ 𝐴(∥r‘(oppr𝑅))(1r𝑅)))
1615simpld 495 . . . 4 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → 𝐴(∥r𝑅)(1r𝑅))
17 eqid 2736 . . . . 5 (∥r𝑆) = (∥r𝑆)
182, 11, 17rhmdvdsr 20177 . . . 4 (((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Base‘𝑅) ∧ (1r𝑅) ∈ (Base‘𝑅)) ∧ 𝐴(∥r𝑅)(1r𝑅)) → (𝐹𝐴)(∥r𝑆)(𝐹‘(1r𝑅)))
191, 6, 10, 16, 18syl31anc 1373 . . 3 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → (𝐹𝐴)(∥r𝑆)(𝐹‘(1r𝑅)))
20 eqid 2736 . . . . . 6 (1r𝑆) = (1r𝑆)
218, 20rhm1 20158 . . . . 5 (𝐹 ∈ (𝑅 RingHom 𝑆) → (𝐹‘(1r𝑅)) = (1r𝑆))
2221breq2d 5116 . . . 4 (𝐹 ∈ (𝑅 RingHom 𝑆) → ((𝐹𝐴)(∥r𝑆)(𝐹‘(1r𝑅)) ↔ (𝐹𝐴)(∥r𝑆)(1r𝑆)))
2322adantr 481 . . 3 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → ((𝐹𝐴)(∥r𝑆)(𝐹‘(1r𝑅)) ↔ (𝐹𝐴)(∥r𝑆)(1r𝑆)))
2419, 23mpbid 231 . 2 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → (𝐹𝐴)(∥r𝑆)(1r𝑆))
25 rhmopp 20178 . . . . 5 (𝐹 ∈ (𝑅 RingHom 𝑆) → 𝐹 ∈ ((oppr𝑅) RingHom (oppr𝑆)))
2625adantr 481 . . . 4 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → 𝐹 ∈ ((oppr𝑅) RingHom (oppr𝑆)))
2715simprd 496 . . . 4 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → 𝐴(∥r‘(oppr𝑅))(1r𝑅))
2812, 2opprbas 20052 . . . . 5 (Base‘𝑅) = (Base‘(oppr𝑅))
29 eqid 2736 . . . . 5 (∥r‘(oppr𝑆)) = (∥r‘(oppr𝑆))
3028, 13, 29rhmdvdsr 20177 . . . 4 (((𝐹 ∈ ((oppr𝑅) RingHom (oppr𝑆)) ∧ 𝐴 ∈ (Base‘𝑅) ∧ (1r𝑅) ∈ (Base‘𝑅)) ∧ 𝐴(∥r‘(oppr𝑅))(1r𝑅)) → (𝐹𝐴)(∥r‘(oppr𝑆))(𝐹‘(1r𝑅)))
3126, 6, 10, 27, 30syl31anc 1373 . . 3 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → (𝐹𝐴)(∥r‘(oppr𝑆))(𝐹‘(1r𝑅)))
3221breq2d 5116 . . . 4 (𝐹 ∈ (𝑅 RingHom 𝑆) → ((𝐹𝐴)(∥r‘(oppr𝑆))(𝐹‘(1r𝑅)) ↔ (𝐹𝐴)(∥r‘(oppr𝑆))(1r𝑆)))
3332adantr 481 . . 3 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → ((𝐹𝐴)(∥r‘(oppr𝑆))(𝐹‘(1r𝑅)) ↔ (𝐹𝐴)(∥r‘(oppr𝑆))(1r𝑆)))
3431, 33mpbid 231 . 2 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → (𝐹𝐴)(∥r‘(oppr𝑆))(1r𝑆))
35 eqid 2736 . . 3 (Unit‘𝑆) = (Unit‘𝑆)
36 eqid 2736 . . 3 (oppr𝑆) = (oppr𝑆)
3735, 20, 17, 36, 29isunit 20082 . 2 ((𝐹𝐴) ∈ (Unit‘𝑆) ↔ ((𝐹𝐴)(∥r𝑆)(1r𝑆) ∧ (𝐹𝐴)(∥r‘(oppr𝑆))(1r𝑆)))
3824, 34, 37sylanbrc 583 1 ((𝐹 ∈ (𝑅 RingHom 𝑆) ∧ 𝐴 ∈ (Unit‘𝑅)) → (𝐹𝐴) ∈ (Unit‘𝑆))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  wcel 2106   class class class wbr 5104  cfv 6494  (class class class)co 7354  Basecbs 17080  1rcur 19909  Ringcrg 19960  opprcoppr 20044  rcdsr 20063  Unitcui 20064   RingHom crh 20139
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 2707  ax-rep 5241  ax-sep 5255  ax-nul 5262  ax-pow 5319  ax-pr 5383  ax-un 7669  ax-cnex 11104  ax-resscn 11105  ax-1cn 11106  ax-icn 11107  ax-addcl 11108  ax-addrcl 11109  ax-mulcl 11110  ax-mulrcl 11111  ax-mulcom 11112  ax-addass 11113  ax-mulass 11114  ax-distr 11115  ax-i2m1 11116  ax-1ne0 11117  ax-1rid 11118  ax-rnegex 11119  ax-rrecex 11120  ax-cnre 11121  ax-pre-lttri 11122  ax-pre-lttrn 11123  ax-pre-ltadd 11124  ax-pre-mulgt0 11125
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2888  df-ne 2943  df-nel 3049  df-ral 3064  df-rex 3073  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3446  df-sbc 3739  df-csb 3855  df-dif 3912  df-un 3914  df-in 3916  df-ss 3926  df-pss 3928  df-nul 4282  df-if 4486  df-pw 4561  df-sn 4586  df-pr 4588  df-op 4592  df-uni 4865  df-iun 4955  df-br 5105  df-opab 5167  df-mpt 5188  df-tr 5222  df-id 5530  df-eprel 5536  df-po 5544  df-so 5545  df-fr 5587  df-we 5589  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6252  df-ord 6319  df-on 6320  df-lim 6321  df-suc 6322  df-iota 6446  df-fun 6496  df-fn 6497  df-f 6498  df-f1 6499  df-fo 6500  df-f1o 6501  df-fv 6502  df-riota 7310  df-ov 7357  df-oprab 7358  df-mpo 7359  df-om 7800  df-2nd 7919  df-tpos 8154  df-frecs 8209  df-wrecs 8240  df-recs 8314  df-rdg 8353  df-er 8645  df-map 8764  df-en 8881  df-dom 8882  df-sdom 8883  df-pnf 11188  df-mnf 11189  df-xr 11190  df-ltxr 11191  df-le 11192  df-sub 11384  df-neg 11385  df-nn 12151  df-2 12213  df-3 12214  df-sets 17033  df-slot 17051  df-ndx 17063  df-base 17081  df-plusg 17143  df-mulr 17144  df-0g 17320  df-mgm 18494  df-sgrp 18543  df-mnd 18554  df-mhm 18598  df-grp 18748  df-ghm 19002  df-mgp 19893  df-ur 19910  df-ring 19962  df-oppr 20045  df-dvdsr 20066  df-unit 20067  df-rnghom 20142
This theorem is referenced by:  rhmunitinv  20180  qqhval2lem  32453  fldhmf1  40536
  Copyright terms: Public domain W3C validator