:: PRALG_3 semantic presentation

begin

registration
let I be ( ( ) ( ) set ) ;
let S be ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ;
let AF be ( ( ) ( Relation-like I : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( ) ( ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ;
cluster product AF : ( ( ) ( Relation-like I : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( ) ( ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( ) ( strict ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) -> non-empty ;
end;

registration
let X be ( ( with_non-empty_elements ) ( with_non-empty_elements ) set ) ;
cluster id X : ( ( with_non-empty_elements ) ( with_non-empty_elements ) set ) : ( ( Relation-like ) ( Relation-like X : ( ( with_non-empty_elements ) ( with_non-empty_elements ) set ) -defined X : ( ( with_non-empty_elements ) ( with_non-empty_elements ) set ) -valued V12() V14() V15() V19() Function-like one-to-one ) set ) -> Relation-like non-empty ;
end;

theorem :: PRALG_3:1
for f, F being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function)
for A being ( ( ) ( ) set ) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) in product F : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( functional with_common_domain product-like ) set ) holds
f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) | A : ( ( ) ( ) set ) : ( ( Relation-like ) ( Relation-like Function-like ) set ) in product (F : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) | A : ( ( ) ( ) set ) ) : ( ( Relation-like ) ( Relation-like Function-like ) set ) : ( ( ) ( functional with_common_domain product-like ) set ) ;

theorem :: PRALG_3:2
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for s being ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) )
for a being ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) )
for Aa being ( ( ) ( non empty Relation-like b5 : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) -defined Function-like total ) MSAlgebra-Family of a : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) st A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) | a : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( Relation-like b5 : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) -defined b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like ) set ) = Aa : ( ( ) ( non empty Relation-like b5 : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) -defined Function-like total ) MSAlgebra-Family of b5 : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) holds
Carrier (Aa : ( ( ) ( non empty Relation-like b5 : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) -defined Function-like total ) MSAlgebra-Family of b5 : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like b5 : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding b5 : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) -defined Function-like total ) set ) = (Carrier (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) )) : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) set ) | a : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( Relation-like b5 : ( ( non empty ) ( non empty ) Subset of ( ( ) ( non empty ) set ) ) -defined b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like ) set ) ;

theorem :: PRALG_3:3
for i being ( ( ) ( ) set )
for I being ( ( non empty ) ( non empty ) set )
for EqR being ( ( V14() V19() total ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b2 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of I : ( ( non empty ) ( non empty ) set ) )
for c1, c2 being ( ( ) ( non empty ) Element of Class EqR : ( ( V14() V19() total ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b2 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b2 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b2 : ( ( non empty ) ( non empty ) set ) ) ) st i : ( ( ) ( ) set ) in c1 : ( ( ) ( non empty ) Element of Class b3 : ( ( V14() V19() total ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b2 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b2 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b2 : ( ( non empty ) ( non empty ) set ) ) ) & i : ( ( ) ( ) set ) in c2 : ( ( ) ( non empty ) Element of Class b3 : ( ( V14() V19() total ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b2 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b2 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b2 : ( ( non empty ) ( non empty ) set ) ) ) holds
c1 : ( ( ) ( non empty ) Element of Class b3 : ( ( V14() V19() total ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b2 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b2 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b2 : ( ( non empty ) ( non empty ) set ) ) ) = c2 : ( ( ) ( non empty ) Element of Class b3 : ( ( V14() V19() total ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b2 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b2 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b2 : ( ( non empty ) ( non empty ) set ) ) ) ;

theorem :: PRALG_3:4
for D being ( ( non empty ) ( non empty ) set )
for F being ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of D : ( ( non empty ) ( non empty ) set ) )
for C being ( ( non empty functional with_common_domain ) ( non empty functional with_common_domain ) set ) st C : ( ( non empty functional with_common_domain ) ( non empty functional with_common_domain ) set ) = rng F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty ) set ) holds
for d being ( ( ) ( ) Element of D : ( ( non empty ) ( non empty ) set ) )
for e being ( ( ) ( ) set ) st e : ( ( ) ( ) set ) in DOM C : ( ( non empty functional with_common_domain ) ( non empty functional with_common_domain ) set ) : ( ( ) ( ) set ) holds
(F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) . d : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like Function-like ) set ) . e : ( ( ) ( ) set ) : ( ( ) ( ) set ) = ((commute F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . e : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like Function-like ) set ) . d : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) ;

