X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fstatic_2%2Fsyntax%2Fterm_weight.ma;h=ee53e62e754e8b3f3210c401508dd832dd10cd3a;hp=6948a54a8fea6e935b259cb3296570a0bacbda9c;hb=bd53c4e895203eb049e75434f638f26b5a161a2b;hpb=3b7b8afcb429a60d716d5226a5b6ab0d003228b1 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..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,11 +27,11 @@ 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}. +lemma tw_le_pair_dx (I): ∀V,T. ♯❨T❩ < ♯❨②[I]V.T❩. #I #V #T /2 width=1 by le_S_S/ qed.