(* démo si mapget power predta_coacc = true alors l'état est coaccessible *)

Lemma st_coacc_rev :
forall (d : preDTA) (s : state) (a : ad),
MapGet bool (st_coacc d s) a = Some true ->
exists c : ad,
(exists p : prec_list,
MapGet prec_list s c = Some p /\ prec_occur p a).