(* 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_3 : forall (d : preDTA) (a0 a1 : ad), preDTA_ref_ok d -> coacc d a0 a1 -> coacc (predta_kill_non_coacc d a0) a0 a1.