Commit 169b135c authored by Guillaume Melquiond's avatar Guillaume Melquiond

Added Rcompare_sym.

parent e6964e4b
......@@ -468,6 +468,17 @@ apply Zcompare_Gt.
now apply lt_Z2R.
Qed.
Theorem Rcompare_sym :
forall x y,
Rcompare x y = CompOpp (Rcompare y x).
Proof.
intros x y.
destruct (Rcompare_spec y x) as [H|H|H].
now apply Rcompare_Gt.
now apply Rcompare_Eq.
now apply Rcompare_Lt.
Qed.
End Rcompare.
Section Floor_Ceil.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment