:: ALGSPEC1 semantic presentation

begin

theorem :: ALGSPEC1:1
for f, g, h being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st (dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( ) ( ) set ) /\ (dom g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( ) ( ) set ) : ( ( ) ( ) set ) c= dom h : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) holds
(f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) +* g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) +* h : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) = (g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) +* f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) +* h : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) ;

theorem :: ALGSPEC1:2
for f, g, h being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) c= g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) & (rng h : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( ) ( ) set ) /\ (dom g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( ) ( ) set ) : ( ( ) ( ) set ) c= dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) holds
g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) * h : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like ) ( Relation-like Function-like ) set ) = f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) * h : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like ) ( Relation-like Function-like ) set ) ;

theorem :: ALGSPEC1:3
for f, g, h being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) misses rng h : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) & g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) .: (dom h : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( ) ( ) set ) : ( ( ) ( ) set ) misses dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) holds
f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) * (g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) +* h : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) : ( ( Relation-like ) ( Relation-like Function-like ) set ) = f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) * g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like ) ( Relation-like Function-like ) set ) ;

theorem :: ALGSPEC1:4
for f1, f2, g1, g2 being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) tolerates f2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) & g1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) tolerates g2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds
f1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) * g1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like ) ( Relation-like Function-like ) set ) tolerates f2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) * g2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like ) ( Relation-like Function-like ) set ) ;

