theorem Th38:
  a is initial implies dom(init(a,b)) = a & cod(init(a,b)) = b
proof
  assume a is initial;
  then Hom(a,b) <> {};
  hence thesis by CAT_1:5;
end;
