apply inclusion_impl_le_h.
generalize (analysis_is_analysis h).
intro.
unfold is_analysis in H.
unfold analysis_cond in H.
elim H.
intros.
tauto.
Qed.

(* Specifications: *)
(** A(h) ~ I(h) *)
Theorem ana_h_equiv_irr_h :
forall h : hedge, equiv_h (analysis_def h) (irreducible h).