fact: Definition clone_morphism (D : rel U) f := let: @Morphism' _ _ pf := f return {type of @Morphism' D for f} -> morphism_for D (Phant V) in fun k => k pf.
imports: Coq(ssreflect ssrbool ssrfun) mathcomp(eqtype fintype) pcm(options axioms prelude) pcm(pcm)