X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fsyntax%2Fterm_weight.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_2%2Fsyntax%2Fterm_weight.ma;h=63b498610ff11b0780be2edc5e23b6e16ee03171;hb=73966e3e9fd17155ca67e6b4a32f52225cea9d3c;hp=9076a9b2ff1b670f8f0313b59ee6cf9b12526d63;hpb=7632da8aa4f6751e351546be3d90fb23f634108c;p=helm.git

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..63b498610 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).