(* construction tau# pour tout tau : DElta(X) -> F *)
Section set_diese.
Variables (X : SET) (tau : Cones X F).
Section set_diese1_def.
Variable x : X.
Section set_diese1_tau_def.
Variable i : J.
(* (h(x)i)(Elt) =  tau(i)(x) *)
Definition SET_diese1_tau_fun (a : Single) :=
match a with
| Elt => tau i x
end.

(* Specifications: *)
Lemma SET_diese1_tau_map_law : Map_law SET_diese1_tau_fun.
Canonical Structure SET_diese1_tau := Build_Map SET_diese1_tau_map_law.