set "baseuri" "cic:/matita/LAMBDA-TYPES/Level-1/LambdaDelta/T/defs".
-include "../Base/theory.ma".
+include "preamble.ma".
inductive B: Set \def
| Abbr: B
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.