begin

definition
let S be ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ;
let o be ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ;
func const (o,U0) -> ( ( ) ( ) set ) equals :: PRALG_3:def 1
(Den (o : ( ( ) ( Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,U0 : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( Function-like quasi_total ) ( Relation-like Args (o : ( ( ) ( Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,U0 : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng K186( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) M10( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) M10( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) -defined Result (o : ( ( ) ( Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,U0 : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) -valued Function-like quasi_total ) Element of K10(K11((Args (o : ( ( ) ( Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,U0 : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( ) ( ) Element of rng K186( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) M10( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) M10( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ,(Result (o : ( ( ) ( Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,U0 : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( ) ( ) Element of rng the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( non empty ) set ) ) . {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) : ( ( ) ( ) set ) ;
end;

theorem :: PRALG_3:5
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) st the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) & Result (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty ) set ) ) <> {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) holds
const (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) set ) in Result (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty ) set ) ) ;

theorem :: PRALG_3:6
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for s being ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) st the Sorts of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) <> {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) holds
Constants (U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of K10(( the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . b3 : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) = { (const (o : ( ( ) ( ) Element of the carrier' of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( ) ( ) set ) where o is ( ( ) ( ) Element of the carrier' of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( the_result_sort_of o : ( ( ) ( ) Element of the carrier' of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) = s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) & the_arity_of o : ( ( ) ( ) Element of the carrier' of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) ) } ;

theorem :: PRALG_3:7
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) st the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) holds
(commute (OPER A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) set ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like Function-like ) set ) in Funcs (I : ( ( non empty ) ( non empty ) set ) ,(Funcs ({{} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) } : ( ( ) ( non empty functional with_common_domain ) set ) ,(union { (Result (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i9 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( ) ( non empty ) Element of rng the Sorts of (b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b5 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) set ) ) where i9 is ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) : verum } ) : ( ( ) ( ) set ) )) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ;

theorem :: PRALG_3:8
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) st the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) holds
const (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) set ) in Funcs (I : ( ( non empty ) ( non empty ) set ) ,(union { (Result (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i9 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( ) ( non empty ) Element of rng the Sorts of (b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b5 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) set ) ) where i9 is ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) : verum } ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ;

registration
let S be ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ;
let I be ( ( non empty ) ( non empty ) set ) ;
let o be ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ;
let A be ( ( ) ( non empty Relation-like I : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ;
cluster const (o : ( ( ) ( ) Element of the carrier' of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like I : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) set ) -> Relation-like Function-like ;
end;

theorem :: PRALG_3:9
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) st the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) holds
(const (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( ) ( Relation-like Function-like ) set ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) = const (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) set ) ;

theorem :: PRALG_3:10
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) & dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) = I : ( ( non empty ) ( non empty ) set ) & ( for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) holds f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) = const (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) set ) ) holds
f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) = const (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( Relation-like Function-like ) set ) ;

theorem :: PRALG_3:11
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for U1, U2 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for e being ( ( ) ( ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U1 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) st e : ( ( ) ( ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) & the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) & Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U1 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) <> {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) & Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) <> {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) holds
for F being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) holds F : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) # e : ( ( ) ( ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) : ( ( ) ( ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) ;

begin

theorem :: PRALG_3:12
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for U1, U2 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for F being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for x being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U1 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b3 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) holds x : ( ( ) ( Relation-like Function-like ) Element of Args (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b3 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) in product (doms (F : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) * (the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) ) : ( ( Relation-like ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined Function-like Function-yielding V54() ) set ) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) : ( ( ) ( functional with_common_domain product-like ) set ) ;

