fact: Definition morph_axiom (U V : pcm) (sep : rel U) (f : U -> V) := [/\ f Unit = Unit & forall x y, valid (x \+ y) -> sep x y -> valid (f x \+ f y) /\ f (x \+ y) = f x \+ f y].
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(eqtype fintype) pcm(options axioms prelude) pcm(pcm)