intro.
generalize (analysis_is_analysis h).
unfold is_analysis in |- *.
intro.
elim H.
intros.
apply H1.
unfold analysis_cond in |- *.
generalize (analysis_is_analysis (transpose h)).
unfold is_analysis in |- *.
intros.
elim H2.
unfold analysis_cond in |- *.
intros.
elim H3.
unfold inclusion in |- *.
intros.
split.
unfold transpose in |- *.
unfold transpose in H5.
intros.
apply H5.
trivial.
apply stable_impl_transpose_stable.
trivial.
Qed.

(** A(transpose h)=transpose A(h) *)
Lemma ana_transpose_transpose_ana :
forall h : hedge,
equal (analysis_def (transpose h)) (transpose (analysis_def h)).