More work on groups, real numbers and integration algebras.

[helm.git] / matita / library / nat / exp.ma

diff --git a/matita/library/nat/exp.ma b/matita/library/nat/exp.ma
index 11d84f74ca7deb3b676007693f72b585c0547435..e40844e3f9b837a20226e0619780267b816bf763 100644 (file)
--- 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.