fact: Fixpoint cpoly_map_fun (p:RX) : SX := match p with | cpoly_zero _ => cpoly_zero _ | cpoly_linear _ c p1 => cpoly_linear _ (f c) (cpoly_map_fun p1) end.
imports: CoRN.algebra.CRing_Homomorphisms CoRN.tactics.Rational