Metamath Proof Explorer


Theorem cntzsdrg

Description: Centralizers in division rings/fields are subfields. (Contributed by Mario Carneiro, 3-Oct-2015)

Ref Expression
Hypotheses cntzsdrg.b B = Base R
cntzsdrg.m M = mulGrp R
cntzsdrg.z Z = Cntz M
Assertion cntzsdrg R DivRing S B Z S SubDRing R

Proof

Step Hyp Ref Expression
1 cntzsdrg.b B = Base R
2 cntzsdrg.m M = mulGrp R
3 cntzsdrg.z Z = Cntz M
4 simpl R DivRing S B R DivRing
5 drngring R DivRing R Ring
6 1 2 3 cntzsubr R Ring S B Z S SubRing R
7 5 6 sylan R DivRing S B Z S SubRing R
8 oveq2 y = 0 R inv r R x R y = inv r R x R 0 R
9 oveq1 y = 0 R y R inv r R x = 0 R R inv r R x
10 8 9 eqeq12d y = 0 R inv r R x R y = y R inv r R x inv r R x R 0 R = 0 R R inv r R x
11 eldifsn y S 0 R y S y 0 R
12 eqid Unit R = Unit R
13 2 oveq1i M 𝑠 Unit R = mulGrp R 𝑠 Unit R
14 eqid inv r R = inv r R
15 12 13 14 invrfval inv r R = inv g M 𝑠 Unit R
16 eqid 0 R = 0 R
17 1 12 16 isdrng R DivRing R Ring Unit R = B 0 R
18 17 simprbi R DivRing Unit R = B 0 R
19 18 oveq2d R DivRing M 𝑠 Unit R = M 𝑠 B 0 R
20 19 fveq2d R DivRing inv g M 𝑠 Unit R = inv g M 𝑠 B 0 R
21 15 20 eqtrid R DivRing inv r R = inv g M 𝑠 B 0 R
22 21 ad2antrr R DivRing S B x Z S 0 R inv r R = inv g M 𝑠 B 0 R
23 22 fveq1d R DivRing S B x Z S 0 R inv r R x = inv g M 𝑠 B 0 R x
24 2 oveq1i M 𝑠 B 0 R = mulGrp R 𝑠 B 0 R
25 1 16 24 drngmgp R DivRing M 𝑠 B 0 R Grp
26 25 ad2antrr R DivRing S B x Z S 0 R M 𝑠 B 0 R Grp
27 ssdif S B S 0 R B 0 R
28 27 ad2antlr R DivRing S B x Z S 0 R S 0 R B 0 R
29 difss B 0 R B
30 eqid M 𝑠 B 0 R = M 𝑠 B 0 R
31 2 1 mgpbas B = Base M
32 30 31 ressbas2 B 0 R B B 0 R = Base M 𝑠 B 0 R
33 29 32 ax-mp B 0 R = Base M 𝑠 B 0 R
34 eqid Cntz M 𝑠 B 0 R = Cntz M 𝑠 B 0 R
35 33 34 cntzsubg M 𝑠 B 0 R Grp S 0 R B 0 R Cntz M 𝑠 B 0 R S 0 R SubGrp M 𝑠 B 0 R
36 26 28 35 syl2anc R DivRing S B x Z S 0 R Cntz M 𝑠 B 0 R S 0 R SubGrp M 𝑠 B 0 R
37 simpr R DivRing S B S B
38 difss S 0 R S
39 31 3 cntz2ss S B S 0 R S Z S Z S 0 R
40 37 38 39 sylancl R DivRing S B Z S Z S 0 R
41 40 ssdifssd R DivRing S B Z S 0 R Z S 0 R
42 41 sselda R DivRing S B x Z S 0 R x Z S 0 R
43 31 3 cntzssv Z S B
44 ssdif Z S B Z S 0 R B 0 R
45 43 44 mp1i R DivRing S B Z S 0 R B 0 R
46 45 sselda R DivRing S B x Z S 0 R x B 0 R
47 42 46 elind R DivRing S B x Z S 0 R x Z S 0 R B 0 R
48 1 fvexi B V
49 48 difexi B 0 R V
50 30 3 34 resscntz B 0 R V S 0 R B 0 R Cntz M 𝑠 B 0 R S 0 R = Z S 0 R B 0 R
51 49 28 50 sylancr R DivRing S B x Z S 0 R Cntz M 𝑠 B 0 R S 0 R = Z S 0 R B 0 R
52 47 51 eleqtrrd R DivRing S B x Z S 0 R x Cntz M 𝑠 B 0 R S 0 R
53 eqid inv g M 𝑠 B 0 R = inv g M 𝑠 B 0 R
54 53 subginvcl Cntz M 𝑠 B 0 R S 0 R SubGrp M 𝑠 B 0 R x Cntz M 𝑠 B 0 R S 0 R inv g M 𝑠 B 0 R x Cntz M 𝑠 B 0 R S 0 R
55 36 52 54 syl2anc R DivRing S B x Z S 0 R inv g M 𝑠 B 0 R x Cntz M 𝑠 B 0 R S 0 R
56 23 55 eqeltrd R DivRing S B x Z S 0 R inv r R x Cntz M 𝑠 B 0 R S 0 R
57 eqid R = R
58 2 57 mgpplusg R = + M
59 30 58 ressplusg B 0 R V R = + M 𝑠 B 0 R
60 49 59 ax-mp R = + M 𝑠 B 0 R
61 60 34 cntzi inv r R x Cntz M 𝑠 B 0 R S 0 R y S 0 R inv r R x R y = y R inv r R x
62 56 61 sylan R DivRing S B x Z S 0 R y S 0 R inv r R x R y = y R inv r R x
63 11 62 sylan2br R DivRing S B x Z S 0 R y S y 0 R inv r R x R y = y R inv r R x
64 63 anassrs R DivRing S B x Z S 0 R y S y 0 R inv r R x R y = y R inv r R x
65 5 ad3antrrr R DivRing S B x Z S 0 R y S R Ring
66 4 adantr R DivRing S B x Z S 0 R R DivRing
67 eldifi x Z S 0 R x Z S
68 67 adantl R DivRing S B x Z S 0 R x Z S
69 43 68 sselid R DivRing S B x Z S 0 R x B
70 eldifsni x Z S 0 R x 0 R
71 70 adantl R DivRing S B x Z S 0 R x 0 R
72 1 16 14 drnginvrcl R DivRing x B x 0 R inv r R x B
73 66 69 71 72 syl3anc R DivRing S B x Z S 0 R inv r R x B
74 73 adantr R DivRing S B x Z S 0 R y S inv r R x B
75 1 57 16 ringrz R Ring inv r R x B inv r R x R 0 R = 0 R
76 65 74 75 syl2anc R DivRing S B x Z S 0 R y S inv r R x R 0 R = 0 R
77 1 57 16 ringlz R Ring inv r R x B 0 R R inv r R x = 0 R
78 65 74 77 syl2anc R DivRing S B x Z S 0 R y S 0 R R inv r R x = 0 R
79 76 78 eqtr4d R DivRing S B x Z S 0 R y S inv r R x R 0 R = 0 R R inv r R x
80 10 64 79 pm2.61ne R DivRing S B x Z S 0 R y S inv r R x R y = y R inv r R x
81 80 ralrimiva R DivRing S B x Z S 0 R y S inv r R x R y = y R inv r R x
82 simplr R DivRing S B x Z S 0 R S B
83 31 58 3 cntzel S B inv r R x B inv r R x Z S y S inv r R x R y = y R inv r R x
84 82 73 83 syl2anc R DivRing S B x Z S 0 R inv r R x Z S y S inv r R x R y = y R inv r R x
85 81 84 mpbird R DivRing S B x Z S 0 R inv r R x Z S
86 85 ralrimiva R DivRing S B x Z S 0 R inv r R x Z S
87 14 16 issdrg2 Z S SubDRing R R DivRing Z S SubRing R x Z S 0 R inv r R x Z S
88 4 7 86 87 syl3anbrc R DivRing S B Z S SubDRing R