proposition: Lemma Rleb_leVge x y : Rleb 0 x -> Rleb 0 y -> (Rleb x y) || (Rleb y x).
proof: Proof. move/RlebP=> Hx /RlebP Hy; case: (Rlt_le_dec x y). by move/Rlt_le/RlebP=> ->. by move/RlebP=> ->; rewrite orbT. Qed.
imports: Rdefinitions Raxioms RIneq Rbasic_fun Zwf Epsilon FunctionalExtensionality Ranalysis1 Rsqrt_def Rtrigo1 Reals mathcomp(all_ssreflect ssralg poly mxpoly ssrnum) HB(structures)