(* démo : si un état est coaccessible alors il existe n tel que ... *)

Lemma predta_coacc_contain_coacc_ads_0 :
forall (d : preDTA) (a0 a : ad) (s : state) (c : ad)
(p : prec_list) (b : ad) (m : Map bool),
preDTA_ref_ok d ->
MapGet state d a = Some s ->
MapGet prec_list s c = Some p ->
prec_occur p b ->
ensemble_base state d m ->
MapGet bool m a = Some true ->
MapGet bool (predta_coacc d a0 m) b = Some true.