intros.
apply le_h_trans with h.
apply le_h_trans with g; trivial.
apply inclusion_impl_le_h.
apply red_incl_h.
apply h_le_h_red.
Qed.
(** h is stable under analysis iff (analysis h) is included in h *)
Definition stable_analysis (h : hedge) := inclusion (analysis h) h.

(* Specifications: *)
(** if h is stable under analysis then h = (analysis h) (i.e. h is analysed) *)
Lemma stable_closed :
forall h : hedge, stable_analysis h -> equal h (analysis h).