fact: Definition sep_join (U V : pcm) (D1 D2 : rel U) (f1 : @morphism U V D1) (f2 : @morphism U V D2) of phantom (U -> V) f1 & phantom (U -> V) f2 := fun x y => [&& D1 x y, D2 x y & valid ((f1 x \+ f2 x) \+ (f1 y \+ f2 y))].
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(eqtype fintype) pcm(options axioms prelude) pcm(pcm)