- first properties of strongly normalizing terms

[helm.git] / matita / matita / contribs / lambda_delta / Basic_2 / grammar / lenv.ma

diff --git a/matita/matita/contribs/lambda_delta/Basic_2/grammar/lenv.ma b/matita/matita/contribs/lambda_delta/Basic_2/grammar/lenv.ma
index dfec098086a0464ed6b7a629529bfaf57746cac3..5aacaf57ccaffe8127fa33a21982074ffe9fb681 100644 (file)
--- a/matita/matita/contribs/lambda_delta/Basic_2/grammar/lenv.ma
+++ b/matita/matita/contribs/lambda_delta/Basic_2/grammar/lenv.ma
@@ -12,7 +12,7 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "Basic-2/grammar/term.ma".
+include "Basic_2/grammar/term.ma".
 
 (* LOCAL ENVIRONMENTS *******************************************************)
 
@@ -22,6 +22,17 @@ inductive lenv: Type[0] ≝
 | LPair: lenv → bind2 → term → lenv (* binary binding construction *)
 .
 
-interpretation "sort (local environment)" 'Star = LAtom.
+interpretation "sort (local environment)"
+   'Star = LAtom.
 
-interpretation "environment binding construction (binary)" 'DBind L I T = (LPair L I T).
+interpretation "environment construction (binary)"
+   'DxItem2 L I T = (LPair L I T).
+
+interpretation "environment binding construction (binary)"
+   'DxBind2 L I T = (LPair L I T).
+
+interpretation "abbreviation (local environment)"
+   'DxAbbr L T = (LPair L Abbr T).
+
+interpretation "abstraction (local environment)"
+   'DxAbst L T = (LPair L Abst T).