fact: Fixpoint read (f : R -> R) (l : seq (root_info R)) : Prop := match l with [::] => True | Exact x::tl => f x = 0 /\ read f tl | One_in x y::tl => unique_root_for f x y /\ head_root f tl /\ read f tl | Zero_in x y::tl => no_root_for f x y /\ head_root f tl /\ read f tl | Unknown x y::tl => read f tl end.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat binomial seq choice order) mathcomp(fintype bigop ssralg poly ssrnum ssrint rat ssrnum) mathcomp(polyrcf qe_rcf_th realalg) pol poly_normal desc