proposition: Lemma tail_coef0a p: ~~ (root p 0) -> tail_coef p = p`_0.
proof: Proof. by move /muNroot; rewrite /tail_coef => ->. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice fintype order) mathcomp(binomial bigop ssralg poly ssrnum ssrint rat) mathcomp(polydiv polyorder path interval polyrcf)