Definition FT_j0 := SSC2_i (s x) FT_tau_d.Definition FT_t' := SSC2_t (s x) FT_tau_d.(* pullback P pour t et (t' o h#') *)

  Definition FT_P : Pullback1 FT_t (FT_t' o FT_h') :=
    A_c (Fpulb FT_t (FT_t' o FT_h')).Definition FT_b := Fibred1_prod FT_P.Definition FT_p := Fibred1_p FT_P.Definition FT_q := Fibred1_q FT_P.(* P is preserved by G *)

  Definition FT_GP' := G_c FT_P.Definition FT_GP : Fpullback1 (Fpulb FT_t (FT_t' o FT_h') o_F G) :=
    Build_Limit FT_GP'.

(* Specifications: *)
Lemma FT_diag1 : Pullback_eq1 (FMor G FT_t) (FMor G (FT_t' o FT_h')) (FT_f FT_i0) (FT_f FT_j0).