let S be non empty non void ManySortedSign ; :: thesis: for X being ManySortedSet of
for t being set holds
( ( t in Terminals (DTConMSA X) & X is non-empty implies ex s being SortSymbol of S ex x being set st
( x in X . s & t = [x,s] ) ) & ( for s being SortSymbol of S
for x being set st x in X . s holds
[x,s] in Terminals (DTConMSA X) ) )

let X be ManySortedSet of ; :: thesis: for t being set holds
( ( t in Terminals (DTConMSA X) & X is non-empty implies ex s being SortSymbol of S ex x being set st
( x in X . s & t = [x,s] ) ) & ( for s being SortSymbol of S
for x being set st x in X . s holds
[x,s] in Terminals (DTConMSA X) ) )

let t be set ; :: thesis: ( ( t in Terminals (DTConMSA X) & X is non-empty implies ex s being SortSymbol of S ex x being set st
( x in X . s & t = [x,s] ) ) & ( for s being SortSymbol of S
for x being set st x in X . s holds
[x,s] in Terminals (DTConMSA X) ) )

set D = DTConMSA X;
A1: Union (coprod X) = union (rng (coprod X)) by CARD_3:def 4;
thus ( t in Terminals (DTConMSA X) & X is non-empty implies ex s being SortSymbol of S ex x being set st
( x in X . s & t = [x,s] ) ) :: thesis: for s being SortSymbol of S
for x being set st x in X . s holds
[x,s] in Terminals (DTConMSA X)
proof
assume A2: ( t in Terminals (DTConMSA X) & X is non-empty ) ; :: thesis: ex s being SortSymbol of S ex x being set st
( x in X . s & t = [x,s] )

then Terminals (DTConMSA X) = Union (coprod X) by Th6;
then consider A being set such that
A3: ( t in A & A in rng (coprod X) ) by A1, A2, TARSKI:def 4;
consider s being set such that
A4: ( s in dom (coprod X) & (coprod X) . s = A ) by A3, FUNCT_1:def 5;
reconsider s = s as SortSymbol of S by A4, PARTFUN1:def 4;
take s ; :: thesis: ex x being set st
( x in X . s & t = [x,s] )

(coprod X) . s = coprod s,X by Def3;
then consider x being set such that
A5: ( x in X . s & t = [x,s] ) by A3, A4, Def2;
take x ; :: thesis: ( x in X . s & t = [x,s] )
thus ( x in X . s & t = [x,s] ) by A5; :: thesis: verum
end;
let s be SortSymbol of S; :: thesis: for x being set st x in X . s holds
[x,s] in Terminals (DTConMSA X)

let x be set ; :: thesis: ( x in X . s implies [x,s] in Terminals (DTConMSA X) )
assume A6: x in X . s ; :: thesis: [x,s] in Terminals (DTConMSA X)
set t = [x,s];
[x,s] in coprod s,X by A6, Def2;
then A7: [x,s] in (coprod X) . s by Def3;
dom (coprod X) = the carrier of S by PARTFUN1:def 4;
then (coprod X) . s in rng (coprod X) by FUNCT_1:def 5;
then ( [x,s] in Union (coprod X) & Union (coprod X) c= Terminals (DTConMSA X) ) by A1, A7, Th6, TARSKI:def 4;
hence [x,s] in Terminals (DTConMSA X) ; :: thesis: verum