theorem Th40:
  for f being Function st <:f,X,Y:> is total holds X c= dom f
by Th23;
