Metamath Proof Explorer


Theorem isdrng2

Description: A division ring can equivalently be defined as a ring such that the nonzero elements form a group under multiplication (from which it follows that this is the same group as the group of units). (Contributed by Mario Carneiro, 2-Dec-2014) (Proof shortened by AV, 12-Sep-2026)

Ref Expression
Hypotheses isdrng2.b B = Base R
isdrng2.z 0 ˙ = 0 R
isdrng2.g G = mulGrp R 𝑠 B 0 ˙
Assertion isdrng2 R DivRing R Ring G Grp

Proof

Step Hyp Ref Expression
1 isdrng2.b B = Base R
2 isdrng2.z 0 ˙ = 0 R
3 isdrng2.g G = mulGrp R 𝑠 B 0 ˙
4 1 2 3 drngprops R DivRing R Ring G Grp
5 simpl R Ring G Grp R Ring
6 eqid Unit R = Unit R
7 1 6 unitcl x Unit R x B
8 7 adantl R Ring G Grp x Unit R x B
9 difss B 0 ˙ B
10 eqid mulGrp R = mulGrp R
11 10 1 mgpbas B = Base mulGrp R
12 3 11 ressbas2 B 0 ˙ B B 0 ˙ = Base G
13 9 12 ax-mp B 0 ˙ = Base G
14 eqid 0 G = 0 G
15 13 14 grpidcl G Grp 0 G B 0 ˙
16 15 ad2antlr R Ring G Grp x Unit R 0 G B 0 ˙
17 16 eldifsnbd R Ring G Grp x Unit R 0 G 0 ˙
18 simpll R Ring G Grp x Unit R R Ring
19 16 eldifad R Ring G Grp x Unit R 0 G B
20 simpr R Ring G Grp x Unit R x Unit R
21 eqid / r R = / r R
22 eqid R = R
23 1 6 21 22 dvrcan1 R Ring 0 G B x Unit R 0 G / r R x R x = 0 G
24 18 19 20 23 syl3anc R Ring G Grp x Unit R 0 G / r R x R x = 0 G
25 1 6 21 dvrcl R Ring 0 G B x Unit R 0 G / r R x B
26 18 19 20 25 syl3anc R Ring G Grp x Unit R 0 G / r R x B
27 1 22 2 18 26 ringrzd R Ring G Grp x Unit R 0 G / r R x R 0 ˙ = 0 ˙
28 17 24 27 3netr4d R Ring G Grp x Unit R 0 G / r R x R x 0 G / r R x R 0 ˙
29 oveq2 x = 0 ˙ 0 G / r R x R x = 0 G / r R x R 0 ˙
30 29 necon3i 0 G / r R x R x 0 G / r R x R 0 ˙ x 0 ˙
31 28 30 syl R Ring G Grp x Unit R x 0 ˙
32 8 31 eldifsnd R Ring G Grp x Unit R x B 0 ˙
33 32 ex R Ring G Grp x Unit R x B 0 ˙
34 33 ssrdv R Ring G Grp Unit R B 0 ˙
35 eldifi x B 0 ˙ x B
36 35 adantl R Ring G Grp x B 0 ˙ x B
37 eqid inv g G = inv g G
38 13 37 grpinvcl G Grp x B 0 ˙ inv g G x B 0 ˙
39 38 adantll R Ring G Grp x B 0 ˙ inv g G x B 0 ˙
40 39 eldifad R Ring G Grp x B 0 ˙ inv g G x B
41 eqid r R = r R
42 1 41 22 dvdsrmul x B inv g G x B x r R inv g G x R x
43 36 40 42 syl2anc R Ring G Grp x B 0 ˙ x r R inv g G x R x
44 1 fvexi B V
45 difexg B V B 0 ˙ V
46 10 22 mgpplusg R = + mulGrp R
47 3 46 ressplusg B 0 ˙ V R = + G
48 44 45 47 mp2b R = + G
49 13 48 14 37 grplinv G Grp x B 0 ˙ inv g G x R x = 0 G
50 49 adantll R Ring G Grp x B 0 ˙ inv g G x R x = 0 G
51 eqid 1 R = 1 R
52 1 51 ringidcl R Ring 1 R B
53 1 22 51 ringlidm R Ring 1 R B 1 R R 1 R = 1 R
54 52 53 mpdan R Ring 1 R R 1 R = 1 R
55 54 adantr R Ring G Grp 1 R R 1 R = 1 R
56 simpr R Ring G Grp G Grp
57 6 51 1unit R Ring 1 R Unit R
58 57 adantr R Ring G Grp 1 R Unit R
59 34 58 sseldd R Ring G Grp 1 R B 0 ˙
60 13 48 14 grpid G Grp 1 R B 0 ˙ 1 R R 1 R = 1 R 0 G = 1 R
61 56 59 60 syl2anc R Ring G Grp 1 R R 1 R = 1 R 0 G = 1 R
62 55 61 mpbid R Ring G Grp 0 G = 1 R
63 62 adantr R Ring G Grp x B 0 ˙ 0 G = 1 R
64 50 63 eqtrd R Ring G Grp x B 0 ˙ inv g G x R x = 1 R
65 43 64 breqtrd R Ring G Grp x B 0 ˙ x r R 1 R
66 eqid opp r R = opp r R
67 66 1 opprbas B = Base opp r R
68 eqid r opp r R = r opp r R
69 eqid opp r R = opp r R
70 67 68 69 dvdsrmul x B inv g G x B x r opp r R inv g G x opp r R x
71 36 40 70 syl2anc R Ring G Grp x B 0 ˙ x r opp r R inv g G x opp r R x
72 1 22 66 69 opprmul inv g G x opp r R x = x R inv g G x
73 13 48 14 37 grprinv G Grp x B 0 ˙ x R inv g G x = 0 G
74 73 adantll R Ring G Grp x B 0 ˙ x R inv g G x = 0 G
75 74 63 eqtrd R Ring G Grp x B 0 ˙ x R inv g G x = 1 R
76 72 75 eqtrid R Ring G Grp x B 0 ˙ inv g G x opp r R x = 1 R
77 71 76 breqtrd R Ring G Grp x B 0 ˙ x r opp r R 1 R
78 6 51 41 66 68 isunit x Unit R x r R 1 R x r opp r R 1 R
79 65 77 78 sylanbrc R Ring G Grp x B 0 ˙ x Unit R
80 34 79 eqelssd R Ring G Grp Unit R = B 0 ˙
81 1 6 2 isdrng R DivRing R Ring Unit R = B 0 ˙
82 5 80 81 sylanbrc R Ring G Grp R DivRing
83 4 82 impbii R DivRing R Ring G Grp