proposition: Lemma truncCD : {in Cnat & Num.nneg, {morph truncC : x y / x + y >-> (x + y)%N}}.
proof: Proof. exact: truncD. Qed.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun ssrnat eqtype seq choice) mathcomp(div fintype path bigop finset prime order ssralg) mathcomp(poly polydiv mxpoly generic_quotient countalg) mathcomp(ssrnum closed_field ssrint archimedean rat intdiv) mathcomp(algebraics_fundamentals)