Matitaweb: fixed "new file".

[helm.git] / matita / matita / contribs / lambda-delta / Basic-2 / grammar / term_weight.ma

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 3e70635072fdfe55d4c7a40e588355ad74cdab59..443cc2abc400257268fe28376a29ded184c0d3ff 100644 (file)
--- a/matita/matita/contribs/lambda-delta/Basic-2/grammar/term_weight.ma
+++ b/matita/matita/contribs/lambda-delta/Basic-2/grammar/term_weight.ma
@@ -17,8 +17,7 @@ include "Basic-2/grammar/term.ma".
 (* WEIGHT OF A TERM *********************************************************)
 
 let rec tw T ≝ match T with
-[ TSort _     ⇒ 1
-| TLRef _     ⇒ 1
+[ TAtom _     ⇒ 1
 | TPair _ V T ⇒ tw V + tw T + 1
 ].
 
@@ -29,3 +28,9 @@ interpretation "weight (term)" 'Weight T = (tw T).
 axiom tw_wf_ind: ∀R:term→Prop.
                  (∀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
+            removed local theorems 1: q_ind
+*)