let A1, A2 be Subset of (MSFuncs (X, the Sorts of C)); ( ( for s being ManySortedFunction of X, the Sorts of C holds
( s in A1 iff ex f being ManySortedFunction of T,C st
( f is_homomorphism T,C & s = f || X ) ) ) & ( for s being ManySortedFunction of X, the Sorts of C holds
( s in A2 iff ex f being ManySortedFunction of T,C st
( f is_homomorphism T,C & s = f || X ) ) ) implies A1 = A2 )
assume that
A2:
for s being ManySortedFunction of X, the Sorts of C holds
( s in A1 iff ex f being ManySortedFunction of T,C st
( f is_homomorphism T,C & s = f || X ) )
and
A3:
for s being ManySortedFunction of X, the Sorts of C holds
( s in A2 iff ex f being ManySortedFunction of T,C st
( f is_homomorphism T,C & s = f || X ) )
; A1 = A2
A4:
X is_transformable_to the Sorts of C
;
thus
A1 c= A2
XBOOLE_0:def 10 A2 c= A1
let x be object ; TARSKI:def 3 ( not x in A2 or x in A1 )
assume A6:
x in A2
; x in A1
then reconsider x = x as ManySortedFunction of X, the Sorts of C by A4, AUTALG_1:19;
ex f being ManySortedFunction of T,C st
( f is_homomorphism T,C & x = f || X )
by A3, A6;
hence
x in A1
by A2; verum