:: C0SP1 semantic presentation

begin

definition
let V be ( ( non empty ) ( non empty ) addLoopStr ) ;
let V1 be ( ( ) ( ) Subset of ) ;
attr V1 is having-inverse means :: C0SP1:def 1
for v being ( ( ) ( ) Element of ( ( ) ( ) set ) ) st v : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in V1 : ( ( ) ( ) VectSpStr over V : ( ( ) ( ) Normed_AlgebraStr ) ) holds
- v : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) Element of the carrier of V : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) ) in V1 : ( ( ) ( ) VectSpStr over V : ( ( ) ( ) Normed_AlgebraStr ) ) ;
end;

definition
let V be ( ( non empty ) ( non empty ) addLoopStr ) ;
let V1 be ( ( ) ( ) Subset of ) ;
attr V1 is additively-closed means :: C0SP1:def 2
( V1 : ( ( ) ( ) VectSpStr over V : ( ( ) ( ) Normed_AlgebraStr ) ) is add-closed & V1 : ( ( ) ( ) VectSpStr over V : ( ( ) ( ) Normed_AlgebraStr ) ) is having-inverse );
end;

registration
let V be ( ( non empty ) ( non empty ) addLoopStr ) ;
cluster [#] V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty non proper ) Element of bool the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) -> add-closed having-inverse ;
end;

registration
let V be ( ( non empty ) ( non empty ) doubleLoopStr ) ;
cluster additively-closed -> add-closed having-inverse for ( ( ) ( ) Element of bool the carrier of V : ( ( ) ( ) set ) : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) ;
cluster add-closed having-inverse -> additively-closed for ( ( ) ( ) Element of bool the carrier of V : ( ( ) ( ) set ) : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

registration
let V be ( ( non empty ) ( non empty ) addLoopStr ) ;
cluster non empty add-closed having-inverse for ( ( ) ( ) Element of bool the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

definition
let V be ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) ;
mode Subring of V -> ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) means :: C0SP1:def 3
( the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) c= the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) & the addF of it : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like [: the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) -defined the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [:[: the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) = the addF of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( Function-like quasi_total ) ( non empty Relation-like [: the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) -valued Function-like V23([: the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[: the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) || the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) : ( ( ) ( Relation-like Function-like ) set ) & the multF of it : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like [: the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) -defined the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [:[: the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) = the multF of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( Function-like quasi_total ) ( non empty Relation-like [: the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) -valued Function-like V23([: the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[: the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) || the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) : ( ( ) ( Relation-like Function-like ) set ) & 1. it : ( ( ) ( ) set ) : ( ( ) ( ) Element of the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) = 1. V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( ) Element of the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) ) & 0. it : ( ( ) ( ) set ) : ( ( ) ( ) Element of the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) = 0. V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( V49(V : ( ( non empty ) ( non empty ) addLoopStr ) ) ) Element of the carrier of V : ( ( non empty ) ( non empty ) addLoopStr ) : ( ( ) ( non empty ) set ) ) );
end;

theorem :: C0SP1:1
for X being ( ( non empty ) ( non empty ) set )
for d1, d2 being ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) )
for A being ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) BinOp of X : ( ( non empty ) ( non empty ) set ) )
for M being ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:X : ( ( non empty ) ( non empty ) set ) ,X : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ,X : ( ( non empty ) ( non empty ) set ) )
for V being ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring)
for V1 being ( ( ) ( ) Subset of ) st V1 : ( ( ) ( ) Subset of ) = X : ( ( non empty ) ( non empty ) set ) & A : ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) BinOp of b1 : ( ( non empty ) ( non empty ) set ) ) = the addF of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( Function-like quasi_total ) ( non empty Relation-like [: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) -valued Function-like V23([: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) || V1 : ( ( ) ( ) Subset of ) : ( ( ) ( Relation-like Function-like ) set ) & M : ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) ) = the multF of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( Function-like quasi_total ) ( non empty Relation-like [: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) -valued Function-like V23([: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) || V1 : ( ( ) ( ) Subset of ) : ( ( ) ( Relation-like Function-like ) set ) & d1 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) = 1. V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) ) & d2 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) = 0. V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( V49(b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) ) left_complementable right_complementable complementable ) Element of the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) : ( ( ) ( non empty ) set ) ) & V1 : ( ( ) ( ) Subset of ) is having-inverse holds
doubleLoopStr(# X : ( ( non empty ) ( non empty ) set ) ,A : ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) BinOp of b1 : ( ( non empty ) ( non empty ) set ) ) ,M : ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) ) ,d1 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ,d2 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) #) : ( ( strict ) ( non empty strict ) doubleLoopStr ) is ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Subring of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) ) ;

registration
let V be ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) ;
cluster non empty left_complementable right_complementable complementable strict Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital for ( ( ) ( ) Subring of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) ) ;
end;

definition
let V be ( ( non empty ) ( non empty ) multLoopStr_0 ) ;
let V1 be ( ( ) ( ) Subset of ) ;
attr V1 is multiplicatively-closed means :: C0SP1:def 4
( 1. V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) ) in V1 : ( ( ) ( ) set ) & ( for v, u being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) st v : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in V1 : ( ( ) ( ) set ) & u : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) in V1 : ( ( ) ( ) set ) holds
v : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) * u : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) ) in V1 : ( ( ) ( ) set ) ) );
end;

