fact: Definition ord_factor_list (p: fterm) n := [/\ natp n, (forall i, i<c n ->ord_prime (p i)) & forall i, natp i -> csucc i <c n -> ord_prime_le (p i) (p (csucc i))].
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)