(* This program is free software; you can redistribute it and/or      *)
(* modify it under the terms of the GNU Lesser General Public License *)
(* as published by the Free Software Foundation; either version 2.1   *)
(* of the License, or (at your option) any later version.             *)
(*                                                                    *)
(* This program is distributed in the hope that it will be useful,    *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of     *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the      *)
(* GNU General Public License for more details.                       *)
(*                                                                    *)
(* You should have received a copy of the GNU Lesser General Public   *)
(* License along with this program; if not, write to the Free         *)
(* Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA *)
(* 02110-1301 USA                                                     *)
(* définition de la fonction dont on va calculer le point fixe *)
Fixpoint pl_non_empty (m : Map bool) (p : prec_list) {struct p} : bool :=
match p with
| prec_empty => true
| prec_cons a la ls =>
match ls with
| prec_empty =>
match MapGet bool m a with
| Some b => b && pl_non_empty m la
| None => false
end
| prec_cons _ _ _ =>
match MapGet bool m a with
| Some b => pl_non_empty m ls || b && pl_non_empty m la
| None => pl_non_empty m ls
end
end
end.
Fixpoint st_non_empty (m : Map bool) (s : state) {struct s} : bool :=
match s with
| M0 => false
| M1 _ p => pl_non_empty m p
| M2 a b => st_non_empty m a || st_non_empty m b
end.
Fixpoint dta_app_ne_aux (d : preDTA) (m r : Map bool) {struct r} :
Map bool :=
match d, r with
| M0, _ => M0 bool
| M1 a s, M0 => M0 bool
| M1 a s, M1 a' b =>
if N.eqb a a' then M1 bool a (b || st_non_empty m s) else M0 bool
| M1 a s, M2 _ _ => M0 bool
| M2 d0 d1, M0 => M0 bool
| M2 d0 d1, M1 _ _ => M0 bool
| M2 d0 d1, M2 r0 r1 =>
M2 bool (dta_app_ne_aux d0 m r0) (dta_app_ne_aux d1 m r1)
end.
Definition dta_app_ne (d : preDTA) (m : Map bool) :
Map bool := dta_app_ne_aux d m m.
Definition dta_non_empty_states (d : preDTA) : Map bool :=
power (Map bool) (dta_app_ne d) (map_mini state d) (S (MapCard state d)).
Definition dta_states_non_empty (d : DTA) : Map bool :=
match d with
| dta p a => dta_non_empty_states p
end.
Definition dta_non_empty_states_lazy (d : preDTA) :
Map bool :=
lazy_power bool eqm_bool (dta_app_ne d) (map_mini state d)
(S (MapCard state d)).
Definition dta_states_non_empty_lazy (d : DTA) : Map bool :=
match d with
| dta p a => dta_non_empty_states_lazy p
end.
(* définition ok de dta_app_ne *)
(* croissance de dta_app_ne *)
Inductive pl_path_true : pl_path -> Map bool -> Prop :=
| plp_true_nil : forall m : Map bool, pl_path_true pl_path_nil m
| plp_true_cons :
forall (m : Map bool) (a : ad) (pl : pl_path),
pl_path_true pl m ->
MapGet bool m a = Some true -> pl_path_true (pl_path_cons a pl) m.
Definition pl_non_empty_path_true_def_0 (pl : pl_path)
(p : prec_list) : Prop :=
forall m : Map bool,
pl_path_incl pl p -> pl_path_true pl m -> pl_non_empty m p = true.
(* terme t reconnu en l'etat s : f^(high t)=true *)
Definition dt_non_empty_def_0 (d : preDTA) (a : ad)
(t : term) (pr : reconnaissance d a t) :=
forall n : nat,
term_high t <= n ->
MapGet bool (power (Map bool) (dta_app_ne d) (map_mini state d) n) a =
Some true.
Definition dt_non_empty_def_1 (d : preDTA) (s : state)
(t : term) (pr : state_reconnait d s t) :=
forall n : nat,
term_high t <= S n ->
st_non_empty (power (Map bool) (dta_app_ne d) (map_mini state d) n) s =
true.
Definition dt_non_empty_def_2 (d : preDTA) (p : prec_list)
(t : term_list) (pr : liste_reconnait d p t) :=
forall n : nat,
term_high_0 t <= n ->
pl_non_empty (power (Map bool) (dta_app_ne d) (map_mini state d) n) p =
true.
(* f^(high t)=true : terme t reconnu en l'etat s *)
Definition dt_non_empty_r_def_0 (n : nat) : Prop :=
forall (d : preDTA) (a : ad),
MapGet bool (power (Map bool) (dta_app_ne d) (map_mini state d) n) a =
Some true -> exists t : term, reconnaissance d a t.

Lemma dt_non_empty_r_4 :
forall (p : prec_list) (n : nat) (d : preDTA) (pl : pl_path),
dt_non_empty_r_def_0 n ->
pl_path_true pl (power (Map bool) (dta_app_ne d) (map_mini state d) n) ->
pl_path_incl pl p -> exists tl : term_list, liste_reconnait d p tl.