From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Wed, 25 Oct 2006 09:31:58 +0000 (+0000)
Subject: Our unification used to guess a very complex argument of an apply in
X-Git-Tag: make_still_working~6713
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=90faddfb3ad925f99429d1830e2f420b4cd6b9a9;hp=99431d7f31da2f24195b889e4aa39c297136c8b6;p=helm.git

Our unification used to guess a very complex argument of an apply in
fermat_little_theorem. It does no longer, but the old behaviour seems to be
really lucky. Thus I change the .ma file.
---

diff --git a/helm/software/matita/library/nat/fermat_little_theorem.ma b/helm/software/matita/library/nat/fermat_little_theorem.ma
index 9ba1cb276..f7953346a 100644
--- a/helm/software/matita/library/nat/fermat_little_theorem.ma
+++ b/helm/software/matita/library/nat/fermat_little_theorem.ma
@@ -220,7 +220,7 @@ cut (O < a)
                   [rewrite > Hcut3.apply congruent_n_n
                   |rewrite < eq_map_iter_i_pi.
                    rewrite < eq_map_iter_i_pi.
-                   apply permut_to_eq_map_iter_i
+                   apply (permut_to_eq_map_iter_i ? ? ? ? ? (λm.m))
                    [apply assoc_times
                    |apply sym_times
                    |rewrite < plus_n_Sm.