:: MSUALG_2 semantic presentation

begin

registration
let I be ( ( ) ( ) set ) ;
let X be ( ( Relation-like I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) ( Relation-like I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) ManySortedSet of I : ( ( ) ( ) set ) ) ;
let Y be ( ( Relation-like V8() I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) ( Relation-like V8() I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) ManySortedSet of I : ( ( ) ( ) set ) ) ;
cluster X : ( ( Relation-like I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) ( Relation-like I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) set ) \/ Y : ( ( Relation-like V8() I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) ( Relation-like V8() I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) set ) : ( ( Relation-like I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) ( Relation-like I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) set ) -> Relation-like V8() I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ;
cluster Y : ( ( Relation-like V8() I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) ( Relation-like V8() I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) set ) \/ X : ( ( Relation-like I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) ( Relation-like I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) set ) : ( ( Relation-like I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) ( Relation-like I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ) set ) -> Relation-like V8() I : ( ( ) ( ) set ) -defined Function-like V17(I : ( ( ) ( ) set ) ) ;
end;

theorem :: MSUALG_2:1
for I being ( ( non empty ) ( non empty ) set )
for X, Y being ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) ManySortedSet of I : ( ( non empty ) ( non empty ) set ) )
for i being ( ( ) ( Relation-like K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V34() FinSequence-like FinSubsequence-like ) Element of I : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12(b1 : ( ( non empty ) ( non empty ) set ) )) ) holds product ((X : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) ManySortedSet of b1 : ( ( non empty ) ( non empty ) set ) ) /\ Y : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) ManySortedSet of b1 : ( ( non empty ) ( non empty ) set ) ) ) : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) set ) * i : ( ( ) ( Relation-like K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V34() FinSequence-like FinSubsequence-like ) Element of b1 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12(b1 : ( ( non empty ) ( non empty ) set ) )) ) ) : ( ( Relation-like ) ( Relation-like K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined Function-like ) set ) : ( ( ) ( ) set ) = (product (X : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) ManySortedSet of b1 : ( ( non empty ) ( non empty ) set ) ) * i : ( ( ) ( Relation-like K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V34() FinSequence-like FinSubsequence-like ) Element of b1 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12(b1 : ( ( non empty ) ( non empty ) set ) )) ) ) : ( ( Relation-like ) ( Relation-like K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined Function-like ) set ) ) : ( ( ) ( ) set ) /\ (product (Y : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) ( non empty Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like V17(b1 : ( ( non empty ) ( non empty ) set ) ) ) ManySortedSet of b1 : ( ( non empty ) ( non empty ) set ) ) * i : ( ( ) ( Relation-like K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like V34() FinSequence-like FinSubsequence-like ) Element of b1 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12(b1 : ( ( non empty ) ( non empty ) set ) )) ) ) : ( ( Relation-like ) ( Relation-like K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined Function-like ) set ) ) : ( ( ) ( ) set ) : ( ( ) ( ) set ) ;

begin

definition
let S be ( ( non empty ) ( non empty V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty ) ( non empty V60() ) ManySortedSign ) ) ;
mode MSSubset of U0 is ( ( ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) ) ;
end;

definition
let S be ( ( non empty ) ( non empty V60() ) ManySortedSign ) ;
let IT be ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ;
attr IT is with_const_op means :: MSUALG_2:def 1
ex o being ( ( ) ( ) OperSymbol of ( ( ) ( ) set ) ) st
( the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( ) set ) ) : ( ( ) ( Relation-like K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined Function-like V34() FinSequence-like FinSubsequence-like ) set ) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined Function-like one-to-one constant functional V34() FinSequence-like FinSubsequence-like FinSequence-membered ) set ) & the ResultSort of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( ) set ) ) : ( ( ) ( ) set ) = IT : ( ( ) ( ) set ) );
end;

