-theorem pippo: \forall m,n. (le (S m) (S n)) \to (le m n).
-intros.
-lapply le_gen_S_x.
\ No newline at end of file
+(*
+theorem le_trans: \forall x,y. (le x y) \to \forall z. (le y z) \to (le x z).
+intros 1. elim x; clear H. clear x.
+auto.
+fwd H1 [H]. decompose H.
+*)