reserve o,m for set;
reserve C for Cartesian_category;
reserve a,b,c,d,e,s for Object of C;
reserve C for Cocartesian_category;
reserve a,b,c,d,e,s for Object of C;

theorem
  Hom(a,c) <> {} & Hom(b,d) <> {} implies Hom(a+b,c+d) <> {}
proof
  assume that
A1: Hom(a,c) <> {} and
A2: Hom(b,d) <> {};
  Hom(d,c+d) <> {} by Th61;
  then
A3: Hom(b,c+d) <> {} by A2,CAT_1:24;
  Hom(c,c+d) <> {} by Th61;
  then Hom(a,c+d) <> {} by A1,CAT_1:24;
  hence thesis by A3,Th65;
end;
