(* croissance de predta_coacc *)
Definition lemd (d : preDTA) : mRelation bool :=
fun m0 m1 : Map bool =>
ensemble_base state d m0 /\ ensemble_base state d m1 /\ lem m0 m1.

Lemma map_replace_inc :
forall (m0 m1 : Map bool) (a : ad) (b : bool),
lem m0 m1 -> lem (map_replace bool m0 a b) (map_replace bool m1 a b).