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 3f613c8d762f81089a3c13a94c819eb46a61ec71..b16eed5fafae1ebcc7015988758d1fb13b648587 100644 (file)
--- 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.