theorem :: ALGSPEC1:5
for X1, Y1, X2, Y2 being ( ( non empty ) ( non empty ) set )
for f being ( ( Function-like V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b3 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) Function of X1 : ( ( non empty ) ( non empty ) set ) ,X2 : ( ( non empty ) ( non empty ) set ) )
for g being ( ( Function-like V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b4 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) Function of Y1 : ( ( non empty ) ( non empty ) set ) ,Y2 : ( ( non empty ) ( non empty ) set ) ) st f : ( ( Function-like V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b3 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) Function of b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) c= g : ( ( Function-like V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b4 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) Function of b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) holds
f : ( ( Function-like V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b3 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) Function of b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) * : ( ( Function-like V18(b1 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b1 : ( ( non empty ) ( non empty ) set ) )) ,b3 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b3 : ( ( non empty ) ( non empty ) set ) )) ) ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b1 : ( ( non empty ) ( non empty ) set ) )) -defined b3 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b3 : ( ( non empty ) ( non empty ) set ) )) -valued Function-like non empty total V18(b1 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b1 : ( ( non empty ) ( non empty ) set ) )) ,b3 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b3 : ( ( non empty ) ( non empty ) set ) )) ) ) Element of K19(K20((b1 : ( ( non empty ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11(b1 : ( ( non empty ) ( non empty ) set ) )) ,(b3 : ( ( non empty ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11(b3 : ( ( non empty ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) c= g : ( ( Function-like V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b4 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) Function of b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) * : ( ( Function-like V18(b2 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b2 : ( ( non empty ) ( non empty ) set ) )) ,b4 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b4 : ( ( non empty ) ( non empty ) set ) )) ) ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b2 : ( ( non empty ) ( non empty ) set ) )) -defined b4 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b4 : ( ( non empty ) ( non empty ) set ) )) -valued Function-like non empty total V18(b2 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b2 : ( ( non empty ) ( non empty ) set ) )) ,b4 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b4 : ( ( non empty ) ( non empty ) set ) )) ) ) Element of K19(K20((b2 : ( ( non empty ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11(b2 : ( ( non empty ) ( non empty ) set ) )) ,(b4 : ( ( non empty ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11(b4 : ( ( non empty ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) ;

theorem :: ALGSPEC1:6
for X1, Y1, X2, Y2 being ( ( non empty ) ( non empty ) set )
for f being ( ( Function-like V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b3 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) Function of X1 : ( ( non empty ) ( non empty ) set ) ,X2 : ( ( non empty ) ( non empty ) set ) )
for g being ( ( Function-like V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b4 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) Function of Y1 : ( ( non empty ) ( non empty ) set ) ,Y2 : ( ( non empty ) ( non empty ) set ) ) st f : ( ( Function-like V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b3 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) Function of b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) tolerates g : ( ( Function-like V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b4 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) Function of b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) holds
f : ( ( Function-like V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b3 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) ) Function of b1 : ( ( non empty ) ( non empty ) set ) ,b3 : ( ( non empty ) ( non empty ) set ) ) * : ( ( Function-like V18(b1 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b1 : ( ( non empty ) ( non empty ) set ) )) ,b3 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b3 : ( ( non empty ) ( non empty ) set ) )) ) ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b1 : ( ( non empty ) ( non empty ) set ) )) -defined b3 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b3 : ( ( non empty ) ( non empty ) set ) )) -valued Function-like non empty total V18(b1 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b1 : ( ( non empty ) ( non empty ) set ) )) ,b3 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b3 : ( ( non empty ) ( non empty ) set ) )) ) ) Element of K19(K20((b1 : ( ( non empty ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11(b1 : ( ( non empty ) ( non empty ) set ) )) ,(b3 : ( ( non empty ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11(b3 : ( ( non empty ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) tolerates g : ( ( Function-like V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) -defined b4 : ( ( non empty ) ( non empty ) set ) -valued Function-like non empty total V18(b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) ) Function of b2 : ( ( non empty ) ( non empty ) set ) ,b4 : ( ( non empty ) ( non empty ) set ) ) * : ( ( Function-like V18(b2 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b2 : ( ( non empty ) ( non empty ) set ) )) ,b4 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b4 : ( ( non empty ) ( non empty ) set ) )) ) ) ( Relation-like b2 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b2 : ( ( non empty ) ( non empty ) set ) )) -defined b4 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b4 : ( ( non empty ) ( non empty ) set ) )) -valued Function-like non empty total V18(b2 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b2 : ( ( non empty ) ( non empty ) set ) )) ,b4 : ( ( non empty ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(b4 : ( ( non empty ) ( non empty ) set ) )) ) ) Element of K19(K20((b2 : ( ( non empty ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11(b2 : ( ( non empty ) ( non empty ) set ) )) ,(b4 : ( ( non empty ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11(b4 : ( ( non empty ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) ;

definition
let X be ( ( ) ( ) set ) ;
let f be ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ;
func X -indexing f -> ( ( Relation-like X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) -defined Function-like total ) ( Relation-like X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) -defined Function-like total ) ManySortedSet of X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) equals :: ALGSPEC1:def 1
(id X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) : ( ( total ) ( Relation-like X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) -defined X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) -valued Function-like one-to-one total V18(X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ,X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) ) Element of K19(K20(X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ,X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* (f : ( ( ) ( ) MSAlgebra over X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) | X : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) : ( ( Relation-like ) ( Relation-like ) set ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) ;
end;

theorem :: ALGSPEC1:7
for X being ( ( ) ( ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds rng (X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) = (X : ( ( ) ( ) set ) \ (dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( ) ( ) set ) ) : ( ( ) ( ) Element of K19(b1 : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) \/ (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) .: X : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) : ( ( ) ( ) set ) ;

theorem :: ALGSPEC1:8
for X being ( ( non empty ) ( non empty ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function)
for x being ( ( ) ( ) Element of X : ( ( non empty ) ( non empty ) set ) ) holds (X : ( ( non empty ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of b1 : ( ( non empty ) ( non empty ) set ) ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) = ((id X : ( ( non empty ) ( non empty ) set ) ) : ( ( total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like one-to-one non empty total V18(b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) ) ) Element of K19(K20(b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like non empty ) set ) . x : ( ( ) ( ) Element of b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( ) set ) ;

theorem :: ALGSPEC1:9
for X, x being ( ( ) ( ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st x : ( ( ) ( ) set ) in X : ( ( ) ( ) set ) holds
( ( x : ( ( ) ( ) set ) in dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) implies (X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) . x : ( ( ) ( ) set ) : ( ( ) ( ) set ) = f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) . x : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) & ( not x : ( ( ) ( ) set ) in dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) implies (X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) . x : ( ( ) ( ) set ) : ( ( ) ( ) set ) = x : ( ( ) ( ) set ) ) ) ;

theorem :: ALGSPEC1:10
for X being ( ( ) ( ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) = X : ( ( ) ( ) set ) holds
X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) = f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ;

theorem :: ALGSPEC1:11
for X being ( ( ) ( ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds X : ( ( ) ( ) set ) -indexing (X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) = X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) ;

theorem :: ALGSPEC1:12
for X being ( ( ) ( ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds X : ( ( ) ( ) set ) -indexing ((id X : ( ( ) ( ) set ) ) : ( ( total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined b1 : ( ( ) ( ) set ) -valued Function-like one-to-one total V18(b1 : ( ( ) ( ) set ) ,b1 : ( ( ) ( ) set ) ) ) Element of K19(K20(b1 : ( ( ) ( ) set ) ,b1 : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like non empty ) set ) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) = X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) ;

theorem :: ALGSPEC1:13
for X being ( ( ) ( ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) c= id X : ( ( ) ( ) set ) : ( ( total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined b1 : ( ( ) ( ) set ) -valued Function-like one-to-one total V18(b1 : ( ( ) ( ) set ) ,b1 : ( ( ) ( ) set ) ) ) Element of K19(K20(b1 : ( ( ) ( ) set ) ,b1 : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) holds
X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) = id X : ( ( ) ( ) set ) : ( ( total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined b1 : ( ( ) ( ) set ) -valued Function-like one-to-one total V18(b1 : ( ( ) ( ) set ) ,b1 : ( ( ) ( ) set ) ) ) Element of K19(K20(b1 : ( ( ) ( ) set ) ,b1 : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) ;

theorem :: ALGSPEC1:14
for X being ( ( ) ( ) set ) holds X : ( ( ) ( ) set ) -indexing {} : ( ( ) ( Relation-like non-empty empty-yielding K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined Function-like one-to-one constant functional empty V31() FinSequence-like FinSubsequence-like FinSequence-membered ) set ) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) = id X : ( ( ) ( ) set ) : ( ( total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined b1 : ( ( ) ( ) set ) -valued Function-like one-to-one total V18(b1 : ( ( ) ( ) set ) ,b1 : ( ( ) ( ) set ) ) ) Element of K19(K20(b1 : ( ( ) ( ) set ) ,b1 : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) ;

theorem :: ALGSPEC1:15
for X being ( ( ) ( ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st X : ( ( ) ( ) set ) c= dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) holds
X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) = f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) | X : ( ( ) ( ) set ) : ( ( Relation-like ) ( Relation-like Function-like ) set ) ;

theorem :: ALGSPEC1:16
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds {} : ( ( ) ( Relation-like non-empty empty-yielding K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined Function-like one-to-one constant functional empty V31() FinSequence-like FinSubsequence-like FinSequence-membered ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like {} : ( ( ) ( Relation-like non-empty empty-yielding K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined Function-like one-to-one constant functional empty V31() FinSequence-like FinSubsequence-like FinSequence-membered ) set ) -defined Function-like total ) ( Relation-like non-empty empty-yielding {} : ( ( ) ( Relation-like non-empty empty-yielding K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined Function-like one-to-one constant functional empty V31() FinSequence-like FinSubsequence-like FinSequence-membered ) set ) -defined Function-like one-to-one constant functional empty total V31() FinSequence-like FinSubsequence-like FinSequence-membered ) ManySortedSet of {} : ( ( ) ( Relation-like non-empty empty-yielding K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined Function-like one-to-one constant functional empty V31() FinSequence-like FinSubsequence-like FinSequence-membered ) set ) ) = {} : ( ( ) ( Relation-like non-empty empty-yielding K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined Function-like one-to-one constant functional empty V31() FinSequence-like FinSubsequence-like FinSequence-membered ) set ) ;

theorem :: ALGSPEC1:17
for X, Y being ( ( ) ( ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st X : ( ( ) ( ) set ) c= Y : ( ( ) ( ) set ) holds
(Y : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b2 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b2 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b2 : ( ( ) ( ) set ) ) | X : ( ( ) ( ) set ) : ( ( Relation-like ) ( Relation-like b1 : ( ( ) ( ) set ) -defined b2 : ( ( ) ( ) set ) -defined Function-like ) set ) = X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) ;

theorem :: ALGSPEC1:18
for X, Y being ( ( ) ( ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds (X : ( ( ) ( ) set ) \/ Y : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like b1 : ( ( ) ( ) set ) \/ b2 : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) \/ b2 : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) \/ b2 : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) = (X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) +* (Y : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b2 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b2 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b2 : ( ( ) ( ) set ) ) : ( ( Relation-like Function-like ) ( Relation-like b1 : ( ( ) ( ) set ) \/ b2 : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) set ) ;

theorem :: ALGSPEC1:19
for X, Y being ( ( ) ( ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) tolerates Y : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like b2 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b2 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b2 : ( ( ) ( ) set ) ) ;

theorem :: ALGSPEC1:20
for X, Y being ( ( ) ( ) set )
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds (X : ( ( ) ( ) set ) \/ Y : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like b1 : ( ( ) ( ) set ) \/ b2 : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) \/ b2 : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) \/ b2 : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) = (X : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b1 : ( ( ) ( ) set ) ) \/ (Y : ( ( ) ( ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b2 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b2 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b2 : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ;

theorem :: ALGSPEC1:21
for X being ( ( non empty ) ( non empty ) set )
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st rng g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) c= X : ( ( non empty ) ( non empty ) set ) holds
(X : ( ( non empty ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of b1 : ( ( non empty ) ( non empty ) set ) ) * g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like ) ( Relation-like Function-like ) set ) = ((id X : ( ( non empty ) ( non empty ) set ) ) : ( ( total ) ( Relation-like b1 : ( ( non empty ) ( non empty ) set ) -defined b1 : ( ( non empty ) ( non empty ) set ) -valued Function-like one-to-one non empty total V18(b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) ) ) Element of K19(K20(b1 : ( ( non empty ) ( non empty ) set ) ,b1 : ( ( non empty ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like non empty ) set ) * g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like ) ( Relation-like Function-like ) set ) ;

theorem :: ALGSPEC1:22
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) misses dom g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) & rng g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) misses dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) holds
for X being ( ( ) ( ) set ) holds f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) * (X : ( ( ) ( ) set ) -indexing g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like b3 : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like b3 : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of b3 : ( ( ) ( ) set ) ) : ( ( Relation-like ) ( Relation-like b3 : ( ( ) ( ) set ) -defined Function-like ) set ) = f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) | X : ( ( ) ( ) set ) : ( ( Relation-like ) ( Relation-like Function-like ) set ) ;

definition
let f be ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ;
mode rng-retract of f -> ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) means :: ALGSPEC1:def 2
( dom it : ( ( ) ( ) MSAlgebra over f : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) : ( ( ) ( ) set ) = rng f : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) & f : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) * it : ( ( ) ( ) MSAlgebra over f : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) : ( ( Relation-like ) ( Relation-like ) set ) = id (rng f : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) : ( ( ) ( ) set ) : ( ( total ) ( Relation-like rng f : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined rng f : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -valued Function-like one-to-one total V18( rng f : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , rng f : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) ) ) Element of K19(K20((rng f : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) : ( ( ) ( ) set ) ,(rng f : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) );
end;

theorem :: ALGSPEC1:23
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function)
for g being ( ( ) ( Relation-like Function-like ) rng-retract of f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) holds rng g : ( ( ) ( Relation-like Function-like ) rng-retract of b1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( ) ( ) set ) c= dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) ;

theorem :: ALGSPEC1:24
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function)
for g being ( ( ) ( Relation-like Function-like ) rng-retract of f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )
for x being ( ( ) ( ) set ) st x : ( ( ) ( ) set ) in rng f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) holds
( g : ( ( ) ( Relation-like Function-like ) rng-retract of b1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) . x : ( ( ) ( ) set ) : ( ( ) ( ) set ) in dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) & f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) . (g : ( ( ) ( Relation-like Function-like ) rng-retract of b1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) . x : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) : ( ( ) ( ) set ) = x : ( ( ) ( ) set ) ) ;

theorem :: ALGSPEC1:25
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) is one-to-one holds
f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) " : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) is ( ( ) ( Relation-like Function-like ) rng-retract of f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) ;

theorem :: ALGSPEC1:26
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) is one-to-one holds
for g being ( ( ) ( Relation-like Function-like ) rng-retract of f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) holds g : ( ( ) ( Relation-like Function-like ) rng-retract of b1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) = f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) " : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) ;

theorem :: ALGSPEC1:27
for f1, f2 being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) tolerates f2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds
for g1 being ( ( ) ( Relation-like Function-like ) rng-retract of f1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )
for g2 being ( ( ) ( Relation-like Function-like ) rng-retract of f2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) holds g1 : ( ( ) ( Relation-like Function-like ) rng-retract of b1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) +* g2 : ( ( ) ( Relation-like Function-like ) rng-retract of b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) is ( ( ) ( Relation-like Function-like ) rng-retract of f1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) +* f2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) ) ;

theorem :: ALGSPEC1:28
for f1, f2 being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) c= f2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds
for g1 being ( ( ) ( Relation-like Function-like ) rng-retract of f1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) ex g2 being ( ( ) ( Relation-like Function-like ) rng-retract of f2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) st g1 : ( ( ) ( Relation-like Function-like ) rng-retract of b1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) c= g2 : ( ( ) ( Relation-like Function-like ) rng-retract of b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) ;

begin

definition
let S be ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) ;
let f, g be ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ;
pred f,g form_a_replacement_in S means :: ALGSPEC1:def 3
for o1, o2 being ( ( ) ( ) OperSymbol of ( ( ) ( ) set ) ) st ((id the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) ) : ( ( total ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -valued Function-like one-to-one total V18( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) ) ) Element of K19(K20( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* g : ( ( ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined Function-like total V53() ) ManySortedFunction of the Arity of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( Function-like V18( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like total V18( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) * (f : ( ( ) ( ) MSAlgebra over S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) #) : ( ( Relation-like the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like non empty total ) set ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined Function-like total ) set ) , the ResultSort of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( Function-like V18( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like total V18( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) * f : ( ( ) ( ) MSAlgebra over S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) : ( ( Relation-like ) ( Relation-like ) set ) ) ) : ( ( Relation-like Function-like ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) \/ the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined Function-like total total ) set ) . o1 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) = ((id the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) ) : ( ( total ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -valued Function-like one-to-one total V18( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) ) ) Element of K19(K20( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* g : ( ( ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined Function-like total V53() ) ManySortedFunction of the Arity of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( Function-like V18( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like total V18( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) ,( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) * (f : ( ( ) ( ) MSAlgebra over S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) #) : ( ( Relation-like the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -defined Function-like non empty total ) set ) : ( ( Relation-like ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined Function-like total ) set ) , the ResultSort of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( Function-like V18( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like total V18( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) * f : ( ( ) ( ) MSAlgebra over S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) : ( ( Relation-like ) ( Relation-like ) set ) ) ) : ( ( Relation-like Function-like ) ( Relation-like the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) \/ the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined the carrier' of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( ) set ) -defined Function-like total total ) set ) . o2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) holds
( ((id the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( total ) ( Relation-like the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like one-to-one non empty total V18( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* f : ( ( ) ( ) MSAlgebra over S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) * (the_arity_of o1 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V31() FinSequence-like FinSubsequence-like ) Element of the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) : ( ( Relation-like ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined Function-like ) set ) = ((id the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( total ) ( Relation-like the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like one-to-one non empty total V18( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* f : ( ( ) ( ) MSAlgebra over S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) * (the_arity_of o2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V31() FinSequence-like FinSubsequence-like ) Element of the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) : ( ( Relation-like ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined Function-like ) set ) & ((id the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( total ) ( Relation-like the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like one-to-one non empty total V18( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* f : ( ( ) ( ) MSAlgebra over S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) . (the_result_sort_of o1 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) = ((id the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( total ) ( Relation-like the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like one-to-one non empty total V18( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* f : ( ( ) ( ) MSAlgebra over S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) ) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) . (the_result_sort_of o2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of the carrier of S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) );
end;

theorem :: ALGSPEC1:29
for S being ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign )
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds
( f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) iff for o1, o2 being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) st ( the carrier' of S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -indexing g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier' of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) . o1 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) = ( the carrier' of S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -indexing g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier' of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) . o2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) holds
( ( the carrier of S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) * (the_arity_of o1 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V31() FinSequence-like FinSubsequence-like ) Element of the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) : ( ( Relation-like ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined Function-like ) set ) = ( the carrier of S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) * (the_arity_of o2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like V31() FinSequence-like FinSubsequence-like ) Element of the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) : ( ( Relation-like ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined Function-like ) set ) & ( the carrier of S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) . (the_result_sort_of o1 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) = ( the carrier of S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) . (the_result_sort_of o2 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ) ) ;

theorem :: ALGSPEC1:30
for S being ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign )
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds
( f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) iff the carrier of S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) , the carrier' of S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -indexing g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier' of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier' of b1 : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) form_a_replacement_in S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) ) ;

theorem :: ALGSPEC1:31
for S, S9 being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_morphism_between S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ,S9 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) holds
f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ;

theorem :: ALGSPEC1:32
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) , {} : ( ( ) ( Relation-like non-empty empty-yielding K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined Function-like one-to-one constant functional empty V31() FinSequence-like FinSubsequence-like FinSequence-membered ) set ) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ;

theorem :: ALGSPEC1:33
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for g, f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) is one-to-one & the carrier' of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) /\ (rng g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( ) ( ) set ) : ( ( ) ( ) set ) c= dom g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) holds
f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ;

theorem :: ALGSPEC1:34
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for g, f being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) is one-to-one & rng g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) misses the carrier' of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) holds
f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ;

registration
let X be ( ( ) ( ) set ) ;
let Y be ( ( non empty ) ( non empty ) set ) ;
let a be ( ( Function-like V18(Y : ( ( non empty ) ( non empty ) set ) ,X : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(X : ( ( ) ( ) set ) )) ) ) ( Relation-like Y : ( ( non empty ) ( non empty ) set ) -defined X : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(X : ( ( ) ( ) set ) )) -valued Function-like non empty total V18(Y : ( ( non empty ) ( non empty ) set ) ,X : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(X : ( ( ) ( ) set ) )) ) ) Function of Y : ( ( non empty ) ( non empty ) set ) ,X : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(X : ( ( ) ( ) set ) )) ) ;
let r be ( ( Function-like V18(Y : ( ( non empty ) ( non empty ) set ) ,X : ( ( ) ( ) set ) ) ) ( Relation-like Y : ( ( non empty ) ( non empty ) set ) -defined X : ( ( ) ( ) set ) -valued Function-like V18(Y : ( ( non empty ) ( non empty ) set ) ,X : ( ( ) ( ) set ) ) ) Function of Y : ( ( non empty ) ( non empty ) set ) ,X : ( ( ) ( ) set ) ) ;
cluster ManySortedSign(# X : ( ( ) ( ) set ) ,Y : ( ( non empty ) ( non empty ) set ) ,a : ( ( Function-like V18(Y : ( ( non empty ) ( non empty ) set ) ,X : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(X : ( ( ) ( ) set ) )) ) ) ( Relation-like Y : ( ( non empty ) ( non empty ) set ) -defined X : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(X : ( ( ) ( ) set ) )) -valued Function-like non empty total V18(Y : ( ( non empty ) ( non empty ) set ) ,X : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(X : ( ( ) ( ) set ) )) ) ) Element of K19(K20(Y : ( ( non empty ) ( non empty ) set ) ,(X : ( ( ) ( ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11(X : ( ( ) ( ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) ,r : ( ( Function-like V18(Y : ( ( non empty ) ( non empty ) set ) ,X : ( ( ) ( ) set ) ) ) ( Relation-like Y : ( ( non empty ) ( non empty ) set ) -defined X : ( ( ) ( ) set ) -valued Function-like V18(Y : ( ( non empty ) ( non empty ) set ) ,X : ( ( ) ( ) set ) ) ) Element of K19(K20(Y : ( ( non empty ) ( non empty ) set ) ,X : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) #) : ( ( strict ) ( strict ) ManySortedSign ) -> non void strict ;
end;

definition
let S be ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) ;
let f, g be ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ;
assume f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non empty non void ) ( non empty non void feasible feasible ) ManySortedSign ) ;
func S with-replacement (f,g) -> ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) means :: ALGSPEC1:def 4
( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -indexing f : ( ( ) ( ) set ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) , the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -indexing g : ( ( Function-like V18(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(S : ( ( ) ( ) set ) )) ) ) ( Relation-like f : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(S : ( ( ) ( ) set ) )) -valued Function-like non empty total V18(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(S : ( ( ) ( ) set ) )) ) ) Element of K19(K20(f : ( ( ) ( ) set ) ,(S : ( ( ) ( ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11(S : ( ( ) ( ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) form_morphism_between S : ( ( ) ( ) set ) ,it : ( ( Function-like V18(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) ) ) ( Relation-like f : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V18(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) ) ) Element of K19(K20(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) & the carrier of it : ( ( Function-like V18(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) ) ) ( Relation-like f : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V18(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) ) ) Element of K19(K20(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) = rng ( the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -indexing f : ( ( ) ( ) set ) ) : ( ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of the carrier of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) & the carrier' of it : ( ( Function-like V18(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) ) ) ( Relation-like f : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) -valued Function-like V18(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) ) ) Element of K19(K20(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) = rng ( the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -indexing g : ( ( Function-like V18(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(S : ( ( ) ( ) set ) )) ) ) ( Relation-like f : ( ( ) ( ) set ) -defined S : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(S : ( ( ) ( ) set ) )) -valued Function-like non empty total V18(f : ( ( ) ( ) set ) ,S : ( ( ) ( ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11(S : ( ( ) ( ) set ) )) ) ) Element of K19(K20(f : ( ( ) ( ) set ) ,(S : ( ( ) ( ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11(S : ( ( ) ( ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) ) : ( ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ( Relation-like the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) -defined Function-like total ) ManySortedSet of the carrier' of S : ( ( ) ( ) set ) : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) );
end;

theorem :: ALGSPEC1:35
for S1, S2 being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f being ( ( Function-like V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like non empty total V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) Function of the carrier of S1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of S2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )
for g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Function-like V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like non empty total V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) Function of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_morphism_between S1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ,S2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) holds
(f : ( ( Function-like V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like non empty total V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) Function of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) *) : ( ( Function-like V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -valued Function-like non empty total V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20(( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ,( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) * the Arity of S1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( Function-like V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -valued Function-like non empty total V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) : ( ( Function-like ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -valued Function-like non empty total V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ,( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) = the Arity of S2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( Function-like V18( the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) ( Relation-like the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -valued Function-like non empty total V18( the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20( the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ,( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) * g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like ) ( Relation-like the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -valued Function-like ) set ) ;

theorem :: ALGSPEC1:36
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) holds
the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) is ( ( Function-like V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like non empty total V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) Function of the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ;

theorem :: ALGSPEC1:37
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) holds
for f9 being ( ( Function-like V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like non empty total V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) Function of the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) st f9 : ( ( Function-like V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like non empty total V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) Function of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) = the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) holds
for g9 being ( ( ) ( Relation-like Function-like ) rng-retract of the carrier' of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -indexing g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) holds the Arity of (S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( Function-like V18( the carrier' of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( Relation-like the carrier' of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like non empty total V18( the carrier' of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20( the carrier' of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ,( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) = ((f9 : ( ( Function-like V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like non empty total V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) Function of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) *) : ( ( Function-like V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like non empty total V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20(( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ,( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) * the Arity of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( Function-like V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -valued Function-like non empty total V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) ) : ( ( Function-like ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like non empty total V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ,( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) * g9 : ( ( ) ( Relation-like Function-like ) rng-retract of the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -indexing b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) )) -valued Function-like ) set ) ;

theorem :: ALGSPEC1:38
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) holds
for g9 being ( ( ) ( Relation-like Function-like ) rng-retract of the carrier' of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -indexing g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) holds the ResultSort of (S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( Function-like V18( the carrier' of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier' of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -valued Function-like non empty total V18( the carrier' of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier' of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) , the carrier of (b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (b2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) = (( the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) * the ResultSort of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( Function-like V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like non empty total V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) ) : ( ( Relation-like ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) * g9 : ( ( ) ( Relation-like Function-like ) rng-retract of the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -indexing b3 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) : ( ( Relation-like ) ( Relation-like Function-like ) set ) ;

theorem :: ALGSPEC1:39
for S, S9 being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_morphism_between S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ,S9 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) holds
S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) is ( ( ) ( feasible ) Subsignature of S9 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) ;

theorem :: ALGSPEC1:40
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) holds
( f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) iff the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) , the carrier' of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -indexing g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) form_morphism_between S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ,S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) ) ;

theorem :: ALGSPEC1:41
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) c= the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) & dom g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) c= the carrier' of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) & f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) holds
(id the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( total ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like one-to-one non empty total V18( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like Function-like ) ( Relation-like Function-like non empty ) set ) ,(id the carrier' of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( total ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like one-to-one non empty total V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) +* g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like Function-like ) ( Relation-like Function-like non empty ) set ) form_morphism_between S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ,S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) ;

theorem :: ALGSPEC1:42
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st dom f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) = the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) & dom g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( ) ( ) set ) = the carrier' of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) & f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) holds
f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_morphism_between S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ,S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) ;

theorem :: ALGSPEC1:43
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) holds
S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (( the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -indexing f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) = S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) ;

theorem :: ALGSPEC1:44
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) holds
S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,( the carrier' of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -indexing g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) ManySortedSet of the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) = S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) ;

begin

definition
let S be ( ( feasible ) ( feasible ) Signature) ;
mode Extension of S -> ( ( feasible ) ( feasible ) Signature) means :: ALGSPEC1:def 5
S : ( ( ) ( ) set ) is ( ( ) ( feasible ) Subsignature of it : ( ( ) ( ) set ) ) ;
end;

theorem :: ALGSPEC1:45
for S being ( ( feasible ) ( feasible ) Signature) holds S : ( ( feasible ) ( feasible ) Signature) is ( ( ) ( feasible ) Extension of S : ( ( feasible ) ( feasible ) Signature) ) ;

theorem :: ALGSPEC1:46
for S1 being ( ( feasible ) ( feasible ) Signature)
for S2 being ( ( ) ( feasible ) Extension of S1 : ( ( feasible ) ( feasible ) Signature) )
for S3 being ( ( ) ( feasible ) Extension of S2 : ( ( ) ( feasible ) Extension of b1 : ( ( feasible ) ( feasible ) Signature) ) ) holds S3 : ( ( ) ( feasible ) Extension of b2 : ( ( ) ( feasible ) Extension of b1 : ( ( feasible ) ( feasible ) Signature) ) ) is ( ( ) ( feasible ) Extension of S1 : ( ( feasible ) ( feasible ) Signature) ) ;

theorem :: ALGSPEC1:47
for S1, S2 being ( ( non empty feasible ) ( non empty feasible feasible ) Signature) st S1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) tolerates S2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) holds
S1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) +* S2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( non empty strict ) ( non empty feasible strict feasible ) ManySortedSign ) is ( ( ) ( feasible ) Extension of S1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) ;

