X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fground%2Farith%2Fnat_lt_plus.ma;h=89af3af2b449a9945de8419dab10d8befd8f7b56;hp=05776ef200767e8371a9721435b19cd8683ee7ea;hb=19b0a814861157ba05f23877d5cd94059f52c2e8;hpb=21de0d35017656c5a55528390b54b0b2ae395b44

diff --git a/matita/matita/contribs/lambdadelta/ground/arith/nat_lt_plus.ma b/matita/matita/contribs/lambdadelta/ground/arith/nat_lt_plus.ma
index 05776ef20..89af3af2b 100644
--- a/matita/matita/contribs/lambdadelta/ground/arith/nat_lt_plus.ma
+++ b/matita/matita/contribs/lambdadelta/ground/arith/nat_lt_plus.ma
@@ -31,9 +31,8 @@ lemma nlt_plus_bi_sn (m) (n1) (n2): n1 < n2 → m + n1 < m + n2.
 @nlt_i >nplus_succ_dx /2 width=1 by nle_plus_bi_sn/
 qed.
 
-(*** lt_plus_Sn_r *) (**)
-lemma lt_plus_Sn_r: ∀a,x,n. a < a + x + ↑n.
-/2 width=1/ qed-.
+lemma nlt_succ_plus_dx_refl_sn (m) (n): m < ↑(m + n).
+/2 width=1/ qed.
 
 (* Inversions with nplus ****************************************************)