theorem
  (Hom(a,cod f) = {} implies Hom(a,dom f) = {}) & (Hom(dom f,a) = {}
  implies Hom(cod f,a) = {})
proof
  Hom(dom f,cod f) <> {} by CAT_1:2;
  hence thesis by CAT_1:24;
end;
