(* sémantique du kill non coacc states : *)

(* Specifications: *)
Lemma predta_kill_non_coacc_semantics :
forall (d : DTA) (t : term),
DTA_ref_ok d -> (reconnait d t <-> reconnait (dta_kill_non_coacc d) t).
Lemma predta_kill_non_coacc_lazy_semantics :
forall (d : DTA) (t : term),
DTA_ref_ok d -> (reconnait d t <-> reconnait (dta_kill_non_coacc_lazy d) t).