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).
Canonical Structure Teta_1_tau := Build_Map Teta_1_arrow_Map_law.
End teta_1_tau_def.

Lemma Teta_1_tau_NT_law : NT_law (F:=FunSET2_l G) (G:=FunSET2_r F) Teta_1_tau.