X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fbasic_2%2Fgrammar%2Fterm_weight.ma;h=d8f39a3a154de4d7c53ca040220ef80ee4a118e2;hb=5613a25cee29ef32a597cb4b44e8f2f4d71c4df0;hp=e567df2089e41a6a04319311d1c9d09f387cbc5c;hpb=84713c9446ff13dd26533590985a0df67cb5ec7e;p=helm.git diff --git a/matita/matita/contribs/lambda_delta/basic_2/grammar/term_weight.ma b/matita/matita/contribs/lambda_delta/basic_2/grammar/term_weight.ma index e567df208..d8f39a3a1 100644 --- a/matita/matita/contribs/lambda_delta/basic_2/grammar/term_weight.ma +++ b/matita/matita/contribs/lambda_delta/basic_2/grammar/term_weight.ma @@ -26,15 +26,15 @@ 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. (* Basic eliminators ********************************************************) -axiom tw_wf_ind: ∀R:predicate term. - (∀T2. (∀T1. #[T1] < #[T2] → R T1) → R T2) → - ∀T. R T. +axiom tw_ind: ∀R:predicate term. + (∀T2. (∀T1. #{T1} < #{T2} → R T1) → R T2) → + ∀T. R T. (* Basic_1: removed theorems 11: wadd_le wadd_lt wadd_O weight_le weight_eq weight_add_O