theorem Th44:
  compose(<*f*>,X) = f*id X
proof
  <*f*> = {}^<*f*> by FINSEQ_1:34;
  hence compose(<*f*>,X) = f*compose({},X) by Th40
    .= f*id X by Th38;
end;
