Canonical Structure FT_c2 := Build_Com_arrow FT_eq2.
(* Diagramme 2 commute *)

(* le grand diagramme commute : FT_eps(i) o FT_t = FT_eps(j) o FT_t' o h#' *)
Lemma FT_diag4 : FT_Apeps FT_i0 o FT_t =_S FT_Apeps FT_j0 o FT_t' o FT_h'.