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

Lemma predta_coacc_0_fix :
forall (d : preDTA) (a a0 : ad),
preDTA_ref_ok d ->
(MapGet bool (predta_coacc_states_0 d a) a0 = Some true <->
coacc d a a0).