(** h is stable under analysis iff (analysis h) is included in h *)
Definition stable_analysis (h : hedge) := inclusion (analysis h) h.

(* Specifications: *)
Lemma stable_closed : forall h : hedge, stable_analysis h -> equal h (analysis h).
Lemma stable_impl_ana_stable : forall h : hedge, stable_analysis h -> stable_analysis (analysis h).
Lemma stable_ana_stable : forall (h : hedge) (n : nat), stable_analysis (analysis_seq h n) -> forall p : nat, stable_analysis (analysis_seq h (p + n)).
Lemma stable_ana_const : forall (h : hedge) (n : nat), stable_analysis (analysis_seq h n) -> forall p : nat, equal (analysis_seq h n) (analysis_seq h (p + n)).