(* l'ensemble des sites avec un privilegie l'owner *)

Parameter Site : Set.Parameter owner : Site.Axiom eq_site_dec : eq_dec Site.Definition change_site (E : Set) := change_x0 Site E eq_site_dec.

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