Theorem rrextdrg 34458

Description: An extension of ℝ is a division ring. (Contributed by Thierry Arnoux, 2-May-2018.)

Assertion

Ref	Expression
rrextdrg	⊢ (𝑅 ∈ ℝExt → 𝑅 ∈ DivRing)

Proof of Theorem rrextdrg

Step	Hyp	Ref	Expression
1		eqid 2765	. . . 4 ⊢ (Base‘𝑅) = (Base‘𝑅)
2		eqid 2765	. . . 4 ⊢ ((dist‘𝑅) ↾ ((Base‘𝑅) × (Base‘𝑅))) = ((dist‘𝑅) ↾ ((Base‘𝑅) × (Base‘𝑅)))
3		eqid 2765	. . . 4 ⊢ (ℤMod‘𝑅) = (ℤMod‘𝑅)
4	1, 2, 3	isrrext 34456	. . 3 ⊢ (𝑅 ∈ ℝExt ↔ ((𝑅 ∈ NrmRing ∧ 𝑅 ∈ DivRing) ∧ ((ℤMod‘𝑅) ∈ NrmMod ∧ (chr‘𝑅) = 0) ∧ (𝑅 ∈ CUnifSp ∧ (UnifSt‘𝑅) = (metUnif‘((dist‘𝑅) ↾ ((Base‘𝑅) × (Base‘𝑅)))))))
5	4	simp1bi 1163	. 2 ⊢ (𝑅 ∈ ℝExt → (𝑅 ∈ NrmRing ∧ 𝑅 ∈ DivRing))
6	5	simprd 501	1 ⊢ (𝑅 ∈ ℝExt → 𝑅 ∈ DivRing)

This proof depends on syntax axioms:   → wi 4   ∧ wa 401   = wceq 1570   ∈ wcel 2146   × cxp 5661   ↾ cres 5665  ‘cfv 6540  0cc0 11117  Basecbs 17293  distcds 17343  DivRingcdr 20879  metUnifcmetu 21565  ℤModczlm 21702  chrcchr 21703  UnifStcuss 24463  CUnifSpccusp 24506  NrmRingcnrg 24789  NrmModcnlm 24790   ℝExt crrext 34450

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 2737

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 2744  df-cleq 2757  df-clel 2840  df-rab 3419  df-v 3459  df-dif 3909  df-un 3911  df-in 3913  df-ss 3923  df-nul 4287  df-if 4490  df-sn 4592  df-pr 4594  df-op 4598  df-uni 4875  df-br 5112  df-opab 5176  df-xp 5669  df-res 5675  df-iota 6496  df-fv 6548  df-rrext 34455

This theorem is used by:  rrhfe  34468  rrhcne  34469  rrhqima  34470  rrh0  34471  sitgclg  34799