(* dem. que Teta et Teta_1 sont iso *)
(* a` prouver: eta(d) o G(Ff o eps(c)) = f *)
(* f o eta(Gc) o G(eps(c)) =f (car eta NT) *)
(* f o Id(Gc) = f                 (car C1)     *)
Section teta_iso.
Variable dxc : POb (Dual D) C.

(* Specifications: *)
Lemma Teta_1_o_Teta : AreIsos (Teta dxc) (Teta_1 dxc).
End teta_iso.