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.
Canonical Structure PsiUA_tau := Build_Map PsiUA_arrow_map_law.
End psi_ua_tau_def.

Lemma PsiUA_tau_nt_law :
NT_law (F:=FunSET2_r F) (G:=FunSET2_l CoadjointUA) PsiUA_tau.