X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Fterm_weight.ma;h=ee53e62e754e8b3f3210c401508dd832dd10cd3a;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hp=c8d4c974dca82b8436857609d58c565016cf2984;hpb=ff612dc35167ec0c145864c9aa8ae5e1ebe20a48;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/static_2/syntax/term_weight.ma b/matita/matita/contribs/lambdadelta/static_2/syntax/term_weight.ma
index c8d4c974d..ee53e62e7 100644
--- a/matita/matita/contribs/lambdadelta/static_2/syntax/term_weight.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/syntax/term_weight.ma
@@ -27,10 +27,14 @@ interpretation "weight (term)" 'Weight T = (tw T).
 (* Basic properties *********************************************************)
 
 (* Basic_1: was: tweight_lt *)
-lemma tw_pos: ∀T. 1 ≤ ♯{T}.
+lemma tw_pos: ∀T. 1 ≤ ♯❨T❩.
 #T elim T -T //
 qed.
 
+lemma tw_le_pair_dx (I): ∀V,T. ♯❨T❩ < ♯❨②[I]V.T❩.
+#I #V #T /2 width=1 by le_S_S/
+qed.
+
 (* Basic_1: removed theorems 11:
             wadd_le wadd_lt wadd_O weight_le weight_eq weight_add_O
             weight_add_S tlt_trans tlt_head_sx tlt_head_dx tlt_wf_ind