]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/tests/fguidi.ma
version 0.7.1
[helm.git] / helm / matita / tests / fguidi.ma
index fc2c717eba684ff02a14ef0f1819e8956238d7e0..7163c56b390f28b0332910110c6494fe8716d93f 100644 (file)
@@ -1,4 +1,4 @@
-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)".
@@ -92,7 +92,7 @@ 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. auto.
-fwd H1 [].
-*)
+intros 1. elim x. 
+clear x. auto.
+clear H. fwd H1 [H]. decompose H.
+*)
\ No newline at end of file