definition
let IT be ( ( non empty ) ( non empty V60() ) ManySortedSign ) ;
attr IT is all-with_const_op means :: MSUALG_2:def 2
for s being ( ( ) ( ) SortSymbol of ( ( ) ( ) set ) ) holds s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) is with_const_op ;
end;

registration
let A be ( ( non empty ) ( non empty ) set ) ;
let B be ( ( ) ( ) set ) ;
let a be ( ( Function-like quasi_total ) ( Relation-like B : ( ( ) ( ) set ) -defined A : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12(A : ( ( non empty ) ( non empty ) set ) )) -valued Function-like V17(B : ( ( ) ( ) set ) ) quasi_total ) Function of B : ( ( ) ( ) set ) ,A : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12(A : ( ( non empty ) ( non empty ) set ) )) ) ;
let r be ( ( Function-like quasi_total ) ( Relation-like B : ( ( ) ( ) set ) -defined A : ( ( non empty ) ( non empty ) set ) -valued Function-like V17(B : ( ( ) ( ) set ) ) quasi_total ) Function of B : ( ( ) ( ) set ) ,A : ( ( non empty ) ( non empty ) set ) ) ;
cluster ManySortedSign(# A : ( ( non empty ) ( non empty ) set ) ,B : ( ( ) ( ) set ) ,a : ( ( Function-like quasi_total ) ( Relation-like B : ( ( ) ( ) set ) -defined A : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12(A : ( ( non empty ) ( non empty ) set ) )) -valued Function-like V17(B : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:B : ( ( ) ( ) set ) ,(A : ( ( non empty ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12(A : ( ( non empty ) ( non empty ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ,r : ( ( Function-like quasi_total ) ( Relation-like B : ( ( ) ( ) set ) -defined A : ( ( non empty ) ( non empty ) set ) -valued Function-like V17(B : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:B : ( ( ) ( ) set ) ,A : ( ( non empty ) ( non empty ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) #) : ( ( strict ) ( strict ) ManySortedSign ) -> non empty strict ;
end;

registration
cluster non empty non void V60() strict all-with_const_op for ( ( ) ( ) ManySortedSign ) ;
end;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let s be ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ;
func Constants (U0,s) -> ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) means :: MSUALG_2:def 3
ex A being ( ( non empty ) ( non empty ) set ) st
( A : ( ( non empty ) ( non empty ) set ) = the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) . s : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12(S : ( ( ) ( ) set ) )) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,(S : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12(S : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) & it : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) = { a : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) where a is ( ( ) ( ) Element of A : ( ( non empty ) ( non empty ) set ) ) : ex o being ( ( ) ( ) OperSymbol of ( ( ) ( ) set ) ) st
( the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined Function-like V34() FinSequence-like FinSubsequence-like ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined Function-like one-to-one constant functional V34() FinSequence-like FinSubsequence-like FinSequence-membered ) set ) & the ResultSort of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) = s : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12(S : ( ( ) ( ) set ) )) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,(S : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12(S : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) & a : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) in rng (Den (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( Function-like quasi_total ) ( Relation-like Args (b3 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng ( the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) -defined Result (b3 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) : ( ( ) ( ) set ) ) -valued Function-like quasi_total ) Element of bool [:(Args (b3 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( ) ( ) Element of rng ( the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) ,(Result (b3 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( ) ( ) Element of rng the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) : ( ( ) ( ) set ) ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) )
}
) if the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) . s : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12(S : ( ( ) ( ) set ) )) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,(S : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12(S : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) <> {} : ( ( ) ( empty Relation-like non-empty empty-yielding K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined Function-like one-to-one constant functional V34() FinSequence-like FinSubsequence-like FinSequence-membered ) set )
otherwise it : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) = {} : ( ( ) ( empty Relation-like non-empty empty-yielding K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined Function-like one-to-one constant functional V34() FinSequence-like FinSubsequence-like FinSequence-membered ) set ) ;
end;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
func Constants U0 -> ( ( ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) MSSubset of U0 : ( ( ) ( ) set ) ) means :: MSUALG_2:def 4
for s being ( ( ) ( ) SortSymbol of ( ( ) ( ) set ) ) holds it : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12(S : ( ( ) ( ) set ) )) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,(S : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12(S : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like K168() : ( ( ) ( ) Element of bool K164() : ( ( ) ( ) set ) : ( ( ) ( non empty ) set ) ) -defined Function-like V34() FinSequence-like FinSubsequence-like ) set ) = Constants (U0 : ( ( ) ( ) set ) ,s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) ;
end;

