X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Fgrammar%2Flenv.ma;h=5aacaf57ccaffe8127fa33a21982074ffe9fb681;hb=b5db76fe31ab35bae0257cb6684c511bcc531e45;hp=dfec098086a0464ed6b7a629529bfaf57746cac3;hpb=55dc00c1c44cc21c7ae179cb9df03e7446002c46;p=helm.git 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 dfec09808..5aacaf57c 100644 --- 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).