theorem :: ALGSPEC1:48
for S1, S2 being ( ( non empty feasible ) ( non empty feasible feasible ) Signature) holds S1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) +* S2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( non empty strict ) ( non empty feasible strict feasible ) ManySortedSign ) is ( ( ) ( feasible ) Extension of S2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) ;

theorem :: ALGSPEC1:49
for S1, S2, S being ( ( non empty ) ( non empty feasible feasible ) ManySortedSign )
for f1, g1, f2, g2 being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) tolerates f2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) & f1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_morphism_between S1 : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ,S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) & f2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_morphism_between S2 : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ,S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) holds
f1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) +* f2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) ,g1 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) +* g2 : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) : ( ( Relation-like Function-like ) ( Relation-like Function-like ) set ) form_morphism_between S1 : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) +* S2 : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) : ( ( non empty strict ) ( non empty feasible strict feasible ) ManySortedSign ) ,S : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ;

theorem :: ALGSPEC1:50
for S1, S2, E being ( ( non empty feasible ) ( non empty feasible feasible ) Signature) holds
( E : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) is ( ( ) ( feasible ) Extension of S1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) & E : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) is ( ( ) ( feasible ) Extension of S2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) iff ( S1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) tolerates S2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) & E : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) is ( ( ) ( feasible ) Extension of S1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) +* S2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( non empty strict ) ( non empty feasible strict feasible ) ManySortedSign ) ) ) ) ;

