fact: Fixpoint nth_coeff_ok (n : nat) (p : RX) {struct p} : bool := match n, p with | O, cpoly_zero => false | O, cpoly_linear c q => true | S m, cpoly_zero => false | S m, cpoly_linear c q => nth_coeff_ok m q end.
imports: CoRN.algebra.CPolynomials Coq.Classes.Morphisms CoRN.algebra.CRings