Theorem isunit 20456

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 6917	. . . 4 ⊢ (𝑋 ∈ (Unit‘𝑅) → 𝑅 ∈ dom Unit)
2		unit.1	. . . 4 ⊢ 𝑈 = (Unit‘𝑅)
3	1, 2	eleq2s 2881	. . 3 ⊢ (𝑋 ∈ 𝑈 → 𝑅 ∈ dom Unit)
4	3	elexd 3478	. 2 ⊢ (𝑋 ∈ 𝑈 → 𝑅 ∈ V)
5		df-br 5111	. . . 4 ⊢ (𝑋 ∥ 1 ↔ ⟨𝑋, 1 ⟩ ∈ ∥ )
6		elfvdm 6917	. . . . . 6 ⊢ (⟨𝑋, 1 ⟩ ∈ (∥r‘𝑅) → 𝑅 ∈ dom ∥r)
7		unit.3	. . . . . 6 ⊢ ∥ = (∥r‘𝑅)
8	6, 7	eleq2s 2881	. . . . 5 ⊢ (⟨𝑋, 1 ⟩ ∈ ∥ → 𝑅 ∈ dom ∥r)
9	8	elexd 3478	. . . 4 ⊢ (⟨𝑋, 1 ⟩ ∈ ∥ → 𝑅 ∈ V)
10	5, 9	sylbi 220	. . 3 ⊢ (𝑋 ∥ 1 → 𝑅 ∈ V)
11	10	adantr 485	. 2 ⊢ ((𝑋 ∥ 1 ∧ 𝑋𝐸 1 ) → 𝑅 ∈ V)
12		fveq2 6883	. . . . . . . . . 10 ⊢ (𝑟 = 𝑅 → (∥r‘𝑟) = (∥r‘𝑅))
13	12, 7	eqtr4di 2816	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (∥r‘𝑟) = ∥ )
14		fveq2 6883	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝑅 → (oppr‘𝑟) = (oppr‘𝑅))
15		unit.4	. . . . . . . . . . . 12 ⊢ 𝑆 = (oppr‘𝑅)
16	14, 15	eqtr4di 2816	. . . . . . . . . . 11 ⊢ (𝑟 = 𝑅 → (oppr‘𝑟) = 𝑆)
17	16	fveq2d 6887	. . . . . . . . . 10 ⊢ (𝑟 = 𝑅 → (∥r‘(oppr‘𝑟)) = (∥r‘𝑆))
18		unit.5	. . . . . . . . . 10 ⊢ 𝐸 = (∥r‘𝑆)
19	17, 18	eqtr4di 2816	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (∥r‘(oppr‘𝑟)) = 𝐸)
20	13, 19	ineq12d 4175	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → ((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) = ( ∥ ∩ 𝐸))
21	20	cnveqd 5863	. . . . . . 7 ⊢ (𝑟 = 𝑅 → ◡((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) = ◡( ∥ ∩ 𝐸))
22		fveq2 6883	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (1r‘𝑟) = (1r‘𝑅))
23		unit.2	. . . . . . . . 9 ⊢ 1 = (1r‘𝑅)
24	22, 23	eqtr4di 2816	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (1r‘𝑟) = 1 )
25	24	sneqd 4602	. . . . . . 7 ⊢ (𝑟 = 𝑅 → {(1r‘𝑟)} = { 1 })
26	21, 25	imaeq12d 6065	. . . . . 6 ⊢ (𝑟 = 𝑅 → (◡((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) “ {(1r‘𝑟)}) = (◡( ∥ ∩ 𝐸) “ { 1 }))
27		df-unit 20441	. . . . . 6 ⊢ Unit = (𝑟 ∈ V ↦ (◡((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) “ {(1r‘𝑟)}))
28	7	fvexi 6897	. . . . . . . . 9 ⊢ ∥ ∈ V
29	28	inex1 5287	. . . . . . . 8 ⊢ ( ∥ ∩ 𝐸) ∈ V
30	29	cnvex 7923	. . . . . . 7 ⊢ ◡( ∥ ∩ 𝐸) ∈ V
31	30	imaex 7912	. . . . . 6 ⊢ (◡( ∥ ∩ 𝐸) “ { 1 }) ∈ V
32	26, 27, 31	fvmpt 6991	. . . . 5 ⊢ (𝑅 ∈ V → (Unit‘𝑅) = (◡( ∥ ∩ 𝐸) “ { 1 }))
33	2, 32	eqtrid 2810	. . . 4 ⊢ (𝑅 ∈ V → 𝑈 = (◡( ∥ ∩ 𝐸) “ { 1 }))
34	33	eleq2d 2849	. . 3 ⊢ (𝑅 ∈ V → (𝑋 ∈ 𝑈 ↔ 𝑋 ∈ (◡( ∥ ∩ 𝐸) “ { 1 })))
35		inss1 4190	. . . . . 6 ⊢ ( ∥ ∩ 𝐸) ⊆ ∥
36	7	reldvdsr 20443	. . . . . 6 ⊢ Rel ∥
37		relss 5770	. . . . . 6 ⊢ (( ∥ ∩ 𝐸) ⊆ ∥ → (Rel ∥ → Rel ( ∥ ∩ 𝐸)))
38	35, 36, 37	mp2 9	. . . . 5 ⊢ Rel ( ∥ ∩ 𝐸)
39		eliniseg2 6110	. . . . 5 ⊢ (Rel ( ∥ ∩ 𝐸) → (𝑋 ∈ (◡( ∥ ∩ 𝐸) “ { 1 }) ↔ 𝑋( ∥ ∩ 𝐸) 1 ))
40	38, 39	ax-mp 5	. . . 4 ⊢ (𝑋 ∈ (◡( ∥ ∩ 𝐸) “ { 1 }) ↔ 𝑋( ∥ ∩ 𝐸) 1 )
41		brin 5164	. . . 4 ⊢ (𝑋( ∥ ∩ 𝐸) 1 ↔ (𝑋 ∥ 1 ∧ 𝑋𝐸 1 ))
42	40, 41	bitri 278	. . 3 ⊢ (𝑋 ∈ (◡( ∥ ∩ 𝐸) “ { 1 }) ↔ (𝑋 ∥ 1 ∧ 𝑋𝐸 1 ))
43	34, 42	bitrdi 290	. 2 ⊢ (𝑅 ∈ V → (𝑋 ∈ 𝑈 ↔ (𝑋 ∥ 1 ∧ 𝑋𝐸 1 )))
44	4, 11, 43	pm5.21nii 381	1 ⊢ (𝑋 ∈ 𝑈 ↔ (𝑋 ∥ 1 ∧ 𝑋𝐸 1 ))

Syntax hints:   ↔ wb 209   ∧ wa 400   = wceq 1570   ∈ wcel 2143  Vcvv 3455   ∩ cin 3905   ⊆ wss 3906  {csn 4590  ⟨cop 4596   class class class wbr 5110  ^◡ccnv 5662  dom cdm 5663   “ cima 5666  Rel wrel 5668  ‘cfv 6538  1_rcur 20264  opp_rcoppr 20419  ∥_rcdsr 20437  Unitcui 20438

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1825  ax-4 1839  ax-5 1940  ax-6 1997  ax-7 2038  ax-8 2145  ax-9 2153  ax-10 2176  ax-11 2192  ax-12 2213  ax-ext 2735  ax-sep 5258  ax-nul 5270  ax-pow 5338  ax-pr 5406  ax-un 7734

This theorem depends on definitions:  df-bi 210  df-an 401  df-or 861  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1810  df-nf 1814  df-sb 2097  df-mo 2567  df-eu 2597  df-clab 2742  df-cleq 2755  df-clel 2838  df-nfc 2912  df-ne 2959  df-ral 3080  df-rex 3090  df-rab 3417  df-v 3457  df-sbc 3746  df-csb 3855  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4288  df-if 4489  df-pw 4565  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4874  df-br 5111  df-opab 5175  df-mpt 5194  df-id 5558  df-xp 5669  df-rel 5670  df-cnv 5671  df-co 5672  df-dm 5673  df-rn 5674  df-res 5675  df-ima 5676  df-iota 6494  df-fun 6540  df-fv 6546  df-dvdsr 20440  df-unit 20441

This theorem is referenced by:  1unit  20457  unitcl  20458  opprunit  20460  crngunit  20461  unitmulcl  20463  unitgrp  20466  unitnegcl  20480  unitpropd  20500  elrhmunit  20594  subrguss  20673  subrgunit  20676  isdrng4  20826  isdrng2  20830  fidomndrng  20858  invrvald  22814  isunit2  33537