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