X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsyntax%2Flabel.ma;h=7106e0b0b217021d7fdcae1eed404fc3533ff428;hp=6a607559cae0c07e5aaccd85230a8261f422771f;hb=797a607af83f82102033270087722a7e59ddcd17;hpb=b0c6bbd5db69489a5ebd1b36de6685fa6de441b3

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/label.ma b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/label.ma
index 6a607559c..7106e0b0b 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/label.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/label.ma
@@ -16,8 +16,9 @@
  * Initial invocation: - Patience on me to gain peace and perfection! -
  *)
 
-include "ground/arith/pnat.ma".
+include "ground/arith/nat.ma".
 include "delayed_updating/notation/functions/nodelabel_d_1.ma".
+include "delayed_updating/notation/functions/nodelabel_d_2.ma".
 include "delayed_updating/notation/functions/nodelabel_m_0.ma".
 include "delayed_updating/notation/functions/edgelabel_l_0.ma".
 include "delayed_updating/notation/functions/edgelabel_a_0.ma".
@@ -26,17 +27,22 @@ include "delayed_updating/notation/functions/edgelabel_s_0.ma".
 (* LABEL ********************************************************************)
 
 inductive label: Type[0] ≝
-| label_d: pnat → label
-| label_m: label
-| label_L: label
-| label_A: label
-| label_S: label
+| label_d : pnat → label
+| label_d2: pnat → nat → label
+| label_m : label
+| label_L : label
+| label_A : label
+| label_S : label
 .
 
 interpretation
   "variable reference by depth (label)"
   'NodeLabelD k = (label_d k).
 
+interpretation
+  "variable reference by depth with offset (label)"
+  'NodeLabelD k d = (label_d2 k d).
+
 interpretation
   "mark (label)"
   'NodeLabelM = (label_m).