X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2A%2Fgrammar%2Fgenv.ma;h=e96c34523220cc8befbf3f2c5804aa3b31081059;hp=235b741bfb9fcdf001d1669103f34ad5f05efded;hb=1fd63df4c77f5c24024769432ea8492748b4ac79;hpb=277fc8ff21ce3dbd6893b1994c55cf5c06a98355

diff --git a/matita/matita/contribs/lambdadelta/basic_2A/grammar/genv.ma b/matita/matita/contribs/lambdadelta/basic_2A/grammar/genv.ma
index 235b741bf..e96c34523 100644
--- a/matita/matita/contribs/lambdadelta/basic_2A/grammar/genv.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2A/grammar/genv.ma
@@ -12,7 +12,6 @@
 (*                                                                        *)
 (**************************************************************************)
 
-include "ground_2A/lib/list.ma".
 include "basic_2A/notation/constructors/star_0.ma".
 include "basic_2A/notation/constructors/dxbind2_3.ma".
 include "basic_2A/notation/constructors/dxabbr_2.ma".
@@ -22,19 +21,22 @@ include "basic_2A/grammar/term.ma".
 (* GLOBAL ENVIRONMENTS ******************************************************)
 
 (* global environments *)
-definition genv ≝ list2 bind2 term.
+inductive genv: Type[0] ≝
+| GAtom: genv                       (* empty *)
+| GPair: genv → bind2 → term → genv (* binary binding construction *)
+.
 
 interpretation "sort (global environment)"
-   'Star = (nil2 bind2 term).
+   'Star = (GAtom).
 
 interpretation "global environment binding construction (binary)"
-   'DxBind2 L I T = (cons2 bind2 term I T L).
+   'DxBind2 G I T = (GPair G I T).
 
 interpretation "abbreviation (global environment)"
-   'DxAbbr L T = (cons2 bind2 term Abbr T L).
+   'DxAbbr G T = (GPair G Abbr T).
 
 interpretation "abstraction (global environment)"
-   'DxAbst L T = (cons2 bind2 term Abst T L).
+   'DxAbst G T = (GPair G Abst T).
 
 (* Basic properties *********************************************************)