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