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=ad3ca38634cfae29e8c26d0ab23cb466407eca5e;hp=3787abe9355594a583a9700667efd455089b54ac;hpb=65008df95049eb835941ffea1aa682c9253c4c2b;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 ].