definition
let V be ( ( non empty ) ( non empty ) addLoopStr ) ;
let V1 be ( ( ) ( ) Subset of ) ;
assume ( V1 : ( ( ) ( ) Subset of ) is add-closed & not V1 : ( ( ) ( ) Subset of ) is empty ) ;
func Add_ (V1,V) -> ( ( Function-like quasi_total ) ( Relation-like [:V1 : ( ( ) ( ) set ) ,V1 : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) -defined V1 : ( ( ) ( ) set ) -valued Function-like quasi_total ) BinOp of V1 : ( ( ) ( ) set ) ) equals :: C0SP1:def 5
the addF of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( Function-like quasi_total ) ( non empty Relation-like [: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) -valued Function-like V23([: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) || V1 : ( ( ) ( ) set ) : ( ( ) ( Relation-like Function-like ) set ) ;
end;

definition
let V be ( ( non empty ) ( non empty ) multLoopStr_0 ) ;
let V1 be ( ( ) ( ) Subset of ) ;
assume ( V1 : ( ( ) ( ) Subset of ) is multiplicatively-closed & not V1 : ( ( ) ( ) Subset of ) is empty ) ;
func mult_ (V1,V) -> ( ( Function-like quasi_total ) ( Relation-like [:V1 : ( ( ) ( ) set ) ,V1 : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) -defined V1 : ( ( ) ( ) set ) -valued Function-like quasi_total ) BinOp of V1 : ( ( ) ( ) set ) ) equals :: C0SP1:def 6
the multF of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( Function-like quasi_total ) ( non empty Relation-like [: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) -valued Function-like V23([: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) || V1 : ( ( ) ( ) set ) : ( ( ) ( Relation-like Function-like ) set ) ;
end;

definition
let V be ( ( non empty right_complementable add-associative right_zeroed ) ( non empty right_complementable add-associative right_zeroed ) doubleLoopStr ) ;
let V1 be ( ( ) ( ) Subset of ) ;
assume ( V1 : ( ( ) ( ) Subset of ) is add-closed & V1 : ( ( ) ( ) Subset of ) is having-inverse & not V1 : ( ( ) ( ) Subset of ) is empty ) ;
func Zero_ (V1,V) -> ( ( ) ( ) Element of V1 : ( ( ) ( ) set ) ) equals :: C0SP1:def 7
0. V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( V49(V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) ) left_complementable right_complementable complementable ) Element of the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) ) ;
end;

definition
let V be ( ( non empty ) ( non empty ) multLoopStr_0 ) ;
let V1 be ( ( ) ( ) Subset of ) ;
assume ( V1 : ( ( ) ( ) Subset of ) is multiplicatively-closed & not V1 : ( ( ) ( ) Subset of ) is empty ) ;
func One_ (V1,V) -> ( ( ) ( ) Element of V1 : ( ( ) ( ) set ) ) equals :: C0SP1:def 8
1. V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) ) ;
end;

theorem :: C0SP1:2
for V being ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring)
for V1 being ( ( ) ( ) Subset of ) st V1 : ( ( ) ( ) Subset of ) is additively-closed & V1 : ( ( ) ( ) Subset of ) is multiplicatively-closed & not V1 : ( ( ) ( ) Subset of ) is empty holds
doubleLoopStr(# V1 : ( ( ) ( ) Subset of ) ,(Add_ (V1 : ( ( ) ( ) Subset of ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) )) : ( ( Function-like quasi_total ) ( Relation-like [:b2 : ( ( ) ( ) Subset of ) ,b2 : ( ( ) ( ) Subset of ) :] : ( ( ) ( ) set ) -defined b2 : ( ( ) ( ) Subset of ) -valued Function-like quasi_total ) BinOp of b2 : ( ( ) ( ) Subset of ) ) ,(mult_ (V1 : ( ( ) ( ) Subset of ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) )) : ( ( Function-like quasi_total ) ( Relation-like [:b2 : ( ( ) ( ) Subset of ) ,b2 : ( ( ) ( ) Subset of ) :] : ( ( ) ( ) set ) -defined b2 : ( ( ) ( ) Subset of ) -valued Function-like quasi_total ) BinOp of b2 : ( ( ) ( ) Subset of ) ) ,(One_ (V1 : ( ( ) ( ) Subset of ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) )) : ( ( ) ( ) Element of b2 : ( ( ) ( ) Subset of ) ) ,(Zero_ (V1 : ( ( ) ( ) Subset of ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) )) : ( ( ) ( ) Element of b2 : ( ( ) ( ) Subset of ) ) #) : ( ( strict ) ( strict ) doubleLoopStr ) is ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) Ring) ;

begin

definition
let V be ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ;
mode Subalgebra of V -> ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) means :: C0SP1:def 9
( the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) c= the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) & the addF of it : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like [: the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) -defined the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [:[: the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) = the addF of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( Function-like quasi_total ) ( non empty Relation-like [: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) -valued Function-like V23([: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) || the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) : ( ( ) ( Relation-like Function-like ) set ) & the multF of it : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like [: the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) -defined the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [:[: the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) = the multF of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( Function-like quasi_total ) ( non empty Relation-like [: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) -valued Function-like V23([: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[: the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) || the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) : ( ( ) ( Relation-like Function-like ) set ) & the Mult of it : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) -defined the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [:[:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) = the Mult of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( Function-like quasi_total ) ( non empty Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) -valued Function-like V23([:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) | [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( Function-like ) ( Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) -valued Function-like ) Element of bool [:[:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) & 1. it : ( ( ) ( ) set ) : ( ( ) ( ) Element of the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) = 1. V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) ) & 0. it : ( ( ) ( ) set ) : ( ( ) ( ) Element of the carrier of it : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) = 0. V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( V49(V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) ) left_complementable right_complementable complementable ) Element of the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed associative well-unital distributive ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed V100() unital associative right-distributive left-distributive right_unital well-unital distributive left_unital ) doubleLoopStr ) : ( ( ) ( non empty ) set ) ) );
end;

