X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fcontribs%2FLAMBDA-TYPES%2FLevel-1%2FLambdaDelta%2FT%2Fdefs.ma;h=61a492535a7cc78bf1d9ab49f02f30dd14fdd28f;hb=01cd30e9b0e915304b3ffef48a0477c69ce7a959;hp=cf483de06c4a16a6dd2868497a150cd74195d7a8;hpb=f764844fa35ab0bb9c10707151340b924060f069;p=helm.git

diff --git a/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/T/defs.ma b/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/T/defs.ma
index cf483de06..61a492535 100644
--- a/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/T/defs.ma
+++ b/matita/contribs/LAMBDA-TYPES/Level-1/LambdaDelta/T/defs.ma
@@ -16,7 +16,7 @@
 
 set "baseuri" "cic:/matita/LAMBDA-TYPES/Level-1/LambdaDelta/T/defs".
 
-include "../Base/theory.ma".
+include "preamble.ma".
 
 inductive B: Set \def
 | Abbr: B
@@ -47,7 +47,10 @@ definition THeads:
 T).(match us with [TNil \Rightarrow t | (TCons u ul) \Rightarrow (THead k u 
 (THeads k ul t))])) in THeads.
 
-inductive C: Set \def
-| CSort: nat \to C
-| CHead: C \to (K \to (T \to C)).
+definition tweight:
+ T \to nat
+\def
+ let rec tweight (t: T) on t: nat \def (match t with [(TSort _) \Rightarrow 
+(S O) | (TLRef _) \Rightarrow (S O) | (THead _ u t0) \Rightarrow (S (plus 
+(tweight u) (tweight t0)))]) in tweight.