registration
let S be ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ;
cluster -> non empty for ( ( ) ( ) Extension of S : ( ( ) ( ) set ) ) ;
end;

registration
let S be ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ;
cluster -> non void for ( ( ) ( ) Extension of S : ( ( ) ( ) set ) ) ;
end;

theorem :: ALGSPEC1:51
for S, T being ( ( feasible ) ( feasible ) Signature) st S : ( ( feasible ) ( feasible ) Signature) is empty holds
T : ( ( feasible ) ( feasible ) Signature) is ( ( ) ( feasible ) Extension of S : ( ( feasible ) ( feasible ) Signature) ) ;

registration
let S be ( ( feasible ) ( feasible ) Signature) ;
cluster non empty non void strict feasible for ( ( ) ( ) Extension of S : ( ( feasible ) ( feasible ) ManySortedSign ) ) ;
end;

theorem :: ALGSPEC1:52
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function)
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for E being ( ( ) ( non empty non void feasible feasible ) Extension of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in E : ( ( ) ( non empty non void feasible feasible ) Extension of b3 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) holds
f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ;

theorem :: ALGSPEC1:53
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function)
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for E being ( ( ) ( non empty non void feasible feasible ) Extension of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in E : ( ( ) ( non empty non void feasible feasible ) Extension of b3 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) holds
E : ( ( ) ( non empty non void feasible feasible ) Extension of b3 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) is ( ( ) ( non empty non void feasible feasible ) Extension of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) ) ;

