Canonical Structure PhiUA := Build_NT PhiUA_tau_nt_law.
(* de'finissons PhiUA_1 *)
Section phi_ua_1_tau_def.
Variable dxc : POb (Dual D) C.
Definition PhiUA_1_arrow (f : OB_l dxc --> G (Ob_r dxc)) :=
UA_diese (UA_of (OB_l dxc)) f.

Lemma PhiUA_1_arrow_map_law : Map_law PhiUA_1_arrow.
Canonical Structure PhiUA_1_tau := Build_Map PhiUA_1_arrow_map_law.