Module Type TY_FUNCTOR.
Parameter F : Type -> Type.
Instance Fs : forall {A}, Setoid A -> Setoid (F A).
Parameter fmap : forall `{As:Setoid A} `{Bs:Setoid B}, Mor As Bs -> Mor (Fs As) (Fs Bs).

Axiom fmap_mor : forall `{As:Setoid A} `{Bs:Setoid B},
Morphism (equiv ==> equiv) fmap.