X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2FT%2Fdefs.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2FT%2Fdefs.ma;h=c065188f30ebcbabedf12eddc0a231d716ec2d55;hb=9c954a9a843ebb1bf189536df4e14f77132ed1cf;hp=6ddbe6d0d46d8688894eb51f1c6f3f98c702f79c;hpb=e51d01099c08e9945ea093da6fcac353db7ca23c;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/T/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/T/defs.ma
index 6ddbe6d0d..c065188f3 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/T/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/T/defs.ma
@@ -14,30 +14,28 @@
 
 (* This file was automatically generated: do not edit *********************)
 
-include "Basic-1/preamble.ma".
+include "basic_1/preamble.ma".
 
-inductive B: Set \def
+inductive B: Type[0] \def
 | Abbr: B
 | Abst: B
 | Void: B.
 
-inductive F: Set \def
+inductive F: Type[0] \def
 | Appl: F
 | Cast: F.
 
-inductive K: Set \def
+inductive K: Type[0] \def
 | Bind: B \to K
 | Flat: F \to K.
 
-inductive T: Set \def
+inductive T: Type[0] \def
 | TSort: nat \to T
 | TLRef: nat \to T
 | THead: K \to (T \to (T \to T)).
 
-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.
+let rec tweight (t: T) on t: nat \def match t with [(TSort _) \Rightarrow (S 
+O) | (TLRef _) \Rightarrow (S O) | (THead _ u t0) \Rightarrow (let TMP_1824 
+\def (tweight u) in (let TMP_1823 \def (tweight t0) in (let TMP_1825 \def 
+(plus TMP_1824 TMP_1823) in (S TMP_1825))))].