X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2FC%2Fdefs.ma;h=9d41d8ce5a9c3eabd5893a9d9eab4f8cf431a490;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=85763067fdf473dec4eb68d88181abb82d21730e;hpb=6d1bb99e7f355d826c07285ba46b6b13a4abaefc;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/C/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/C/defs.ma
index 85763067f..9d41d8ce5 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/C/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/C/defs.ma
@@ -20,23 +20,20 @@ inductive C: Type[0] \def
 | CSort: nat \to C
 | CHead: C \to (K \to (T \to C)).
 
-let rec cweight (c: C) on c: nat \def match c with [(CSort _) \Rightarrow O | 
-(CHead c0 _ t) \Rightarrow (let TMP_1 \def (cweight c0) in (let TMP_2 \def 
-(tweight t) in (plus TMP_1 TMP_2)))].
+rec definition cweight (c: C) on c: nat \def match c with [(CSort _) 
+\Rightarrow O | (CHead c0 _ t) \Rightarrow (plus (cweight c0) (tweight t))].
 
 definition clt:
  C \to (C \to Prop)
 \def
- \lambda (c1: C).(\lambda (c2: C).(let TMP_1 \def (cweight c1) in (let TMP_2 
-\def (cweight c2) in (lt TMP_1 TMP_2)))).
+ \lambda (c1: C).(\lambda (c2: C).(lt (cweight c1) (cweight c2))).
 
 definition cle:
  C \to (C \to Prop)
 \def
- \lambda (c1: C).(\lambda (c2: C).(let TMP_1 \def (cweight c1) in (let TMP_2 
-\def (cweight c2) in (le TMP_1 TMP_2)))).
+ \lambda (c1: C).(\lambda (c2: C).(le (cweight c1) (cweight c2))).
 
-let rec CTail (k: K) (t: T) (c: C) on c: C \def match c with [(CSort n) 
-\Rightarrow (let TMP_2 \def (CSort n) in (CHead TMP_2 k t)) | (CHead d h u) 
-\Rightarrow (let TMP_1 \def (CTail k t d) in (CHead TMP_1 h u))].
+rec definition CTail (k: K) (t: T) (c: C) on c: C \def match c with [(CSort 
+n) \Rightarrow (CHead (CSort n) k t) | (CHead d h u) \Rightarrow (CHead 
+(CTail k t d) h u)].