fact: Record subpcm_st := Pack { pval : {morphism (@sepT U) >-> V}; psub : {morphism D >-> U}; _ : mixin_of pval psub}.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(eqtype fintype) pcm(options axioms prelude) pcm(pcm)