renaming in basic_2

[helm.git] / matita / matita / contribs / lambdadelta / basic_2 / syntax / term_weight.ma

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 9076a9b2ff1b670f8f0313b59ee6cf9b12526d63..6a0a4ea313ee975c129124c18153278f431865c2 100644 (file)
--- 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).