theorem :: C0SP1:3
for X being ( ( non empty ) ( non empty ) set )
for d1, d2 being ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) )
for A being ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) BinOp of X : ( ( non empty ) ( non empty ) set ) )
for M being ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:X : ( ( non empty ) ( non empty ) set ) ,X : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ,X : ( ( non empty ) ( non empty ) set ) )
for V being ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra)
for V1 being ( ( ) ( ) Subset of )
for MR being ( ( Function-like quasi_total ) ( non empty Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,X : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ,X : ( ( non empty ) ( non empty ) set ) ) st V1 : ( ( ) ( ) Subset of ) = X : ( ( non empty ) ( non empty ) set ) & d1 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) = 0. V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( V49(b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) left_complementable right_complementable complementable ) Element of the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) & d2 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) = 1. V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) & A : ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) BinOp of b1 : ( ( non empty ) ( non empty ) set ) ) = the addF of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( Function-like quasi_total ) ( non empty Relation-like [: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) -valued Function-like V23([: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) || V1 : ( ( ) ( ) Subset of ) : ( ( ) ( Relation-like Function-like ) set ) & M : ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) ) = the multF of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( Function-like quasi_total ) ( non empty Relation-like [: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) -valued Function-like V23([: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[: the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) || V1 : ( ( ) ( ) Subset of ) : ( ( ) ( Relation-like Function-like ) set ) & MR : ( ( Function-like quasi_total ) ( non empty Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) ) = the Mult of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( Function-like quasi_total ) ( non empty Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) -valued Function-like V23([:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) | [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,V1 : ( ( ) ( ) Subset of ) :] : ( ( ) ( ) set ) : ( ( Function-like ) ( Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) -valued Function-like ) Element of bool [:[:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of b6 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) & V1 : ( ( ) ( ) Subset of ) is having-inverse holds
AlgebraStr(# X : ( ( non empty ) ( non empty ) set ) ,M : ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) ) ,A : ( ( Function-like quasi_total ) ( non empty Relation-like [:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) BinOp of b1 : ( ( non empty ) ( non empty ) set ) ) ,MR : ( ( Function-like quasi_total ) ( non empty Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V23([:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) ) ,d2 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ,d1 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) #) : ( ( strict ) ( strict ) AlgebraStr ) is ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) ;

registration
let V be ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ;
cluster non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital for ( ( ) ( ) Subalgebra of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) ;
end;

definition
let V be ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ;
let V1 be ( ( ) ( ) Subset of ) ;
attr V1 is additively-linearly-closed means :: C0SP1:def 10
( V1 : ( ( ) ( ) set ) is add-closed & V1 : ( ( ) ( ) set ) is having-inverse & ( for a being ( ( ) ( V11() real ext-real ) Real)
for v being ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) st v : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) in V1 : ( ( ) ( ) set ) holds
a : ( ( ) ( V11() real ext-real ) Real) * v : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) ) in V1 : ( ( ) ( ) set ) ) );
end;

registration
let V be ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ;
cluster additively-linearly-closed -> additively-closed for ( ( ) ( ) Element of bool the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

definition
let V be ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ;
let V1 be ( ( ) ( ) Subset of ) ;
assume ( V1 : ( ( ) ( ) Subset of ) is additively-linearly-closed & not V1 : ( ( ) ( ) Subset of ) is empty ) ;
func Mult_ (V1,V) -> ( ( Function-like quasi_total ) ( Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,V1 : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) -defined V1 : ( ( ) ( ) set ) -valued Function-like quasi_total ) Function of [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,V1 : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) ,V1 : ( ( ) ( ) set ) ) equals :: C0SP1:def 11
the Mult of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( Function-like quasi_total ) ( non empty Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) -valued Function-like V23([:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [:[:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) | [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,V1 : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( Function-like ) ( Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) -defined the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) -valued Function-like ) Element of bool [:[:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) , the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ;
end;

definition
let V be ( ( non empty ) ( non empty ) RLSStruct ) ;
attr V is scalar-mult-cancelable means :: C0SP1:def 12
for a being ( ( ) ( V11() real ext-real ) Real)
for v being ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) holds
( not a : ( ( ) ( V11() real ext-real ) Real) * v : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) ) = 0. V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( V49(V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) left_complementable right_complementable complementable ) Element of the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) ) or a : ( ( ) ( V11() real ext-real ) Real) = 0 : ( ( ) ( empty epsilon-transitive epsilon-connected ordinal T-Sequence-like c=-linear natural V11() real V111() V112() ext-real non positive non negative V177() V178() V179() V180() V181() V182() V183() ) Element of NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) or v : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) = 0. V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( V49(V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) left_complementable right_complementable complementable ) Element of the carrier of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( ) ( non empty ) set ) ) );
end;

theorem :: C0SP1:4
for V being ( ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) AlgebraStr )
for a being ( ( ) ( V11() real ext-real ) Real) holds a : ( ( ) ( V11() real ext-real ) Real) * (0. V : ( ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) AlgebraStr ) ) : ( ( ) ( V49(b1 : ( ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) AlgebraStr ) ) right_complementable ) Element of the carrier of b1 : ( ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) AlgebraStr ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( right_complementable ) Element of the carrier of b1 : ( ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) AlgebraStr ) : ( ( ) ( non empty ) set ) ) = 0. V : ( ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) AlgebraStr ) : ( ( ) ( V49(b1 : ( ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) AlgebraStr ) ) right_complementable ) Element of the carrier of b1 : ( ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) ( non empty right_complementable add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) AlgebraStr ) : ( ( ) ( non empty ) set ) ) ;

theorem :: C0SP1:5
for V being ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative ) AlgebraStr ) st V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative ) AlgebraStr ) is scalar-mult-cancelable holds
V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative ) AlgebraStr ) is ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() ) RealLinearSpace) ;

