intros.
unfold equal in |- *.
split.
apply equiv_irr_impl_incl; trivial.
apply equiv_irr_impl_incl; trivial.
apply equiv_h_sym; trivial.
Qed.

(* Specifications: *)
(** h <= (analysis h) *)
Lemma h_le_h_analysis : forall h : hedge, le_h h (analysis h).
intro.