first working (?) version of lapply

[helm.git] / helm / matita / tests / fguidi.ma

diff --git a/helm/matita/tests/fguidi.ma b/helm/matita/tests/fguidi.ma
index 284a700e71f6e02fc0b2e6f313c2a9c65692068c..88e577f13bdc7691a274812cfbeb245559b92713 100644 (file)
--- a/helm/matita/tests/fguidi.ma
+++ b/helm/matita/tests/fguidi.ma
@@ -89,8 +89,9 @@ theorem le_gen_S_S_cc: \forall m,n. (le m n) \to (le (S m) (S n)).
 intros. auto.
 qed.
 
-(*
-theorem pippo: \forall m,n. (le (S m) (S n)) \to (le m n).
+(* proof of le_gen_S_S with lapply *)
+theorem le_gen_S_S_2: \forall m,n. (le (S m) (S n)) \to (le m n).
 intros.
-lapply le_gen_S_x.
-*)
+lapply le_gen_S_x to H. elim Hcut1. elim H1. 
+lapply eq_gen_S_S to H2. rewrite left Hcut3. assumption.
+qed.
\ No newline at end of file