fact: Fixpoint Im_poly (p : cpoly CC) : cpoly IR := match p with | cpoly_zero _ => cpoly_zero IR | cpoly_linear _ c p1 => cpoly_linear IR (Im c) (Im_poly p1) end.
imports: CoRN.complex.CComplex Coq.Arith.Wf_nat Coq.setoid_ring.ArithRing