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

Lemma predta_coacc_fix_2 :
forall (d : preDTA) (a a0 : ad),
MapGet bool (predta_coacc_states d a) a0 = Some true ->
exists n : nat,
MapGet bool (power (Map bool) (predta_coacc d a) (map_mini state d) n) a0 =
Some true.