intro.
unfold stable_analysis in |- *.
unfold equal in |- *.
intro.
split; trivial.
unfold inclusion in |- *.
intros.
apply AnaInc.
trivial.
Qed.

(* Specifications: *)
(** if h is stable under analysis then (analysis h) is stable under analysis *)
Lemma stable_impl_ana_stable :
forall h : hedge, stable_analysis h -> stable_analysis (analysis h).