fact: Record mixin_of (pval : {morphism (@sepT U) >-> V}) (psub : {morphism D >-> U}) := Mixin { _ : forall x y, valid (psub x \+ psub y) -> valid (x \+ y) && D x y; _ : forall x, psub (pval x) = x; _ : forall x, valid x -> D x Unit -> pval (psub x) = x; _ : forall x, valid (pval x) -> valid x}.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(eqtype fintype) pcm(options axioms prelude) pcm(pcm)