unfold is_analysis in |- *.
intros.
apply analysis_seq_incl_analysis_cond.
tauto.
Qed.

(** if h is an analysis of g and h' is an analysis of g then h = h' (and so h is the analysis of g) *)
Lemma analysis_unique :
forall g h h' : hedge, is_analysis g h -> is_analysis g h' -> equal h h'.