X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Flibrary%2Fnat%2Fexp.ma;h=e40844e3f9b837a20226e0619780267b816bf763;hb=9da5a5054b66ee9264ecccb2af43c2fce3b35e64;hp=11d84f74ca7deb3b676007693f72b585c0547435;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/matita/library/nat/exp.ma b/matita/library/nat/exp.ma
index 11d84f74c..e40844e3f 100644
--- a/matita/library/nat/exp.ma
+++ b/matita/library/nat/exp.ma
@@ -54,7 +54,7 @@ apply le_times.assumption.assumption.
 qed.
 
 theorem lt_m_exp_nm: \forall n,m:nat. (S O) < n \to m < n \sup m.
-intros.elim m.simplify.unfold lt.reflexivity.
+intros.elim m.simplify.unfold lt.apply le_n.
 simplify.unfold lt.
 apply (trans_le ? ((S(S O))*(S n1))).
 simplify.