theorem
  id a is invertible
proof
  Hom(a,a) <> {} & (id a)*(id a) = id a;
  hence thesis;
end;
