(* construction de la cate'gorie (x|G)I *)

 Definition FT_I := SSC2_I (s x).Definition FT_f (i : FT_I) := SSC2_f i.Definition FT_a (i : FT_I) := SSC2_a i.Canonical Structure FamI (i : FT_I) := Build_Com_ob (FT_f i).Definition CommaI := FullSubCat FamI.(* inclusion E : (x|G)I -> (x|G) *)

 Definition FT_E := FSC_inc FamI.(* projection Q : (x|G) -> A *)

 Definition FT_Q := Comma_proj G x.(* Soit une limite <lim EoQ, eps> de E o Q *)

 Definition L_A := A_c (FT_E o_F FT_Q).Definition Lim_EoQ := Lim L_A.Definition FT_eps := Limiting_cone L_A.(* G preserve cette Limite *)

 Definition L_X := G_c L_A.(* construisons tau : Diag(x) -> (FT_E o FT_Q) o G *)

 Definition FT_tau_i (i : FT_I) := FT_f i.

Lemma FT_tau_cone_law : Cone_law (F:=(FT_E o_F FT_Q) o_F G) FT_tau_i.