Theorem unitlinv 20367

Description: A unit times its inverse is the ring unity. (Contributed by Mario Carneiro, 2-Dec-2014.)

Hypotheses

Ref	Expression
unitinvcl.1	⊢ 𝑈 = (Unit‘𝑅)
unitinvcl.2	⊢ 𝐼 = (invr‘𝑅)
unitinvcl.3	⊢ · = (.r‘𝑅)
unitinvcl.4	⊢ 1 = (1r‘𝑅)

Assertion

Ref	Expression
unitlinv	⊢ ((𝑅 ∈ Ring ∧ 𝑋 ∈ 𝑈) → ((𝐼‘𝑋) · 𝑋) = 1 )

Proof of Theorem unitlinv

Step	Hyp	Ref	Expression
1		unitinvcl.1	. . . 4 ⊢ 𝑈 = (Unit‘𝑅)
2		eqid 2741	. . . 4 ⊢ ((mulGrp‘𝑅) ↾s 𝑈) = ((mulGrp‘𝑅) ↾s 𝑈)
3	1, 2	unitgrp 20357	. . 3 ⊢ (𝑅 ∈ Ring → ((mulGrp‘𝑅) ↾s 𝑈) ∈ Grp)
4	1, 2	unitgrpbas 20356	. . . 4 ⊢ 𝑈 = (Base‘((mulGrp‘𝑅) ↾s 𝑈))
5	1	fvexi 6844	. . . . 5 ⊢ 𝑈 ∈ V
6		eqid 2741	. . . . . . 7 ⊢ (mulGrp‘𝑅) = (mulGrp‘𝑅)
7		unitinvcl.3	. . . . . . 7 ⊢ · = (.r‘𝑅)
8	6, 7	mgpplusg 20119	. . . . . 6 ⊢ · = (+g‘(mulGrp‘𝑅))
9	2, 8	ressplusg 17249	. . . . 5 ⊢ (𝑈 ∈ V → · = (+g‘((mulGrp‘𝑅) ↾s 𝑈)))
10	5, 9	ax-mp 5	. . . 4 ⊢ · = (+g‘((mulGrp‘𝑅) ↾s 𝑈))
11		eqid 2741	. . . 4 ⊢ (0g‘((mulGrp‘𝑅) ↾s 𝑈)) = (0g‘((mulGrp‘𝑅) ↾s 𝑈))
12		unitinvcl.2	. . . . 5 ⊢ 𝐼 = (invr‘𝑅)
13	1, 2, 12	invrfval 20363	. . . 4 ⊢ 𝐼 = (invg‘((mulGrp‘𝑅) ↾s 𝑈))
14	4, 10, 11, 13	grplinv 18960	. . 3 ⊢ ((((mulGrp‘𝑅) ↾s 𝑈) ∈ Grp ∧ 𝑋 ∈ 𝑈) → ((𝐼‘𝑋) · 𝑋) = (0g‘((mulGrp‘𝑅) ↾s 𝑈)))
15	3, 14	sylan 587	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝑋 ∈ 𝑈) → ((𝐼‘𝑋) · 𝑋) = (0g‘((mulGrp‘𝑅) ↾s 𝑈)))
16		unitinvcl.4	. . . 4 ⊢ 1 = (1r‘𝑅)
17	1, 2, 16	unitgrpid 20359	. . 3 ⊢ (𝑅 ∈ Ring → 1 = (0g‘((mulGrp‘𝑅) ↾s 𝑈)))
18	17	adantr 482	. 2 ⊢ ((𝑅 ∈ Ring ∧ 𝑋 ∈ 𝑈) → 1 = (0g‘((mulGrp‘𝑅) ↾s 𝑈)))
19	15, 18	eqtr4d 2779	1 ⊢ ((𝑅 ∈ Ring ∧ 𝑋 ∈ 𝑈) → ((𝐼‘𝑋) · 𝑋) = 1 )

