(* 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.Axiom finite_site : list_of_elements Site eq_site_dec LS.

(* Specifications: *)
Lemma in_s_LS : forall s : Site, In s LS.
Lemma in_s_LS : forall s : Site, In s LS.