(* *)
(* definition de PhiUA':C(F-,-) -> D(-,G-) *)
Section psi_ua_tau_def.
Variable dxc : POb (Dual D) C.
Definition PsiUA_arrow (f : F (Ob_l dxc) --> Ob_r dxc) :=
CoUA_diese (UA_of (Ob_r dxc)) f.

(* Specifications: *)
Lemma PsiUA_arrow_map_law : Map_law PsiUA_arrow.
Canonical Structure PsiUA_tau := Build_Map PsiUA_arrow_map_law.