fact: Definition Morphism (U V : pcm) (D : rel U) f := fun (p1 : f Unit = Unit) (p2 : forall x y, valid (x \+ y) -> D x y -> valid (f x \+ f y) /\ f (x \+ y) = f x \+ f y) => @Morphism' U V D f (conj p1 p2).
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(eqtype fintype) pcm(options axioms prelude) pcm(pcm)