(* produit d'une famille d'objets *)
SubClass Product1 := Limit FunDiscr.
Variable l : Product1.
(* ||ai *)
Definition Pi1 := Lim l.
(* pi : ||ai -> ai *)
Definition Proj1 (i : I) : Pi1 --> a i := Limiting_cone l i.
(* construire a` partir d'une famille fj:c->ai, une NT tau:Delta(c)->F *)
Section pd1_diese_def.
Variables (c : C) (f : forall j : I, c --> FunDiscr j).
Definition Product_tau (j : Discr I) := f j.

Lemma Product_tau_cone_law : Cone_law Product_tau.
Definition Product_nt := Build_Cone Product_tau_cone_law.