fact: Fixpoint alternate_1 l := if l is a::tl then if 0 < a then all_ge0 tl else alternate_1 tl else false.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq choice fintype order) mathcomp(binomial bigop ssralg poly ssrnum ssrint rat) mathcomp(polyrcf) pol