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