some improvements before setting up the exclusion binder

[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..63b498610ff11b0780be2edc5e23b6e16ee03171 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).