fact: Fixpoint pol_approx (p : {poly R}) (ab : R * R) (n:nat) := if n is m.+1 then pol_next_approx p (pol_approx p ab m) else ab.
imports: mathcomp(all_ssreflect) mathcomp(ssralg poly ssrnum ssrint rat polyrcf) mathcomp(polyorder polydiv)