(* invariance de la compatibilité par rapport à une signature *)

(* Specifications: *)
Lemma kill_empty_correct_wrt_sign_invar_0 :
forall (p p' : prec_list) (m : Map bool) (n : nat),
pl_tl_length p n ->
prec_list_kill m p = Some p' -> pl_tl_length p' n.
Lemma kill_empty_correct_wrt_sign_invar_1 :
forall (s : state) (sigma : signature) (m : Map bool),
state_correct_wrt_sign s sigma ->
state_correct_wrt_sign (states_kill_aux m s) sigma.
Lemma kill_empty_correct_wrt_sign_invar :
forall (d : preDTA) (sigma : signature) (m : Map bool),
predta_correct_wrt_sign d sigma ->
predta_correct_wrt_sign (preDTA_kill m d) sigma.