theorem :: PRALG_3:13
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for U1, U2 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for F being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for x being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U1 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b3 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) )
for n being ( ( ) ( ) set ) st n : ( ( ) ( ) set ) in dom (the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) : ( ( ) ( countable ) Element of K10(K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty ) set ) ) holds
(F : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) # x : ( ( ) ( Relation-like Function-like ) Element of Args (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b3 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) ) : ( ( ) ( Relation-like Function-like ) Element of Args (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b4 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b4 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) . n : ( ( ) ( ) set ) : ( ( ) ( ) set ) = (F : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . ((the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) /. n : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) : ( ( Function-like quasi_total ) ( Relation-like the Sorts of b3 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . ((the_arity_of b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) /. b7 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) -defined the Sorts of b4 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . ((the_arity_of b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) /. b7 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( non empty ) set ) -valued Function-like quasi_total ) Element of K10(K11(( the Sorts of b3 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . ((the_arity_of b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) /. b7 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) set ) ,( the Sorts of b4 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . ((the_arity_of b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) /. b7 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( non empty Relation-like ) set ) ) : ( ( ) ( non empty ) set ) ) . (x : ( ( ) ( Relation-like Function-like ) Element of Args (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of b3 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b1 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) . n : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) : ( ( ) ( ) set ) ;

theorem :: PRALG_3:14
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for x being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) holds x : ( ( ) ( Relation-like Function-like ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) in Funcs ((dom (the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) ) : ( ( ) ( countable ) Element of K10(K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty ) set ) ) ,(Funcs (I : ( ( non empty ) ( non empty ) set ) ,(union { ( the Sorts of (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i9 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . s9 : ( ( ) ( ) Element of the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty ) set ) where i9 is ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) , s9 is ( ( ) ( ) Element of the carrier of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : verum } ) : ( ( ) ( ) set ) )) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ;

theorem :: PRALG_3:15
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for x being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) )
for n being ( ( ) ( ) set ) st n : ( ( ) ( ) set ) in dom (the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) : ( ( ) ( countable ) Element of K10(K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty ) set ) ) holds
x : ( ( ) ( Relation-like Function-like ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) . n : ( ( ) ( ) set ) : ( ( ) ( ) set ) in product (Carrier (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,((the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) /. n : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) )) : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty functional with_common_domain product-like ) set ) ;

theorem :: PRALG_3:16
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) )
for n being ( ( ) ( ) set ) st n : ( ( ) ( ) set ) in dom (the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) : ( ( ) ( countable ) Element of K10(K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty ) set ) ) holds
for s being ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) st s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) = (the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) . n : ( ( ) ( ) set ) : ( ( ) ( ) set ) holds
for y being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) )
for g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) = y : ( ( ) ( Relation-like Function-like ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) . n : ( ( ) ( ) set ) : ( ( ) ( ) set ) holds
g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) in the Sorts of (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( non empty ) set ) ;

theorem :: PRALG_3:17
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for y being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) st the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) <> {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) holds
commute y : ( ( ) ( Relation-like Function-like ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) in product (doms (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ?. o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) set ) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) : ( ( ) ( functional with_common_domain product-like ) set ) ;

theorem :: PRALG_3:18
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for y being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) st the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) <> {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) holds
y : ( ( ) ( Relation-like Function-like ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) in dom (Commute (Frege (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ?. o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) set ) ) : ( ( Relation-like product (doms (b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ?. b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) set ) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) : ( ( ) ( functional with_common_domain product-like ) set ) -defined Function-like total Function-yielding ) ( Relation-like product (doms (b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ?. b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) set ) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) : ( ( ) ( functional with_common_domain product-like ) set ) -defined Function-like total Function-yielding V54() ) set ) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) : ( ( ) ( ) set ) ;