registration
let S be ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) ;
let U0 be ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) ) ;
let s be ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ;
cluster Constants (U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) ) ,s : ( ( ) ( ) Element of the carrier of S : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Subset of ( ( ) ( non empty ) set ) ) -> non empty ;
end;

registration
let S be ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) ;
let U0 be ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) ) ;
cluster Constants U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) ) ) -> V8() ;
end;

begin

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let o be ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ;
let A be ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
pred A is_closed_on o means :: MSUALG_2:def 5
rng ((Den (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( Function-like quasi_total ) ( Relation-like Args (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng ( the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) -defined Result (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) : ( ( ) ( ) set ) ) -valued Function-like quasi_total ) Element of bool [:(Args (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( ) ( ) Element of rng ( the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) ,(Result (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( ) ( ) Element of rng the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) : ( ( ) ( ) set ) ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) | (((A : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) * the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) . o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) : ( ( ) ( ) set ) ) : ( ( Relation-like ) ( Relation-like ((A : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) * the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) . o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) -defined Args (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng ( the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) -defined Result (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) : ( ( ) ( ) set ) ) -valued Function-like ) set ) : ( ( ) ( ) set ) c= (A : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the ResultSort of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like ) set ) . o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ;
end;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let A be ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
attr A is opers_closed means :: MSUALG_2:def 6
for o being ( ( ) ( ) OperSymbol of ( ( ) ( ) set ) ) holds A : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) is_closed_on o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ;
end;

theorem :: MSUALG_2:2
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for B0, B1 being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B0 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) c= B1 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds
((B0 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) c= ((B1 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let o be ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ;
let A be ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
assume A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is_closed_on o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ;
func o /. A -> ( ( Function-like quasi_total ) ( Relation-like ((A : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) * the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) . o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) -defined (A : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the ResultSort of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like ) set ) . o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Function of ((A : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) * the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) . o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ,(A : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the ResultSort of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like ) set ) . o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) equals :: MSUALG_2:def 7
(Den (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( Function-like quasi_total ) ( Relation-like Args (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng ( the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) -defined Result (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) : ( ( ) ( ) set ) ) -valued Function-like quasi_total ) Element of bool [:(Args (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( ) ( ) Element of rng ( the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) ,(Result (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) )) : ( ( ) ( ) Element of rng the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) : ( ( ) ( ) set ) ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) | (((A : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) * the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) . o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) : ( ( ) ( ) set ) : ( ( Relation-like ) ( Relation-like ((A : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) * the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) . o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) -defined Args (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng ( the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) -defined Result (o : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ,U0 : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of rng the Sorts of U0 : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) : ( ( ) ( ) set ) ) -valued Function-like ) set ) ;
end;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let A be ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
func Opers (U0,A) -> ( ( ) ( non empty Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) V83() ) ManySortedFunction of (A : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) * the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) ,A : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) * the ResultSort of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( Relation-like ) set ) ) means :: MSUALG_2:def 8
for o being ( ( ) ( ) OperSymbol of ( ( ) ( ) set ) ) holds it : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V17(U0 : ( ( ) ( ) set ) ) quasi_total ) Element of bool [:U0 : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) = o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) /. A : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( Function-like quasi_total ) ( Relation-like ((A : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) * the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) . b1 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) -defined (A : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) * the ResultSort of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like ) set ) . b1 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Function of ((A : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) * the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) . b1 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ,(A : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) * the ResultSort of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like ) set ) . b1 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ) ;
end;

