(* donc E! k : x -> G(b), par universalite' de FT_GP *)
Definition FT_k : x --> G FT_b := Pb1_diese FT_GP FT_diag1.
Definition FT_m0 := SSC2_i (s x) FT_k.
Definition FT_t'' : FT_a FT_m0 --> FT_b := SSC2_t (s x) FT_k.
(* Revenons au diagramme P *)
(* t'' o p est une fleche de m0 -> FT_i0 dans (x|G)I *)

(* Specifications: *)
Lemma FT_eq1 :
Com_law (axf:=Build_Com_ob (FT_f FT_m0)) (bxg:=Build_Com_ob (FT_f FT_i0))
(FT_t'' o FT_p).