From be152b5436a8e1e107684722be834dbe02196d53 Mon Sep 17 00:00:00 2001
From: Ferruccio Guidi <ferruccio.guidi@unibo.it>
Date: Wed, 16 Feb 2022 23:42:18 +0100
Subject: [PATCH] update in ground

+ some additions and corrections
---
 .../contribs/lambdadelta/ground/arith/nat_rplus_pplus.ma | 9 ++++++++-
 .../contribs/lambdadelta/ground/arith/nat_rplus_succ.ma  | 3 +++
 .../lambdadelta/ground/relocation/tr_uni_compose.ma      | 4 ++--
 3 files changed, 13 insertions(+), 3 deletions(-)

diff --git a/matita/matita/contribs/lambdadelta/ground/arith/nat_rplus_pplus.ma b/matita/matita/contribs/lambdadelta/ground/arith/nat_rplus_pplus.ma
index 314a1fd17..661da6d71 100644
--- a/matita/matita/contribs/lambdadelta/ground/arith/nat_rplus_pplus.ma
+++ b/matita/matita/contribs/lambdadelta/ground/arith/nat_rplus_pplus.ma
@@ -13,7 +13,7 @@
 (**************************************************************************)
 
 include "ground/arith/pnat_plus.ma".
-include "ground/arith/nat_rplus.ma".
+include "ground/arith/nat_rplus_succ.ma".
 
 (* RIGHT ADDITION FOR NON-NEGATIVE INTEGERS *********************************)
 
@@ -22,3 +22,10 @@ include "ground/arith/nat_rplus.ma".
 lemma nrplus_inj_dx (p) (q):
       p + q = p + ninj q.
 // qed.
+
+lemma nrplus_pplus_assoc (p,q:pnat) (n:nat):
+      (p+q)+n = p+(q+n).
+#p #q #n
+@(nat_ind_succ … n) -n // #n #IH
+<nrplus_succ_dx <nrplus_succ_dx <pplus_succ_dx //
+qed.
diff --git a/matita/matita/contribs/lambdadelta/ground/arith/nat_rplus_succ.ma b/matita/matita/contribs/lambdadelta/ground/arith/nat_rplus_succ.ma
index d7dfaa1aa..3c280acb0 100644
--- a/matita/matita/contribs/lambdadelta/ground/arith/nat_rplus_succ.ma
+++ b/matita/matita/contribs/lambdadelta/ground/arith/nat_rplus_succ.ma
@@ -26,6 +26,9 @@ qed.
 lemma nrplus_succ_shift (p) (n): ↑p + n = p + ↑n.
 // qed.
 
+lemma nrplus_succ_sn (p) (n): ↑(p+n) = ↑p + n.
+// qed.
+
 lemma nrplus_unit_sn (n): ↑n = 𝟏 + n.
 #n @(nat_ind_succ … n) -n //
 qed.
diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_compose.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_compose.ma
index 3d329e795..7d7aa437e 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_compose.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_compose.ma
@@ -44,8 +44,8 @@ qed.
 
 (* Main constructions with tr_compose and tr_tls ****************************)
 
-theorem tr_compose_uni_dx (f) (p):
-        (𝐮❨f@❨p❩❩∘⇂*[p]f ≗ f∘𝐮❨p❩).
+theorem tr_compose_uni_dx (f) (n):
+        (𝐮❨f@❨n❩❩∘⇂*[n]f ≗ f∘𝐮❨n❩).
 #f #p
 @nstream_eq_inv_ext #q
 <tr_compose_pap <tr_compose_pap
-- 
2.39.2