Section lp_diese.
Variables (d : D) (tau : Cone d (H o_F G)).
Definition Lp_sigma_tau (i : J) := ApAphi_inv la (tau i:d --> G (H i)).
(* sigma est en fait un cone(T,Fd) ou` F est l'adjoint de G *)
Definition Lp_sigma := Build_Cone Lp_sigma_tau_cone_law.
(* construction de tau# *)
(* tau# = phi<d,limT>(sigma#) *)
Definition Lp_diese : d --> G (Lim l) := ApAphi la (Lim_diese l Lp_sigma).
End lp_diese.

Lemma Lp_coUAlaw1 : Limit_law1 (Limiting_cone l o_C G) Lp_diese.