theorem Th18:
  R is being_linear-order implies R~ is being_linear-order
by Lm5;
