(* f^(high t)=true : terme t reconnu en l'etat s *)

Lemma dt_non_empty_r_0 :
forall (d : preDTA) (m r : Map bool) (a : ad) (l : state),
MapGet state d a = Some l ->
domain_equal state bool d r ->
MapGet bool (dta_app_ne_aux d m r) a = Some true ->
MapGet bool r a = Some true \/ st_non_empty m l = true.