theorem Th53:
  hom(id a,id b) = id Hom(a,b)
proof
  thus hom(id a,id b) = hom(a,id b) by Th52
    .= id Hom(a,b) by Th42;
end;
