fact: Definition poly_unit : pred {poly R} := fun p => (size p == 1) && (p`_0 \in GRing.unit).
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq choice) mathcomp(fintype bigop finset tuple) mathcomp(div ssralg countalg binomial)