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.

Lemma other_site :
forall (E : Set) (f : Site -> E) (s0 s1 : Site) (x : E),
s0 <> s1 -> change_site E f s0 x s1 = f s1.