(* 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 predta_coacc_increasing : forall (d : preDTA) (a : ad), increasing_app bool (lemd d) (predta_coacc d a).