(* l'ensemble des sites est fini, la liste des sites sert a parcourir et \`a sommer sur l'ensemble des sites *)
Parameter LS : list Site.

(* Specifications: *)
Axiom finite_site : list_of_elements Site eq_site_dec LS.
Lemma in_s_LS : forall s : Site, In s LS.
Variable Data : Set.
Axiom finite_site : list_of_elements Site eq_site_dec LS.
Lemma in_s_LS : forall s : Site, In s LS.
End MACHINE.