(* *)
(* Functors equality *)
Section funct_setoid.
Variable C D : Category.
Definition Equal_Functor (F G : Functor C D) :=
forall (a b : C) (f : a --> b), FMor F f =_H FMor G f.

Lemma Equal_Functor_equiv : Equivalence Equal_Functor.
Canonical Structure Functor_setoid := Build_Setoid' Equal_Functor_equiv.