theorem :: MSUALG_2:3
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for B being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = the Sorts of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) holds
( B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is opers_closed & ( for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) holds o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) /. B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Function-like quasi_total ) ( Relation-like ((b3 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) -defined (b3 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) * the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Function of ((b3 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ,(b3 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) * the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ) = Den (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Function-like quasi_total ) ( Relation-like Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng ( the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) -defined Result (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( ) ( non empty ) set ) ) -valued Function-like quasi_total ) Element of bool [:(Args (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) )) : ( ( ) ( ) Element of rng ( the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) ,(Result (b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) )) : ( ( ) ( ) Element of rng the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( ) ( non empty ) set ) ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) ) ;

theorem :: MSUALG_2:4
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for B being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = the Sorts of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) holds
Opers (U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ,B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of (b3 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ,b3 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) * the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) = the Charact of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) ;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
mode MSSubAlgebra of U0 -> ( ( ) ( ) MSAlgebra over S : ( ( ) ( ) set ) ) means :: MSUALG_2:def 9
( the Sorts of it : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) is ( ( ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) MSSubset of U0 : ( ( ) ( ) set ) ) & ( for B being ( ( ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) MSSubset of U0 : ( ( ) ( ) set ) ) st B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = the Sorts of it : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) holds
( B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is opers_closed & the Charact of it : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) V83() ) ManySortedFunction of the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of it : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) , the ResultSort of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of it : ( ( ) ( ) Element of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like ) set ) ) = Opers (U0 : ( ( ) ( ) set ) ,B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( ) ( non empty Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) V83() ) ManySortedFunction of (b1 : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -defined Function-like V17( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) ) ) set ) * the Arity of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) -valued Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) )) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like V17( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) ) set ) ,b1 : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) * the ResultSort of S : ( ( ) ( ) set ) : ( ( Function-like quasi_total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -valued Function-like quasi_total ) Element of bool [: the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) , the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like ) set ) ) ) ) );
end;

