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

Theorem unitrrg 20042
Description: Units are regular elements. (Contributed by Stefan O'Rear, 22-Mar-2015.)
Hypotheses
Ref Expression
unitrrg.e 𝐸 = (RLReg‘𝑅)
unitrrg.u 𝑈 = (Unit‘𝑅)
Assertion
Ref Expression
unitrrg (𝑅 ∈ Ring → 𝑈𝐸)

Proof of Theorem unitrrg
Dummy variables 𝑥 𝑦 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2820 . . . . . 6 (Base‘𝑅) = (Base‘𝑅)
2 unitrrg.u . . . . . 6 𝑈 = (Unit‘𝑅)
31, 2unitcl 19388 . . . . 5 (𝑥𝑈𝑥 ∈ (Base‘𝑅))
43adantl 484 . . . 4 ((𝑅 ∈ Ring ∧ 𝑥𝑈) → 𝑥 ∈ (Base‘𝑅))
5 oveq2 7141 . . . . . 6 ((𝑥(.r𝑅)𝑦) = (0g𝑅) → (((invr𝑅)‘𝑥)(.r𝑅)(𝑥(.r𝑅)𝑦)) = (((invr𝑅)‘𝑥)(.r𝑅)(0g𝑅)))
6 eqid 2820 . . . . . . . . . . 11 (invr𝑅) = (invr𝑅)
7 eqid 2820 . . . . . . . . . . 11 (.r𝑅) = (.r𝑅)
8 eqid 2820 . . . . . . . . . . 11 (1r𝑅) = (1r𝑅)
92, 6, 7, 8unitlinv 19406 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑥𝑈) → (((invr𝑅)‘𝑥)(.r𝑅)𝑥) = (1r𝑅))
109adantr 483 . . . . . . . . 9 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → (((invr𝑅)‘𝑥)(.r𝑅)𝑥) = (1r𝑅))
1110oveq1d 7148 . . . . . . . 8 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → ((((invr𝑅)‘𝑥)(.r𝑅)𝑥)(.r𝑅)𝑦) = ((1r𝑅)(.r𝑅)𝑦))
12 simpll 765 . . . . . . . . 9 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → 𝑅 ∈ Ring)
132, 6, 1ringinvcl 19405 . . . . . . . . . 10 ((𝑅 ∈ Ring ∧ 𝑥𝑈) → ((invr𝑅)‘𝑥) ∈ (Base‘𝑅))
1413adantr 483 . . . . . . . . 9 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → ((invr𝑅)‘𝑥) ∈ (Base‘𝑅))
154adantr 483 . . . . . . . . 9 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → 𝑥 ∈ (Base‘𝑅))
16 simpr 487 . . . . . . . . 9 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → 𝑦 ∈ (Base‘𝑅))
171, 7ringass 19293 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ (((invr𝑅)‘𝑥) ∈ (Base‘𝑅) ∧ 𝑥 ∈ (Base‘𝑅) ∧ 𝑦 ∈ (Base‘𝑅))) → ((((invr𝑅)‘𝑥)(.r𝑅)𝑥)(.r𝑅)𝑦) = (((invr𝑅)‘𝑥)(.r𝑅)(𝑥(.r𝑅)𝑦)))
1812, 14, 15, 16, 17syl13anc 1368 . . . . . . . 8 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → ((((invr𝑅)‘𝑥)(.r𝑅)𝑥)(.r𝑅)𝑦) = (((invr𝑅)‘𝑥)(.r𝑅)(𝑥(.r𝑅)𝑦)))
191, 7, 8ringlidm 19300 . . . . . . . . 9 ((𝑅 ∈ Ring ∧ 𝑦 ∈ (Base‘𝑅)) → ((1r𝑅)(.r𝑅)𝑦) = 𝑦)
2019adantlr 713 . . . . . . . 8 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → ((1r𝑅)(.r𝑅)𝑦) = 𝑦)
2111, 18, 203eqtr3d 2863 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → (((invr𝑅)‘𝑥)(.r𝑅)(𝑥(.r𝑅)𝑦)) = 𝑦)
22 eqid 2820 . . . . . . . . 9 (0g𝑅) = (0g𝑅)
231, 7, 22ringrz 19317 . . . . . . . 8 ((𝑅 ∈ Ring ∧ ((invr𝑅)‘𝑥) ∈ (Base‘𝑅)) → (((invr𝑅)‘𝑥)(.r𝑅)(0g𝑅)) = (0g𝑅))
2412, 14, 23syl2anc 586 . . . . . . 7 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → (((invr𝑅)‘𝑥)(.r𝑅)(0g𝑅)) = (0g𝑅))
2521, 24eqeq12d 2836 . . . . . 6 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → ((((invr𝑅)‘𝑥)(.r𝑅)(𝑥(.r𝑅)𝑦)) = (((invr𝑅)‘𝑥)(.r𝑅)(0g𝑅)) ↔ 𝑦 = (0g𝑅)))
265, 25syl5ib 246 . . . . 5 (((𝑅 ∈ Ring ∧ 𝑥𝑈) ∧ 𝑦 ∈ (Base‘𝑅)) → ((𝑥(.r𝑅)𝑦) = (0g𝑅) → 𝑦 = (0g𝑅)))
2726ralrimiva 3169 . . . 4 ((𝑅 ∈ Ring ∧ 𝑥𝑈) → ∀𝑦 ∈ (Base‘𝑅)((𝑥(.r𝑅)𝑦) = (0g𝑅) → 𝑦 = (0g𝑅)))
28 unitrrg.e . . . . 5 𝐸 = (RLReg‘𝑅)
2928, 1, 7, 22isrrg 20037 . . . 4 (𝑥𝐸 ↔ (𝑥 ∈ (Base‘𝑅) ∧ ∀𝑦 ∈ (Base‘𝑅)((𝑥(.r𝑅)𝑦) = (0g𝑅) → 𝑦 = (0g𝑅))))
304, 27, 29sylanbrc 585 . . 3 ((𝑅 ∈ Ring ∧ 𝑥𝑈) → 𝑥𝐸)
3130ex 415 . 2 (𝑅 ∈ Ring → (𝑥𝑈𝑥𝐸))
3231ssrdv 3952 1 (𝑅 ∈ Ring → 𝑈𝐸)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 398   = wceq 1537  wcel 2114  wral 3125  wss 3913  cfv 6331  (class class class)co 7133  Basecbs 16462  .rcmulr 16545  0gc0g 16692  1rcur 19230  Ringcrg 19276  Unitcui 19368  invrcinvr 19400  RLRegcrlreg 20028
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1911  ax-6 1970  ax-7 2015  ax-8 2116  ax-9 2124  ax-10 2145  ax-11 2161  ax-12 2177  ax-ext 2792  ax-rep 5166  ax-sep 5179  ax-nul 5186  ax-pow 5242  ax-pr 5306  ax-un 7439  ax-cnex 10571  ax-resscn 10572  ax-1cn 10573  ax-icn 10574  ax-addcl 10575  ax-addrcl 10576  ax-mulcl 10577  ax-mulrcl 10578  ax-mulcom 10579  ax-addass 10580  ax-mulass 10581  ax-distr 10582  ax-i2m1 10583  ax-1ne0 10584  ax-1rid 10585  ax-rnegex 10586  ax-rrecex 10587  ax-cnre 10588  ax-pre-lttri 10589  ax-pre-lttrn 10590  ax-pre-ltadd 10591  ax-pre-mulgt0 10592
This theorem depends on definitions:  df-bi 209  df-an 399  df-or 844  df-3or 1084  df-3an 1085  df-tru 1540  df-ex 1781  df-nf 1785  df-sb 2070  df-mo 2622  df-eu 2653  df-clab 2799  df-cleq 2813  df-clel 2891  df-nfc 2959  df-ne 3007  df-nel 3111  df-ral 3130  df-rex 3131  df-reu 3132  df-rmo 3133  df-rab 3134  df-v 3475  df-sbc 3753  df-csb 3861  df-dif 3916  df-un 3918  df-in 3920  df-ss 3930  df-pss 3932  df-nul 4270  df-if 4444  df-pw 4517  df-sn 4544  df-pr 4546  df-tp 4548  df-op 4550  df-uni 4815  df-iun 4897  df-br 5043  df-opab 5105  df-mpt 5123  df-tr 5149  df-id 5436  df-eprel 5441  df-po 5450  df-so 5451  df-fr 5490  df-we 5492  df-xp 5537  df-rel 5538  df-cnv 5539  df-co 5540  df-dm 5541  df-rn 5542  df-res 5543  df-ima 5544  df-pred 6124  df-ord 6170  df-on 6171  df-lim 6172  df-suc 6173  df-iota 6290  df-fun 6333  df-fn 6334  df-f 6335  df-f1 6336  df-fo 6337  df-f1o 6338  df-fv 6339  df-riota 7091  df-ov 7136  df-oprab 7137  df-mpo 7138  df-om 7559  df-tpos 7870  df-wrecs 7925  df-recs 7986  df-rdg 8024  df-er 8267  df-en 8488  df-dom 8489  df-sdom 8490  df-pnf 10655  df-mnf 10656  df-xr 10657  df-ltxr 10658  df-le 10659  df-sub 10850  df-neg 10851  df-nn 11617  df-2 11679  df-3 11680  df-ndx 16465  df-slot 16466  df-base 16468  df-sets 16469  df-ress 16470  df-plusg 16557  df-mulr 16558  df-0g 16694  df-mgm 17831  df-sgrp 17880  df-mnd 17891  df-grp 18085  df-minusg 18086  df-mgp 19219  df-ur 19231  df-ring 19278  df-oppr 19352  df-dvdsr 19370  df-unit 19371  df-invr 19401  df-rlreg 20032
This theorem is referenced by:  drngdomn  20052  znrrg  20688  deg1invg  24686  ply1divalg  24717  uc1pmon1p  24731  fta1glem1  24745  ig1peu  24751  mon1psubm  39943
  Copyright terms: Public domain W3C validator