for R being Relation st R is being_quasi-order holds
R ~ is being_quasi-order ;