registration
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
cluster strict for ( ( ) ( ) MSSubAlgebra of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
end;

registration
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
cluster MSAlgebra(# the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like non-empty non empty-yielding the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) -> strict non-empty ;
end;

registration
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
cluster strict non-empty for ( ( ) ( ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
end;

theorem :: MSUALG_2:5
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0, U1 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) st MSAlgebra(# the Sorts of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) = MSAlgebra(# the Sorts of U1 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U1 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) holds
U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) is ( ( ) ( ) MSSubAlgebra of U1 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;

theorem :: MSUALG_2:6
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0, U1, U2 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) st U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) is ( ( ) ( ) MSSubAlgebra of U1 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) & U1 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) is ( ( ) ( ) MSSubAlgebra of U2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds
U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) is ( ( ) ( ) MSSubAlgebra of U2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;

theorem :: MSUALG_2:7
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U1, U2 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) st U1 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) is ( ( ) ( ) MSSubAlgebra of U2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) & U2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) is ( ( ) ( ) MSSubAlgebra of U1 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds
MSAlgebra(# the Sorts of U1 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U1 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) = MSAlgebra(# the Sorts of U2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;

theorem :: MSUALG_2:8
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for U1, U2 being ( ( ) ( ) MSSubAlgebra of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st the Sorts of U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) c= the Sorts of U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) holds
U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is ( ( ) ( ) MSSubAlgebra of U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) ;

theorem :: MSUALG_2:9
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for U1, U2 being ( ( ) ( ) MSSubAlgebra of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st the Sorts of U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) = the Sorts of U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) holds
MSAlgebra(# the Sorts of U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b3 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b3 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) = MSAlgebra(# the Sorts of U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b4 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b4 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;

theorem :: MSUALG_2:10
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for U1 being ( ( ) ( ) MSSubAlgebra of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds Constants U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) ;

theorem :: MSUALG_2:11
errorfrm ;

theorem :: MSUALG_2:12
for S being ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) )
for U1, U2 being ( ( non-empty ) ( non-empty ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) ) ) holds the Sorts of U1 : ( ( non-empty ) ( non-empty ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) /\ the Sorts of U2 : ( ( non-empty ) ( non-empty ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void all-with_const_op ) ( non empty non void V60() all-with_const_op ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) is V8() ;

begin

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let A be ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
func SubSort A -> ( ( ) ( ) set ) means :: MSUALG_2:def 10
for x being ( ( ) ( ) set ) holds
( x : ( ( ) ( ) set ) in it : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) -defined S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) -valued Function-like V17(U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) quasi_total ) Element of bool [:U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ,S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) iff ( x : ( ( ) ( ) set ) in Funcs ( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,(bool (Union the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) Element of bool (bool (Union the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty functional ) FUNCTION_DOMAIN of the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , bool (Union the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( ) ( ) set ) : ( ( ) ( non empty ) Element of bool (bool (Union the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) & x : ( ( ) ( ) set ) is ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) & ( for B being ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = x : ( ( ) ( ) set ) holds
( B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is opers_closed & Constants U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) c= B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) & A : ( ( ) ( ) Element of the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) c= B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) ) ) );
end;

registration
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let A be ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
cluster SubSort A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( ) ( ) set ) -> non empty ;
end;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
func SubSort U0 -> ( ( ) ( ) set ) means :: MSUALG_2:def 11
for x being ( ( ) ( ) set ) holds
( x : ( ( ) ( ) set ) in it : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) iff ( x : ( ( ) ( ) set ) in Funcs ( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,(bool (Union the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) Element of bool (bool (Union the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( non empty functional ) FUNCTION_DOMAIN of the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , bool (Union the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( ) ( ) set ) : ( ( ) ( non empty ) Element of bool (bool (Union the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( ) ( ) set ) ) : ( ( ) ( non empty ) set ) : ( ( ) ( non empty ) set ) ) ) & x : ( ( ) ( ) set ) is ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) & ( for B being ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = x : ( ( ) ( ) set ) holds
B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is opers_closed ) ) );
end;

registration
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
cluster SubSort U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( ) set ) -> non empty ;
end;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let e be ( ( ) ( ) Element of SubSort U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) ;
func @ e -> ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) equals :: MSUALG_2:def 12
e : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) ;
end;

theorem :: MSUALG_2:13
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for A, B being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds
( B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) in SubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) iff ( B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is opers_closed & Constants U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) c= B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) & A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) c= B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) ) ;

theorem :: MSUALG_2:14
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for B being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds
( B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) in SubSort U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) iff B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is opers_closed ) ;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let A be ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
let s be ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ;
func SubSort (A,s) -> ( ( ) ( ) set ) means :: MSUALG_2:def 13
for x being ( ( ) ( ) set ) holds
( x : ( ( ) ( ) set ) in it : ( ( ) ( ) Element of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) iff ex B being ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st
( B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) in SubSort A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( ) ( non empty ) set ) & x : ( ( ) ( ) set ) = B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) . s : ( ( Function-like quasi_total ) ( Relation-like U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) -defined S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) -valued Function-like V17(U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) quasi_total ) Element of bool [:U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ,S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ) );
end;

registration
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let A be ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
let s be ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) ;
cluster SubSort (A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) ,s : ( ( ) ( ) Element of the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) set ) -> non empty ;
end;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let A be ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
func MSSubSort A -> ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) means :: MSUALG_2:def 14
for s being ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) holds it : ( ( ) ( ) Element of the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) . s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) = meet (SubSort (A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) ,s : ( ( ) ( ) SortSymbol of ( ( ) ( non empty ) set ) ) )) : ( ( ) ( ) set ) : ( ( ) ( ) set ) ;
end;

theorem :: MSUALG_2:15
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for A being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds (Constants U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) \/ A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) c= MSSubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;

theorem :: MSUALG_2:16
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for A being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st (Constants U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) \/ A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) is V8() holds
MSSubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is V8() ;

