Section M_INVARIANTS.
(* il s'agit d'invariants d'etat de la machine, leurs preuves suivant le meme schema, verification sur la situation initiale puis induction et etude par cas *)
(* l'estampille est inferieure au temps *)

Lemma le_dt_time :
forall (c0 : Config) (s0 : Site), legal c0 -> dt c0 s0 <= time c0.