From aa994e4c3126b43753f9ab8780bcb55a1df3f22a Mon Sep 17 00:00:00 2001
From: Ferruccio Guidi <ferruccio.guidi@unibo.it>
Date: Sat, 26 Mar 2022 17:56:36 +0100
Subject: [PATCH] update in ground

+ some additions and corrections
---
 .../lambdadelta/ground/relocation/tr_id.ma    |  2 +-
 .../ground/relocation/tr_id_hdtl.ma           | 30 +++++++++++++++++++
 .../ground/relocation/tr_id_tls.ma            | 26 ++++++++++++++++
 .../ground/relocation/tr_uni_hdtl.ma          | 30 +++++++++++++++++++
 .../ground/relocation/tr_uni_tls.ma           | 24 +++++++++++++++
 .../lambdadelta/ground/web/ground_src.tbl     |  4 +--
 6 files changed, 113 insertions(+), 3 deletions(-)
 create mode 100644 matita/matita/contribs/lambdadelta/ground/relocation/tr_id_hdtl.ma
 create mode 100644 matita/matita/contribs/lambdadelta/ground/relocation/tr_id_tls.ma
 create mode 100644 matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_hdtl.ma
 create mode 100644 matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_tls.ma

diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_id.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_id.ma
index 9b421ee43..4360fcb11 100644
--- a/matita/matita/contribs/lambdadelta/ground/relocation/tr_id.ma
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_id.ma
@@ -23,7 +23,7 @@ interpretation
   "identity element (total relocation streams)"
   'ElementI = (tr_id).
 
-(* Basic constructions (specific) *******************************************)
+(* Basic constructions ******************************************************)
 
 lemma tr_id_unfold: ⫯𝐢 = 𝐢.
 <(stream_unfold … (𝐢)) in ⊢ (???%); //
diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_id_hdtl.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_id_hdtl.ma
new file mode 100644
index 000000000..57f5b4a69
--- /dev/null
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_id_hdtl.ma
@@ -0,0 +1,30 @@
+(**************************************************************************)
+(*       ___                                                              *)
+(*      ||M||                                                             *)
+(*      ||A||       A project by Andrea Asperti                           *)
+(*      ||T||                                                             *)
+(*      ||I||       Developers:                                           *)
+(*      ||T||         The HELM team.                                      *)
+(*      ||A||         http://helm.cs.unibo.it                             *)
+(*      \   /                                                             *)
+(*       \ /        This file is distributed under the terms of the       *)
+(*        v         GNU General Public License Version 2                  *)
+(*                                                                        *)
+(**************************************************************************)
+
+include "ground/relocation/tr_pn_hdtl.ma".
+include "ground/relocation/tr_id.ma".
+
+(* IDENTITY ELEMENT FOR TOTAL RELOCATION MAPS *******************************)
+
+(* Constructions with stream_hd *********************************************)
+
+lemma tr_hd_id:
+      (𝟏) = ⇃𝐢.
+// qed.
+
+(* Constructions with stream_tl *********************************************)
+
+lemma tr_tl_id:
+      (𝐢) = ⇂𝐢.
+// qed.
diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_id_tls.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_id_tls.ma
new file mode 100644
index 000000000..20906fe9c
--- /dev/null
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_id_tls.ma
@@ -0,0 +1,26 @@
+(**************************************************************************)
+(*       ___                                                              *)
+(*      ||M||                                                             *)
+(*      ||A||       A project by Andrea Asperti                           *)
+(*      ||T||                                                             *)
+(*      ||I||       Developers:                                           *)
+(*      ||T||         The HELM team.                                      *)
+(*      ||A||         http://helm.cs.unibo.it                             *)
+(*      \   /                                                             *)
+(*       \ /        This file is distributed under the terms of the       *)
+(*        v         GNU General Public License Version 2                  *)
+(*                                                                        *)
+(**************************************************************************)
+
+include "ground/lib/stream_tls.ma".
+include "ground/relocation/tr_id_hdtl.ma".
+
+(* IDENTITY ELEMENT FOR TOTAL RELOCATION MAPS *******************************)
+
+(* Constructions with stream_tls ********************************************)
+
+lemma tr_tls_id (n):
+      (𝐢) = ⇂*[n]𝐢.
+#n @(nat_ind_succ … n) -n //
+#n #IH <stream_tls_swap //
+qed.
diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_hdtl.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_hdtl.ma
new file mode 100644
index 000000000..2ad69e3bd
--- /dev/null
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_hdtl.ma
@@ -0,0 +1,30 @@
+(**************************************************************************)
+(*       ___                                                              *)
+(*      ||M||                                                             *)
+(*      ||A||       A project by Andrea Asperti                           *)
+(*      ||T||                                                             *)
+(*      ||I||       Developers:                                           *)
+(*      ||T||         The HELM team.                                      *)
+(*      ||A||         http://helm.cs.unibo.it                             *)
+(*      \   /                                                             *)
+(*       \ /        This file is distributed under the terms of the       *)
+(*        v         GNU General Public License Version 2                  *)
+(*                                                                        *)
+(**************************************************************************)
+
+include "ground/lib/stream_hdtl.ma".
+include "ground/relocation/tr_uni.ma".
+
+(* UNIFORM ELEMENTS FOR TOTAL RELOCATION MAPS *******************************)
+
+(* Constructions with stream_hd *********************************************)
+
+lemma tr_hd_uni (n):
+      ↑n = ⇃𝐮❨n❩.
+// qed.
+
+(* Constructions with stream_tl *********************************************)
+
+lemma tr_tl_uni (n):
+      (𝐢) = ⇂𝐮❨n❩.
+// qed.
diff --git a/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_tls.ma b/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_tls.ma
new file mode 100644
index 000000000..f022eb88d
--- /dev/null
+++ b/matita/matita/contribs/lambdadelta/ground/relocation/tr_uni_tls.ma
@@ -0,0 +1,24 @@
+(**************************************************************************)
+(*       ___                                                              *)
+(*      ||M||                                                             *)
+(*      ||A||       A project by Andrea Asperti                           *)
+(*      ||T||                                                             *)
+(*      ||I||       Developers:                                           *)
+(*      ||T||         The HELM team.                                      *)
+(*      ||A||         http://helm.cs.unibo.it                             *)
+(*      \   /                                                             *)
+(*       \ /        This file is distributed under the terms of the       *)
+(*        v         GNU General Public License Version 2                  *)
+(*                                                                        *)
+(**************************************************************************)
+
+include "ground/relocation/tr_id_tls.ma".
+include "ground/relocation/tr_uni_hdtl.ma".
+
+(* UNIFORM ELEMENTS FOR TOTAL RELOCATION MAPS *******************************)
+
+(* Constructions with stream_tls ********************************************)
+
+lemma tr_tls_succ_uni (m) (n):
+      (𝐢) = ⇂*[↑m]𝐮❨n❩.
+// qed.
diff --git a/matita/matita/contribs/lambdadelta/ground/web/ground_src.tbl b/matita/matita/contribs/lambdadelta/ground/web/ground_src.tbl
index 333416ec2..9ee7ad91a 100644
--- a/matita/matita/contribs/lambdadelta/ground/web/ground_src.tbl
+++ b/matita/matita/contribs/lambdadelta/ground/web/ground_src.tbl
@@ -30,8 +30,8 @@ table {
         }
       ]
       [ { "total relocation" * } {
-          [ "tr_uni ( 𝐮❨?❩ )" "tr_uni_eq" "tr_uni_pap" "tr_uni_compose" * ]
-          [ "tr_id ( 𝐢 ) " "tr_id_pushs" "tr_id_pap" "tr_id_compose" * ]
+          [ "tr_uni ( 𝐮❨?❩ )" "tr_uni_eq" "tr_uni_hdtl" "tr_uni_tls" "tr_uni_pap" "tr_uni_compose" * ]
+          [ "tr_id ( 𝐢 ) " "tr_id_hdtl" "tr_id_pushs" "tr_id_tls" "tr_id_pap" "tr_id_compose" * ]
           [ "tr_compose ( ?∘? )" "tr_compose_eq" "tr_compose_tls" "tr_compose_pn" "tr_compose_pushs" "tr_compose_pap" "tr_compose_compose" * ]
           [ "tr_pap ( ?@❨?❩ )" "tr_pap_eq" "tr_pap_tls" "tr_pap_pat" "tr_pap_pn" "tr_pap_pushs" "tr_pap_pap" * ]
           [ "tr_pushs ( ⫯*[?]? )" * ]
-- 
2.39.2