Syntax hints:   → wi 4   ∧ wa 397   = wceq 1548   ∈ wcel 2121  Vcvv 3433  ‘cfv 6488  (class class class)co 7359   ↾_s cress 17195  +_gcplusg 17215  ._rcmulr 17216  0_gc0g 17397  Grpcgrp 18904  mulGrpcmgp 20115  1_rcur 20156  Ringcrg 20208  Unitcui 20329  inv_rcinvr 20361

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1803  ax-4 1817  ax-5 1918  ax-6 1975  ax-7 2016  ax-8 2123  ax-9 2131  ax-10 2154  ax-11 2170  ax-12 2191  ax-ext 2713  ax-rep 5201  ax-sep 5220  ax-nul 5230  ax-pow 5296  ax-pr 5364  ax-un 7681  ax-cnex 11090  ax-resscn 11091  ax-1cn 11092  ax-icn 11093  ax-addcl 11094  ax-addrcl 11095  ax-mulcl 11096  ax-mulrcl 11097  ax-mulcom 11098  ax-addass 11099  ax-mulass 11100  ax-distr 11101  ax-i2m1 11102  ax-1ne0 11103  ax-1rid 11104  ax-rnegex 11105  ax-rrecex 11106  ax-cnre 11107  ax-pre-lttri 11108  ax-pre-lttrn 11109  ax-pre-ltadd 11110  ax-pre-mulgt0 11111

This theorem depends on definitions:  df-bi 209  df-an 398  df-or 855  df-3or 1094  df-3an 1095  df-tru 1551  df-fal 1561  df-ex 1788  df-nf 1792  df-sb 2075  df-mo 2545  df-eu 2575  df-clab 2720  df-cleq 2733  df-clel 2816  df-nfc 2890  df-ne 2937  df-nel 3041  df-ral 3056  df-rex 3066  df-rmo 3346  df-reu 3347  df-rab 3394  df-v 3435  df-sbc 3725  df-csb 3833  df-dif 3887  df-un 3889  df-in 3891  df-ss 3901  df-pss 3904  df-nul 4264  df-if 4457  df-pw 4533  df-sn 4558  df-pr 4560  df-op 4564  df-uni 4841  df-iun 4925  df-br 5075  df-opab 5137  df-mpt 5156  df-tr 5182  df-id 5515  df-eprel 5520  df-po 5528  df-so 5529  df-fr 5573  df-we 5575  df-xp 5626  df-rel 5627  df-cnv 5628  df-co 5629  df-dm 5630  df-rn 5631  df-res 5632  df-ima 5633  df-pred 6255  df-ord 6316  df-on 6317  df-lim 6318  df-suc 6319  df-iota 6444  df-fun 6490  df-fn 6491  df-f 6492  df-f1 6493  df-fo 6494  df-f1o 6495  df-fv 6496  df-riota 7316  df-ov 7362  df-oprab 7363  df-mpo 7364  df-om 7810  df-2nd 7934  df-tpos 8168  df-frecs 8224  df-wrecs 8255  df-recs 8304  df-rdg 8343  df-er 8637  df-en 8888  df-dom 8889  df-sdom 8890  df-pnf 11177  df-mnf 11178  df-xr 11179  df-ltxr 11180  df-le 11181  df-sub 11375  df-neg 11376  df-nn 12170  df-2 12239  df-3 12240  df-sets 17129  df-slot 17147  df-ndx 17159  df-base 17175  df-ress 17196  df-plusg 17228  df-mulr 17229  df-0g 17399  df-mgm 18603  df-sgrp 18682  df-mnd 18698  df-grp 18907  df-minusg 18908  df-cmn 19751  df-abl 19752  df-mgp 20116  df-rng 20128  df-ur 20157  df-ring 20210  df-oppr 20311  df-dvdsr 20331  df-unit 20332  df-invr 20362

This theorem is referenced by:  ringunitnzdiv  20372  dvrcan1  20383  rhmunitinv  20486  subrginv  20563  subrgunit  20565  unitrrg  20678  drnginvrl  20731  ornglmullt  20844  matinv  22663  matunit  22664  slesolinv  22666  nrginvrcnlem  24677  uc1pmon1p  26138  kerunit  33410  dvdsruassoi  33469  lidlunitel  33508  unitmulrprm  33621  ply1unit  33668  lincresunit3lem3  48977