Section ylpsi_map1_def.
Variable b : C.
Definition YLpsi_arrow1 (f : a --> b) := FMor F f x.
Canonical Structure YLpsi_map1 :=
Build_Map (A:=FunSET a b) YLpsi_arrow1_map_law.
End ylpsi_map1_def.
(* (YLpsi<a,F>)x est une NT entre C(a,-) et F *)
Canonical Structure YLpsi_arrow := Build_NT YLpsi_map1_nt_law.
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.