intros.
apply analysis_unique with g; trivial.
apply analysis_trans with h; trivial.
Qed.

(** if the n-th analysis of h is stable under analysis then the n-th analysis of h is the analysis of h *)
Lemma analysis_seq_approx_analysis :
forall (h : hedge) (n : nat),
stable_analysis (analysis_seq h n) -> is_analysis h (analysis_seq h n).