Canonical Structure PsiUA := Build_NT PsiUA_tau_nt_law.
(* PsiUA_1 *)
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)).

Lemma PsiUA_1_arrow_map_law : Map_law PsiUA_1_arrow.
Canonical Structure PsiUA_1_tau := Build_Map PsiUA_1_arrow_map_law.