fact: Structure PredType : Type := PropPredType { Pred_Sort :> Type; toPred : Pred_Sort -> Pred T; _ : {mem | isMem toPred mem}}.
imports: Coq(ssreflect ssrbool ssrfun Setoid) mathcomp(ssrnat seq eqtype) pcm(options)