fact: Definition root_info_eq (R : eqType) (x y : root_info R) : bool := match x, y with Exact a, Exact b => a == b :> R | Zero_in a1 a2, Zero_in b1 b2 => (a1 == b1 :> R) && (a2 == b2 :> R) | One_in a1 a2, One_in b1 b2 => (a1 == b1 :> R) && (a2 == b2 :> R) | Unknown a1 a2, Unknown b1 b2 => (a1 == b1 :> R) && (a2 == b2 :> R) | _, _ => false end.
imports: mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq choice fintype order) mathcomp(div finfun bigop prime binomial ssralg finset fingroup finalg) mathcomp(mxalgebra perm zmodp matrix ssrint) mathcomp(seq rat) pol square_free casteljau desc mathcomp(ssrnum ssrint realalg poly) poly_normal