End M_INVARIANTS.
Section X_INVARIANTS.
(* preuves de deux lemmes sur la valeur du compteur st dans un site autre que le proprietaire et chez le proprietaire *)

(* Specifications: *)
Lemma two :
forall (c0 : Config) (s0 : Site),
legal c0 -> s0 <> owner -> st c0 s0 = sigma_ctrl s0 (bm c0).
Lemma four :
forall c : Config, legal c -> (st c owner + sigma_yi c)%Z = sigma_xi c.