X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsyntax%2Flabel.ma;h=6a607559cae0c07e5aaccd85230a8261f422771f;hb=9e31ac1f3f868349154b0ce2e550e2476aaf6a30;hp=74318f3335d7298d225fea9f12d22777c93c1a46;hpb=13584a37bbcde10e03c8a488f5b93e1e042da0a6;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/label.ma b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/label.ma
index 74318f333..6a607559c 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/label.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/label.ma
@@ -12,6 +12,10 @@
 (*                                                                        *)
 (**************************************************************************)
 
+(* A SYSTEM OF λ-CALCULUS WITH DELAYED UPDATING 
+ * Initial invocation: - Patience on me to gain peace and perfection! -
+ *)
+
 include "ground/arith/pnat.ma".
 include "delayed_updating/notation/functions/nodelabel_d_1.ma".
 include "delayed_updating/notation/functions/nodelabel_m_0.ma".
@@ -31,7 +35,7 @@ inductive label: Type[0] ≝
 
 interpretation
   "variable reference by depth (label)"
-  'NodeLabelD p = (label_d p).
+  'NodeLabelD k = (label_d k).
 
 interpretation
   "mark (label)"