theorem :: PRALG_3:19
for I being ( ( ) ( ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( ) ( ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for x being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) holds (Den (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( Function-like quasi_total ) ( Relation-like Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) -defined Result (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) Element of rng the Sorts of (product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) set ) ) -valued Function-like quasi_total ) Element of K10(K11((Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ,(Result (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( ) ( non empty ) Element of rng the Sorts of (product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) set ) ) ) : ( ( ) ( non empty Relation-like ) set ) ) : ( ( ) ( non empty ) set ) ) . x : ( ( ) ( Relation-like Function-like ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) : ( ( ) ( ) Element of Result (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) Element of rng the Sorts of (product b3 : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) set ) ) ) in product (Carrier (A : ( ( ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( ) ( ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,(the_result_sort_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) )) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like non-empty b1 : ( ( ) ( ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty functional with_common_domain product-like ) set ) ;

theorem :: PRALG_3:20
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) st the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) <> {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) holds
for U1 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for x being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) holds (commute x : ( ( ) ( Relation-like Function-like ) Element of Args (b5 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( Relation-like Function-like ) set ) is ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b4 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) ;

theorem :: PRALG_3:21
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for x being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) )
for n being ( ( ) ( ) set ) st n : ( ( ) ( ) set ) in dom (the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) : ( ( ) ( countable ) Element of K10(K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty ) set ) ) holds
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) = x : ( ( ) ( Relation-like Function-like ) Element of Args (b5 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) . n : ( ( ) ( ) set ) : ( ( ) ( ) set ) holds
((commute x : ( ( ) ( Relation-like Function-like ) Element of Args (b5 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like Function-like ) set ) . n : ( ( ) ( ) set ) : ( ( ) ( ) set ) = f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) ;

theorem :: PRALG_3:22
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) st the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) <> {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) holds
for y being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) )
for i9 being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) )
for g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) = (Den (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( Function-like quasi_total ) ( Relation-like Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) -defined Result (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) Element of rng the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) set ) ) -valued Function-like quasi_total ) Element of K10(K11((Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ,(Result (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( ) ( non empty ) Element of rng the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) set ) ) ) : ( ( ) ( non empty Relation-like ) set ) ) : ( ( ) ( non empty ) set ) ) . y : ( ( ) ( Relation-like Function-like ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) : ( ( ) ( ) Element of Result (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) Element of rng the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) set ) ) ) holds
g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) . i9 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) = (Den (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i9 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( Function-like quasi_total ) ( Relation-like Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b6 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b6 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) -defined Result (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b6 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) Element of rng the Sorts of (b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b6 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) set ) ) -valued Function-like quasi_total ) Element of K10(K11((Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b6 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b6 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ,(Result (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b6 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) )) : ( ( ) ( non empty ) Element of rng the Sorts of (b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b6 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) set ) ) ) : ( ( ) ( non empty Relation-like ) set ) ) : ( ( ) ( non empty ) set ) ) . ((commute y : ( ( ) ( Relation-like Function-like ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . i9 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like Function-like ) set ) : ( ( ) ( ) set ) ;

begin

definition
let I be ( ( non empty ) ( non empty ) set ) ;
let S be ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ;
let A be ( ( ) ( non empty Relation-like I : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ;
let i be ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) ;
func proj (A,i) -> ( ( ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of S : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) ) means :: PRALG_3:def 2
for s being ( ( ) ( ) Element of ( ( ) ( ) set ) ) holds it : ( ( ) ( non empty Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of the Sorts of S : ( ( ) ( ) set ) : ( ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) , the Sorts of A : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) ) . s : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ( ( Function-like quasi_total ) ( Relation-like the Sorts of (product A : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) : ( ( ) ( ) MSAlgebra over S : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) . b1 : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) -defined the Sorts of (A : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) . i : ( ( ) ( non empty Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) . b1 : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of K10(K11(( the Sorts of (product A : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) : ( ( ) ( ) MSAlgebra over S : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) . b1 : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) set ) ,( the Sorts of (A : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) . i : ( ( ) ( non empty Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) . b1 : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( non empty ) set ) ) = proj ((Carrier (A : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,s : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) )) : ( ( Relation-like I : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like I : ( ( ) ( ) set ) -defined Function-like total ) set ) ,i : ( ( ) ( non empty Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) ) : ( ( Relation-like Function-like ) ( Relation-like product (Carrier (A : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,b1 : ( ( ) ( ) Element of ( ( ) ( non empty ) set ) ) )) : ( ( Relation-like I : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like I : ( ( ) ( ) set ) -defined Function-like total ) set ) : ( ( ) ( functional with_common_domain product-like ) set ) -defined Function-like total ) set ) ;
end;

theorem :: PRALG_3:23
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for x being ( ( ) ( Relation-like Function-like ) Element of Args (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) st the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K160() : ( ( ) ( V40() countable denumerable ) Element of K10(K156() : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) ) -defined the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V70() ) M11( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) )) <> {} : ( ( ) ( empty Relation-like non-empty empty-yielding Function-like one-to-one constant functional Cardinal-yielding Function-yielding V54() ) set ) holds
for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) holds (proj (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) )) : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) # x : ( ( ) ( Relation-like Function-like ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) : ( ( ) ( Relation-like Function-like ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b6 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b6 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) = (commute x : ( ( ) ( Relation-like Function-like ) Element of Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,(product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( non empty functional ) Element of rng K186( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the Sorts of (product b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) : ( ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like K183( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) M10( the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) set ) : ( ( ) ( ) set ) ) ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( Relation-like Function-like ) set ) ;

theorem :: PRALG_3:24
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) holds proj (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) is_homomorphism product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ;

