intro.
generalize (analysis_is_analysis (transpose h)).
generalize (analysis_is_analysis h).
unfold is_analysis in |- *.
unfold analysis_cond in |- *.
intros.
elim H0.
intros.
apply H2.
split.
unfold inclusion in |- *.
unfold transpose in |- *.
intros.
elim H.
intros.
elim H4.
unfold inclusion in |- *.
auto.
apply stable_impl_transpose_stable.
tauto.
Qed.

Lemma transpose_ana_transpose_incl_ana :
forall h : hedge,
inclusion (transpose (analysis_def (transpose h))) (analysis_def h).