theorem Th39:
  a is_less_than X implies a [= "/\"(X,C)
proof
  assume a is_less_than X;
  then a in {b: b is_less_than X};
  hence thesis by Th38;
end;
