(* 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.

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