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
  (id a)+(id b) = id(a+b)
proof
  Hom(b,a+b) <> {} by Th61;
  then
A1: in2(a,b)*(id b) = in2(a,b) by CAT_1:29;
  Hom(a,a+b) <> {} by Th61;
  then in1(a,b)*(id a) = in1(a,b) by CAT_1:29;
  hence thesis by A1,Th66;
end;
