-set "baseuri" "cic:/matita/tests/".
+set "baseuri" "cic:/matita/tests/fguidi/".
alias id "O" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1/1)".
alias id "nat" = "cic:/Coq/Init/Datatypes/nat.ind#xpointer(1/1)".
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 [].
-*)
+intros 1. elim x.
+clear H. auto.
+clear H. fwd H1 [H]. decompose H.
+*)
\ No newline at end of file