reserve o,m for set;
reserve C for Cartesian_category;
reserve a,b,c,d,e,s for Object of C;

theorem
  Hom(a,a[x]a) <> {}
proof
  Hom(a,a) <> {};
  hence thesis by Th23;
end;
