Users' Mathboxes Mathbox for Stefan O'Rear < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  cntzsdrg Unicode version

Theorem cntzsdrg 27179
Description: Centralizers in division rings/fields are subfields. (Contributed by Mario Carneiro, 3-Oct-2015.)
Hypotheses
Ref Expression
cntzsdrg.b  |-  B  =  ( Base `  R
)
cntzsdrg.m  |-  M  =  (mulGrp `  R )
cntzsdrg.z  |-  Z  =  (Cntz `  M )
Assertion
Ref Expression
cntzsdrg  |-  ( ( R  e.  DivRing  /\  S  C_  B )  ->  ( Z `  S )  e.  (SubDRing `  R )
)

Proof of Theorem cntzsdrg
Dummy variables  x  y are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpl 444 . 2  |-  ( ( R  e.  DivRing  /\  S  C_  B )  ->  R  e.  DivRing )
2 drngrng 15769 . . 3  |-  ( R  e.  DivRing  ->  R  e.  Ring )
3 cntzsdrg.b . . . 4  |-  B  =  ( Base `  R
)
4 cntzsdrg.m . . . 4  |-  M  =  (mulGrp `  R )
5 cntzsdrg.z . . . 4  |-  Z  =  (Cntz `  M )
63, 4, 5cntzsubr 15827 . . 3  |-  ( ( R  e.  Ring  /\  S  C_  B )  ->  ( Z `  S )  e.  (SubRing `  R )
)
72, 6sylan 458 . 2  |-  ( ( R  e.  DivRing  /\  S  C_  B )  ->  ( Z `  S )  e.  (SubRing `  R )
)
8 oveq2 6028 . . . . . . 7  |-  ( y  =  ( 0g `  R )  ->  (
( ( invr `  R
) `  x )
( .r `  R
) y )  =  ( ( ( invr `  R ) `  x
) ( .r `  R ) ( 0g
`  R ) ) )
9 oveq1 6027 . . . . . . 7  |-  ( y  =  ( 0g `  R )  ->  (
y ( .r `  R ) ( (
invr `  R ) `  x ) )  =  ( ( 0g `  R ) ( .r
`  R ) ( ( invr `  R
) `  x )
) )
108, 9eqeq12d 2401 . . . . . 6  |-  ( y  =  ( 0g `  R )  ->  (
( ( ( invr `  R ) `  x
) ( .r `  R ) y )  =  ( y ( .r `  R ) ( ( invr `  R
) `  x )
)  <->  ( ( (
invr `  R ) `  x ) ( .r
`  R ) ( 0g `  R ) )  =  ( ( 0g `  R ) ( .r `  R
) ( ( invr `  R ) `  x
) ) ) )
11 eldifsn 3870 . . . . . . . 8  |-  ( y  e.  ( S  \  { ( 0g `  R ) } )  <-> 
( y  e.  S  /\  y  =/=  ( 0g `  R ) ) )
12 eqid 2387 . . . . . . . . . . . . . 14  |-  (Unit `  R )  =  (Unit `  R )
134oveq1i 6030 . . . . . . . . . . . . . 14  |-  ( Ms  (Unit `  R ) )  =  ( (mulGrp `  R
)s  (Unit `  R )
)
14 eqid 2387 . . . . . . . . . . . . . 14  |-  ( invr `  R )  =  (
invr `  R )
1512, 13, 14invrfval 15705 . . . . . . . . . . . . 13  |-  ( invr `  R )  =  ( inv g `  ( Ms  (Unit `  R ) ) )
16 eqid 2387 . . . . . . . . . . . . . . . . 17  |-  ( 0g
`  R )  =  ( 0g `  R
)
173, 12, 16isdrng 15766 . . . . . . . . . . . . . . . 16  |-  ( R  e.  DivRing 
<->  ( R  e.  Ring  /\  (Unit `  R )  =  ( B  \  { ( 0g `  R ) } ) ) )
1817simprbi 451 . . . . . . . . . . . . . . 15  |-  ( R  e.  DivRing  ->  (Unit `  R
)  =  ( B 
\  { ( 0g
`  R ) } ) )
1918oveq2d 6036 . . . . . . . . . . . . . 14  |-  ( R  e.  DivRing  ->  ( Ms  (Unit `  R ) )  =  ( Ms  ( B  \  { ( 0g `  R ) } ) ) )
2019fveq2d 5672 . . . . . . . . . . . . 13  |-  ( R  e.  DivRing  ->  ( inv g `  ( Ms  (Unit `  R )
) )  =  ( inv g `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) )
2115, 20syl5eq 2431 . . . . . . . . . . . 12  |-  ( R  e.  DivRing  ->  ( invr `  R
)  =  ( inv g `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) )
2221ad2antrr 707 . . . . . . . . . . 11  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  ( invr `  R )  =  ( inv g `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) )
2322fveq1d 5670 . . . . . . . . . 10  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  ( ( invr `  R ) `  x )  =  ( ( inv g `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) `  x
) )
244oveq1i 6030 . . . . . . . . . . . . . 14  |-  ( Ms  ( B  \  { ( 0g `  R ) } ) )  =  ( (mulGrp `  R
)s  ( B  \  {
( 0g `  R
) } ) )
253, 16, 24drngmgp 15774 . . . . . . . . . . . . 13  |-  ( R  e.  DivRing  ->  ( Ms  ( B 
\  { ( 0g
`  R ) } ) )  e.  Grp )
2625ad2antrr 707 . . . . . . . . . . . 12  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  ( Ms  ( B  \  { ( 0g
`  R ) } ) )  e.  Grp )
27 ssdif 3425 . . . . . . . . . . . . 13  |-  ( S 
C_  B  ->  ( S  \  { ( 0g
`  R ) } )  C_  ( B  \  { ( 0g `  R ) } ) )
2827ad2antlr 708 . . . . . . . . . . . 12  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  ( S  \  { ( 0g `  R ) } ) 
C_  ( B  \  { ( 0g `  R ) } ) )
29 difss 3417 . . . . . . . . . . . . . 14  |-  ( B 
\  { ( 0g
`  R ) } )  C_  B
30 eqid 2387 . . . . . . . . . . . . . . 15  |-  ( Ms  ( B  \  { ( 0g `  R ) } ) )  =  ( Ms  ( B  \  { ( 0g `  R ) } ) )
314, 3mgpbas 15581 . . . . . . . . . . . . . . 15  |-  B  =  ( Base `  M
)
3230, 31ressbas2 13447 . . . . . . . . . . . . . 14  |-  ( ( B  \  { ( 0g `  R ) } )  C_  B  ->  ( B  \  {
( 0g `  R
) } )  =  ( Base `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) )
3329, 32ax-mp 8 . . . . . . . . . . . . 13  |-  ( B 
\  { ( 0g
`  R ) } )  =  ( Base `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) )
34 eqid 2387 . . . . . . . . . . . . 13  |-  (Cntz `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) )  =  (Cntz `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) )
3533, 34cntzsubg 15062 . . . . . . . . . . . 12  |-  ( ( ( Ms  ( B  \  { ( 0g `  R ) } ) )  e.  Grp  /\  ( S  \  { ( 0g `  R ) } )  C_  ( B  \  { ( 0g
`  R ) } ) )  ->  (
(Cntz `  ( Ms  ( B  \  { ( 0g
`  R ) } ) ) ) `  ( S  \  { ( 0g `  R ) } ) )  e.  (SubGrp `  ( Ms  ( B  \  { ( 0g
`  R ) } ) ) ) )
3626, 28, 35syl2anc 643 . . . . . . . . . . 11  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  ( (Cntz `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) `  ( S  \  { ( 0g
`  R ) } ) )  e.  (SubGrp `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) )
37 simpr 448 . . . . . . . . . . . . . . . 16  |-  ( ( R  e.  DivRing  /\  S  C_  B )  ->  S  C_  B )
38 difss 3417 . . . . . . . . . . . . . . . 16  |-  ( S 
\  { ( 0g
`  R ) } )  C_  S
3931, 5cntz2ss 15058 . . . . . . . . . . . . . . . 16  |-  ( ( S  C_  B  /\  ( S  \  { ( 0g `  R ) } )  C_  S
)  ->  ( Z `  S )  C_  ( Z `  ( S  \  { ( 0g `  R ) } ) ) )
4037, 38, 39sylancl 644 . . . . . . . . . . . . . . 15  |-  ( ( R  e.  DivRing  /\  S  C_  B )  ->  ( Z `  S )  C_  ( Z `  ( S  \  { ( 0g
`  R ) } ) ) )
4140ssdifssd 3428 . . . . . . . . . . . . . 14  |-  ( ( R  e.  DivRing  /\  S  C_  B )  ->  (
( Z `  S
)  \  { ( 0g `  R ) } )  C_  ( Z `  ( S  \  {
( 0g `  R
) } ) ) )
4241sselda 3291 . . . . . . . . . . . . 13  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  x  e.  ( Z `  ( S 
\  { ( 0g
`  R ) } ) ) )
4331, 5cntzssv 15054 . . . . . . . . . . . . . . 15  |-  ( Z `
 S )  C_  B
44 ssdif 3425 . . . . . . . . . . . . . . 15  |-  ( ( Z `  S ) 
C_  B  ->  (
( Z `  S
)  \  { ( 0g `  R ) } )  C_  ( B  \  { ( 0g `  R ) } ) )
4543, 44mp1i 12 . . . . . . . . . . . . . 14  |-  ( ( R  e.  DivRing  /\  S  C_  B )  ->  (
( Z `  S
)  \  { ( 0g `  R ) } )  C_  ( B  \  { ( 0g `  R ) } ) )
4645sselda 3291 . . . . . . . . . . . . 13  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  x  e.  ( B  \  { ( 0g `  R ) } ) )
47 elin 3473 . . . . . . . . . . . . 13  |-  ( x  e.  ( ( Z `
 ( S  \  { ( 0g `  R ) } ) )  i^i  ( B 
\  { ( 0g
`  R ) } ) )  <->  ( x  e.  ( Z `  ( S  \  { ( 0g
`  R ) } ) )  /\  x  e.  ( B  \  {
( 0g `  R
) } ) ) )
4842, 46, 47sylanbrc 646 . . . . . . . . . . . 12  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  x  e.  ( ( Z `  ( S  \  { ( 0g `  R ) } ) )  i^i  ( B  \  {
( 0g `  R
) } ) ) )
49 fvex 5682 . . . . . . . . . . . . . . 15  |-  ( Base `  R )  e.  _V
503, 49eqeltri 2457 . . . . . . . . . . . . . 14  |-  B  e. 
_V
51 difexg 4292 . . . . . . . . . . . . . 14  |-  ( B  e.  _V  ->  ( B  \  { ( 0g
`  R ) } )  e.  _V )
5250, 51ax-mp 8 . . . . . . . . . . . . 13  |-  ( B 
\  { ( 0g
`  R ) } )  e.  _V
5330, 5, 34resscntz 15057 . . . . . . . . . . . . 13  |-  ( ( ( B  \  {
( 0g `  R
) } )  e. 
_V  /\  ( S  \  { ( 0g `  R ) } ) 
C_  ( B  \  { ( 0g `  R ) } ) )  ->  ( (Cntz `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) `  ( S  \  { ( 0g
`  R ) } ) )  =  ( ( Z `  ( S  \  { ( 0g
`  R ) } ) )  i^i  ( B  \  { ( 0g
`  R ) } ) ) )
5452, 28, 53sylancr 645 . . . . . . . . . . . 12  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  ( (Cntz `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) `  ( S  \  { ( 0g
`  R ) } ) )  =  ( ( Z `  ( S  \  { ( 0g
`  R ) } ) )  i^i  ( B  \  { ( 0g
`  R ) } ) ) )
5548, 54eleqtrrd 2464 . . . . . . . . . . 11  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  x  e.  ( (Cntz `  ( Ms  ( B  \  { ( 0g
`  R ) } ) ) ) `  ( S  \  { ( 0g `  R ) } ) ) )
56 eqid 2387 . . . . . . . . . . . 12  |-  ( inv g `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) )  =  ( inv g `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) )
5756subginvcl 14880 . . . . . . . . . . 11  |-  ( ( ( (Cntz `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) `
 ( S  \  { ( 0g `  R ) } ) )  e.  (SubGrp `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) )  /\  x  e.  ( (Cntz `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) `
 ( S  \  { ( 0g `  R ) } ) ) )  ->  (
( inv g `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) `  x
)  e.  ( (Cntz `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) `  ( S  \  { ( 0g
`  R ) } ) ) )
5836, 55, 57syl2anc 643 . . . . . . . . . 10  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  ( ( inv g `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) `
 x )  e.  ( (Cntz `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) `
 ( S  \  { ( 0g `  R ) } ) ) )
5923, 58eqeltrd 2461 . . . . . . . . 9  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  ( ( invr `  R ) `  x )  e.  ( (Cntz `  ( Ms  ( B  \  { ( 0g
`  R ) } ) ) ) `  ( S  \  { ( 0g `  R ) } ) ) )
60 eqid 2387 . . . . . . . . . . . . 13  |-  ( .r
`  R )  =  ( .r `  R
)
614, 60mgpplusg 15579 . . . . . . . . . . . 12  |-  ( .r
`  R )  =  ( +g  `  M
)
6230, 61ressplusg 13498 . . . . . . . . . . 11  |-  ( ( B  \  { ( 0g `  R ) } )  e.  _V  ->  ( .r `  R
)  =  ( +g  `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) )
6352, 62ax-mp 8 . . . . . . . . . 10  |-  ( .r
`  R )  =  ( +g  `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) )
6463, 34cntzi 15055 . . . . . . . . 9  |-  ( ( ( ( invr `  R
) `  x )  e.  ( (Cntz `  ( Ms  ( B  \  { ( 0g `  R ) } ) ) ) `
 ( S  \  { ( 0g `  R ) } ) )  /\  y  e.  ( S  \  {
( 0g `  R
) } ) )  ->  ( ( (
invr `  R ) `  x ) ( .r
`  R ) y )  =  ( y ( .r `  R
) ( ( invr `  R ) `  x
) ) )
6559, 64sylan 458 . . . . . . . 8  |-  ( ( ( ( R  e.  DivRing 
/\  S  C_  B
)  /\  x  e.  ( ( Z `  S )  \  {
( 0g `  R
) } ) )  /\  y  e.  ( S  \  { ( 0g `  R ) } ) )  -> 
( ( ( invr `  R ) `  x
) ( .r `  R ) y )  =  ( y ( .r `  R ) ( ( invr `  R
) `  x )
) )
6611, 65sylan2br 463 . . . . . . 7  |-  ( ( ( ( R  e.  DivRing 
/\  S  C_  B
)  /\  x  e.  ( ( Z `  S )  \  {
( 0g `  R
) } ) )  /\  ( y  e.  S  /\  y  =/=  ( 0g `  R
) ) )  -> 
( ( ( invr `  R ) `  x
) ( .r `  R ) y )  =  ( y ( .r `  R ) ( ( invr `  R
) `  x )
) )
6766anassrs 630 . . . . . 6  |-  ( ( ( ( ( R  e.  DivRing  /\  S  C_  B
)  /\  x  e.  ( ( Z `  S )  \  {
( 0g `  R
) } ) )  /\  y  e.  S
)  /\  y  =/=  ( 0g `  R ) )  ->  ( (
( invr `  R ) `  x ) ( .r
`  R ) y )  =  ( y ( .r `  R
) ( ( invr `  R ) `  x
) ) )
682ad3antrrr 711 . . . . . . . 8  |-  ( ( ( ( R  e.  DivRing 
/\  S  C_  B
)  /\  x  e.  ( ( Z `  S )  \  {
( 0g `  R
) } ) )  /\  y  e.  S
)  ->  R  e.  Ring )
691adantr 452 . . . . . . . . . 10  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  R  e.  DivRing )
70 eldifi 3412 . . . . . . . . . . . 12  |-  ( x  e.  ( ( Z `
 S )  \  { ( 0g `  R ) } )  ->  x  e.  ( Z `  S ) )
7170adantl 453 . . . . . . . . . . 11  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  x  e.  ( Z `  S ) )
7243, 71sseldi 3289 . . . . . . . . . 10  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  x  e.  B )
73 eldifsni 3871 . . . . . . . . . . 11  |-  ( x  e.  ( ( Z `
 S )  \  { ( 0g `  R ) } )  ->  x  =/=  ( 0g `  R ) )
7473adantl 453 . . . . . . . . . 10  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  x  =/=  ( 0g `  R ) )
753, 16, 14drnginvrcl 15779 . . . . . . . . . 10  |-  ( ( R  e.  DivRing  /\  x  e.  B  /\  x  =/=  ( 0g `  R
) )  ->  (
( invr `  R ) `  x )  e.  B
)
7669, 72, 74, 75syl3anc 1184 . . . . . . . . 9  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  ( ( invr `  R ) `  x )  e.  B
)
7776adantr 452 . . . . . . . 8  |-  ( ( ( ( R  e.  DivRing 
/\  S  C_  B
)  /\  x  e.  ( ( Z `  S )  \  {
( 0g `  R
) } ) )  /\  y  e.  S
)  ->  ( ( invr `  R ) `  x )  e.  B
)
783, 60, 16rngrz 15628 . . . . . . . 8  |-  ( ( R  e.  Ring  /\  (
( invr `  R ) `  x )  e.  B
)  ->  ( (
( invr `  R ) `  x ) ( .r
`  R ) ( 0g `  R ) )  =  ( 0g
`  R ) )
7968, 77, 78syl2anc 643 . . . . . . 7  |-  ( ( ( ( R  e.  DivRing 
/\  S  C_  B
)  /\  x  e.  ( ( Z `  S )  \  {
( 0g `  R
) } ) )  /\  y  e.  S
)  ->  ( (
( invr `  R ) `  x ) ( .r
`  R ) ( 0g `  R ) )  =  ( 0g
`  R ) )
803, 60, 16rnglz 15627 . . . . . . . 8  |-  ( ( R  e.  Ring  /\  (
( invr `  R ) `  x )  e.  B
)  ->  ( ( 0g `  R ) ( .r `  R ) ( ( invr `  R
) `  x )
)  =  ( 0g
`  R ) )
8168, 77, 80syl2anc 643 . . . . . . 7  |-  ( ( ( ( R  e.  DivRing 
/\  S  C_  B
)  /\  x  e.  ( ( Z `  S )  \  {
( 0g `  R
) } ) )  /\  y  e.  S
)  ->  ( ( 0g `  R ) ( .r `  R ) ( ( invr `  R
) `  x )
)  =  ( 0g
`  R ) )
8279, 81eqtr4d 2422 . . . . . 6  |-  ( ( ( ( R  e.  DivRing 
/\  S  C_  B
)  /\  x  e.  ( ( Z `  S )  \  {
( 0g `  R
) } ) )  /\  y  e.  S
)  ->  ( (
( invr `  R ) `  x ) ( .r
`  R ) ( 0g `  R ) )  =  ( ( 0g `  R ) ( .r `  R
) ( ( invr `  R ) `  x
) ) )
8310, 67, 82pm2.61ne 2625 . . . . 5  |-  ( ( ( ( R  e.  DivRing 
/\  S  C_  B
)  /\  x  e.  ( ( Z `  S )  \  {
( 0g `  R
) } ) )  /\  y  e.  S
)  ->  ( (
( invr `  R ) `  x ) ( .r
`  R ) y )  =  ( y ( .r `  R
) ( ( invr `  R ) `  x
) ) )
8483ralrimiva 2732 . . . 4  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  A. y  e.  S  ( (
( invr `  R ) `  x ) ( .r
`  R ) y )  =  ( y ( .r `  R
) ( ( invr `  R ) `  x
) ) )
85 simplr 732 . . . . 5  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  S  C_  B
)
8631, 61, 5cntzel 15049 . . . . 5  |-  ( ( S  C_  B  /\  ( ( invr `  R
) `  x )  e.  B )  ->  (
( ( invr `  R
) `  x )  e.  ( Z `  S
)  <->  A. y  e.  S  ( ( ( invr `  R ) `  x
) ( .r `  R ) y )  =  ( y ( .r `  R ) ( ( invr `  R
) `  x )
) ) )
8785, 76, 86syl2anc 643 . . . 4  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  ( (
( invr `  R ) `  x )  e.  ( Z `  S )  <->  A. y  e.  S  ( ( ( invr `  R ) `  x
) ( .r `  R ) y )  =  ( y ( .r `  R ) ( ( invr `  R
) `  x )
) ) )
8884, 87mpbird 224 . . 3  |-  ( ( ( R  e.  DivRing  /\  S  C_  B )  /\  x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) )  ->  ( ( invr `  R ) `  x )  e.  ( Z `  S ) )
8988ralrimiva 2732 . 2  |-  ( ( R  e.  DivRing  /\  S  C_  B )  ->  A. x  e.  ( ( Z `  S )  \  {
( 0g `  R
) } ) ( ( invr `  R
) `  x )  e.  ( Z `  S
) )
9014, 16issdrg2 27175 . 2  |-  ( ( Z `  S )  e.  (SubDRing `  R
)  <->  ( R  e.  DivRing 
/\  ( Z `  S )  e.  (SubRing `  R )  /\  A. x  e.  ( ( Z `  S )  \  { ( 0g `  R ) } ) ( ( invr `  R
) `  x )  e.  ( Z `  S
) ) )
911, 7, 89, 90syl3anbrc 1138 1  |-  ( ( R  e.  DivRing  /\  S  C_  B )  ->  ( Z `  S )  e.  (SubDRing `  R )
)
Colors of variables: wff set class
Syntax hints:    -> wi 4    <-> wb 177    /\ wa 359    = wceq 1649    e. wcel 1717    =/= wne 2550   A.wral 2649   _Vcvv 2899    \ cdif 3260    i^i cin 3262    C_ wss 3263   {csn 3757   ` cfv 5394  (class class class)co 6020   Basecbs 13396   ↾s cress 13397   +g cplusg 13456   .rcmulr 13457   0gc0g 13650   Grpcgrp 14612   inv gcminusg 14613  SubGrpcsubg 14865  Cntzccntz 15041  mulGrpcmgp 15575   Ringcrg 15587  Unitcui 15671   invrcinvr 15703   DivRingcdr 15762  SubRingcsubrg 15791  SubDRingcsdrg 27172
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1661  ax-8 1682  ax-13 1719  ax-14 1721  ax-6 1736  ax-7 1741  ax-11 1753  ax-12 1939  ax-ext 2368  ax-rep 4261  ax-sep 4271  ax-nul 4279  ax-pow 4318  ax-pr 4344  ax-un 4641  ax-cnex 8979  ax-resscn 8980  ax-1cn 8981  ax-icn 8982  ax-addcl 8983  ax-addrcl 8984  ax-mulcl 8985  ax-mulrcl 8986  ax-mulcom 8987  ax-addass 8988  ax-mulass 8989  ax-distr 8990  ax-i2m1 8991  ax-1ne0 8992  ax-1rid 8993  ax-rnegex 8994  ax-rrecex 8995  ax-cnre 8996  ax-pre-lttri 8997  ax-pre-lttrn 8998  ax-pre-ltadd 8999  ax-pre-mulgt0 9000
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3or 937  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2242  df-mo 2243  df-clab 2374  df-cleq 2380  df-clel 2383  df-nfc 2512  df-ne 2552  df-nel 2553  df-ral 2654  df-rex 2655  df-reu 2656  df-rmo 2657  df-rab 2658  df-v 2901  df-sbc 3105  df-csb 3195  df-dif 3266  df-un 3268  df-in 3270  df-ss 3277  df-pss 3279  df-nul 3572  df-if 3683  df-pw 3744  df-sn 3763  df-pr 3764  df-tp 3765  df-op 3766  df-uni 3958  df-iun 4037  df-br 4154  df-opab 4208  df-mpt 4209  df-tr 4244  df-eprel 4435  df-id 4439  df-po 4444  df-so 4445  df-fr 4482  df-we 4484  df-ord 4525  df-on 4526  df-lim 4527  df-suc 4528  df-om 4786  df-xp 4824  df-rel 4825  df-cnv 4826  df-co 4827  df-dm 4828  df-rn 4829  df-res 4830  df-ima 4831  df-iota 5358  df-fun 5396  df-fn 5397  df-f 5398  df-f1 5399  df-fo 5400  df-f1o 5401  df-fv 5402  df-ov 6023  df-oprab 6024  df-mpt2 6025  df-1st 6288  df-2nd 6289  df-tpos 6415  df-riota 6485  df-recs 6569  df-rdg 6604  df-er 6841  df-en 7046  df-dom 7047  df-sdom 7048  df-pnf 9055  df-mnf 9056  df-xr 9057  df-ltxr 9058  df-le 9059  df-sub 9225  df-neg 9226  df-nn 9933  df-2 9990  df-3 9991  df-ndx 13399  df-slot 13400  df-base 13401  df-sets 13402  df-ress 13403  df-plusg 13469  df-mulr 13470  df-0g 13654  df-mnd 14617  df-submnd 14666  df-grp 14739  df-minusg 14740  df-subg 14868  df-cntz 15043  df-mgp 15576  df-rng 15590  df-ur 15592  df-oppr 15655  df-dvdsr 15673  df-unit 15674  df-invr 15704  df-dvr 15715  df-drng 15764  df-subrg 15793  df-sdrg 27173
  Copyright terms: Public domain W3C validator