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