theorem :: C0SP1:6
for V being ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra)
for V1 being ( ( ) ( ) Subset of ) st V1 : ( ( ) ( ) Subset of ) is additively-linearly-closed & V1 : ( ( ) ( ) Subset of ) is multiplicatively-closed & not V1 : ( ( ) ( ) Subset of ) is empty holds
AlgebraStr(# V1 : ( ( ) ( ) Subset of ) ,(mult_ (V1 : ( ( ) ( ) Subset of ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) )) : ( ( Function-like quasi_total ) ( Relation-like [:b2 : ( ( ) ( ) Subset of ) ,b2 : ( ( ) ( ) Subset of ) :] : ( ( ) ( ) set ) -defined b2 : ( ( ) ( ) Subset of ) -valued Function-like quasi_total ) BinOp of b2 : ( ( ) ( ) Subset of ) ) ,(Add_ (V1 : ( ( ) ( ) Subset of ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) )) : ( ( Function-like quasi_total ) ( Relation-like [:b2 : ( ( ) ( ) Subset of ) ,b2 : ( ( ) ( ) Subset of ) :] : ( ( ) ( ) set ) -defined b2 : ( ( ) ( ) Subset of ) -valued Function-like quasi_total ) BinOp of b2 : ( ( ) ( ) Subset of ) ) ,(Mult_ (V1 : ( ( ) ( ) Subset of ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) )) : ( ( Function-like quasi_total ) ( Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,b2 : ( ( ) ( ) Subset of ) :] : ( ( ) ( ) set ) -defined b2 : ( ( ) ( ) Subset of ) -valued Function-like quasi_total ) Function of [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,b2 : ( ( ) ( ) Subset of ) :] : ( ( ) ( ) set ) ,b2 : ( ( ) ( ) Subset of ) ) ,(One_ (V1 : ( ( ) ( ) Subset of ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) )) : ( ( ) ( ) Element of b2 : ( ( ) ( ) Subset of ) ) ,(Zero_ (V1 : ( ( ) ( ) Subset of ) ,V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) )) : ( ( ) ( ) Element of b2 : ( ( ) ( ) Subset of ) ) #) : ( ( strict ) ( strict ) AlgebraStr ) is ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) ;

registration
let X be ( ( non empty ) ( non empty ) set ) ;
cluster RAlgebra X : ( ( non empty ) ( non empty ) set ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) -> right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative strict vector-associative associative commutative right-distributive right_unital ;
end;

theorem :: C0SP1:7
for X being ( ( non empty ) ( non empty ) set ) holds RAlgebra X : ( ( non empty ) ( non empty ) set ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) is ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() ) RealLinearSpace) ;

theorem :: C0SP1:8
for V being ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra)
for V1 being ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) holds
( ( for v1, w1 being ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) )
for v, w being ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) st v1 : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) = v : ( ( ) ( V11() real ext-real ) Real) & w1 : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) = w : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) holds
v1 : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) + w1 : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of b2 : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) : ( ( ) ( non empty ) set ) ) = v : ( ( ) ( V11() real ext-real ) Real) + w : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) ) & ( for v1, w1 being ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) )
for v, w being ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) st v1 : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) = v : ( ( ) ( V11() real ext-real ) Real) & w1 : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) = w : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) holds
v1 : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) * w1 : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of b2 : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) : ( ( ) ( non empty ) set ) ) = v : ( ( ) ( V11() real ext-real ) Real) * w : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) ) & ( for v1 being ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) )
for v being ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) )
for a being ( ( ) ( V11() real ext-real ) Real) st v1 : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) = v : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) holds
a : ( ( ) ( V11() real ext-real ) Real) * v1 : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of b2 : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) : ( ( ) ( non empty ) set ) ) = a : ( ( ) ( V11() real ext-real ) Real) * v : ( ( ) ( left_complementable right_complementable complementable ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) ) & 1_ V1 : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of b2 : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) : ( ( ) ( non empty ) set ) ) = 1_ V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) & 0. V1 : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) : ( ( ) ( V49(b2 : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) ) left_complementable right_complementable complementable ) Element of the carrier of b2 : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) : ( ( ) ( non empty ) set ) ) = 0. V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( V49(b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) left_complementable right_complementable complementable ) Element of the carrier of b1 : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) ) ;

begin

definition
let X be ( ( non empty ) ( non empty ) set ) ;
func BoundedFunctions X -> ( ( non empty ) ( non empty ) Subset of ) equals :: C0SP1:def 13
{ f : ( ( Function-like quasi_total ) ( non empty Relation-like X : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(X : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) where f is ( ( Function-like quasi_total ) ( non empty Relation-like X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : f : ( ( Function-like quasi_total ) ( non empty Relation-like X : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(X : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) | X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( Function-like ) ( Relation-like X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V150() V151() V152() ) Element of bool [:X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ,REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) :] : ( ( ) ( V150() V151() V152() ) set ) : ( ( ) ( non empty ) set ) ) is bounded } ;
end;

theorem :: C0SP1:9
for X being ( ( non empty ) ( non empty ) set ) holds
( BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( non empty ) ( non empty ) Subset of ) is additively-linearly-closed & BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( non empty ) ( non empty ) Subset of ) is multiplicatively-closed ) ;

registration
let X be ( ( non empty ) ( non empty ) set ) ;
cluster BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( non empty ) ( non empty ) Subset of ) -> non empty multiplicatively-closed additively-linearly-closed ;
end;

definition
let X be ( ( non empty ) ( non empty ) set ) ;
func R_Algebra_of_BoundedFunctions X -> ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) equals :: C0SP1:def 14
AlgebraStr(# (BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(mult_ ((BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(RAlgebra X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( Function-like quasi_total ) ( non empty Relation-like [:(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) -defined BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) -valued Function-like V23([:(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) BinOp of BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) ,(Add_ ((BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(RAlgebra X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( Function-like quasi_total ) ( non empty Relation-like [:(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) -defined BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) -valued Function-like V23([:(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) BinOp of BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) ,(Mult_ ((BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(RAlgebra X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( Function-like quasi_total ) ( non empty Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) -defined BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) -valued Function-like V23([:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) , BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) ,(One_ ((BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(RAlgebra X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( ) ( ) Element of BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) ,(Zero_ ((BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(RAlgebra X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( ) ( ) Element of BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) #) : ( ( strict ) ( strict ) AlgebraStr ) ;
end;

theorem :: C0SP1:10
for X being ( ( non empty ) ( non empty ) set ) holds R_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) is ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Subalgebra of RAlgebra X : ( ( non empty ) ( non empty ) set ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) ;

