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=ce05e436e771634e7172ee0d2c9b7ae383954860;hb=039f4f6db3a3c128959cd471eb78f575906e07b6;hp=1cf414b38b1533e32daf42574d7b229bcf0150f8;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;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 1cf414b38..ce05e436e 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 @@ -12,7 +12,7 @@ (* *) (**************************************************************************) -include "Basic_2/grammar/term.ma". +include "basic_2/grammar/term.ma". (* WEIGHT OF A TERM *********************************************************) @@ -26,18 +26,18 @@ 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) → + (∀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 - weight_add_S tlt_trans tlt_head_sx tlt_head_dx tlt_wf_ind + weight_add_S tlt_trans tlt_head_sx tlt_head_dx tlt_wf_ind removed local theorems 1: q_ind *)