proposition: Lemma coarsest_equivalence r: equivalence r -> finer_equivalence r (coarse (substrate r)).
proof: Proof. move=> er x y;rewrite coarse_related; move /(related_equiv_P er) => [pa pb _]. by split. Qed.
imports: mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat)