fact: Definition pol_next_approx (p : {poly R}) (ab : R * R) := let: (a,b) := ab in let c :=half(a+b) in if (p.[a] * p.[c] <= 0) then (a,c) else (c,b).
imports: mathcomp(all_ssreflect) mathcomp(ssralg poly ssrnum ssrint rat polyrcf) mathcomp(polyorder polydiv)