X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Fterm_weight.ma;h=bcb826bb41bf7477067c229b2116c9d48105f31a;hb=98e786e1a6bd7b621e37ba7cd4098d4a0a6f8278;hp=6948a54a8fea6e935b259cb3296570a0bacbda9c;hpb=5b5dca0c118dfbe3ba8f0514ef07549544eb7810;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 6948a54a8..bcb826bb4 100644
--- a/matita/matita/contribs/lambdadelta/static_2/syntax/term_weight.ma
+++ b/matita/matita/contribs/lambdadelta/static_2/syntax/term_weight.ma
@@ -27,12 +27,12 @@ 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/
+lemma tw_le_pair_dx (I): ∀V,T. ♯❨T❩ < ♯❨②[I]V.T❩.
+#I #V #T /2 width=1 by nle_succ_bi/
 qed.
 
 (* Basic_1: removed theorems 11: