X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fsyntax%2Fterm_weight.ma;h=6a0a4ea313ee975c129124c18153278f431865c2;hp=9076a9b2ff1b670f8f0313b59ee6cf9b12526d63;hb=222044da28742b24584549ba86b1805a87def070;hpb=09b4420070d6a71990e16211e499b51dbb0742cb

diff --git a/matita/matita/contribs/lambdadelta/basic_2/syntax/term_weight.ma b/matita/matita/contribs/lambdadelta/basic_2/syntax/term_weight.ma
index 9076a9b2f..6a0a4ea31 100644
--- a/matita/matita/contribs/lambdadelta/basic_2/syntax/term_weight.ma
+++ b/matita/matita/contribs/lambdadelta/basic_2/syntax/term_weight.ma
@@ -19,7 +19,7 @@ include "basic_2/syntax/term.ma".
 
 rec definition tw T ≝ match T with
 [ TAtom _     ⇒ 1
-| TPair _ V T ⇒ tw V + tw T + 1
+| TPair _ V T ⇒ ↑(tw V + tw T)
 ].
 
 interpretation "weight (term)" 'Weight T = (tw T).