(* kill empty détruit tous les états vides *)

Lemma dt_kill_empty_kill_empty_3 :
forall (d : preDTA) (a : ad) (s : state) (sigma : signature),
MapGet state (preDTA_kill (dta_non_empty_states d) d) a = Some s ->
predta_correct_wrt_sign d sigma ->
exists t : term, reconnaissance (preDTA_kill (dta_non_empty_states d) d) a t.