X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fgrammar%2Fterm_weight.ma;h=23659262d95191885e034822d1c60f4d1499af76;hb=5832735b721c0bd8567c8f0be761a9136363a2a6;hp=3787abe9355594a583a9700667efd455089b54ac;hpb=064980eacc2efe70ffee96134d75dfa37506fc36;p=helm.git diff --git a/matita/matita/contribs/lambdadelta/basic_2/grammar/term_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/grammar/term_weight.ma index 3787abe93..23659262d 100644 --- a/matita/matita/contribs/lambdadelta/basic_2/grammar/term_weight.ma +++ b/matita/matita/contribs/lambdadelta/basic_2/grammar/term_weight.ma @@ -17,7 +17,7 @@ include "basic_2/grammar/term.ma". (* WEIGHT OF A TERM *********************************************************) -let rec tw T ≝ match T with +rec definition tw T ≝ match T with [ TAtom _ ⇒ 1 | TPair _ V T ⇒ tw V + tw T + 1 ].