fact: Definition spec_sorted (l: seq nat) := sorted gespec l && gespec (last 0 l).+1 0.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq path fintype div bigop binomial) mathcomp(prime finset ssralg ssrnum ssrint)