theorem Th22:
  for f being Function holds <:f,X,Y:> c= f
proof
  let f be Function;
  (Y|`f|X) c= (Y|`f) & (Y|`f) c= f by RELAT_1:59,86;
  hence thesis;
end;
