theorem Th52:
  F[;](x,g) is Function of Y,X
proof
  dom g = Y by FUNCT_2:def 1;
  then reconsider f = dom g --> x as Function of Y,X;
  F*<:f,g:> is Function of Y,X;
  hence thesis;
end;
