theorem
  R is being_quasi-order implies R~ is being_quasi-order;
