fact: Fixpoint cpoly_mult (p q : cpoly) {struct p} : cpoly := match p with | cpoly_zero => cpoly_zero | cpoly_linear c p1 => cpoly_plus (cpoly_mult_cr q c) (cpoly_linear [0] (cpoly_mult p1 q)) end.
imports: CoRN.algebra.CRing_Homomorphisms CoRN.tactics.Rational