(* correction et complètude du test au vide *)

(* Specifications: *)
Lemma dt_non_empty_fix :
forall (d : preDTA) (a : ad),
MapGet bool (dta_non_empty_states d) a = Some true <->
(exists t : term, reconnaissance d a t).
Lemma dt_non_empty_lazy_fix :
forall (d : preDTA) (a : ad),
MapGet bool (dta_non_empty_states_lazy d) a = Some true <->
(exists t : term, reconnaissance d a t).