]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/matita/tests/fguidi.ma
the decompose tactic is now working
[helm.git] / helm / matita / tests / fguidi.ma
index 8958b250de097fe9974b0406c1798d9c7e15cd74..77d3b44bf3715466d6ba91827f668cd51f9ab9eb 100644 (file)
@@ -90,10 +90,10 @@ qed.
 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.
 *)
-