X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fsyntax%2Flenv.ma;h=7b6bc80eb76ef3c88841c21ba46e1884e450e672;hb=73966e3e9fd17155ca67e6b4a32f52225cea9d3c;hp=05b8fde6274069f613058478d019d7187de9fcf1;hpb=7632da8aa4f6751e351546be3d90fb23f634108c;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv.ma index 05b8fde62..7b6bc80eb 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/syntax/lenv.ma @@ -13,10 +13,13 @@ (**************************************************************************) include "basic_2/notation/constructors/star_0.ma". +include "basic_2/notation/constructors/dxitem_2.ma". +include "basic_2/notation/constructors/dxbind1_2.ma". include "basic_2/notation/constructors/dxbind2_3.ma". +include "basic_2/notation/constructors/dxvoid_1.ma". include "basic_2/notation/constructors/dxabbr_2.ma". include "basic_2/notation/constructors/dxabst_2.ma". -include "basic_2/syntax/term.ma". +include "basic_2/syntax/bind.ma". (* LOCAL ENVIRONMENTS *******************************************************) @@ -28,10 +31,16 @@ inductive lenv: Type[0] ≝ interpretation "sort (local environment)" 'Star = LAtom. - +(* +interpretation "local environment binding construction (unary)" + 'DxBind1 L I = (LUnit L I). +*) interpretation "local environment binding construction (binary)" 'DxBind2 L I T = (LPair L I T). - +(* +interpretation "void (local environment)" + 'DxVoid L = (LPair L Void). +*) interpretation "abbreviation (local environment)" 'DxAbbr L T = (LPair L Abbr T).