X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=inline;f=matita%2Fmatita%2Flib%2Flambda-delta%2Fsyntax%2Flenv.ma;fp=matita%2Fmatita%2Flib%2Flambda-delta%2Fsyntax%2Flenv.ma;h=c3aab910b1abfe44984d8fcc0f42d8c30a3c9cfb;hb=ec897a47d5c194a068ee76f9251958950371876b;hp=0000000000000000000000000000000000000000;hpb=5a0bffcc89e1215ed051b515dc276f6b8111fc9d;p=helm.git

diff --git a/matita/matita/lib/lambda-delta/syntax/lenv.ma b/matita/matita/lib/lambda-delta/syntax/lenv.ma
new file mode 100644
index 000000000..c3aab910b
--- /dev/null
+++ b/matita/matita/lib/lambda-delta/syntax/lenv.ma
@@ -0,0 +1,24 @@
+(*
+    ||M||  This file is part of HELM, an Hypertextual, Electronic
+    ||A||  Library of Mathematics, developed at the Computer Science
+    ||T||  Department of the University of Bologna, Italy.
+    ||I||
+    ||T||
+    ||A||  This file is distributed under the terms of the
+    \   /  GNU General Public License Version 2
+     \ /
+      V_______________________________________________________________ *)
+
+include "lambda-delta/syntax/term.ma".
+
+(* LOCAL ENVIRONMENTS *******************************************************)
+
+(* local environments *)
+inductive lenv: Type[0] ≝
+| LSort: lenv                       (* empty *)
+| LPair: lenv → bind2 → term → lenv (* binary binding construction *)
+.
+
+interpretation "sort (local environment)" 'Star = LSort.
+
+interpretation "environment binding construction (binary)" 'DBind L I T = (LPair L I T).