update in basic_2

[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / T / defs.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_1/T/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/T/defs.ma
index f200518bf66a1adafe40cefa8ff21a139dd6758f..0eeff13ba685501bf50c4863113e35479e3c8b0f 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_1/T/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/T/defs.ma
@@ -34,14 +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_1 \def 
-(tweight u) in (let TMP_2 \def (tweight t0) in (let TMP_3 \def (plus TMP_1 
-TMP_2) in (S TMP_3))))].
+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).(let TMP_1 \def (tweight t1) in (let TMP_2 
-\def (tweight t2) in (le TMP_1 TMP_2)))).
+ \lambda (t1: T).(\lambda (t2: T).(le (tweight t1) (tweight t2))).