fact: Definition neg_in_interval2 (a b: R) (f: R -> R) := forall z, a <z <= b -> f z < 0.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice fintype order) mathcomp(binomial bigop ssralg poly ssrnum ssrint rat) mathcomp(polyrcf) pol