proposition: Lemma normr_to_alg : { morph to_alg : x / `|x| }.
proof: Proof. move=> x /=; have [] := ger0P; have [] := ger0P x%:RA; rewrite ?rmorph0 ?rmorphN ?oppr0 //=. by rewrite ltr_to_alg leNgt => ->. by rewrite ler_to_alg ltNge => ->. Qed.
imports: HB(structures) mathcomp.ssreflect.ssreflect mathcomp(ssrfun ssrbool eqtype ssrnat seq choice fintype) mathcomp(bigop order ssralg ssrnum ssrint rat poly polydiv polyorder) mathcomp(perm matrix mxpoly polyXY binomial generic_quotient) mathcomp(cauchyreals separable zmodp bigenough)