theorem :: PRALG_3:25
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for s being ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) )
for U1 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for F being ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of I : ( ( non empty ) ( non empty ) set ) ) st ( for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) ex F1 being ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) st
( F1 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) = F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) . i : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like Function-like ) set ) & F1 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) is_homomorphism U1 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) ) holds
( F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) in Funcs (I : ( ( non empty ) ( non empty ) set ) ,(Funcs ( the carrier of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , { ((F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) . i9 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like Function-like ) set ) . s1 : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) set ) where s1 is ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) , i9 is ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) : verum } )) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) & ((commute F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like Function-like ) set ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) = (F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like Function-like ) set ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ) ;

theorem :: PRALG_3:26
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for s being ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) )
for U1 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for F being ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of I : ( ( non empty ) ( non empty ) set ) ) st ( for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) ex F1 being ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) st
( F1 : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) = F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( Relation-like Function-like ) set ) & F1 : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) is_homomorphism U1 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) ) holds
(commute F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like Function-like ) set ) in Funcs (I : ( ( non empty ) ( non empty ) set ) ,(Funcs (( the Sorts of U1 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty ) set ) ,(union { ( the Sorts of (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i9 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . s1 : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty ) set ) where i9 is ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) , s1 is ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : verum } ) : ( ( ) ( ) set ) )) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ;

theorem :: PRALG_3:27
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for s being ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) )
for U1 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for F being ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of I : ( ( non empty ) ( non empty ) set ) ) st ( for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) ex F1 being ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) st
( F1 : ( ( ) ( ) set ) = F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) . i : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( ) ( Relation-like Function-like ) set ) & F1 : ( ( ) ( ) set ) is_homomorphism U1 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) ) holds
for F9 being ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) st F9 : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) = F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( Relation-like Function-like ) set ) holds
for x being ( ( ) ( ) set ) st x : ( ( ) ( ) set ) in the Sorts of U1 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( non empty ) set ) holds
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) = (commute ((commute F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like Function-like ) set ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . x : ( ( ) ( ) set ) : ( ( ) ( Relation-like Function-like ) set ) holds
f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) = (F9 : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( Function-like quasi_total ) ( Relation-like the Sorts of b6 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . b5 : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( non empty ) set ) -defined the Sorts of (b4 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b3 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . b5 : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( non empty ) set ) -valued Function-like quasi_total ) Element of K10(K11(( the Sorts of b6 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . b5 : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty ) set ) ,( the Sorts of (b4 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b3 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . b5 : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( non empty Relation-like ) set ) ) : ( ( ) ( non empty ) set ) ) . x : ( ( ) ( ) set ) : ( ( ) ( ) set ) ;

theorem :: PRALG_3:28
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for s being ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) )
for U1 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for F being ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of I : ( ( non empty ) ( non empty ) set ) ) st ( for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) ex F1 being ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) st
( F1 : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) = F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) . i : ( ( ) ( ) set ) : ( ( ) ( Relation-like Function-like ) set ) & F1 : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) is_homomorphism U1 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i : ( ( ) ( ) set ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) ) holds
for x being ( ( ) ( ) set ) st x : ( ( ) ( ) set ) in the Sorts of U1 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( non empty ) set ) holds
(commute ((commute F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like Function-like ) set ) ) : ( ( Relation-like Function-like Function-yielding ) ( Relation-like Function-like Function-yielding V54() ) set ) . x : ( ( ) ( ) set ) : ( ( ) ( Relation-like Function-like ) set ) in product (Carrier (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) )) : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) set ) : ( ( ) ( non empty functional with_common_domain product-like ) set ) ;

