proposition: Lemma R_idomainMixin x y : x * y = 0 -> (x == 0) || (y == 0).
proof: Proof. by move=> /Rmult_integral []->; rewrite eqxx ?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)