Theorem isunit 20289

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 6898	. . . 4 ⊢ (𝑋 ∈ (Unit‘𝑅) → 𝑅 ∈ dom Unit)
2		unit.1	. . . 4 ⊢ 𝑈 = (Unit‘𝑅)
3	1, 2	eleq2s 2847	. . 3 ⊢ (𝑋 ∈ 𝑈 → 𝑅 ∈ dom Unit)
4	3	elexd 3474	. 2 ⊢ (𝑋 ∈ 𝑈 → 𝑅 ∈ V)
5		df-br 5111	. . . 4 ⊢ (𝑋 ∥ 1 ↔ ⟨𝑋, 1 ⟩ ∈ ∥ )
6		elfvdm 6898	. . . . . 6 ⊢ (⟨𝑋, 1 ⟩ ∈ (∥r‘𝑅) → 𝑅 ∈ dom ∥r)
7		unit.3	. . . . . 6 ⊢ ∥ = (∥r‘𝑅)
8	6, 7	eleq2s 2847	. . . . 5 ⊢ (⟨𝑋, 1 ⟩ ∈ ∥ → 𝑅 ∈ dom ∥r)
9	8	elexd 3474	. . . 4 ⊢ (⟨𝑋, 1 ⟩ ∈ ∥ → 𝑅 ∈ V)
10	5, 9	sylbi 217	. . 3 ⊢ (𝑋 ∥ 1 → 𝑅 ∈ V)
11	10	adantr 480	. 2 ⊢ ((𝑋 ∥ 1 ∧ 𝑋𝐸 1 ) → 𝑅 ∈ V)
12		fveq2 6861	. . . . . . . . . 10 ⊢ (𝑟 = 𝑅 → (∥r‘𝑟) = (∥r‘𝑅))
13	12, 7	eqtr4di 2783	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (∥r‘𝑟) = ∥ )
14		fveq2 6861	. . . . . . . . . . . 12 ⊢ (𝑟 = 𝑅 → (oppr‘𝑟) = (oppr‘𝑅))
15		unit.4	. . . . . . . . . . . 12 ⊢ 𝑆 = (oppr‘𝑅)
16	14, 15	eqtr4di 2783	. . . . . . . . . . 11 ⊢ (𝑟 = 𝑅 → (oppr‘𝑟) = 𝑆)
17	16	fveq2d 6865	. . . . . . . . . 10 ⊢ (𝑟 = 𝑅 → (∥r‘(oppr‘𝑟)) = (∥r‘𝑆))
18		unit.5	. . . . . . . . . 10 ⊢ 𝐸 = (∥r‘𝑆)
19	17, 18	eqtr4di 2783	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (∥r‘(oppr‘𝑟)) = 𝐸)
20	13, 19	ineq12d 4187	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → ((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) = ( ∥ ∩ 𝐸))
21	20	cnveqd 5842	. . . . . . 7 ⊢ (𝑟 = 𝑅 → ◡((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) = ◡( ∥ ∩ 𝐸))
22		fveq2 6861	. . . . . . . . 9 ⊢ (𝑟 = 𝑅 → (1r‘𝑟) = (1r‘𝑅))
23		unit.2	. . . . . . . . 9 ⊢ 1 = (1r‘𝑅)
24	22, 23	eqtr4di 2783	. . . . . . . 8 ⊢ (𝑟 = 𝑅 → (1r‘𝑟) = 1 )
25	24	sneqd 4604	. . . . . . 7 ⊢ (𝑟 = 𝑅 → {(1r‘𝑟)} = { 1 })
26	21, 25	imaeq12d 6035	. . . . . 6 ⊢ (𝑟 = 𝑅 → (◡((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) “ {(1r‘𝑟)}) = (◡( ∥ ∩ 𝐸) “ { 1 }))
27		df-unit 20274	. . . . . 6 ⊢ Unit = (𝑟 ∈ V ↦ (◡((∥r‘𝑟) ∩ (∥r‘(oppr‘𝑟))) “ {(1r‘𝑟)}))
28	7	fvexi 6875	. . . . . . . . 9 ⊢ ∥ ∈ V
29	28	inex1 5275	. . . . . . . 8 ⊢ ( ∥ ∩ 𝐸) ∈ V
30	29	cnvex 7904	. . . . . . 7 ⊢ ◡( ∥ ∩ 𝐸) ∈ V
31	30	imaex 7893	. . . . . 6 ⊢ (◡( ∥ ∩ 𝐸) “ { 1 }) ∈ V
32	26, 27, 31	fvmpt 6971	. . . . 5 ⊢ (𝑅 ∈ V → (Unit‘𝑅) = (◡( ∥ ∩ 𝐸) “ { 1 }))
33	2, 32	eqtrid 2777	. . . 4 ⊢ (𝑅 ∈ V → 𝑈 = (◡( ∥ ∩ 𝐸) “ { 1 }))
34	33	eleq2d 2815	. . 3 ⊢ (𝑅 ∈ V → (𝑋 ∈ 𝑈 ↔ 𝑋 ∈ (◡( ∥ ∩ 𝐸) “ { 1 })))
35		inss1 4203	. . . . . 6 ⊢ ( ∥ ∩ 𝐸) ⊆ ∥
36	7	reldvdsr 20276	. . . . . 6 ⊢ Rel ∥
37		relss 5747	. . . . . 6 ⊢ (( ∥ ∩ 𝐸) ⊆ ∥ → (Rel ∥ → Rel ( ∥ ∩ 𝐸)))
38	35, 36, 37	mp2 9	. . . . 5 ⊢ Rel ( ∥ ∩ 𝐸)
39		eliniseg2 6080	. . . . 5 ⊢ (Rel ( ∥ ∩ 𝐸) → (𝑋 ∈ (◡( ∥ ∩ 𝐸) “ { 1 }) ↔ 𝑋( ∥ ∩ 𝐸) 1 ))
40	38, 39	ax-mp 5	. . . 4 ⊢ (𝑋 ∈ (◡( ∥ ∩ 𝐸) “ { 1 }) ↔ 𝑋( ∥ ∩ 𝐸) 1 )
41		brin 5162	. . . 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 1540   ∈ wcel 2109  Vcvv 3450   ∩ cin 3916   ⊆ wss 3917  {csn 4592  ⟨cop 4598   class class class wbr 5110  ^◡ccnv 5640  dom cdm 5641   “ cima 5644  Rel wrel 5646  ‘cfv 6514  1_rcur 20097  opp_rcoppr 20252  ∥_rcdsr 20270  Unitcui 20271

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2008  ax-8 2111  ax-9 2119  ax-10 2142  ax-11 2158  ax-12 2178  ax-ext 2702  ax-sep 5254  ax-nul 5264  ax-pow 5323  ax-pr 5390  ax-un 7714

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2066  df-mo 2534  df-eu 2563  df-clab 2709  df-cleq 2722  df-clel 2804  df-nfc 2879  df-ne 2927  df-ral 3046  df-rex 3055  df-rab 3409  df-v 3452  df-sbc 3757  df-csb 3866  df-dif 3920  df-un 3922  df-in 3924  df-ss 3934  df-nul 4300  df-if 4492  df-pw 4568  df-sn 4593  df-pr 4595  df-op 4599  df-uni 4875  df-br 5111  df-opab 5173  df-mpt 5192  df-id 5536  df-xp 5647  df-rel 5648  df-cnv 5649  df-co 5650  df-dm 5651  df-rn 5652  df-res 5653  df-ima 5654  df-iota 6467  df-fun 6516  df-fv 6522  df-dvdsr 20273  df-unit 20274

This theorem is referenced by:  1unit  20290  unitcl  20291  opprunit  20293  crngunit  20294  unitmulcl  20296  unitgrp  20299  unitnegcl  20313  unitpropd  20333  elrhmunit  20426  subrguss  20503  subrgunit  20506  isdrng2  20659  fidomndrng  20689  invrvald  22570  isunit2  33198  isdrng4  33252