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

Lemma predta_kill_non_coacc_0 :
forall (d : preDTA) (a a0 : ad) (s : state),
preDTA_ref_ok d ->
(MapGet state d a0 = Some s /\ coacc d a a0 <->
MapGet state (predta_kill_non_coacc d a) a0 = Some s).