theorem :: MSUALG_2:17
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for A, B being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) in SubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) holds
(((MSSubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) c= ((B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ;

theorem :: MSUALG_2:18
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for A, B being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) in SubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) holds
rng ((Den (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) )) : ( ( Function-like quasi_total ) ( Relation-like Args (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng ( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) -defined Result (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( ) ( non empty ) set ) ) -valued Function-like quasi_total ) Element of bool [:(Args (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) )) : ( ( ) ( ) Element of rng ( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) ,(Result (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) )) : ( ( ) ( ) Element of rng the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( ) ( non empty ) set ) ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) | ((((MSSubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) set ) ) : ( ( Relation-like ) ( Relation-like (((MSSubSort b4 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) -defined Args (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng ( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) -defined Result (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( ) ( non empty ) set ) ) -valued Function-like ) set ) : ( ( ) ( ) set ) c= (B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) * the ResultSort of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ;

theorem :: MSUALG_2:19
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for A being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds rng ((Den (o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) )) : ( ( Function-like quasi_total ) ( Relation-like Args (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng ( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) -defined Result (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( ) ( non empty ) set ) ) -valued Function-like quasi_total ) Element of bool [:(Args (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) )) : ( ( ) ( ) Element of rng ( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) ,(Result (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) )) : ( ( ) ( ) Element of rng the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( ) ( non empty ) set ) ) :] : ( ( ) ( Relation-like ) set ) : ( ( ) ( non empty ) set ) ) | ((((MSSubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) set ) ) : ( ( Relation-like ) ( Relation-like (((MSSubSort b4 : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) -defined Args (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng ( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( ) ( non empty ) set ) ) -defined Result (b2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ,b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( ) Element of rng the Sorts of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( ) ( non empty ) set ) ) -valued Function-like ) set ) : ( ( ) ( ) set ) c= ((MSSubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b3 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) * the ResultSort of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ;

theorem :: MSUALG_2:20
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for A being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds
( MSSubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is opers_closed & A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) c= MSSubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) ;

begin

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let A be ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
assume A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is opers_closed ;
func U0 | A -> ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) equals :: MSUALG_2:def 15
MSAlgebra(# A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) ,(Opers (U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ,A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) )) : ( ( ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of (A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ,A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) * the ResultSort of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
end;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let U1, U2 be ( ( ) ( ) MSSubAlgebra of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
func U1 /\ U2 -> ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) means :: MSUALG_2:def 16
( the Sorts of it : ( ( ) ( ) Element of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) = the Sorts of U1 : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) /\ the Sorts of U2 : ( ( ) ( ) Element of the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) & ( for B being ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = the Sorts of it : ( ( ) ( ) Element of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) holds
( B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) is opers_closed & the Charact of it : ( ( ) ( ) Element of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of it : ( ( ) ( ) Element of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of it : ( ( ) ( ) Element of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) = Opers (U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ,B : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of (b1 : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) #) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) * the Arity of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ,b1 : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) * the ResultSort of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like ) set ) ) ) ) );
end;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let A be ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
func GenMSAlg A -> ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) means :: MSUALG_2:def 17
( A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) is ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of it : ( ( ) ( ) Element of the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) & ( for U1 being ( ( ) ( ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) is ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U1 : ( ( ) ( ) MSSubAlgebra of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) holds
it : ( ( ) ( ) Element of the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) is ( ( ) ( ) MSSubAlgebra of U1 : ( ( ) ( ) MSSubAlgebra of U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) ) );
end;

registration
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let A be ( ( V8() ) ( non empty Relation-like V8() non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
cluster GenMSAlg A : ( ( V8() ) ( non empty Relation-like V8() non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) -> strict non-empty ;
end;

theorem :: MSUALG_2:21
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for B being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = the Sorts of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) holds
GenMSAlg B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = MSAlgebra(# the Sorts of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;

theorem :: MSUALG_2:22
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for U1 being ( ( ) ( ) MSSubAlgebra of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) )
for B being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = the Sorts of U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) holds
GenMSAlg B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = MSAlgebra(# the Sorts of U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b3 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b3 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;

theorem :: MSUALG_2:23
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for U1 being ( ( ) ( ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds (GenMSAlg (Constants U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) /\ U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = GenMSAlg (Constants U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
let U1, U2 be ( ( ) ( ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
func U1 "\/" U2 -> ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) means :: MSUALG_2:def 18
for A being ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = the Sorts of U1 : ( ( V8() ) ( non empty Relation-like V8() non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) \/ the Sorts of U2 : ( ( ) ( ) Element of the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) holds
it : ( ( ) ( ) Element of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) = GenMSAlg A : ( ( ) ( non empty Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
end;

theorem :: MSUALG_2:24
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for U1 being ( ( ) ( ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) )
for A, B being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) \/ the Sorts of U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) holds
(GenMSAlg A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) "\/" U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = GenMSAlg B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;

theorem :: MSUALG_2:25
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for U1 being ( ( ) ( ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) )
for B being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) holds
(GenMSAlg B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) "\/" U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = GenMSAlg B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;

theorem :: MSUALG_2:26
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for U1, U2 being ( ( ) ( ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) "\/" U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) "\/" U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;

theorem :: MSUALG_2:27
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for U1, U2 being ( ( ) ( ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) /\ (U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) "\/" U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = MSAlgebra(# the Sorts of U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b3 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b3 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;

theorem :: MSUALG_2:28
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for U1, U2 being ( ( ) ( ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds (U1 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) /\ U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) "\/" U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = MSAlgebra(# the Sorts of U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U2 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b4 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b4 : ( ( ) ( ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;

begin

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
func MSSub U0 -> ( ( ) ( ) set ) means :: MSUALG_2:def 19
for x being ( ( ) ( ) set ) holds
( x : ( ( ) ( ) set ) in it : ( ( V8() ) ( non empty Relation-like V8() non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) iff x : ( ( ) ( ) set ) is ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) );
end;

registration
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
cluster MSSub U0 : ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( ) set ) -> non empty ;
end;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
func MSAlg_join U0 -> ( ( Function-like quasi_total ) ( non empty Relation-like [:(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) -defined MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) -valued Function-like V17([:(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) ) quasi_total ) BinOp of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) means :: MSUALG_2:def 20
for x, y being ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) )
for U1, U2 being ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st x : ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) = U1 : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) & y : ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) = U2 : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds
it : ( ( V8() ) ( non empty Relation-like V8() non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) . (x : ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) ,y : ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) = U1 : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) "\/" U2 : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
end;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
func MSAlg_meet U0 -> ( ( Function-like quasi_total ) ( non empty Relation-like [:(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) -defined MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) -valued Function-like V17([:(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) ) quasi_total ) BinOp of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) means :: MSUALG_2:def 21
for x, y being ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) )
for U1, U2 being ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st x : ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) = U1 : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) & y : ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) = U2 : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds
it : ( ( V8() ) ( non empty Relation-like V8() non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ManySortedSubset of the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) . (x : ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) ,y : ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) = U1 : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) /\ U2 : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;
end;

theorem :: MSUALG_2:29
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) holds MSAlg_join U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like [:(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) -defined MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) -valued Function-like V17([:(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) ) quasi_total ) BinOp of MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) is commutative ;

theorem :: MSUALG_2:30
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) holds MSAlg_join U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like [:(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) -defined MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) -valued Function-like V17([:(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) ) quasi_total ) BinOp of MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) is associative ;

theorem :: MSUALG_2:31
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) holds MSAlg_meet U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like [:(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) -defined MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) -valued Function-like V17([:(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) ) quasi_total ) BinOp of MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) is commutative ;

theorem :: MSUALG_2:32
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) holds MSAlg_meet U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like [:(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) -defined MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) -valued Function-like V17([:(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) ) quasi_total ) BinOp of MSSub b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) is associative ;

definition
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
func MSSubAlLattice U0 -> ( ( non empty strict Lattice-like ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like ) Lattice) equals :: MSUALG_2:def 22
LattStr(# (MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSAlg_join U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like [:(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) -defined MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) -valued Function-like V17([:(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) ) quasi_total ) BinOp of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) ,(MSAlg_meet U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( Function-like quasi_total ) ( non empty Relation-like [:(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) -defined MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) -valued Function-like V17([:(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ,(MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) ) quasi_total ) BinOp of MSSub U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ) #) : ( ( strict ) ( non empty strict ) LattStr ) ;
end;

theorem :: MSUALG_2:33
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) holds MSSubAlLattice U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( non empty strict Lattice-like ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like ) Lattice) is bounded ;

