Canonical Structure SET_lcone_tau := Build_Map''0 SET_lcone_tau_map_law.(* (h(x)i)(Elt) =  tau(i)(x) *)

   Definition SET_diese1_tau_fun (a : Single) :=
     match a with
     | Elt => tau i x
     end.

Lemma SET_diese1_tau_map_law : Map_law SET_diese1_tau_fun.