intro.
apply inclusion_trans with (transpose (transpose (analysis_def h))).
apply inclusion_transpose_inclusion.
apply ana_transpose_incl_transpose_ana.
generalize (transpose_invol (analysis_def h)).
unfold equal in |- *.
tauto.
Qed.

(* Specifications: *)
Lemma ana_incl_transpose_ana_transpose :
forall h : hedge,
inclusion (analysis_def h) (transpose (analysis_def (transpose h))).