
theorem
  for S being non empty ManySortedSign st S is unsplit holds the
  carrier' of S c= the carrier of S
proof
  let S be non empty ManySortedSign;
  assume
A1: S is unsplit;
  let x be object;
  assume
A2: x in the carrier' of S;
  then (the ResultSort of S).x = x by A1,Th44;
  hence thesis by A2,FUNCT_2:5;
end;
