(* définition ok de l'application predta_coacc *)

(* Specifications: *)
Lemma map_or_def_ok :
forall m0 m1 : Map bool,
domain_equal bool bool m0 m1 -> domain_equal bool bool m0 (map_or m0 m1).
Lemma map_or_def_ok_d :
forall (d : preDTA) (m0 m1 : Map bool),
ensemble_base state d m0 ->
ensemble_base state d m1 -> ensemble_base state d (map_or m0 m1).
Lemma map_replace_def_ok :
forall (A : Set) (m : Map A) (a : ad) (x : A),
domain_equal A A m (map_replace A m a x).
Lemma map_replace_def_ok_d :
forall (d : preDTA) (m : Map bool) (a : ad) (x : bool),
ensemble_base state d m -> ensemble_base state d (map_replace bool m a x).
Lemma pl_coacc_def_ok :
forall (d : preDTA) (pl : prec_list), ensemble_base state d (pl_coacc d pl).
Lemma st_coacc_def_ok :
forall (d : preDTA) (s : state), ensemble_base state d (st_coacc d s).
Lemma predta_coacc_0_def_ok :
forall (d d' : preDTA) (m : Map bool),
ensemble_base state d (predta_coacc_0 d d' m).
Lemma predta_coacc_def_ok :
forall (d : preDTA) (a : ad) (m : Map bool),
ensemble_base state d (predta_coacc d a m).