proposition: Lemma append_transpose_Proper_1 : Proper (transpose ==> Logic.eq ==> transpose) (@app Act).
proof: Proof. intros x y H;induction H;intros z t e;subst t. - simpl;constructor. - generalize (IHtranspose z z (refl_equal z)); simpl;constructor;auto. Qed.
imports: List Relation_Operators Operators_Properties Morphisms Setoid EMonoid