fact: Fixpoint QX_extract_roots_rec (n : nat) (P : QX) := match n with | O => P | S n => match QX_find_root P with | None => P | Some x => QX_extract_roots_rec n (RX_div _ P x) end end.
imports: CPoly_Degree CRing_Homomorphisms CoRN.model.ordfields.Qordfield CauchySeq Q_in_CReals CPoly_Euclid RingClass CRingClass Q_can nat_Q_lists RX_deg RX_div QX_root_loc