Section MACHINE.
(* l'ensemble des sites avec un privilegie l'owner *)
Parameter Site : Set.
Parameter owner : Site.
Definition change_site (E : Set) := change_x0 Site E eq_site_dec.
(* les couples de sites correspondent aux files d'attente *)
Definition eq_queue_dec := eq_couple_dec Site Site eq_site_dec eq_site_dec.
Definition change_queue (Q : Set) :=
change_x0y0 Site Site Q eq_site_dec eq_site_dec.
(* 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.

Lemma in_s_LS : forall s : Site, In s LS.