Removed a dummy "let ... in" that was there only to show a bug (now fixed).

diff --git a/helm/matita/tests/fguidi.ma b/helm/matita/tests/fguidi.ma
index a28afef8773e9b942410a03c5d846b9a3171758b..27e51e69c1a6a58de495f5af6b0386195b850e2a 100644 (file)
--- a/helm/matita/tests/fguidi.ma
+++ b/helm/matita/tests/fguidi.ma
@@ -89,9 +89,8 @@ theorem le_gen_S_S_cc: \forall m,n. (le m n) \to (le (S m) (S n)).
 intros. auto.
 qed.
 
-(* teorema di prova che non compila per via del let *)
-theorem le_gen_S_x_2: \forall m,x. (le (S m) x) \to let k \def (S O) in
-                      (\exists n. x = (S n) \land (le m n) \land k = k).
+theorem le_gen_S_x_2: \forall m,x. (le (S m) x) \to
+                        \exists n. x = (S n) \land (le m n).
 intros.
 lapply le_gen_S_x to H using H0. elim H0. elim H1.
 exists. exact x1. auto.
@@ -102,4 +101,4 @@ theorem le_gen_S_S_2: \forall m,n. (le (S m) (S n)) \to (le m n).
 intros.
 lapply le_gen_S_x_2 to H using H0. elim H0. elim H1. 
 lapply eq_gen_S_S to H2 using H4. rewrite left H4. assumption.
-qed.
\ No newline at end of file
+qed.