theorem Th24:
  Hom(b,c)<>{} implies g*(id b)=g
proof
  assume
A1: Hom(b,c)<>{};
A2: g(*)(id b) = g by A1,Def10;
  Hom(b,b) <> {};
  hence thesis by A1,A2,Def11;
end;