theorem :: C0SP1:11
for X being ( ( non empty ) ( non empty ) set ) holds R_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) is ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() ) RealLinearSpace) ;

theorem :: C0SP1:12
for X being ( ( non empty ) ( non empty ) set )
for F, G, H being ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) )
for f, g, h being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) st f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = F : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) & g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = G : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) & h : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = H : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) holds
( H : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) = F : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) + G : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of (R_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) iff for x being ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) ) holds h : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = (f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) + (g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ) ;

theorem :: C0SP1:13
for X being ( ( non empty ) ( non empty ) set )
for a being ( ( ) ( V11() real ext-real ) Real)
for F, G being ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) )
for f, g being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) st f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = F : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) & g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = G : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) holds
( G : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) = a : ( ( ) ( V11() real ext-real ) Real) * F : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of (R_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) iff for x being ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) ) holds g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = a : ( ( ) ( V11() real ext-real ) Real) * (f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ) ;

theorem :: C0SP1:14
for X being ( ( non empty ) ( non empty ) set )
for F, G, H being ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) )
for f, g, h being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) st f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = F : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) & g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = G : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) & h : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = H : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) holds
( H : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) = F : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) * G : ( ( ) ( left_complementable right_complementable complementable ) VECTOR of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of (R_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) iff for x being ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) ) holds h : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = (f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) * (g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ) ;

theorem :: C0SP1:15
for X being ( ( non empty ) ( non empty ) set ) holds 0. (R_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) ) : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( V49( R_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ) left_complementable right_complementable complementable ) Element of the carrier of (R_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) = X : ( ( non empty ) ( non empty ) set ) --> 0 : ( ( ) ( empty epsilon-transitive epsilon-connected ordinal T-Sequence-like c=-linear natural V11() real V111() V112() ext-real non positive non negative V177() V178() V179() V180() V181() V182() V183() ) Element of NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined RAT : ( ( ) ( non empty V30() V177() V178() V179() V180() V183() ) set ) -valued INT : ( ( ) ( non empty V30() V177() V178() V179() V180() V181() V183() ) set ) -valued NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) -valued Function-like constant V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() V153() bounded ) Element of bool [:b1 : ( ( non empty ) ( non empty ) set ) ,NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) :] : ( ( ) ( non empty RAT : ( ( ) ( non empty V30() V177() V178() V179() V180() V183() ) set ) -valued INT : ( ( ) ( non empty V30() V177() V178() V179() V180() V181() V183() ) set ) -valued V150() V151() V152() V153() ) set ) : ( ( ) ( non empty ) set ) ) ;

theorem :: C0SP1:16
for X being ( ( non empty ) ( non empty ) set ) holds 1_ (R_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) ) : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of (R_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) : ( ( ) ( non empty ) set ) ) = X : ( ( non empty ) ( non empty ) set ) --> 1 : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal natural V11() real V111() V112() ext-real positive non negative V177() V178() V179() V180() V181() V182() ) Element of NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like non-empty b1 : ( ( non empty ) ( non empty ) set ) -defined RAT : ( ( ) ( non empty V30() V177() V178() V179() V180() V183() ) set ) -valued INT : ( ( ) ( non empty V30() V177() V178() V179() V180() V181() V183() ) set ) -valued NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) -valued Function-like constant V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() V153() bounded ) Element of bool [:b1 : ( ( non empty ) ( non empty ) set ) ,NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) :] : ( ( ) ( non empty RAT : ( ( ) ( non empty V30() V177() V178() V179() V180() V183() ) set ) -valued INT : ( ( ) ( non empty V30() V177() V178() V179() V180() V181() V183() ) set ) -valued V150() V151() V152() V153() ) set ) : ( ( ) ( non empty ) set ) ) ;

definition
let X be ( ( non empty ) ( non empty ) set ) ;
let F be ( ( ) ( ) set ) ;
assume F : ( ( ) ( ) set ) in BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( non empty ) ( non empty add-closed having-inverse additively-closed multiplicatively-closed additively-linearly-closed ) Subset of ) ;
func modetrans (F,X) -> ( ( Function-like quasi_total ) ( non empty Relation-like X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) means :: C0SP1:def 15
( it : ( ( Function-like quasi_total ) ( Relation-like [:X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ,X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) :] : ( ( ) ( ) set ) -defined X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) -valued Function-like quasi_total ) Element of bool [:[:X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ,X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) :] : ( ( ) ( ) set ) ,X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) = F : ( ( ) ( ) set ) & it : ( ( Function-like quasi_total ) ( Relation-like [:X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ,X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) :] : ( ( ) ( ) set ) -defined X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) -valued Function-like quasi_total ) Element of bool [:[:X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ,X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) :] : ( ( ) ( ) set ) ,X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) | X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( Function-like ) ( Relation-like X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V150() V151() V152() ) Element of bool [:X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ,REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) :] : ( ( ) ( V150() V151() V152() ) set ) : ( ( ) ( non empty ) set ) ) is bounded );
end;

