P. 298 of Theorem List - Metamath Proof Explorer

Theorem List for Metamath Proof Explorer - 29701-29800   *Has distinct variable group(s)

Type	Label	Description
Statement
Theorem	isomnd 29701*	A (left) ordered monoid is a monoid with a total ordering compatible with its operation. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` M )   &    |- .+ = ( +g ` M )   &    |- .<_ = ( le ` M )   =>    |- ( M e. oMnd <-> ( M e. Mnd /\ M e. Toset /\ A. a e. B A. b e. B A. c e. B ( a .<_ b -> ( a .+ c ) .<_ ( b .+ c ) ) ) )
Theorem	isogrp 29702	A (left) ordered group is a group with a total ordering compatible with its operations. (Contributed by Thierry Arnoux, 23-Mar-2018.)
|- ( G e. oGrp <-> ( G e. Grp /\ G e. oMnd ) )
Theorem	ogrpgrp 29703	An left ordered group is a group. (Contributed by Thierry Arnoux, 9-Jul-2018.)
|- ( G e. oGrp -> G e. Grp )
Theorem	omndmnd 29704	A left ordered monoid is a monoid. (Contributed by Thierry Arnoux, 13-Mar-2018.)
|- ( M e. oMnd -> M e. Mnd )
Theorem	omndtos 29705	A left ordered monoid is a totally ordered set. (Contributed by Thierry Arnoux, 13-Mar-2018.)
|- ( M e. oMnd -> M e. Toset )
Theorem	omndadd 29706	In an ordered monoid, the ordering is compatible with group addition. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` M )   &    |- .<_ = ( le ` M )   &    |- .+ = ( +g ` M )   =>    |- ( ( M e. oMnd /\ ( X e. B /\ Y e. B /\ Z e. B ) /\ X .<_ Y ) -> ( X .+ Z ) .<_ ( Y .+ Z ) )
Theorem	omndaddr 29707	In a right ordered monoid, the ordering is compatible with group addition. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` M )   &    |- .<_ = ( le ` M )   &    |- .+ = ( +g ` M )   =>    |- ( ( (oppg ` M ) e. oMnd /\ ( X e. B /\ Y e. B /\ Z e. B ) /\ X .<_ Y ) -> ( Z .+ X ) .<_ ( Z .+ Y ) )
Theorem	omndadd2d 29708	In a commutative left ordered monoid, the ordering is compatible with monoid addition. Double addition version. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` M )   &    |- .<_ = ( le ` M )   &    |- .+ = ( +g ` M )   &    |- ( ph -> M e. oMnd )   &    |- ( ph -> W e. B )   &    |- ( ph -> X e. B )   &    |- ( ph -> Y e. B )   &    |- ( ph -> Z e. B )   &    |- ( ph -> X .<_ Z )   &    |- ( ph -> Y .<_ W )   &    |- ( ph -> M e. CMnd )   =>    |- ( ph -> ( X .+ Y ) .<_ ( Z .+ W ) )
Theorem	omndadd2rd 29709	In a left- and right- ordered monoid, the ordering is compatible with monoid addition. Double addition version. (Contributed by Thierry Arnoux, 2-May-2018.)
|- B = ( Base ` M )   &    |- .<_ = ( le ` M )   &    |- .+ = ( +g ` M )   &    |- ( ph -> M e. oMnd )   &    |- ( ph -> W e. B )   &    |- ( ph -> X e. B )   &    |- ( ph -> Y e. B )   &    |- ( ph -> Z e. B )   &    |- ( ph -> X .<_ Z )   &    |- ( ph -> Y .<_ W )   &    |- ( ph -> (oppg ` M ) e. oMnd )   =>    |- ( ph -> ( X .+ Y ) .<_ ( Z .+ W ) )
Theorem	submomnd 29710	A submonoid of an ordered monoid is also ordered. (Contributed by Thierry Arnoux, 23-Mar-2018.)
|- ( ( M e. oMnd /\ ( M ↾s A ) e. Mnd ) -> ( M ↾s A ) e. oMnd )
Theorem	xrge0omnd 29711	The nonnegative extended real numbers form an ordered monoid. (Contributed by Thierry Arnoux, 22-Mar-2018.)
|- ( RR*s ↾s ( 0 [,] +oo ) ) e. oMnd
Theorem	omndmul2 29712	In an ordered monoid, the ordering is compatible with group power. This version does not require the monoid to be commutative. (Contributed by Thierry Arnoux, 23-Mar-2018.)
|- B = ( Base ` M )   &    |- .<_ = ( le ` M )   &    |- .x. = (.g ` M )   &    |- .0. = ( 0g ` M )   =>    |- ( ( M e. oMnd /\ ( X e. B /\ N e. NN0 ) /\ .0. .<_ X ) -> .0. .<_ ( N .x. X ) )
Theorem	omndmul3 29713	In an ordered monoid, the ordering is compatible with group power. This version does not require the monoid to be commutative. (Contributed by Thierry Arnoux, 23-Mar-2018.)
|- B = ( Base ` M )   &    |- .<_ = ( le ` M )   &    |- .x. = (.g ` M )   &    |- .0. = ( 0g ` M )   &    |- ( ph -> M e. oMnd )   &    |- ( ph -> N e. NN0 )   &    |- ( ph -> P e. NN0 )   &    |- ( ph -> N <_ P )   &    |- ( ph -> X e. B )   &    |- ( ph -> .0. .<_ X )   =>    |- ( ph -> ( N .x. X ) .<_ ( P .x. X ) )
Theorem	omndmul 29714	In a commutative ordered monoid, the ordering is compatible with group power. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` M )   &    |- .<_ = ( le ` M )   &    |- .x. = (.g ` M )   &    |- ( ph -> M e. oMnd )   &    |- ( ph -> M e. CMnd )   &    |- ( ph -> X e. B )   &    |- ( ph -> Y e. B )   &    |- ( ph -> N e. NN0 )   &    |- ( ph -> X .<_ Y )   =>    |- ( ph -> ( N .x. X ) .<_ ( N .x. Y ) )
Theorem	ogrpinvOLD 29715	In an ordered group, the ordering is compatible with group inverse. (Contributed by Thierry Arnoux, 30-Jan-2018.) (New usage is discouraged.) (Proof modification is discouraged.)
|- B = ( Base ` G )   &    |- .<_ = ( le ` G )   &    |- I = ( invg ` G )   &    |- .0. = ( 0g ` G )   =>    |- ( ( G e. oGrp /\ X e. B /\ .0. .<_ X ) -> ( I ` X ) .<_ .0. )
Theorem	ogrpinv0le 29716	In an ordered group, the ordering is compatible with group inverse. (Contributed by Thierry Arnoux, 3-Sep-2018.)
|- B = ( Base ` G )   &    |- .<_ = ( le ` G )   &    |- I = ( invg ` G )   &    |- .0. = ( 0g ` G )   =>    |- ( ( G e. oGrp /\ X e. B ) -> ( .0. .<_ X <-> ( I ` X ) .<_ .0. ) )
Theorem	ogrpsub 29717	In an ordered group, the ordering is compatible with group subtraction. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` G )   &    |- .<_ = ( le ` G )   &    |- .- = ( -g ` G )   =>    |- ( ( G e. oGrp /\ ( X e. B /\ Y e. B /\ Z e. B ) /\ X .<_ Y ) -> ( X .- Z ) .<_ ( Y .- Z ) )
Theorem	ogrpaddlt 29718	In an ordered group, strict ordering is compatible with group addition. (Contributed by Thierry Arnoux, 20-Jan-2018.)
|- B = ( Base ` G )   &    |- .< = ( lt ` G )   &    |- .+ = ( +g ` G )   =>    |- ( ( G e. oGrp /\ ( X e. B /\ Y e. B /\ Z e. B ) /\ X .< Y ) -> ( X .+ Z ) .< ( Y .+ Z ) )
Theorem	ogrpaddltbi 29719	In a right ordered group, strict ordering is compatible with group addition. (Contributed by Thierry Arnoux, 3-Sep-2018.)
|- B = ( Base ` G )   &    |- .< = ( lt ` G )   &    |- .+ = ( +g ` G )   =>    |- ( ( G e. oGrp /\ ( X e. B /\ Y e. B /\ Z e. B ) ) -> ( X .< Y <-> ( X .+ Z ) .< ( Y .+ Z ) ) )
Theorem	ogrpaddltrd 29720	In a right ordered group, strict ordering is compatible with group addition. (Contributed by Thierry Arnoux, 3-Sep-2018.)
|- B = ( Base ` G )   &    |- .< = ( lt ` G )   &    |- .+ = ( +g ` G )   &    |- ( ph -> G e. V )   &    |- ( ph -> (oppg ` G ) e. oGrp )   &    |- ( ph -> X e. B )   &    |- ( ph -> Y e. B )   &    |- ( ph -> Z e. B )   &    |- ( ph -> X .< Y )   =>    |- ( ph -> ( Z .+ X ) .< ( Z .+ Y ) )
Theorem	ogrpaddltrbid 29721	In a right ordered group, strict ordering is compatible with group addition. (Contributed by Thierry Arnoux, 4-Sep-2018.)
|- B = ( Base ` G )   &    |- .< = ( lt ` G )   &    |- .+ = ( +g ` G )   &    |- ( ph -> G e. V )   &    |- ( ph -> (oppg ` G ) e. oGrp )   &    |- ( ph -> X e. B )   &    |- ( ph -> Y e. B )   &    |- ( ph -> Z e. B )   =>    |- ( ph -> ( X .< Y <-> ( Z .+ X ) .< ( Z .+ Y ) ) )
Theorem	ogrpsublt 29722	In an ordered group, strict ordering is compatible with group addition. (Contributed by Thierry Arnoux, 3-Sep-2018.)
|- B = ( Base ` G )   &    |- .< = ( lt ` G )   &    |- .- = ( -g ` G )   =>    |- ( ( G e. oGrp /\ ( X e. B /\ Y e. B /\ Z e. B ) /\ X .< Y ) -> ( X .- Z ) .< ( Y .- Z ) )
Theorem	ogrpinv0lt 29723	In an ordered group, the ordering is compatible with group inverse. (Contributed by Thierry Arnoux, 3-Sep-2018.)
|- B = ( Base ` G )   &    |- .< = ( lt ` G )   &    |- I = ( invg ` G )   &    |- .0. = ( 0g ` G )   =>    |- ( ( G e. oGrp /\ X e. B ) -> ( .0. .< X <-> ( I ` X ) .< .0. ) )
Theorem	ogrpinvlt 29724	In an ordered group, the ordering is compatible with group inverse. (Contributed by Thierry Arnoux, 3-Sep-2018.)
|- B = ( Base ` G )   &    |- .< = ( lt ` G )   &    |- I = ( invg ` G )   =>    |- ( ( ( G e. oGrp /\ (oppg ` G ) e. oGrp ) /\ X e. B /\ Y e. B ) -> ( X .< Y <-> ( I ` Y ) .< ( I ` X ) ) )
20.3.9.3  Signum in an ordered monoid
Syntax	csgns 29725	Extend class notation to include the Signum function.
class sgns
Definition	df-sgns 29726*	Signum function for a structure. See also df-sgn 13827 for the version for extended reals. (Contributed by Thierry Arnoux, 10-Sep-2018.)
|- sgns = ( r e. _V |-> ( x e. ( Base ` r ) |-> if ( x = ( 0g ` r ) , 0 , if ( ( 0g ` r ) ( lt ` r ) x , 1 , -u 1 ) ) ) )
Theorem	sgnsv 29727*	The sign mapping. (Contributed by Thierry Arnoux, 9-Sep-2018.)
|- B = ( Base ` R )   &    |- .0. = ( 0g ` R )   &    |- .< = ( lt ` R )   &    |- S = (sgns ` R )   =>    |- ( R e. V -> S = ( x e. B |-> if ( x = .0. , 0 , if ( .0. .< x , 1 , -u 1 ) ) ) )
Theorem	sgnsval 29728	The sign value. (Contributed by Thierry Arnoux, 9-Sep-2018.)
|- B = ( Base ` R )   &    |- .0. = ( 0g ` R )   &    |- .< = ( lt ` R )   &    |- S = (sgns ` R )   =>    |- ( ( R e. V /\ X e. B ) -> ( S ` X ) = if ( X = .0. , 0 , if ( .0. .< X , 1 , -u 1 ) ) )
Theorem	sgnsf 29729	The sign function. (Contributed by Thierry Arnoux, 9-Sep-2018.)
|- B = ( Base ` R )   &    |- .0. = ( 0g ` R )   &    |- .< = ( lt ` R )   &    |- S = (sgns ` R )   =>    |- ( R e. V -> S : B --> { -u 1 , 0 , 1 } )
20.3.9.4  The Archimedean property for generic ordered algebraic structures
Syntax	cinftm 29730	Class notation for the infinitesimal relation.
class <<<
Syntax	carchi 29731	Class notation for the Archimedean property.
class Archi
Definition	df-inftm 29732*	Define the relation " x is infinitesimal with respect to y " for a structure w. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- <<< = ( w e. _V |-> { <. x , y >. | ( ( x e. ( Base ` w ) /\ y e. ( Base ` w ) ) /\ ( ( 0g ` w ) ( lt ` w ) x /\ A. n e. NN ( n (.g ` w ) x ) ( lt ` w ) y ) ) } )
Definition	df-archi 29733	A structure said to be Archimedean if it has no infinitesimal elements. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- Archi = { w | (<<< ` w ) = (/) }
Theorem	inftmrel 29734	The infinitesimal relation for a structure W. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` W )   =>    |- ( W e. V -> (<<< ` W ) C_ ( B X. B ) )
Theorem	isinftm 29735*	Express x is infinitesimal with respect to y for a structure W. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .x. = (.g ` W )   &    |- .< = ( lt ` W )   =>    |- ( ( W e. V /\ X e. B /\ Y e. B ) -> ( X (<<< ` W ) Y <-> ( .0. .< X /\ A. n e. NN ( n .x. X ) .< Y ) ) )
Theorem	isarchi 29736*	Express the predicate " W is Archimedean ". (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .< = (<<< ` W )   =>    |- ( W e. V -> ( W e. Archi <-> A. x e. B A. y e. B -. x .< y ) )
Theorem	pnfinf 29737	Plus infinity is an infinite for the completed real line, as any real number is infinitesimal compared to it. (Contributed by Thierry Arnoux, 1-Feb-2018.)
|- ( A e. RR+ -> A (<<< ` RR*s ) +oo )
Theorem	xrnarchi 29738	The completed real line is not Archimedean. (Contributed by Thierry Arnoux, 1-Feb-2018.)
|- -. RR*s e. Archi
Theorem	isarchi2 29739*	Alternative way to express the predicate " W is Archimedean ", for Tosets. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .x. = (.g ` W )   &    |- .<_ = ( le ` W )   &    |- .< = ( lt ` W )   =>    |- ( ( W e. Toset /\ W e. Mnd ) -> ( W e. Archi <-> A. x e. B A. y e. B ( .0. .< x -> E. n e. NN y .<_ ( n .x. x ) ) ) )
Theorem	submarchi 29740	A submonoid is archimedean. (Contributed by Thierry Arnoux, 16-Sep-2018.)
|- ( ( ( W e. Toset /\ W e. Archi ) /\ A e. (SubMnd ` W ) ) -> ( W ↾s A ) e. Archi )
Theorem	isarchi3 29741*	This is the usual definition of the Archimedean property for an ordered group. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .< = ( lt ` W )   &    |- .x. = (.g ` W )   =>    |- ( W e. oGrp -> ( W e. Archi <-> A. x e. B A. y e. B ( .0. .< x -> E. n e. NN y .< ( n .x. x ) ) ) )
Theorem	archirng 29742*	Property of Archimedean ordered groups, framing positive Y between multiples of X. (Contributed by Thierry Arnoux, 12-Apr-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .< = ( lt ` W )   &    |- .<_ = ( le ` W )   &    |- .x. = (.g ` W )   &    |- ( ph -> W e. oGrp )   &    |- ( ph -> W e. Archi )   &    |- ( ph -> X e. B )   &    |- ( ph -> Y e. B )   &    |- ( ph -> .0. .< X )   &    |- ( ph -> .0. .< Y )   =>    |- ( ph -> E. n e. NN0 ( ( n .x. X ) .< Y /\ Y .<_ ( ( n + 1 ) .x. X ) ) )
Theorem	archirngz 29743*	Property of Archimedean left and right ordered groups. (Contributed by Thierry Arnoux, 6-May-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .< = ( lt ` W )   &    |- .<_ = ( le ` W )   &    |- .x. = (.g ` W )   &    |- ( ph -> W e. oGrp )   &    |- ( ph -> W e. Archi )   &    |- ( ph -> X e. B )   &    |- ( ph -> Y e. B )   &    |- ( ph -> .0. .< X )   &    |- ( ph -> (oppg ` W ) e. oGrp )   =>    |- ( ph -> E. n e. ZZ ( ( n .x. X ) .< Y /\ Y .<_ ( ( n + 1 ) .x. X ) ) )
Theorem	archiexdiv 29744*	In an Archimedean group, given two positive elements, there exists a "divisor" n. (Contributed by Thierry Arnoux, 30-Jan-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .< = ( lt ` W )   &    |- .x. = (.g ` W )   =>    |- ( ( ( W e. oGrp /\ W e. Archi ) /\ ( X e. B /\ Y e. B ) /\ .0. .< X ) -> E. n e. NN Y .< ( n .x. X ) )
Theorem	archiabllem1a 29745*	Lemma for archiabl 29752: In case an archimedean group W admits a smallest positive element U, then any positive element X of W can be written as ( n .x. U ) with n e. NN. Since the reciprocal holds for negative elements, W is then isomorphic to ZZ. (Contributed by Thierry Arnoux, 12-Apr-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .<_ = ( le ` W )   &    |- .< = ( lt ` W )   &    |- .x. = (.g ` W )   &    |- ( ph -> W e. oGrp )   &    |- ( ph -> W e. Archi )   &    |- ( ph -> U e. B )   &    |- ( ph -> .0. .< U )   &    |- ( ( ph /\ x e. B /\ .0. .< x ) -> U .<_ x )   &    |- ( ph -> X e. B )   &    |- ( ph -> .0. .< X )   =>    |- ( ph -> E. n e. NN X = ( n .x. U ) )
Theorem	archiabllem1b 29746*	Lemma for archiabl 29752. (Contributed by Thierry Arnoux, 13-Apr-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .<_ = ( le ` W )   &    |- .< = ( lt ` W )   &    |- .x. = (.g ` W )   &    |- ( ph -> W e. oGrp )   &    |- ( ph -> W e. Archi )   &    |- ( ph -> U e. B )   &    |- ( ph -> .0. .< U )   &    |- ( ( ph /\ x e. B /\ .0. .< x ) -> U .<_ x )   =>    |- ( ( ph /\ y e. B ) -> E. n e. ZZ y = ( n .x. U ) )
Theorem	archiabllem1 29747*	Archimedean ordered groups with a minimal positive value are abelian. (Contributed by Thierry Arnoux, 13-Apr-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .<_ = ( le ` W )   &    |- .< = ( lt ` W )   &    |- .x. = (.g ` W )   &    |- ( ph -> W e. oGrp )   &    |- ( ph -> W e. Archi )   &    |- ( ph -> U e. B )   &    |- ( ph -> .0. .< U )   &    |- ( ( ph /\ x e. B /\ .0. .< x ) -> U .<_ x )   =>    |- ( ph -> W e. Abel )
Theorem	archiabllem2a 29748*	Lemma for archiabl 29752, which requires the group to be both left- and right-ordered. (Contributed by Thierry Arnoux, 13-Apr-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .<_ = ( le ` W )   &    |- .< = ( lt ` W )   &    |- .x. = (.g ` W )   &    |- ( ph -> W e. oGrp )   &    |- ( ph -> W e. Archi )   &    |- .+ = ( +g ` W )   &    |- ( ph -> (oppg ` W ) e. oGrp )   &    |- ( ( ph /\ a e. B /\ .0. .< a ) -> E. b e. B ( .0. .< b /\ b .< a ) )   &    |- ( ph -> X e. B )   &    |- ( ph -> .0. .< X )   =>    |- ( ph -> E. c e. B ( .0. .< c /\ ( c .+ c ) .<_ X ) )
Theorem	archiabllem2c 29749*	Lemma for archiabl 29752. (Contributed by Thierry Arnoux, 1-May-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .<_ = ( le ` W )   &    |- .< = ( lt ` W )   &    |- .x. = (.g ` W )   &    |- ( ph -> W e. oGrp )   &    |- ( ph -> W e. Archi )   &    |- .+ = ( +g ` W )   &    |- ( ph -> (oppg ` W ) e. oGrp )   &    |- ( ( ph /\ a e. B /\ .0. .< a ) -> E. b e. B ( .0. .< b /\ b .< a ) )   &    |- ( ph -> X e. B )   &    |- ( ph -> Y e. B )   =>    |- ( ph -> -. ( X .+ Y ) .< ( Y .+ X ) )
Theorem	archiabllem2b 29750*	Lemma for archiabl 29752. (Contributed by Thierry Arnoux, 1-May-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .<_ = ( le ` W )   &    |- .< = ( lt ` W )   &    |- .x. = (.g ` W )   &    |- ( ph -> W e. oGrp )   &    |- ( ph -> W e. Archi )   &    |- .+ = ( +g ` W )   &    |- ( ph -> (oppg ` W ) e. oGrp )   &    |- ( ( ph /\ a e. B /\ .0. .< a ) -> E. b e. B ( .0. .< b /\ b .< a ) )   &    |- ( ph -> X e. B )   &    |- ( ph -> Y e. B )   =>    |- ( ph -> ( X .+ Y ) = ( Y .+ X ) )
Theorem	archiabllem2 29751*	Archimedean ordered groups with no minimal positive value are abelian. (Contributed by Thierry Arnoux, 1-May-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- .<_ = ( le ` W )   &    |- .< = ( lt ` W )   &    |- .x. = (.g ` W )   &    |- ( ph -> W e. oGrp )   &    |- ( ph -> W e. Archi )   &    |- .+ = ( +g ` W )   &    |- ( ph -> (oppg ` W ) e. oGrp )   &    |- ( ( ph /\ a e. B /\ .0. .< a ) -> E. b e. B ( .0. .< b /\ b .< a ) )   =>    |- ( ph -> W e. Abel )
Theorem	archiabl 29752	Archimedean left- and right- ordered groups are Abelian. (Contributed by Thierry Arnoux, 1-May-2018.)
|- ( ( W e. oGrp /\ (oppg ` W ) e. oGrp /\ W e. Archi ) -> W e. Abel )
20.3.9.5  Semiring left modules
Syntax	cslmd 29753	Extend class notation with class of all semimodules.
class SLMod
Definition	df-slmd 29754*	Define the class of all (left) modules over semirings, i.e. semimodules, which are generalizations of left modules. A semimodule is a commutative monoid (=vectors) together with a semiring (=scalars) and a left scalar product connecting them. ( 0 [,] +oo ) for example is not a full fledged left module, but is a semimodule. Definition of [Golan] p. 149. (Contributed by Thierry Arnoux, 21-Mar-2018.)
|- SLMod = { g e. CMnd | [. ( Base ` g ) / v ]. [. ( +g ` g ) / a ]. [. ( .s ` g ) / s ]. [. (Scalar ` g ) / f ]. [. ( Base ` f ) / k ]. [. ( +g ` f ) / p ]. [. ( .r ` f ) / t ]. ( f e. SRing /\ A. q e. k A. r e. k A. x e. v A. w e. v ( ( ( r s w ) e. v /\ ( r s ( w a x ) ) = ( ( r s w ) a ( r s x ) ) /\ ( ( q p r ) s w ) = ( ( q s w ) a ( r s w ) ) ) /\ ( ( ( q t r ) s w ) = ( q s ( r s w ) ) /\ ( ( 1r ` f ) s w ) = w /\ ( ( 0g ` f ) s w ) = ( 0g ` g ) ) ) ) }
Theorem	isslmd 29755*	The predicate "is a semimodule". (Contributed by NM, 4-Nov-2013.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- .+ = ( +g ` W )   &    |- .x. = ( .s ` W )   &    |- .0. = ( 0g ` W )   &    |- F = (Scalar ` W )   &    |- K = ( Base ` F )   &    |- .+^ = ( +g ` F )   &    |- .X. = ( .r ` F )   &    |- .1. = ( 1r ` F )   &    |- O = ( 0g ` F )   =>    |- ( W e. SLMod <-> ( W e. CMnd /\ F e. SRing /\ A. q e. K A. r e. K A. x e. V A. w e. V ( ( ( r .x. w ) e. V /\ ( r .x. ( w .+ x ) ) = ( ( r .x. w ) .+ ( r .x. x ) ) /\ ( ( q .+^ r ) .x. w ) = ( ( q .x. w ) .+ ( r .x. w ) ) ) /\ ( ( ( q .X. r ) .x. w ) = ( q .x. ( r .x. w ) ) /\ ( .1. .x. w ) = w /\ ( O .x. w ) = .0. ) ) ) )
Theorem	slmdlema 29756	Lemma for properties of a semimodule. (Contributed by NM, 8-Dec-2013.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- .+ = ( +g ` W )   &    |- .x. = ( .s ` W )   &    |- .0. = ( 0g ` W )   &    |- F = (Scalar ` W )   &    |- K = ( Base ` F )   &    |- .+^ = ( +g ` F )   &    |- .X. = ( .r ` F )   &    |- .1. = ( 1r ` F )   &    |- O = ( 0g ` F )   =>    |- ( ( W e. SLMod /\ ( Q e. K /\ R e. K ) /\ ( X e. V /\ Y e. V ) ) -> ( ( ( R .x. Y ) e. V /\ ( R .x. ( Y .+ X ) ) = ( ( R .x. Y ) .+ ( R .x. X ) ) /\ ( ( Q .+^ R ) .x. Y ) = ( ( Q .x. Y ) .+ ( R .x. Y ) ) ) /\ ( ( ( Q .X. R ) .x. Y ) = ( Q .x. ( R .x. Y ) ) /\ ( .1. .x. Y ) = Y /\ ( O .x. Y ) = .0. ) ) )
Theorem	lmodslmd 29757	Left semimodules generalize the notion of left modules. (Contributed by Thierry Arnoux, 1-Apr-2018.)
|- ( W e. LMod -> W e. SLMod )
Theorem	slmdcmn 29758	A semimodule is a commutative monoid. (Contributed by Thierry Arnoux, 1-Apr-2018.)
|- ( W e. SLMod -> W e. CMnd )
Theorem	slmdmnd 29759	A semimodule is a monoid. (Contributed by Thierry Arnoux, 1-Apr-2018.)
|- ( W e. SLMod -> W e. Mnd )
Theorem	slmdsrg 29760	The scalar component of a semimodule is a semiring. (Contributed by NM, 8-Dec-2013.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- F = (Scalar ` W )   =>    |- ( W e. SLMod -> F e. SRing )
Theorem	slmdbn0 29761	The base set of a semimodule is nonempty. (Contributed by Thierry Arnoux, 1-Apr-2018.)
|- B = ( Base ` W )   =>    |- ( W e. SLMod -> B =/= (/) )
Theorem	slmdacl 29762	Closure of ring addition for a semimodule. (Contributed by Thierry Arnoux, 1-Apr-2018.)
|- F = (Scalar ` W )   &    |- K = ( Base ` F )   &    |- .+ = ( +g ` F )   =>    |- ( ( W e. SLMod /\ X e. K /\ Y e. K ) -> ( X .+ Y ) e. K )
Theorem	slmdmcl 29763	Closure of ring multiplication for a semimodule. (Contributed by NM, 14-Jan-2014.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- F = (Scalar ` W )   &    |- K = ( Base ` F )   &    |- .x. = ( .r ` F )   =>    |- ( ( W e. SLMod /\ X e. K /\ Y e. K ) -> ( X .x. Y ) e. K )
Theorem	slmdsn0 29764	The set of scalars in a semimodule is nonempty. (Contributed by Thierry Arnoux, 1-Apr-2018.)
|- F = (Scalar ` W )   &    |- B = ( Base ` F )   =>    |- ( W e. SLMod -> B =/= (/) )
Theorem	slmdvacl 29765	Closure of vector addition for a semiring left module. (Contributed by NM, 8-Dec-2013.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- .+ = ( +g ` W )   =>    |- ( ( W e. SLMod /\ X e. V /\ Y e. V ) -> ( X .+ Y ) e. V )
Theorem	slmdass 29766	Semiring left module vector sum is associative. (Contributed by NM, 10-Jan-2014.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- .+ = ( +g ` W )   =>    |- ( ( W e. SLMod /\ ( X e. V /\ Y e. V /\ Z e. V ) ) -> ( ( X .+ Y ) .+ Z ) = ( X .+ ( Y .+ Z ) ) )
Theorem	slmdvscl 29767	Closure of scalar product for a semiring left module. (hvmulcl 27870 analog.) (Contributed by NM, 8-Dec-2013.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- F = (Scalar ` W )   &    |- .x. = ( .s ` W )   &    |- K = ( Base ` F )   =>    |- ( ( W e. SLMod /\ R e. K /\ X e. V ) -> ( R .x. X ) e. V )
Theorem	slmdvsdi 29768	Distributive law for scalar product. (ax-hvdistr1 27865 analog.) (Contributed by NM, 10-Jan-2014.) (Revised by Mario Carneiro, 22-Sep-2015.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- .+ = ( +g ` W )   &    |- F = (Scalar ` W )   &    |- .x. = ( .s ` W )   &    |- K = ( Base ` F )   =>    |- ( ( W e. SLMod /\ ( R e. K /\ X e. V /\ Y e. V ) ) -> ( R .x. ( X .+ Y ) ) = ( ( R .x. X ) .+ ( R .x. Y ) ) )
Theorem	slmdvsdir 29769	Distributive law for scalar product. (ax-hvdistr1 27865 analog.) (Contributed by NM, 10-Jan-2014.) (Revised by Mario Carneiro, 22-Sep-2015.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- .+ = ( +g ` W )   &    |- F = (Scalar ` W )   &    |- .x. = ( .s ` W )   &    |- K = ( Base ` F )   &    |- .+^ = ( +g ` F )   =>    |- ( ( W e. SLMod /\ ( Q e. K /\ R e. K /\ X e. V ) ) -> ( ( Q .+^ R ) .x. X ) = ( ( Q .x. X ) .+ ( R .x. X ) ) )
Theorem	slmdvsass 29770	Associative law for scalar product. (ax-hvmulass 27864 analog.) (Contributed by NM, 10-Jan-2014.) (Revised by Mario Carneiro, 22-Sep-2015.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- F = (Scalar ` W )   &    |- .x. = ( .s ` W )   &    |- K = ( Base ` F )   &    |- .X. = ( .r ` F )   =>    |- ( ( W e. SLMod /\ ( Q e. K /\ R e. K /\ X e. V ) ) -> ( ( Q .X. R ) .x. X ) = ( Q .x. ( R .x. X ) ) )
Theorem	slmd0cl 29771	The ring zero in a semimodule belongs to the ring base set. (Contributed by NM, 11-Jan-2014.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- F = (Scalar ` W )   &    |- K = ( Base ` F )   &    |- .0. = ( 0g ` F )   =>    |- ( W e. SLMod -> .0. e. K )
Theorem	slmd1cl 29772	The ring unit in a semiring left module belongs to the ring base set. (Contributed by NM, 11-Jan-2014.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- F = (Scalar ` W )   &    |- K = ( Base ` F )   &    |- .1. = ( 1r ` F )   =>    |- ( W e. SLMod -> .1. e. K )
Theorem	slmdvs1 29773	Scalar product with ring unit. (ax-hvmulid 27863 analog.) (Contributed by NM, 10-Jan-2014.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- F = (Scalar ` W )   &    |- .x. = ( .s ` W )   &    |- .1. = ( 1r ` F )   =>    |- ( ( W e. SLMod /\ X e. V ) -> ( .1. .x. X ) = X )
Theorem	slmd0vcl 29774	The zero vector is a vector. (ax-hv0cl 27860 analog.) (Contributed by NM, 10-Jan-2014.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- .0. = ( 0g ` W )   =>    |- ( W e. SLMod -> .0. e. V )
Theorem	slmd0vlid 29775	Left identity law for the zero vector. (hvaddid2 27880 analog.) (Contributed by NM, 10-Jan-2014.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- .+ = ( +g ` W )   &    |- .0. = ( 0g ` W )   =>    |- ( ( W e. SLMod /\ X e. V ) -> ( .0. .+ X ) = X )
Theorem	slmd0vrid 29776	Right identity law for the zero vector. (ax-hvaddid 27861 analog.) (Contributed by NM, 10-Jan-2014.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- .+ = ( +g ` W )   &    |- .0. = ( 0g ` W )   =>    |- ( ( W e. SLMod /\ X e. V ) -> ( X .+ .0. ) = X )
Theorem	slmd0vs 29777	Zero times a vector is the zero vector. Equation 1a of [Kreyszig] p. 51. (ax-hvmul0 27867 analog.) (Contributed by NM, 12-Jan-2014.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- V = ( Base ` W )   &    |- F = (Scalar ` W )   &    |- .x. = ( .s ` W )   &    |- O = ( 0g ` F )   &    |- .0. = ( 0g ` W )   =>    |- ( ( W e. SLMod /\ X e. V ) -> ( O .x. X ) = .0. )
Theorem	slmdvs0 29778	Anything times the zero vector is the zero vector. Equation 1b of [Kreyszig] p. 51. (hvmul0 27881 analog.) (Contributed by NM, 12-Jan-2014.) (Revised by Mario Carneiro, 19-Jun-2014.) (Revised by Thierry Arnoux, 1-Apr-2018.)
|- F = (Scalar ` W )   &    |- .x. = ( .s ` W )   &    |- K = ( Base ` F )   &    |- .0. = ( 0g ` W )   =>    |- ( ( W e. SLMod /\ X e. K ) -> ( X .x. .0. ) = .0. )
20.3.9.6  Finitely supported group sums - misc additions
Theorem	gsumle 29779	A finite sum in an ordered monoid is monotonic. This proof would be much easier in an ordered group, where an inverse element would be available. (Contributed by Thierry Arnoux, 13-Mar-2018.)
|- B = ( Base ` M )   &    |- .<_ = ( le ` M )   &    |- ( ph -> M e. oMnd )   &    |- ( ph -> M e. CMnd )   &    |- ( ph -> A e. Fin )   &    |- ( ph -> F : A --> B )   &    |- ( ph -> G : A --> B )   &    |- ( ph -> F oR .<_ G )   =>    |- ( ph -> ( M gsumg F ) .<_ ( M gsumg G ) )
Theorem	gsummpt2co 29780*	Split a finite sum into a sum of a collection of sums over disjoint subsets. (Contributed by Thierry Arnoux, 27-Mar-2018.)
|- B = ( Base ` W )   &    |- .0. = ( 0g ` W )   &    |- ( ph -> W e. CMnd )   &    |- ( ph -> A e. Fin )   &    |- ( ph -> E e. V )   &    |- ( ( ph /\ x e. A ) -> C e. B )   &    |- ( ( ph /\ x e. A ) -> D e. E )   &    |- F = ( x e. A |-> D )   =>    |- ( ph -> ( W gsumg ( x e. A |-> C ) ) = ( W gsumg ( y e. E |-> ( W gsumg ( x e. ( `' F " { y } ) |-> C ) ) ) ) )
Theorem	gsummpt2d 29781*	Express a finite sum over a two-dimensional range as a double sum. See also gsum2d 18371. (Contributed by Thierry Arnoux, 27-Apr-2020.)
|- F/_ z C   &    |- F/ y ph   &    |- B = ( Base ` W )   &    |- ( x = <. y , z >. -> C = D )   &    |- ( ph -> Rel A )   &    |- ( ph -> A e. Fin )   &    |- ( ph -> W e. CMnd )   &    |- ( ( ph /\ x e. A ) -> C e. B )   =>    |- ( ph -> ( W gsumg ( x e. A |-> C ) ) = ( W gsumg ( y e. dom A |-> ( W gsumg ( z e. ( A " { y } ) |-> D ) ) ) ) )
Theorem	gsumvsca1 29782*	Scalar product of a finite group sum for a left module over a semiring. (Contributed by Thierry Arnoux, 16-Mar-2018.)
|- B = ( Base ` W )   &    |- G = (Scalar ` W )   &    |- .0. = ( 0g ` W )   &    |- .x. = ( .s ` W )   &    |- .+ = ( +g ` W )   &    |- ( ph -> K C_ ( Base ` G ) )   &    |- ( ph -> A e. Fin )   &    |- ( ph -> W e. SLMod )   &    |- ( ph -> P e. K )   &    |- ( ( ph /\ k e. A ) -> Q e. B )   =>    |- ( ph -> ( W gsumg ( k e. A |-> ( P .x. Q ) ) ) = ( P .x. ( W gsumg ( k e. A |-> Q ) ) ) )
Theorem	gsumvsca2 29783*	Scalar product of a finite group sum for a left module over a semiring. (Contributed by Thierry Arnoux, 16-Mar-2018.) (Proof shortened by AV, 12-Dec-2019.)
|- B = ( Base ` W )   &    |- G = (Scalar ` W )   &    |- .0. = ( 0g ` W )   &    |- .x. = ( .s ` W )   &    |- .+ = ( +g ` W )   &    |- ( ph -> K C_ ( Base ` G ) )   &    |- ( ph -> A e. Fin )   &    |- ( ph -> W e. SLMod )   &    |- ( ph -> Q e. B )   &    |- ( ( ph /\ k e. A ) -> P e. K )   =>    |- ( ph -> ( W gsumg ( k e. A |-> ( P .x. Q ) ) ) = ( ( G gsumg ( k e. A |-> P ) ) .x. Q ) )
Theorem	gsummptres 29784*	Extend a finite group sum by padding outside with zeroes. Proof generated using OpenAI's proof assistant. (Contributed by Thierry Arnoux, 11-Jul-2020.)
|- B = ( Base ` G )   &    |- .0. = ( 0g ` G )   &    |- ( ph -> G e. CMnd )   &    |- ( ph -> A e. Fin )   &    |- ( ( ph /\ x e. A ) -> C e. B )   &    |- ( ( ph /\ x e. ( A \ D ) ) -> C = .0. )   =>    |- ( ph -> ( G gsumg ( x e. A |-> C ) ) = ( G gsumg ( x e. ( A i^i D ) |-> C ) ) )
Theorem	xrge0tsmsd 29785*	Any finite or infinite sum in the nonnegative extended reals is uniquely convergent to the supremum of all finite sums. (Contributed by Mario Carneiro, 13-Sep-2015.) (Revised by Thierry Arnoux, 30-Jan-2017.)
|- G = ( RR*s ↾s ( 0 [,] +oo ) )   &    |- ( ph -> A e. V )   &    |- ( ph -> F : A --> ( 0 [,] +oo ) )   &    |- ( ph -> S = sup ( ran ( s e. ( ~P A i^i Fin ) |-> ( G gsumg ( F |` s ) ) ) , RR* , < ) )   =>    |- ( ph -> ( G tsums F ) = { S } )
Theorem	xrge0tsmsbi 29786	Any limit of a finite or infinite sum in the nonnegative extended reals is the union of the sets limits, since this set is a singleton. (Contributed by Thierry Arnoux, 23-Jun-2017.)
|- G = ( RR*s ↾s ( 0 [,] +oo ) )   &    |- ( ph -> A e. V )   &    |- ( ph -> F : A --> ( 0 [,] +oo ) )   =>    |- ( ph -> ( C e. ( G tsums F ) <-> C = U. ( G tsums F ) ) )
Theorem	xrge0tsmseq 29787	Any limit of a finite or infinite sum in the nonnegative extended reals is the union of the sets limits, since this set is a singleton. (Contributed by Thierry Arnoux, 24-Mar-2017.)
|- G = ( RR*s ↾s ( 0 [,] +oo ) )   &    |- ( ph -> A e. V )   &    |- ( ph -> F : A --> ( 0 [,] +oo ) )   &    |- ( ph -> C e. ( G tsums F ) )   =>    |- ( ph -> C = U. ( G tsums F ) )
20.3.9.7  Rings - misc additions
Theorem	rngurd 29788*	Deduce the unit of a ring from its properties. (Contributed by Thierry Arnoux, 6-Sep-2016.)
|- ( ph -> B = ( Base ` R ) )   &    |- ( ph -> .x. = ( .r ` R ) )   &    |- ( ph -> .1. e. B )   &    |- ( ( ph /\ x e. B ) -> ( .1. .x. x ) = x )   &    |- ( ( ph /\ x e. B ) -> ( x .x. .1. ) = x )   =>    |- ( ph -> .1. = ( 1r ` R ) )
Theorem	ress1r 29789	1r is unaffected by restriction. This is a bit more generic than subrg1 18790. (Contributed by Thierry Arnoux, 6-Sep-2018.)
|- S = ( R ↾s A )   &    |- B = ( Base ` R )   &    |- .1. = ( 1r ` R )   =>    |- ( ( R e. Ring /\ .1. e. A /\ A C_ B ) -> .1. = ( 1r ` S ) )
Theorem	dvrdir 29790	Distributive law for the division operation of a ring. (Contributed by Thierry Arnoux, 30-Oct-2017.)
|- B = ( Base ` R )   &    |- U = (Unit ` R )   &    |- .+ = ( +g ` R )   &    |- ./ = (/r ` R )   =>    |- ( ( R e. Ring /\ ( X e. B /\ Y e. B /\ Z e. U ) ) -> ( ( X .+ Y ) ./ Z ) = ( ( X ./ Z ) .+ ( Y ./ Z ) ) )
Theorem	rdivmuldivd 29791	Multiplication of two ratios. Theorem I.14 of [Apostol] p. 18. (Contributed by Thierry Arnoux, 30-Oct-2017.)
|- B = ( Base ` R )   &    |- U = (Unit ` R )   &    |- .+ = ( +g ` R )   &    |- ./ = (/r ` R )   &    |- .x. = ( .r ` R )   &    |- ( ph -> R e. CRing )   &    |- ( ph -> X e. B )   &    |- ( ph -> Y e. U )   &    |- ( ph -> Z e. B )   &    |- ( ph -> W e. U )   =>    |- ( ph -> ( ( X ./ Y ) .x. ( Z ./ W ) ) = ( ( X .x. Z ) ./ ( Y .x. W ) ) )
Theorem	ringinvval 29792*	The ring inverse expressed in terms of multiplication. (Contributed by Thierry Arnoux, 23-Oct-2017.)
|- B = ( Base ` R )   &    |- .* = ( .r ` R )   &    |- .1. = ( 1r ` R )   &    |- N = ( invr ` R )   &    |- U = (Unit ` R )   =>    |- ( ( R e. Ring /\ X e. U ) -> ( N ` X ) = ( iota_ y e. U ( y .* X ) = .1. ) )
Theorem	dvrcan5 29793	Cancellation law for common factor in ratio. (divcan5 10727 analog.) (Contributed by Thierry Arnoux, 26-Oct-2016.)
|- B = ( Base ` R )   &    |- U = (Unit ` R )   &    |- ./ = (/r ` R )   &    |- .x. = ( .r ` R )   =>    |- ( ( R e. Ring /\ ( X e. B /\ Y e. U /\ Z e. U ) ) -> ( ( X .x. Z ) ./ ( Y .x. Z ) ) = ( X ./ Y ) )
Theorem	subrgchr 29794	If A is a subring of R, then they have the same characteristic. (Contributed by Thierry Arnoux, 24-Feb-2018.)
|- ( A e. (SubRing ` R ) -> (chr ` ( R ↾s A ) ) = (chr ` R ) )
20.3.9.8  Ordered rings and fields
Syntax	corng 29795	Extend class notation with the class of all ordered rings.
class oRing
Syntax	cofld 29796	Extend class notation with the class of all ordered fields.
class oField
Definition	df-orng 29797*	Define class of all ordered rings. An ordered ring is a ring with a total ordering compatible with its operations. (Contributed by Thierry Arnoux, 23-Mar-2018.)
|- oRing = { r e. ( Ring i^i oGrp ) | [. ( Base ` r ) / v ]. [. ( 0g ` r ) / z ]. [. ( .r ` r ) / t ]. [. ( le ` r ) / l ]. A. a e. v A. b e. v ( ( z l a /\ z l b ) -> z l ( a t b ) ) }
Definition	df-ofld 29798	Define class of all ordered fields. An ordered field is a field with a total ordering compatible with its operations. (Contributed by Thierry Arnoux, 18-Jan-2018.)
|- oField = (Field i^i oRing )
Theorem	isorng 29799*	An ordered ring is a ring with a total ordering compatible with its operations. (Contributed by Thierry Arnoux, 18-Jan-2018.)
|- B = ( Base ` R )   &    |- .0. = ( 0g ` R )   &    |- .x. = ( .r ` R )   &    |- .<_ = ( le ` R )   =>    |- ( R e. oRing <-> ( R e. Ring /\ R e. oGrp /\ A. a e. B A. b e. B ( ( .0. .<_ a /\ .0. .<_ b ) -> .0. .<_ ( a .x. b ) ) ) )
Theorem	orngring 29800	An ordered ring is a ring. (Contributed by Thierry Arnoux, 23-Mar-2018.)
|- ( R e. oRing -> R e. Ring )