proposition: Lemma recipP (q : {poly R}) : size q = deg.+1 -> recip deg q = reciprocal_pol q.
proof: Proof. by move=> s; rewrite /recip s subnn expr0 mul1r. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat binomial seq choice order) mathcomp(fintype bigop ssralg poly ssrnum ssrint rat ssrnum) mathcomp(polyrcf qe_rcf_th realalg) pol poly_normal desc