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.
Canonical Structure SET_diese1_tau := Build_Map SET_diese1_tau_map_law.
End set_diese1_tau_def.
(* h(x) : DElta({*}) -> F *)

Lemma SET_diese1_tau_cone_law : Cone_law SET_diese1_tau.