definition
let X be ( ( non empty ) ( non empty ) set ) ;
let f be ( ( Function-like quasi_total ) ( non empty Relation-like X : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(X : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ;
func PreNorms f -> ( ( non empty ) ( non empty V177() V178() V179() ) Subset of ( ( ) ( non empty ) set ) ) equals :: C0SP1:def 16
{ (abs (f : ( ( ) ( ) set ) . x : ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) where x is ( ( ) ( ) Element of X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : verum } ;
end;

theorem :: C0SP1:17
for X being ( ( non empty ) ( non empty ) set )
for f being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) st f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) | X : ( ( non empty ) ( non empty ) set ) : ( ( Function-like ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V150() V151() V152() ) Element of bool [:b1 : ( ( non empty ) ( non empty ) set ) ,REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) :] : ( ( ) ( non empty V150() V151() V152() ) set ) : ( ( ) ( non empty ) set ) ) is bounded holds
PreNorms f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( non empty ) ( non empty V177() V178() V179() ) Subset of ( ( ) ( non empty ) set ) ) is bounded_above ;

theorem :: C0SP1:18
for X being ( ( non empty ) ( non empty ) set )
for f being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) holds
( f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) | X : ( ( non empty ) ( non empty ) set ) : ( ( Function-like ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V150() V151() V152() ) Element of bool [:b1 : ( ( non empty ) ( non empty ) set ) ,REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) :] : ( ( ) ( non empty V150() V151() V152() ) set ) : ( ( ) ( non empty ) set ) ) is bounded iff PreNorms f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( non empty ) ( non empty V177() V178() V179() ) Subset of ( ( ) ( non empty ) set ) ) is bounded_above ) ;

definition
let X be ( ( non empty ) ( non empty ) set ) ;
func BoundedFunctionsNorm X -> ( ( Function-like quasi_total ) ( non empty Relation-like BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23( BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) quasi_total V150() V151() V152() ) Function of BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) means :: C0SP1:def 17
for x being ( ( ) ( ) set ) st x : ( ( ) ( ) set ) in BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) holds
it : ( ( ) ( ) set ) . x : ( ( ) ( ) set ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = upper_bound (PreNorms (modetrans (x : ( ( ) ( ) set ) ,X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( Function-like quasi_total ) ( non empty Relation-like X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ) : ( ( non empty ) ( non empty V177() V178() V179() ) Subset of ( ( ) ( non empty ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ;
end;

theorem :: C0SP1:19
for X being ( ( non empty ) ( non empty ) set )
for f being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) st f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) | X : ( ( non empty ) ( non empty ) set ) : ( ( Function-like ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V150() V151() V152() ) Element of bool [:b1 : ( ( non empty ) ( non empty ) set ) ,REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) :] : ( ( ) ( non empty V150() V151() V152() ) set ) : ( ( ) ( non empty ) set ) ) is bounded holds
modetrans (f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ,X : ( ( non empty ) ( non empty ) set ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ;

theorem :: C0SP1:20
for X being ( ( non empty ) ( non empty ) set )
for f being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) st f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) | X : ( ( non empty ) ( non empty ) set ) : ( ( Function-like ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V150() V151() V152() ) Element of bool [:b1 : ( ( non empty ) ( non empty ) set ) ,REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) :] : ( ( ) ( non empty V150() V151() V152() ) set ) : ( ( ) ( non empty ) set ) ) is bounded holds
(BoundedFunctionsNorm X : ( ( non empty ) ( non empty ) set ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) : ( ( non empty ) ( non empty add-closed having-inverse additively-closed multiplicatively-closed additively-linearly-closed ) Subset of ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23( BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) : ( ( non empty ) ( non empty add-closed having-inverse additively-closed multiplicatively-closed additively-linearly-closed ) Subset of ) ) quasi_total V150() V151() V152() ) Function of BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) : ( ( non empty ) ( non empty add-closed having-inverse additively-closed multiplicatively-closed additively-linearly-closed ) Subset of ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = upper_bound (PreNorms f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ) : ( ( non empty ) ( non empty V177() V178() V179() ) Subset of ( ( ) ( non empty ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ;

definition
let X be ( ( non empty ) ( non empty ) set ) ;
func R_Normed_Algebra_of_BoundedFunctions X -> ( ( ) ( ) Normed_AlgebraStr ) equals :: C0SP1:def 18
Normed_AlgebraStr(# (BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(mult_ ((BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(RAlgebra X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( Function-like quasi_total ) ( non empty Relation-like [:(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) -defined BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) -valued Function-like V23([:(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) BinOp of BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) ,(Add_ ((BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(RAlgebra X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( Function-like quasi_total ) ( non empty Relation-like [:(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) -defined BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) -valued Function-like V23([:(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) BinOp of BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) ,(Mult_ ((BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(RAlgebra X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( Function-like quasi_total ) ( non empty Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) -defined BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) -valued Function-like V23([:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,(BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) :] : ( ( ) ( non empty ) set ) , BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) ,(One_ ((BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(RAlgebra X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( ) ( ) Element of BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) ,(Zero_ ((BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( non empty ) ( non empty ) Subset of ) ,(RAlgebra X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( ) ( ) Element of BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) ,(BoundedFunctionsNorm X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23( BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) ) quasi_total V150() V151() V152() ) Function of BoundedFunctions X : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) : ( ( non empty ) ( non empty ) Subset of ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) #) : ( ( strict ) ( strict ) Normed_AlgebraStr ) ;
end;

registration
let X be ( ( non empty ) ( non empty ) set ) ;
cluster R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( ) ( ) Normed_AlgebraStr ) -> non empty ;
end;

registration
let X be ( ( non empty ) ( non empty ) set ) ;
cluster R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty ) Normed_AlgebraStr ) -> unital ;
end;

theorem :: C0SP1:21
for W being ( ( ) ( ) Normed_AlgebraStr )
for V being ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) st AlgebraStr(# the carrier of W : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) , the multF of W : ( ( ) ( ) Normed_AlgebraStr ) : ( ( Function-like quasi_total ) ( Relation-like [: the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) , the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [:[: the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) , the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) , the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) , the addF of W : ( ( ) ( ) Normed_AlgebraStr ) : ( ( Function-like quasi_total ) ( Relation-like [: the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) , the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [:[: the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) , the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) , the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) , the Mult of W : ( ( ) ( ) Normed_AlgebraStr ) : ( ( Function-like quasi_total ) ( Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) -defined the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [:[:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) , the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) , the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) :] : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) , the OneF of W : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) Element of the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) ) , the ZeroF of W : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) Element of the carrier of b1 : ( ( ) ( ) Normed_AlgebraStr ) : ( ( ) ( ) set ) ) #) : ( ( strict ) ( strict ) AlgebraStr ) = V : ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) holds
W : ( ( ) ( ) Normed_AlgebraStr ) is ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ;

theorem :: C0SP1:22
for X being ( ( non empty ) ( non empty ) set ) holds R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) is ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative vector-associative associative commutative right-distributive right_unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) Algebra) ;

theorem :: C0SP1:23
for X being ( ( non empty ) ( non empty ) set )
for F being ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) holds (Mult_ ((BoundedFunctions X : ( ( non empty ) ( non empty ) set ) ) : ( ( non empty ) ( non empty add-closed having-inverse additively-closed multiplicatively-closed additively-linearly-closed ) Subset of ) ,(RAlgebra X : ( ( non empty ) ( non empty ) set ) ) : ( ( strict ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative V100() strict vector-associative unital associative commutative right-distributive right_unital well-unital left_unital ) AlgebraStr ) )) : ( ( Function-like quasi_total ) ( non empty Relation-like [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,(BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( non empty ) ( non empty add-closed having-inverse additively-closed multiplicatively-closed additively-linearly-closed ) Subset of ) :] : ( ( ) ( non empty ) set ) -defined BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) : ( ( non empty ) ( non empty add-closed having-inverse additively-closed multiplicatively-closed additively-linearly-closed ) Subset of ) -valued Function-like V23([:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,(BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( non empty ) ( non empty add-closed having-inverse additively-closed multiplicatively-closed additively-linearly-closed ) Subset of ) :] : ( ( ) ( non empty ) set ) ) quasi_total ) Function of [:REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ,(BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( non empty ) ( non empty add-closed having-inverse additively-closed multiplicatively-closed additively-linearly-closed ) Subset of ) :] : ( ( ) ( non empty ) set ) , BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) : ( ( non empty ) ( non empty add-closed having-inverse additively-closed multiplicatively-closed additively-linearly-closed ) Subset of ) ) . (1 : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal natural V11() real V111() V112() ext-real positive non negative V177() V178() V179() V180() V181() V182() ) Element of NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) ,F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) set ) = F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) ;

