fact: Definition QX_normalize (p : QX) : Q_as_CRing := match (Qeq_dec (nth_coeff (QX_deg p) p) [0]) with | left _ => [0] | right H => [1] [/] (nth_coeff (QX_deg p) p) [//] H end.
imports: CPoly_Degree CoRN.model.rings.Qring Zring Qordfield CRing_Homomorphisms RingClass CRingClass Zlcm Q_can RX_deg