fact: Definition Mem T (pT : PredType T) : pT -> Mem_Pred T := nosimpl (let: PropPredType _ _ (exist mem _) := pT return pT -> _ in mem).
imports: Coq(ssreflect ssrbool ssrfun Setoid) mathcomp(ssrnat seq eqtype) pcm(options)