(* correction : ref_ok *)

(* Specifications: *)
Lemma predta_kill_non_coacc_correct_ref_ok :
forall (d : preDTA) (a : ad),
preDTA_ref_ok d -> preDTA_ref_ok (predta_kill_non_coacc d a).
Lemma dta_kill_non_coacc_correct_ref_ok :
forall d : DTA, DTA_ref_ok d -> DTA_ref_ok (dta_kill_non_coacc d).
Lemma dta_kill_non_coacc_lazy_correct_ref_ok :
forall d : DTA, DTA_ref_ok d -> DTA_ref_ok (dta_kill_non_coacc_lazy d).