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

Lemma dt_non_empty_r_1 :
forall (s : state) (m : Map bool),
st_non_empty m s = true ->
exists c : ad,
(exists p : prec_list,
MapGet prec_list s c = Some p /\ pl_non_empty m p = true).