theorem le_gen_S_S_cc: \forall m,n. (le m n) \to (le (S m) (S n)).
intros. auto.
qed.
+
(*
theorem le_trans: \forall x,y. (le x y) \to \forall z. (le y z) \to (le x z).
-intros 1. elim x.
-clear x. auto.
-clear H. fwd H1 [H]. decompose H.
+intros 1. elim x; clear H. (* clear x *)
+auto.
+fwd H1 [H]. decompose H.
*)
-