theorem
  for A being Subset of X st A c= the carrier of X0 holds f.:A = (f|X0)
  .:A by FUNCT_2:97;
