(* démo : un état apparait dans non_coacc_kill ssi il est coacc *)

Lemma non_coacc_kill_1 :
forall (d : preDTA) (a : ad) (s : state) (m : Map bool),
ensemble_base state d m ->
MapGet state (non_coacc_kill d m) a = Some s ->
MapGet state d a = Some s /\ MapGet bool m a = Some true.