theorem :: ALGSPEC1:54
for S1, S2 being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) st S1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) tolerates S2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) holds
for f, g being ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) st f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) form_a_replacement_in S1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) +* S2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( non empty strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) holds
(S1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) +* S2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) : ( ( non empty strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) = (S1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) +* (S2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) with-replacement (f : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) ,g : ( ( Relation-like Function-like ) ( Relation-like Function-like ) Function) )) : ( ( non empty non void strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) : ( ( non empty strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) ;

begin

definition
mode Algebra -> ( ( ) ( ) set ) means :: ALGSPEC1:def 6
ex S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) st it : ( ( feasible ) ( feasible ) ManySortedSign ) is ( ( feasible ) ( feasible ) MSAlgebra over S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) ;
end;

definition
let S be ( ( feasible ) ( feasible ) Signature) ;
mode Algebra of S -> ( ( ) ( ) Algebra ) means :: ALGSPEC1:def 7
ex E being ( ( non void ) ( non empty non void feasible feasible ) Extension of S : ( ( feasible ) ( feasible ) ManySortedSign ) ) st it : ( ( ) ( ) set ) is ( ( feasible ) ( feasible ) MSAlgebra over E : ( ( non void ) ( non empty non void feasible feasible ) Extension of S : ( ( feasible ) ( feasible ) Signature) ) ) ;
end;

theorem :: ALGSPEC1:55
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for A being ( ( feasible ) ( feasible ) MSAlgebra over S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) holds A : ( ( feasible ) ( feasible ) MSAlgebra over b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) is ( ( ) ( ) Algebra of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) ;

theorem :: ALGSPEC1:56
for S being ( ( feasible ) ( feasible ) Signature)
for E being ( ( ) ( feasible ) Extension of S : ( ( feasible ) ( feasible ) Signature) )
for A being ( ( ) ( ) Algebra of E : ( ( ) ( feasible ) Extension of b1 : ( ( feasible ) ( feasible ) Signature) ) ) holds A : ( ( ) ( ) Algebra of b2 : ( ( ) ( feasible ) Extension of b1 : ( ( feasible ) ( feasible ) Signature) ) ) is ( ( ) ( ) Algebra of S : ( ( feasible ) ( feasible ) Signature) ) ;

theorem :: ALGSPEC1:57
for S being ( ( feasible ) ( feasible ) Signature)
for E being ( ( non empty feasible ) ( non empty feasible feasible ) Signature)
for A being ( ( ) ( ) MSAlgebra over E : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) st A : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) is ( ( ) ( ) Algebra of S : ( ( feasible ) ( feasible ) Signature) ) holds
( the carrier of S : ( ( feasible ) ( feasible ) Signature) : ( ( ) ( ) set ) c= the carrier of E : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) & the carrier' of S : ( ( feasible ) ( feasible ) Signature) : ( ( ) ( ) set ) c= the carrier' of E : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) ) ;

