(* 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_2 :
forall (d : preDTA) (a0 a1 a2 : ad) (s1 s2 : state)
(pl : prec_list) (c : ad),
MapGet state d a2 = Some s2 ->
MapGet state d a1 = Some s1 ->
MapGet prec_list s1 c = Some pl ->
prec_occur pl a2 ->
coacc d a0 a1 ->
predta_kill_non_coacc_def_0 d a0 a1 -> predta_kill_non_coacc_def_0 d a0 a2.