Theorem isunit 20321

Description: Property of being a unit of a ring. A unit is an element that left- and right-divides one. (Contributed by Mario Carneiro, 1-Dec-2014.) (Revised by Mario Carneiro, 8-Dec-2015.)

Hypotheses

Ref	Expression
unit.1	⊢ 𝑈 = (Unit‘𝑅)
unit.2	⊢ 1 = (1r‘𝑅)
unit.3	⊢ ∥ = (∥r‘𝑅)
unit.4	⊢ 𝑆 = (oppr‘𝑅)
unit.5	⊢ 𝐸 = (∥r‘𝑆)

Assertion

Ref	Expression
isunit	⊢ (𝑋 ∈ 𝑈 ↔ (𝑋 ∥ 1 ∧ 𝑋𝐸 1 ))

Proof of Theorem isunit

Dummy variable 𝑟 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		elfvdm 6876	. . . 4 ⊢ (𝑋 ∈ (Unit‘𝑅) → 𝑅 ∈ dom Unit)
2		unit.1	. . . 4 ⊢ 𝑈 = (Unit‘𝑅)
3	1, 2	eleq2s 2855	. . 3 ⊢ (𝑋 ∈ 𝑈 → 𝑅 ∈ dom Unit)
4	3	elexd 3466	. 2 ⊢ (𝑋 ∈ 𝑈 → 𝑅 ∈ V)
5		df-br 5101	. . . 4 ⊢ (𝑋 ∥ 1 ↔ ⟨𝑋, 1 ⟩ ∈ ∥ )
6		elfvdm 6876	. . . . . 6 ⊢ (⟨𝑋, 1 ⟩ ∈ (∥r‘𝑅) → 𝑅 ∈ dom ∥r)
7		unit.3	. . . . . 6 ⊢ ∥ = (∥r‘𝑅)
8	6, 7	eleq2s 2855	. . . . 5 ⊢ (⟨𝑋, 1 ⟩ ∈ ∥ → 𝑅 ∈ dom ∥r)
9	8	elexd 3466	. . . 4 ⊢ (⟨𝑋, 1 ⟩ ∈ ∥ → 𝑅 ∈ V)
10	5, 9	sylbi 217	. . 3 ⊢ (𝑋 ∥ 1 → 𝑅 ∈ V)
11	10	adantr 480	. 2 ⊢ ((𝑋 ∥ 1 ∧ 𝑋𝐸 1 ) → 𝑅 ∈ V)
12		fveq2 6842	. . . . . . . . . 10 ⊢ (𝑟 = 𝑅 → (∥r‘𝑟) = (∥r‘𝑅))
13	12, 7	eqtr4di 2790	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (∥r‘𝑟) = ∥ )
14		fveq2 6842	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝑅 → (oppr‘𝑟) = (oppr‘𝑅))
15		unit.4	. . . . . . . . . . . 12 ⊢ 𝑆 = (oppr‘𝑅)
16	14, 15	eqtr4di 2790	. . . . . . . . . . 11 ⊢ (𝑟 = 𝑅 → (oppr‘𝑟) = 𝑆)
17	16	fveq2d 6846	. . . . . . . . . 10 ⊢ (𝑟 = 𝑅 → (∥r‘(oppr‘𝑟)) = (∥r‘𝑆))
18		unit.5	. . . . . . . . . 10 ⊢ 𝐸 = (∥r‘𝑆)
19	17, 18	eqtr4di 2790	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (∥r‘(oppr‘𝑟)) = 𝐸)
20	13, 19	ineq12d 4175	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → ((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) = ( ∥ ∩ 𝐸))
21	20	cnveqd 5832	. . . . . . 7 ⊢ (𝑟 = 𝑅 → ◡((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) = ◡( ∥ ∩ 𝐸))
22		fveq2 6842	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (1r‘𝑟) = (1r‘𝑅))
23		unit.2	. . . . . . . . 9 ⊢ 1 = (1r‘𝑅)
24	22, 23	eqtr4di 2790	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (1r‘𝑟) = 1 )
25	24	sneqd 4594	. . . . . . 7 ⊢ (𝑟 = 𝑅 → {(1r‘𝑟)} = { 1 })
26	21, 25	imaeq12d 6028	. . . . . 6 ⊢ (𝑟 = 𝑅 → (◡((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) “ {(1r‘𝑟)}) = (◡( ∥ ∩ 𝐸) “ { 1 }))
27		df-unit 20306	. . . . . 6 ⊢ Unit = (𝑟 ∈ V ↦ (◡((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) “ {(1r‘𝑟)}))
28	7	fvexi 6856	. . . . . . . . 9 ⊢ ∥ ∈ V
29	28	inex1 5264	. . . . . . . 8 ⊢ ( ∥ ∩ 𝐸) ∈ V
30	29	cnvex 7877	. . . . . . 7 ⊢ ◡( ∥ ∩ 𝐸) ∈ V
31	30	imaex 7866	. . . . . 6 ⊢ (◡( ∥ ∩ 𝐸) “ { 1 }) ∈ V
32	26, 27, 31	fvmpt 6949	. . . . 5 ⊢ (𝑅 ∈ V → (Unit‘𝑅) = (◡( ∥ ∩ 𝐸) “ { 1 }))
33	2, 32	eqtrid 2784	. . . 4 ⊢ (𝑅 ∈ V → 𝑈 = (◡( ∥ ∩ 𝐸) “ { 1 }))
34	33	eleq2d 2823	. . 3 ⊢ (𝑅 ∈ V → (𝑋 ∈ 𝑈 ↔ 𝑋 ∈ (◡( ∥ ∩ 𝐸) “ { 1 })))
35		inss1 4191	. . . . . 6 ⊢ ( ∥ ∩ 𝐸) ⊆ ∥
36	7	reldvdsr 20308	. . . . . 6 ⊢ Rel ∥
37		relss 5739	. . . . . 6 ⊢ (( ∥ ∩ 𝐸) ⊆ ∥ → (Rel ∥ → Rel ( ∥ ∩ 𝐸)))
38	35, 36, 37	mp2 9	. . . . 5 ⊢ Rel ( ∥ ∩ 𝐸)
39		eliniseg2 6073	. . . . 5 ⊢ (Rel ( ∥ ∩ 𝐸) → (𝑋 ∈ (◡( ∥ ∩ 𝐸) “ { 1 }) ↔ 𝑋( ∥ ∩ 𝐸) 1 ))
40	38, 39	ax-mp 5	. . . 4 ⊢ (𝑋 ∈ (◡( ∥ ∩ 𝐸) “ { 1 }) ↔ 𝑋( ∥ ∩ 𝐸) 1 )
41		brin 5152	. . . 4 ⊢ (𝑋( ∥ ∩ 𝐸) 1 ↔ (𝑋 ∥ 1 ∧ 𝑋𝐸 1 ))
42	40, 41	bitri 275	. . 3 ⊢ (𝑋 ∈ (◡( ∥ ∩ 𝐸) “ { 1 }) ↔ (𝑋 ∥ 1 ∧ 𝑋𝐸 1 ))
43	34, 42	bitrdi 287	. 2 ⊢ (𝑅 ∈ V → (𝑋 ∈ 𝑈 ↔ (𝑋 ∥ 1 ∧ 𝑋𝐸 1 )))
44	4, 11, 43	pm5.21nii 378	1 ⊢ (𝑋 ∈ 𝑈 ↔ (𝑋 ∥ 1 ∧ 𝑋𝐸 1 ))

Syntax hints:   ↔ wb 206   ∧ wa 395   = wceq 1542   ∈ wcel 2114  Vcvv 3442   ∩ cin 3902   ⊆ wss 3903  {csn 4582  ⟨cop 4588   class class class wbr 5100  ^◡ccnv 5631  dom cdm 5632   “ cima 5635  Rel wrel 5637  ‘cfv 6500  1_rcur 20128  opp_rcoppr 20284  ∥_rcdsr 20302  Unitcui 20303

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 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-ral 3053  df-rex 3063  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-op 4589  df-uni 4866  df-br 5101  df-opab 5163  df-mpt 5182  df-id 5527  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-iota 6456  df-fun 6502  df-fv 6508  df-dvdsr 20305  df-unit 20306

This theorem is referenced by:  1unit  20322  unitcl  20323  opprunit  20325  crngunit  20326  unitmulcl  20328  unitgrp  20331  unitnegcl  20345  unitpropd  20365  elrhmunit  20455  subrguss  20532  subrgunit  20535  isdrng2  20688  fidomndrng  20718  invrvald  22632  isunit2  33333  isdrng4  33388