fact: Hypothesis kh: forall x: K, unr x = unl (k x) %[mod (eqv_clot h)].
imports: Coq(Morphisms RelationClasses) mathcomp(all_ssreflect) GraphTheory(edone finite_quotient preliminaries bij) GraphTheory(equiv digraph setoid_bigop structures)