X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2FT%2Fdefs.ma;h=0eeff13ba685501bf50c4863113e35479e3c8b0f;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=c065188f30ebcbabedf12eddc0a231d716ec2d55;hpb=9c954a9a843ebb1bf189536df4e14f77132ed1cf;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 c065188f3..0eeff13ba 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/T/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/T/defs.ma
@@ -34,8 +34,12 @@ inductive T: Type[0] \def
 | TLRef: nat \to T
 | THead: K \to (T \to (T \to T)).
 
-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))))].
+rec definition 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)))].
+
+definition tle:
+ T \to (T \to Prop)
+\def
+ \lambda (t1: T).(\lambda (t2: T).(le (tweight t1) (tweight t2))).