theorem :: ALGSPEC1:58
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for E being ( ( non empty feasible ) ( non empty feasible feasible ) Signature)
for A being ( ( ) ( ) MSAlgebra over E : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) st A : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) is ( ( ) ( ) Algebra of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) holds
for o being ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) holds the Charact of A : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) : ( ( ) ( Relation-like the carrier' of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) -defined Function-like total V53() ) ManySortedFunction of the Arity of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( Function-like V18( the carrier' of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) , the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) ( Relation-like the carrier' of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) -defined the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -valued Function-like total V18( the carrier' of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) , the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20( the carrier' of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) ,( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) * ( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) #) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined Function-like non empty total ) set ) : ( ( Relation-like ) ( Relation-like the carrier' of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) -defined Function-like total ) set ) , the ResultSort of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( Function-like V18( the carrier' of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) , the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier' of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) -defined the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like total V18( the carrier' of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) , the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier' of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) , the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) * the Sorts of b3 : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) : ( ( Relation-like ) ( Relation-like the carrier' of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) -defined Function-like total ) set ) ) . o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) is ( ( Function-like V18(( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) #) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined Function-like non empty total ) set ) . (the_arity_of b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like V31() FinSequence-like FinSubsequence-like ) Element of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( ) set ) , the Sorts of b3 : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) . (the_result_sort_of b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ) ) ( Relation-like ( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) #) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined Function-like non empty total ) set ) . (the_arity_of b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like V31() FinSequence-like FinSubsequence-like ) Element of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( ) set ) -defined the Sorts of b3 : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) . (the_result_sort_of b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) -valued Function-like V18(( the Sorts of b3 : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) #) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined Function-like non empty total ) set ) . (the_arity_of b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like V31() FinSequence-like FinSubsequence-like ) Element of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( ) set ) , the Sorts of b3 : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) . (the_result_sort_of b4 : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ) ) Function of ( the Sorts of A : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) #) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -defined Function-like non empty total ) set ) . (the_arity_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( Relation-like K97() : ( ( ) ( ) Element of K19(K93() : ( ( ) ( ) set ) ) : ( ( ) ( ) set ) ) -defined the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like V31() FinSequence-like FinSubsequence-like ) Element of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( ) set ) , the Sorts of A : ( ( ) ( ) MSAlgebra over b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) : ( ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like the carrier of b2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) . (the_result_sort_of o : ( ( ) ( ) OperSymbol of ( ( ) ( non empty ) set ) ) ) : ( ( ) ( ) Element of the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( ) ( ) set ) ) ;

theorem :: ALGSPEC1:59
for S being ( ( non empty feasible ) ( non empty feasible feasible ) Signature)
for A being ( ( ) ( ) Algebra of S : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) )
for E being ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) st A : ( ( ) ( ) Algebra of b1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) is ( ( ) ( ) MSAlgebra over E : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) ) holds
A : ( ( ) ( ) Algebra of b1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) is ( ( ) ( ) MSAlgebra over E : ( ( non empty ) ( non empty feasible feasible ) ManySortedSign ) +* S : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( non empty strict ) ( non empty feasible strict feasible ) ManySortedSign ) ) ;