theorem :: C0SP1:24
for X being ( ( non empty ) ( non empty ) set ) holds R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) is ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() ) RealLinearSpace) ;

theorem :: C0SP1:25
for X being ( ( non empty ) ( non empty ) set ) holds X : ( ( non empty ) ( non empty ) set ) --> 0 : ( ( ) ( empty epsilon-transitive epsilon-connected ordinal T-Sequence-like c=-linear natural V11() real V111() V112() ext-real non positive non negative V177() V178() V179() V180() V181() V182() V183() ) Element of NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined RAT : ( ( ) ( non empty V30() V177() V178() V179() V180() V183() ) set ) -valued INT : ( ( ) ( non empty V30() V177() V178() V179() V180() V181() V183() ) set ) -valued NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) -valued Function-like constant V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() V153() bounded ) Element of bool [:b1 : ( ( non empty ) ( non empty ) set ) ,NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) :] : ( ( ) ( non empty RAT : ( ( ) ( non empty V30() V177() V178() V179() V180() V183() ) set ) -valued INT : ( ( ) ( non empty V30() V177() V178() V179() V180() V181() V183() ) set ) -valued V150() V151() V152() V153() ) set ) : ( ( ) ( non empty ) set ) ) = 0. (R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( V49( R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) ) ) Element of the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) ) ;

theorem :: C0SP1:26
for X being ( ( non empty ) ( non empty ) set )
for x being ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) )
for f being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) )
for F being ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) st f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) & f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) | X : ( ( non empty ) ( non empty ) set ) : ( ( Function-like ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V150() V151() V152() ) Element of bool [:b1 : ( ( non empty ) ( non empty ) set ) ,REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) :] : ( ( ) ( non empty V150() V151() V152() ) set ) : ( ( ) ( non empty ) set ) ) is bounded holds
abs (f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) <= ||.F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) .|| : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ;

theorem :: C0SP1:27
for X being ( ( non empty ) ( non empty ) set )
for F being ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) holds 0 : ( ( ) ( empty epsilon-transitive epsilon-connected ordinal T-Sequence-like c=-linear natural V11() real V111() V112() ext-real non positive non negative V177() V178() V179() V180() V181() V182() V183() ) Element of NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) <= ||.F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) .|| : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ;

theorem :: C0SP1:28
for X being ( ( non empty ) ( non empty ) set )
for F being ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) st F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) = 0. (R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( V49( R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) ) ) Element of the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) ) holds
0 : ( ( ) ( empty epsilon-transitive epsilon-connected ordinal T-Sequence-like c=-linear natural V11() real V111() V112() ext-real non positive non negative V177() V178() V179() V180() V181() V182() V183() ) Element of NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) = ||.F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) .|| : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ;

theorem :: C0SP1:29
for X being ( ( non empty ) ( non empty ) set )
for f, g, h being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) )
for F, G, H being ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) st f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) & g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = G : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) & h : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = H : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) holds
( H : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) = F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) + G : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) Element of the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) ) iff for x being ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) ) holds h : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = (f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) + (g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ) ;

theorem :: C0SP1:30
for X being ( ( non empty ) ( non empty ) set )
for a being ( ( ) ( V11() real ext-real ) Real)
for f, g being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) )
for F, G being ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) st f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) & g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = G : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) holds
( G : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) = a : ( ( ) ( V11() real ext-real ) Real) * F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) Element of the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) ) iff for x being ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) ) holds g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = a : ( ( ) ( V11() real ext-real ) Real) * (f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ) ;

theorem :: C0SP1:31
for X being ( ( non empty ) ( non empty ) set )
for f, g, h being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) )
for F, G, H being ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) st f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) & g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = G : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) & h : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = H : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) holds
( H : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) = F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) * G : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) Element of the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) ) iff for x being ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) ) holds h : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = (f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) * (g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ) ;

