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 that_site :
forall (E : Set) (f : Site -> E) (s0 : Site) (x : E),
change_site E f s0 x s0 = x.