begin
definition
let R be ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
Ring) ;
let V be ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightMod of
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
Ring) ) ;
mode Submodule of
V -> ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightMod of
R : ( ( ) ( )
1-sorted ) )
means
( the
carrier of
it : ( ( ) ( )
BiModStr over
R : ( ( ) ( )
1-sorted ) ,
V : ( ( ) ( )
1-sorted ) ) : ( ( ) ( )
set )
c= the
carrier of
V : ( ( ) ( )
1-sorted ) : ( ( ) ( )
set ) &
0. it : ( ( ) ( )
BiModStr over
R : ( ( ) ( )
1-sorted ) ,
V : ( ( ) ( )
1-sorted ) ) : ( ( ) (
V49(
it : ( ( ) ( )
BiModStr over
R : ( ( ) ( )
1-sorted ) ,
V : ( ( ) ( )
1-sorted ) ) ) )
Element of the
carrier of
it : ( ( ) ( )
BiModStr over
R : ( ( ) ( )
1-sorted ) ,
V : ( ( ) ( )
1-sorted ) ) : ( ( ) ( )
set ) )
= 0. V : ( ( ) ( )
1-sorted ) : ( ( ) ( )
Element of the
carrier of
V : ( ( ) ( )
1-sorted ) : ( ( ) ( )
set ) ) & the
addF of
it : ( ( ) ( )
BiModStr over
R : ( ( ) ( )
1-sorted ) ,
V : ( ( ) ( )
1-sorted ) ) : ( (
Function-like V18(
[: the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) , the
carrier of
it : ( ( ) ( )
BiModStr over
R : ( ( ) ( )
1-sorted ) ,
V : ( ( ) ( )
1-sorted ) ) : ( ( ) ( )
set ) ) ) (
Relation-like Function-like V18(
[: the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) , the
carrier of
it : ( ( ) ( )
BiModStr over
R : ( ( ) ( )
1-sorted ) ,
V : ( ( ) ( )
1-sorted ) ) : ( ( ) ( )
set ) ) )
Element of
bool [:[: the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) , the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) : ( ( ) ( non
empty )
set ) )
= the
addF of
V : ( ( ) ( )
1-sorted ) : ( (
Function-like V18(
[: the carrier of V : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) , the carrier of V : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) , the
carrier of
V : ( ( ) ( )
1-sorted ) : ( ( ) ( )
set ) ) ) (
Relation-like Function-like V18(
[: the carrier of V : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) , the carrier of V : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) , the
carrier of
V : ( ( ) ( )
1-sorted ) : ( ( ) ( )
set ) ) )
Element of
bool [:[: the carrier of V : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) , the carrier of V : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) , the carrier of V : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) : ( ( ) ( non
empty )
set ) )
| [: the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) : ( (
Relation-like ) (
Relation-like Function-like )
set ) & the
rmult of
it : ( ( ) ( )
BiModStr over
R : ( ( ) ( )
1-sorted ) ,
V : ( ( ) ( )
1-sorted ) ) : ( (
Function-like V18(
[: the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) , the carrier of R : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) , the
carrier of
it : ( ( ) ( )
BiModStr over
R : ( ( ) ( )
1-sorted ) ,
V : ( ( ) ( )
1-sorted ) ) : ( ( ) ( )
set ) ) ) (
Relation-like Function-like V18(
[: the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) , the carrier of R : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) , the
carrier of
it : ( ( ) ( )
BiModStr over
R : ( ( ) ( )
1-sorted ) ,
V : ( ( ) ( )
1-sorted ) ) : ( ( ) ( )
set ) ) )
Element of
bool [:[: the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) , the carrier of R : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) , the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) : ( ( ) ( non
empty )
set ) )
= the
rmult of
V : ( ( ) ( )
1-sorted ) : ( (
Function-like V18(
[: the carrier of V : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) , the carrier of R : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) , the
carrier of
V : ( ( ) ( )
1-sorted ) : ( ( ) ( )
set ) ) ) (
Relation-like Function-like V18(
[: the carrier of V : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) , the carrier of R : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) , the
carrier of
V : ( ( ) ( )
1-sorted ) : ( ( ) ( )
set ) ) )
Element of
bool [:[: the carrier of V : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) , the carrier of R : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) , the carrier of V : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) : ( ( ) ( non
empty )
set ) )
| [: the carrier of it : ( ( ) ( ) BiModStr over R : ( ( ) ( ) 1-sorted ) ,V : ( ( ) ( ) 1-sorted ) ) : ( ( ) ( ) set ) , the carrier of R : ( ( ) ( ) 1-sorted ) : ( ( ) ( ) set ) :] : ( ( ) (
Relation-like )
set ) : ( (
Relation-like ) (
Relation-like Function-like )
set ) );
end;
definition
let R be ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
Ring) ;
let V be ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightMod of
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
Ring) ) ;
func (Omega). V -> ( (
strict ) ( non
empty right_complementable Abelian add-associative right_zeroed strict RightMod-like )
Submodule of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) )
equals
RightModStr(# the
carrier of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) : ( ( ) ( non
empty )
set ) , the
addF of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) : ( (
Function-like V18(
[: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) , the
carrier of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) : ( ( ) ( non
empty )
set ) ) ) (
Relation-like Function-like V18(
[: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) , the
carrier of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) : ( ( ) ( non
empty )
set ) ) )
Element of
bool [:[: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( Relation-like non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) : ( ( ) ( non
empty )
set ) ) , the
ZeroF of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) : ( ( ) (
right_complementable )
Element of the
carrier of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) : ( ( ) ( non
empty )
set ) ) , the
rmult of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) : ( (
Function-like V18(
[: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) , the carrier of R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) , the
carrier of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) : ( ( ) ( non
empty )
set ) ) ) (
Relation-like Function-like V18(
[: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) , the carrier of R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) , the
carrier of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) : ( ( ) ( non
empty )
set ) ) )
Element of
bool [:[: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) , the carrier of R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( Relation-like non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) (
Relation-like non
empty )
set ) : ( ( ) ( non
empty )
set ) ) #) : ( (
strict ) ( non
empty strict )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) ;
end;
definition
let R be ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
Ring) ;
let V be ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightMod of
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
Ring) ) ;
let v be ( ( ) (
right_complementable )
Vector of ( ( ) ( non
empty )
set ) ) ;
let W be ( ( ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
Submodule of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightMod of
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
Ring) ) ) ;
func v + W -> ( ( ) ( )
Subset of )
equals
{ (v : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) + u : ( ( ) ( right_complementable ) Vector of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( right_complementable ) Element of the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) : ( ( ) ( non empty ) set ) ) where u is ( ( ) ( right_complementable ) Vector of ( ( ) ( non empty ) set ) ) : u : ( ( ) ( right_complementable ) Vector of ( ( ) ( non empty ) set ) ) in W : ( ( Function-like V18([:v : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) ,v : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) :] : ( ( ) ( Relation-like ) set ) ,v : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) ) ) ( Relation-like Function-like V18([:v : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) ,v : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) :] : ( ( ) ( Relation-like ) set ) ,v : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) ) ) Element of bool [:[:v : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) ,v : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) :] : ( ( ) ( Relation-like ) set ) ,v : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) } ;
end;
definition
let R be ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
Ring) ;
let V be ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightMod of
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
Ring) ) ;
let W be ( ( ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
Submodule of
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightMod of
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
Ring) ) ) ;
mode Coset of
W -> ( ( ) ( )
Subset of )
means
ex
v being ( ( ) (
right_complementable )
Vector of ( ( ) ( non
empty )
set ) ) st
it : ( (
Function-like V18(
[:W : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) ,W : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) :] : ( ( ) (
Relation-like )
set ) ,
W : ( ( ) ( )
BiModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ,
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) ) ) ) (
Relation-like Function-like V18(
[:W : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) ,W : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) :] : ( ( ) (
Relation-like )
set ) ,
W : ( ( ) ( )
BiModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ,
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) ) ) )
Element of
bool [:[:W : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) ,W : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) :] : ( ( ) ( Relation-like ) set ) ,W : ( ( ) ( ) BiModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non empty right_complementable Abelian add-associative right_zeroed RightMod-like ) RightModStr over R : ( ( non empty right_complementable associative well-unital V102() Abelian add-associative right_zeroed ) ( non empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102() left_unital Abelian add-associative right_zeroed ) doubleLoopStr ) ) ) :] : ( ( ) (
Relation-like )
set ) : ( ( ) ( non
empty )
set ) )
= v : ( ( ) (
right_complementable )
Vector of ( ( ) ( non
empty )
set ) )
+ W : ( ( ) ( )
BiModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ,
V : ( ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like ) ( non
empty right_complementable Abelian add-associative right_zeroed RightMod-like )
RightModStr over
R : ( ( non
empty right_complementable associative well-unital V102()
Abelian add-associative right_zeroed ) ( non
empty right_complementable unital associative right-distributive left-distributive right_unital well-unital V102()
left_unital Abelian add-associative right_zeroed )
doubleLoopStr ) ) ) : ( ( ) ( )
Subset of ) ;
end;