X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fgrammar%2Flenv_weight.ma;h=c9d79e5f5195ffc74e9ee8445b531b8c62f8a6c6;hb=ad3ca38634cfae29e8c26d0ab23cb466407eca5e;hp=9bd6e8260683402fded51e555c58d5f3aaee9eec;hpb=37e1b4f314ffae815beca71300688040f8da6939;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/grammar/lenv_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/grammar/lenv_weight.ma index 9bd6e8260..c9d79e5f5 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/grammar/lenv_weight.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/grammar/lenv_weight.ma @@ -17,7 +17,7 @@ include "basic_2/grammar/lenv.ma". (* WEIGHT OF A LOCAL ENVIRONMENT ********************************************) -let rec lw L ≝ match L with +rec definition lw L ≝ match L with [ LAtom ⇒ 0 | LPair L _ V ⇒ lw L + ♯{V} ].