proposition: Lemma RmultRinvx : {in unit_R, left_inverse 1 Rinvx Rmult}.
proof: Proof. move=> r; rewrite -topredE /unit_R /Rinvx => /= rNZ /=. by rewrite rNZ Rinv_l //; apply/eqP. Qed.
imports: Rdefinitions Raxioms RIneq Rbasic_fun Zwf Epsilon FunctionalExtensionality Ranalysis1 Rsqrt_def Rtrigo1 Reals mathcomp(all_ssreflect ssralg poly mxpoly ssrnum) HB(structures)