(* Construisons maintenant Teta_1 *)
Section teta_1_tau_def.
Variable dxc : POb (Dual D) C.
Definition Teta_1_arrow (g : OB_l dxc --> G (Ob_r dxc)) :=
FMor F g o A_eps ad (Ob_r dxc).

(* Specifications: *)
Lemma Teta_1_arrow_Map_law : Map_law Teta_1_arrow.
Canonical Structure Teta_1_tau := Build_Map Teta_1_arrow_Map_law.