theorem
  dom f c= X implies compose(<*f*>,X) = f
proof
  compose(<*f*>,X) = f*id X by Th44;
  hence thesis by RELAT_1:51;
end;
