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