intros.
unfold stable_analysis in |- *.
apply inclusion_analysis_inclusion.
unfold stable_analysis in H; trivial.
Qed.

(* Specifications: *)
(** if the n-th analysis of h is stable under analysis then so are the (n+p)-th analysis of 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)).