X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Fgrammar%2Fgenv.ma;fp=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Fgrammar%2Fgenv.ma;h=349f8708a05e327958d54d2182ab2a63c8c4fc2f;hb=48b202cd4ccd3ffc10f9a134314f747fdee30d36;hp=dad4fd230f17e4cb1c88288ffd9b05e176f8b9f8;hpb=e4328c9691fa85434acfb24eaedcb15ea2263b28;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/Basic_2/grammar/genv.ma b/matita/matita/contribs/lambda_delta/Basic_2/grammar/genv.ma
index dad4fd230..349f8708a 100644
--- a/matita/matita/contribs/lambda_delta/Basic_2/grammar/genv.ma
+++ b/matita/matita/contribs/lambda_delta/Basic_2/grammar/genv.ma
@@ -23,8 +23,17 @@ definition genv ≝ list2 bind2 term.
 interpretation "sort (global environment)"
    'Star = (nil2 bind2 term).
 
+interpretation "environment construction (binary)"
+   'DxItem2 L I T = (cons2 bind2 term I T L).
+
 interpretation "environment binding construction (binary)"
-   'DBind L I T = (cons2 bind2 term I T L).
+   'DxBind2 L I T = (cons2 bind2 term I T L).
+
+interpretation "abbreviation (global environment)"
+   'DxAbbr L T = (cons2 bind2 term Abbr T L).
+
+interpretation "abstraction (global environment)"
+   'DxAbst L T = (cons2 bind2 term Abst T L).
 
 (* Basic properties *********************************************************)