End ylpsi_arrow_def.
(* YLpsi<a,F> est une Map entre F(a) et NatFun(C(a,-),F) *)

Lemma YLpsi_arrow_map_law : Map_law0'' YLpsi_arrow.
Canonical Structure YLpsi_tau : Map0'' (F a) (NT_setoid (FunSET a) F) :=
YLpsi_arrow_map_law.