registration
let S be ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ;
let U0 be ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;
cluster MSSubAlLattice U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( non empty strict Lattice-like ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like ) Lattice) -> non empty strict Lattice-like bounded ;
end;

theorem :: MSUALG_2:34
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) holds Bottom (MSSubAlLattice U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( non empty strict Lattice-like ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like lower-bounded upper-bounded bounded ) Lattice) : ( ( ) ( ) Element of the carrier of (MSSubAlLattice b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( non empty strict Lattice-like ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like lower-bounded upper-bounded bounded ) Lattice) : ( ( ) ( non empty ) set ) ) = GenMSAlg (Constants U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;

theorem :: MSUALG_2:35
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for B being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) st B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) = the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) holds
Top (MSSubAlLattice U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( non empty strict Lattice-like ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like lower-bounded upper-bounded bounded ) Lattice) : ( ( ) ( ) Element of the carrier of (MSSubAlLattice b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( non empty strict Lattice-like ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like lower-bounded upper-bounded bounded ) Lattice) : ( ( ) ( non empty ) set ) ) = GenMSAlg B : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( strict ) ( strict ) MSSubAlgebra of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;

theorem :: MSUALG_2:36
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( non-empty ) ( non-empty ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) holds Top (MSSubAlLattice U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( non empty strict Lattice-like ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like lower-bounded upper-bounded bounded ) Lattice) : ( ( ) ( ) Element of the carrier of (MSSubAlLattice b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( non empty strict Lattice-like ) ( non empty strict join-commutative join-associative meet-commutative meet-associative meet-absorbing join-absorbing Lattice-like lower-bounded upper-bounded bounded ) Lattice) : ( ( ) ( non empty ) set ) ) = MSAlgebra(# the Sorts of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U0 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b2 : ( ( non-empty ) ( non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like non-empty non empty-yielding the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like non-empty non empty-yielding the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict non-empty ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ;

theorem :: MSUALG_2:37
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) holds MSAlgebra(# the Sorts of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the Charact of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) V83() ) ManySortedFunction of the Arity of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * ( the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) #) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( non empty functional FinSequence-membered ) M12( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) , the ResultSort of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( Function-like quasi_total ) ( non empty Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) quasi_total ) Element of bool [: the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) :] : ( ( ) ( non empty Relation-like ) set ) : ( ( ) ( non empty ) set ) ) * the Sorts of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) : ( ( Relation-like ) ( non empty Relation-like non-empty non empty-yielding the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier' of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) ) #) : ( ( strict ) ( strict ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) is ( ( ) ( ) MSSubAlgebra of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) ;

theorem :: MSUALG_2:38
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for A being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds the Sorts of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) set ) in SubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) ;

theorem :: MSUALG_2:39
for S being ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign )
for U0 being ( ( ) ( ) MSAlgebra over S : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) )
for A being ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) holds SubSort A : ( ( ) ( non empty Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like V17( the carrier of b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) MSSubset of b2 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) ) : ( ( ) ( non empty ) set ) c= SubSort U0 : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty non void ) ( non empty non void V60() ) ManySortedSign ) ) : ( ( ) ( non empty ) set ) ;