theorem :: ALGSPEC1:60
for S1, S2 being ( ( non empty feasible ) ( non empty feasible feasible ) Signature)
for A being ( ( ) ( ) MSAlgebra over S1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) st A : ( ( ) ( ) MSAlgebra over b1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) is ( ( ) ( ) MSAlgebra over S2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) ) holds
( the carrier of S1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) = the carrier of S2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( non empty ) set ) & the carrier' of S1 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) = the carrier' of S2 : ( ( non empty feasible ) ( non empty feasible feasible ) Signature) : ( ( ) ( ) set ) ) ;

registration
let S be ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ;
let A be ( ( non-empty disjoint_valued ) ( non-empty disjoint_valued feasible non empty ) MSAlgebra over S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) ;
cluster the Sorts of A : ( ( non-empty disjoint_valued ) ( non-empty disjoint_valued feasible non empty ) MSAlgebra over S : ( ( non void feasible ) ( non empty non void feasible feasible ) ManySortedSign ) ) : ( ( Relation-like the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like total ) ( Relation-like non-empty non empty-yielding the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like non empty total ) set ) -> Relation-like the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) ManySortedSign ) : ( ( ) ( non empty ) set ) -defined Function-like one-to-one total ;
end;

theorem :: ALGSPEC1:61
for S being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for A being ( ( disjoint_valued ) ( disjoint_valued ) MSAlgebra over S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) )
for C1, C2 being ( ( ) ( ) Component of ( ( ) ( non empty ) set ) ) holds
( C1 : ( ( ) ( ) Component of ( ( ) ( non empty ) set ) ) = C2 : ( ( ) ( ) Component of ( ( ) ( non empty ) set ) ) or C1 : ( ( ) ( ) Component of ( ( ) ( non empty ) set ) ) misses C2 : ( ( ) ( ) Component of ( ( ) ( non empty ) set ) ) ) ;

