Canonical Structure FunDiscr :=
  Build_Functor FunDiscr_comp_law FunDiscr_id_law.(* produit d'une famille d'objets *)

SubClass Product1 := Limit FunDiscr.(* ||ai *)

Definition Pi1 := Lim l.Definition Product_tau (j : Discr I) := f j.

Lemma Product_tau_cone_law : Cone_law Product_tau.