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