unfold stable_analysis in |- *.
unfold inclusion in |- *.
intros.
generalize (analysis_transpose_transpose_analysis h).
unfold equal in |- *.
intro.
elim H1.
unfold inclusion in |- *.
intros.
generalize (H2 M N H0).
unfold transpose in |- *.
auto.
Qed.

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