Section psi_ua_1_tau_def.
Variable dxc : POb (Dual D) C.
Definition PsiUA_1_arrow (f : OB_l dxc --> CoadjointUA (Ob_r dxc)) :=
FMor F f o CoUA_mor (UA_of (Ob_r dxc)).
Canonical Structure PsiUA_1_tau := Build_Map PsiUA_1_arrow_map_law.
End psi_ua_1_tau_def.

Lemma PsiUA_1_tau_nt_law :
NT_law (F:=FunSET2_l CoadjointUA) (G:=FunSET2_r F) PsiUA_1_tau.