X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Flibrary%2FZ%2Fmoebius.ma;h=33c9ad4be350236f679d925fe34d2d6d34dd2091;hb=32d8d8d419e0b910435da275361bb55d49bc43a9;hp=98ffccd40f29c59b52c65e3b6c1b813ed69059bc;hpb=deec6d7e7a26f2165b17b95a932036325d9a47fe;p=helm.git diff --git a/helm/software/matita/library/Z/moebius.ma b/helm/software/matita/library/Z/moebius.ma index 98ffccd40..33c9ad4be 100644 --- a/helm/software/matita/library/Z/moebius.ma +++ b/helm/software/matita/library/Z/moebius.ma @@ -64,7 +64,7 @@ intros. apply p_ord_exp1 [apply lt_O_nth_prime_n |assumption - |auto + |autobatch ] qed. @@ -514,7 +514,7 @@ lapply (exp_ord (nth_prime (max_prime_factor n)) n) (ord_rem n (nth_prime (max_prime_factor n)))) [apply lt_to_le.assumption |apply le_n - |auto + |autobatch |assumption ] |left.apply sym_eq.assumption