fact: Record typ d nz cond := Typ { sort : porderType d; #[canonical=no] sort_x0 : sort; #[canonical=no] allP : forall x : sort, spec sort_x0 nz cond x }.
imports: HB(structures) Coq(ssreflect ssrfun ssrbool) mathcomp(ssrnat eqtype choice order ssralg ssrnum ssrint) mathcomp(mathcomp_extra)