reserve e for set;

theorem Th12:
  for C be Category, i be Object of C holds id i in ( the_hom_sets_of C).(i,i)
proof
  let C be Category, i be Object of C;
   id i in Hom(i,i) by CAT_1:27;
  hence thesis by Def3;
end;
