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 *)

Lemma YLpsi_map1_nt_law : NT_law YLpsi_map1.