Theorem drngunit 20869

Description: Elementhood in the set of units when 𝑅 is a division ring. (Contributed by Mario Carneiro, 2-Dec-2014.)

Hypotheses

Ref	Expression
isdrng.b	⊢ 𝐵 = (Base‘𝑅)
isdrng.u	⊢ 𝑈 = (Unit‘𝑅)
isdrng.z	⊢ 0 = (0g‘𝑅)

Assertion

Ref	Expression
drngunit	⊢ (𝑅 ∈ DivRing → (𝑋 ∈ 𝑈 ↔ (𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 )))

Proof of Theorem drngunit

Step	Hyp	Ref	Expression
1		isdrng.b	. . . . 5 ⊢ 𝐵 = (Base‘𝑅)
2		isdrng.u	. . . . 5 ⊢ 𝑈 = (Unit‘𝑅)
3		isdrng.z	. . . . 5 ⊢ 0 = (0g‘𝑅)
4	1, 2, 3	isdrng 20868	. . . 4 ⊢ (𝑅 ∈ DivRing ↔ (𝑅 ∈ Ring ∧ 𝑈 = (𝐵 ∖ { 0 })))
5	4	simprbi 503	. . 3 ⊢ (𝑅 ∈ DivRing → 𝑈 = (𝐵 ∖ { 0 }))
6	5	eleq2d 2852	. 2 ⊢ (𝑅 ∈ DivRing → (𝑋 ∈ 𝑈 ↔ 𝑋 ∈ (𝐵 ∖ { 0 })))
7		eldifsn 4758	. 2 ⊢ (𝑋 ∈ (𝐵 ∖ { 0 }) ↔ (𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 ))
8	6, 7	bitrdi 290	1 ⊢ (𝑅 ∈ DivRing → (𝑋 ∈ 𝑈 ↔ (𝑋 ∈ 𝐵 ∧ 𝑋 ≠ 0 )))

This proof depends on syntax axioms:   → wi 4   ↔ wb 209   ∧ wa 401   = wceq 1570   ∈ wcel 2146   ≠ wne 2961   ∖ cdif 3905  {csn 4594  ‘cfv 6543  Basecbs 17294  0_gc0g 17517  Ringcrg 20346  Unitcui 20470  DivRingcdr 20864

This proof depends on axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1828  ax-4 1842  ax-5 1943  ax-6 2000  ax-7 2041  ax-8 2148  ax-9 2156  ax-ext 2738

This proof depends on definitions:  df-bi 210  df-an 402  df-or 862  df-3an 1105  df-tru 1573  df-fal 1583  df-ex 1813  df-sb 2100  df-clab 2745  df-cleq 2758  df-clel 2841  df-ne 2962  df-rab 3420  df-v 3460  df-dif 3911  df-un 3913  df-ss 3925  df-nul 4290  df-if 4493  df-sn 4595  df-pr 4597  df-op 4601  df-uni 4878  df-br 5115  df-iota 6499  df-fv 6551  df-drng 20866

This theorem is used by:  drngunz  20884  drnginvrcl  20894  drnginvrn0  20895  drnginvrl  20897  drnginvrr  20898  issubdrg  20920  sdrgunit  20936  abvdiv  20969  ornglmullt  21009  orngrmullt  21010  qsssubdrg  21613  redvr  21804  drnguc1p  26368  lgseisenlem3  27578  fxpsdrg  33526  isarchiofld  33550  sdrgdvcl  33651  sdrginvcl  33652  drnglring  33813  1arithufd  33869  ply1asclunit  33895  ply1dg1rt  33901  qqhval2lem  34402  qqhf  34407  matunitlindf  38310  fldhmf1  42898  lincreslvec3  49303  isldepslvec2  49306