From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 12 Mar 2008 18:55:42 +0000 (+0000)
Subject: Problem solved (was: apply needed an argument to avoid a great slow down due to
X-Git-Tag: make_still_working~5533
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=25be562c5436746df8d892449a9ff98755c37e9f;p=helm.git

Problem solved (was: apply needed an argument to avoid a great slow down due to
conversion of a meta-open and a meta-closed term).
---

diff --git a/helm/software/matita/library/nat/bertrand.ma b/helm/software/matita/library/nat/bertrand.ma
index 3f613c8d7..b16eed5fa 100644
--- a/helm/software/matita/library/nat/bertrand.ma
+++ b/helm/software/matita/library/nat/bertrand.ma
@@ -722,8 +722,7 @@ apply (list_of_primes_to_bertrand ? (S(exp 2 8)) (sieve (S(exp 2 8))))
     |apply leb_true_to_le.reflexivity
     ]
   |intros.apply (sieve_sound2 ? ? H3 H2)
-  |(* se tolgo l'argomento l'apply diventa lenta *)
-   apply (check_list2 (sieve (S(exp 2 8)))).
+  |apply check_list2.
    reflexivity
   ]
 qed.