Definition poly_of of phant R := polynomial.Identity Coercion type_poly_of : poly_of >-> polynomial.Variables (F : fieldType) (R : ringType) (f : {rmorphism F -> R}).Notation coefp i := (coefp_head tt i).Canonical polynomial_countType R := CountType _ (poly_countMixin R).ure on poly *)
Variable R : idomainType.

(* Specifications: *)
Lemma polyCK : cancel polyC (coefp 0).
Lemma polyC_inj : injective polyC.
Lemma lead_coefC c : lead_coef c%:P = c.
Lemma polyP p q : nth 0 p =1 nth 0 q <-> p = q.
Lemma polyseq_cons c p : cons_poly c p = (if ~~ nilp p then c :: p else c%:P) :> seq R.