fact: Definition pstrong_monotone' n (p : poly n) := coef_pos p /\ forall i (H : lt i n), exists p1, exists c, exists p2, 0 < c /\ p = p1 ++ (c, mxi H) :: p2.
imports: CoLoR(Polynom PositivePolynom NaryFunction VecUtil LogicUtil ListUtil ZUtil RelUtil NatUtil BoundNat)