X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fdelayed_updating%2Fsyntax%2Flabel.ma;h=74318f3335d7298d225fea9f12d22777c93c1a46;hb=775ab35f714568dfcd672f0dd53a00e1ba7382cd;hp=1241db40aaa5bcdf36dc27d461ce6f29ac6e40c5;hpb=aefe567225f573b19d341da29fd7a2e6d5ee3105;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 1241db40a..74318f333 100644
--- a/matita/matita/contribs/lambdadelta/delayed_updating/syntax/label.ma
+++ b/matita/matita/contribs/lambdadelta/delayed_updating/syntax/label.ma
@@ -14,6 +14,7 @@
 
 include "ground/arith/pnat.ma".
 include "delayed_updating/notation/functions/nodelabel_d_1.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".
 include "delayed_updating/notation/functions/edgelabel_s_0.ma".
@@ -21,26 +22,29 @@ include "delayed_updating/notation/functions/edgelabel_s_0.ma".
 (* LABEL ********************************************************************)
 
 inductive label: Type[0] ≝
-| label_node_d: pnat → label
-| label_edge_l: label
-| label_edge_a: label
-| label_edge_s: label
+| label_d: pnat → label
+| label_m: label
+| label_L: label
+| label_A: label
+| label_S: label
 .
 
-coercion label_node_d.
-
 interpretation
   "variable reference by depth (label)"
-  'NodeLabelD p = (label_node_d p).
+  'NodeLabelD p = (label_d p).
+
+interpretation
+  "mark (label)"
+  'NodeLabelM = (label_m).
 
 interpretation
   "name-free functional abstruction (label)"
-  'EdgeLabelL = (label_edge_l).
+  'EdgeLabelL = (label_L).
 
 interpretation
   "application (label)"
-  'EdgeLabelA = (label_edge_a).
+  'EdgeLabelA = (label_A).
 
 interpretation
   "side branch (label)"
-  'EdgeLabelS = (label_edge_s).
+  'EdgeLabelS = (label_S).