X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Flibrary%2Fnat%2Fplus.ma;h=e8b5f6d29e258cee77866c26a470f6cc4119bef5;hb=c3bba4af040f8040e5eae07e70690c52f8c614f8;hp=d595dad19113cb6626ec4e58cc1e8a2d389be2b1;hpb=7f2444c2670cadafddd8785b687ef312158376b0;p=helm.git

diff --git a/matita/library/nat/plus.ma b/matita/library/nat/plus.ma
index d595dad19..e8b5f6d29 100644
--- a/matita/library/nat/plus.ma
+++ b/matita/library/nat/plus.ma
@@ -36,6 +36,11 @@ simplify.reflexivity.
 simplify.apply eq_f.assumption.
 qed.
 
+theorem plus_n_SO : \forall n:nat. S n = n+(S O).
+intro.rewrite > plus_n_O.
+apply plus_n_Sm.
+qed.
+
 theorem sym_plus: \forall n,m:nat. n+m = m+n.
 intros.elim n.
 simplify.apply plus_n_O.