theorem :: ALGSPEC1:62
for S, S9 being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for A being ( ( non-empty disjoint_valued ) ( non-empty disjoint_valued feasible non empty ) MSAlgebra over S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) st A : ( ( non-empty disjoint_valued ) ( non-empty disjoint_valued feasible non empty ) MSAlgebra over b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) is ( ( ) ( ) MSAlgebra over S9 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) holds
ManySortedSign(# the carrier of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier' of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the Arity of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( Function-like V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -valued Function-like non empty total V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ,( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) , the ResultSort of S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( Function-like V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like non empty total V18( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier' of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) #) : ( ( strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) = ManySortedSign(# the carrier of S9 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier' of S9 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the Arity of S9 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( Function-like V18( the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) ( Relation-like the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) -valued Function-like non empty total V18( the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) * : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) ) Element of K19(K20( the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ,( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) *) : ( ( ) ( functional non empty FinSequence-membered ) M11( the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) )) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) , the ResultSort of S9 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( Function-like V18( the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) ( Relation-like the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -defined the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) -valued Function-like non empty total V18( the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) ) Element of K19(K20( the carrier' of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) , the carrier of b2 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) : ( ( ) ( non empty ) set ) ) : ( ( ) ( Relation-like ) set ) ) : ( ( ) ( ) set ) ) #) : ( ( strict ) ( non empty non void feasible strict feasible ) ManySortedSign ) ;

theorem :: ALGSPEC1:63
for S, S9 being ( ( non void feasible ) ( non empty non void feasible feasible ) Signature)
for A being ( ( non-empty disjoint_valued ) ( non-empty disjoint_valued feasible non empty ) MSAlgebra over S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) st A : ( ( non-empty disjoint_valued ) ( non-empty disjoint_valued feasible non empty ) MSAlgebra over b1 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) is ( ( ) ( ) Algebra of S9 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) holds
S : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) is ( ( ) ( non empty non void feasible feasible ) Extension of S9 : ( ( non void feasible ) ( non empty non void feasible feasible ) Signature) ) ;