theorem
  a is initial & b is initial implies a,b are_isomorphic
proof
  assume that
A1: a is initial and
A2: b is initial;
  set g = the Morphism of b,a;
  set f = the Morphism of a,b;
A3: Hom(a,b) <> {} by A1;
  take f;
  now
    thus Hom(b,a) <> {} by A2;
    take g;
    thus f*g = id b & g*f = id a by A1,A2,Th45;
  end;
  hence thesis by A3;
end;
