(* coaccessibilité des états conservée en supprimant les coaccessibles *)

Definition predta_kill_non_coacc_def_0 (d : preDTA) 
  (a0 a1 : ad) : Prop :=
  preDTA_ref_ok d ->
  coacc d a0 a1 -> coacc (predta_kill_non_coacc d a0) a0 a1.

Lemma predta_kill_non_coacc_1 : forall (d : preDTA) (a : ad) (s : state), MapGet state d a = Some s -> predta_kill_non_coacc_def_0 d a a.