theorem :: PRALG_3:29
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for U1 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for F being ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of I : ( ( non empty ) ( non empty ) set ) ) st ( for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) ex F1 being ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) st
( F1 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) = F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) . i : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( ) ( Relation-like Function-like ) set ) & F1 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) is_homomorphism U1 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . i : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ) ) holds
ex H being ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) st
( H : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) is_homomorphism U1 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) , product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) & ( for i being ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) holds (proj (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ,i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) )) : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ** H : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of the Sorts of b4 : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) , the Sorts of (b3 : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) . b7 : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( non-empty ) ( non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like non-empty non empty-yielding the carrier of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) set ) ) = F : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of b1 : ( ( non empty ) ( non empty ) set ) ) . i : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( Relation-like Function-like ) set ) ) ) ;

begin

definition
let I be ( ( non empty ) ( non empty ) set ) ;
let J be ( ( Relation-like I : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like I : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) ManySortedSet of I : ( ( non empty ) ( non empty ) set ) ) ;
let S be ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ;
mode MSAlgebra-Class of S,J -> ( ( Relation-like I : ( ( ) ( ) set ) -defined Function-like total ) ( non empty Relation-like I : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of I : ( ( ) ( ) set ) ) means :: PRALG_3:def 3
for i being ( ( ) ( ) set ) st i : ( ( ) ( ) set ) in I : ( ( ) ( ) set ) holds
it : ( ( ) ( non empty Relation-like J : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of J : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) . i : ( ( ) ( ) set ) : ( ( ) ( ) set ) is ( ( ) ( Relation-like J : ( ( ) ( ) set ) . b1 : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of J : ( ( ) ( ) set ) . i : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,S : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ;
end;

definition
let I be ( ( non empty ) ( non empty ) set ) ;
let S be ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ;
let A be ( ( ) ( non empty Relation-like I : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) ;
let EqR be ( ( V14() V19() total ) ( Relation-like I : ( ( non empty ) ( non empty ) set ) -defined I : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of I : ( ( non empty ) ( non empty ) set ) ) ;
func A / EqR -> ( ( ) ( non empty Relation-like Class EqR : ( ( ) ( non empty Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) : ( ( ) ( with_non-empty_elements ) a_partition of I : ( ( ) ( ) set ) ) -defined Function-like total ) MSAlgebra-Class of S : ( ( ) ( ) set ) , id (Class EqR : ( ( ) ( non empty Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) ) : ( ( ) ( with_non-empty_elements ) a_partition of I : ( ( ) ( ) set ) ) : ( ( total ) ( Relation-like non-empty Class EqR : ( ( ) ( non empty Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) : ( ( ) ( with_non-empty_elements ) a_partition of I : ( ( ) ( ) set ) ) -defined Class EqR : ( ( ) ( non empty Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) : ( ( ) ( with_non-empty_elements ) a_partition of I : ( ( ) ( ) set ) ) -valued V12() V14() V15() V19() Function-like one-to-one total ) Element of K10(K11((Class EqR : ( ( ) ( non empty Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) ) : ( ( ) ( with_non-empty_elements ) a_partition of I : ( ( ) ( ) set ) ) ,(Class EqR : ( ( ) ( non empty Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) ) : ( ( ) ( with_non-empty_elements ) a_partition of I : ( ( ) ( ) set ) ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( non empty ) set ) ) ) means :: PRALG_3:def 4
for c being ( ( ) ( ) set ) st c : ( ( ) ( ) set ) in Class EqR : ( ( ) ( non empty Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) : ( ( ) ( with_non-empty_elements ) a_partition of I : ( ( ) ( ) set ) ) holds
it : ( ( ) ( non empty Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of the Sorts of S : ( ( ) ( ) set ) : ( ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) , the Sorts of A : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) ) . c : ( ( ) ( ) set ) : ( ( ) ( Relation-like Function-like ) set ) = A : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) | c : ( ( ) ( ) set ) : ( ( Relation-like ) ( Relation-like ) set ) ;
end;

definition
let I be ( ( non empty ) ( non empty ) set ) ;
let S be ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ;
let J be ( ( Relation-like V8() I : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like V8() non empty-yielding I : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) ManySortedSet of I : ( ( non empty ) ( non empty ) set ) ) ;
let C be ( ( ) ( non empty Relation-like I : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Class of S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ,J : ( ( Relation-like V8() I : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) ( non empty Relation-like V8() non empty-yielding I : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) ManySortedSet of I : ( ( non empty ) ( non empty ) set ) ) ) ;
func product C -> ( ( ) ( non empty Relation-like I : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) ) means :: PRALG_3:def 5
for i being ( ( ) ( ) Element of I : ( ( ) ( ) set ) ) st i : ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) in I : ( ( ) ( ) set ) holds
ex Ji being ( ( non empty ) ( non empty ) set ) ex Cs being ( ( ) ( non empty Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of Ji : ( ( non empty ) ( non empty ) set ) ,S : ( ( ) ( ) set ) ) st
( Ji : ( ( non empty ) ( non empty ) set ) = J : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) . i : ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) & Cs : ( ( ) ( non empty Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b2 : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) = C : ( ( ) ( non empty Relation-like S : ( ( ) ( ) set ) -defined Function-like total ) MSAlgebra-Family of S : ( ( ) ( ) set ) ,I : ( ( ) ( ) set ) ) . i : ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) & it : ( ( ) ( non empty Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total Function-yielding V54() ) ManySortedFunction of the Sorts of S : ( ( ) ( ) set ) : ( ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) , the Sorts of J : ( ( ) ( ) Element of the carrier' of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of I : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) ) . i : ( ( ) ( ) Element of I : ( ( non empty ) ( non empty ) set ) ) : ( ( non-empty ) ( Relation-like Function-like non-empty ) MSAlgebra over S : ( ( ) ( ) set ) ) = product Cs : ( ( ) ( non empty Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b2 : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( ) ( ) MSAlgebra over S : ( ( ) ( ) set ) ) );
end;

theorem :: PRALG_3:30
for I being ( ( non empty ) ( non empty ) set )
for S being ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign )
for A being ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of I : ( ( non empty ) ( non empty ) set ) ,S : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) )
for EqR being ( ( V14() V19() total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of I : ( ( non empty ) ( non empty ) set ) ) holds product A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) , product (product (A : ( ( ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) MSAlgebra-Family of b1 : ( ( non empty ) ( non empty ) set ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) / EqR : ( ( V14() V19() total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( non empty Relation-like Class b4 : ( ( V14() V19() total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b1 : ( ( non empty ) ( non empty ) set ) ) -defined Function-like total ) MSAlgebra-Class of b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) , id (Class b4 : ( ( V14() V19() total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( total ) ( non empty Relation-like non-empty non empty-yielding Class b4 : ( ( V14() V19() total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b1 : ( ( non empty ) ( non empty ) set ) ) -defined Class b4 : ( ( V14() V19() total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b1 : ( ( non empty ) ( non empty ) set ) ) -valued V12() V14() V15() V19() Function-like one-to-one total ) Element of K10(K11((Class b4 : ( ( V14() V19() total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b1 : ( ( non empty ) ( non empty ) set ) ) ,(Class b4 : ( ( V14() V19() total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( ) ( non empty Relation-like ) set ) ) : ( ( ) ( non empty ) set ) ) ) ) : ( ( ) ( non empty Relation-like Class b4 : ( ( V14() V19() total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b1 : ( ( non empty ) ( non empty ) set ) ) -defined Function-like total ) MSAlgebra-Family of Class b4 : ( ( V14() V19() total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued V12() V14() V19() total ) Equivalence_Relation of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( non empty with_non-empty_elements non empty-membered ) a_partition of b1 : ( ( non empty ) ( non empty ) set ) ) ,b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) : ( ( ) ( strict non-empty ) MSAlgebra over b2 : ( ( non empty non void ) ( non empty non void V68() ) ManySortedSign ) ) are_isomorphic ;