fact: Definition repack_Pred T pT := let: PropPredType _ a mP := pT return {type of @PropPredType T for pT} -> _ in fun k => k a mP.
imports: Coq(ssreflect ssrbool ssrfun Setoid) mathcomp(ssrnat seq eqtype) pcm(options)