theorem :: C0SP1:32
for X being ( ( non empty ) ( non empty ) set )
for a being ( ( ) ( V11() real ext-real ) Real)
for F, G being ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) holds
( ( ||.F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) .|| : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = 0 : ( ( ) ( empty epsilon-transitive epsilon-connected ordinal T-Sequence-like c=-linear natural V11() real V111() V112() ext-real non positive non negative V177() V178() V179() V180() V181() V182() V183() ) Element of NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) implies F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) = 0. (R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( V49( R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) ) ) Element of the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) ) ) & ( F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) = 0. (R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( V49( R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) ) ) Element of the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) ) implies ||.F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) .|| : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = 0 : ( ( ) ( empty epsilon-transitive epsilon-connected ordinal T-Sequence-like c=-linear natural V11() real V111() V112() ext-real non positive non negative V177() V178() V179() V180() V181() V182() V183() ) Element of NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) ) & ||.(a : ( ( ) ( V11() real ext-real ) Real) * F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) ) .|| : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = (abs a : ( ( ) ( V11() real ext-real ) Real) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) * ||.F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) .|| : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) & ||.(F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) + G : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) ) .|| : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) <= ||.F : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) .|| : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) + ||.G : ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) .|| : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ) ;

theorem :: C0SP1:33
for X being ( ( non empty ) ( non empty ) set ) holds
( R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) is reflexive & R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) is discerning & R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) is RealNormSpace-like ) ;

registration
let X be ( ( non empty ) ( non empty ) set ) ;
cluster R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty unital ) Normed_AlgebraStr ) -> right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital discerning reflexive RealNormSpace-like ;
end;

theorem :: C0SP1:34
for X being ( ( non empty ) ( non empty ) set )
for f, g, h being ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of X : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) )
for F, G, H being ( ( ) ( ) Point of ( ( ) ( non empty ) set ) ) st f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = F : ( ( ) ( left_complementable right_complementable complementable ) Point of ( ( ) ( non empty ) set ) ) & g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = G : ( ( ) ( left_complementable right_complementable complementable ) Point of ( ( ) ( non empty ) set ) ) & h : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = H : ( ( ) ( left_complementable right_complementable complementable ) Point of ( ( ) ( non empty ) set ) ) holds
( H : ( ( ) ( left_complementable right_complementable complementable ) Point of ( ( ) ( non empty ) set ) ) = F : ( ( ) ( left_complementable right_complementable complementable ) Point of ( ( ) ( non empty ) set ) ) - G : ( ( ) ( left_complementable right_complementable complementable ) Point of ( ( ) ( non empty ) set ) ) : ( ( ) ( left_complementable right_complementable complementable ) Element of the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() discerning reflexive RealNormSpace-like unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) ) iff for x being ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) ) holds h : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) = (f : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) - (g : ( ( Function-like quasi_total ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) -valued Function-like V23(b1 : ( ( non empty ) ( non empty ) set ) ) quasi_total V150() V151() V152() ) Function of b1 : ( ( non empty ) ( non empty ) set ) , REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) : ( ( ) ( V11() real ext-real ) Element of REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) ) ) ;

theorem :: C0SP1:35
for X being ( ( non empty ) ( non empty ) set )
for seq being ( ( Function-like quasi_total ) ( non empty Relation-like NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) -defined the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() discerning reflexive RealNormSpace-like unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) -valued Function-like V23( NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) quasi_total ) sequence of ( ( ) ( non empty ) set ) ) st seq : ( ( Function-like quasi_total ) ( non empty Relation-like NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) -defined the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() discerning reflexive RealNormSpace-like unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) -valued Function-like V23( NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) quasi_total ) sequence of ( ( ) ( non empty ) set ) ) is Cauchy_sequence_by_Norm holds
seq : ( ( Function-like quasi_total ) ( non empty Relation-like NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) -defined the carrier of (R_Normed_Algebra_of_BoundedFunctions b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() discerning reflexive RealNormSpace-like unital ) Normed_AlgebraStr ) : ( ( ) ( non empty ) set ) -valued Function-like V23( NAT : ( ( ) ( non empty epsilon-transitive epsilon-connected ordinal V177() V178() V179() V180() V181() V182() V183() ) Element of bool REAL : ( ( ) ( non empty V30() V177() V178() V179() V183() ) set ) : ( ( ) ( non empty ) set ) ) ) quasi_total ) sequence of ( ( ) ( non empty ) set ) ) is convergent ;

theorem :: C0SP1:36
for X being ( ( non empty ) ( non empty ) set ) holds R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() discerning reflexive RealNormSpace-like unital ) Normed_AlgebraStr ) is ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital discerning reflexive RealNormSpace-like complete ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() discerning reflexive RealNormSpace-like complete ) RealBanachSpace) ;

registration
let X be ( ( non empty ) ( non empty ) set ) ;
cluster R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() discerning reflexive RealNormSpace-like unital ) Normed_AlgebraStr ) -> complete ;
end;

theorem :: C0SP1:37
for X being ( ( non empty ) ( non empty ) set ) holds R_Normed_Algebra_of_BoundedFunctions X : ( ( non empty ) ( non empty ) set ) : ( ( ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() discerning reflexive RealNormSpace-like unital complete ) Normed_AlgebraStr ) is ( ( non empty right_complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital discerning reflexive RealNormSpace-like vector-associative associative right-distributive right_unital Banach_Algebra-like ) ( non empty left_complementable right_complementable complementable Abelian add-associative right_zeroed vector-distributive scalar-distributive scalar-associative scalar-unital V100() discerning reflexive RealNormSpace-like vector-associative unital associative right-distributive left-distributive right_unital distributive left_unital complete Banach_Algebra-like_1 Banach_Algebra-like_2 Banach_Algebra-like_3 Banach_Algebra-like ) Banach_Algebra) ;