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

diff --git a/matita/matita/contribs/lambdadelta/basic_1/app/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/app/defs.ma
index 9522c7344..32ec12f51 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/app/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/app/defs.ma
@@ -16,10 +16,10 @@
 
 include "basic_1/C/defs.ma".
 
-let rec cbk (c: C) on c: nat \def match c with [(CSort m) \Rightarrow m | 
-(CHead c0 _ _) \Rightarrow (cbk c0)].
+rec definition cbk (c: C) on c: nat \def match c with [(CSort m) \Rightarrow 
+m | (CHead c0 _ _) \Rightarrow (cbk c0)].
 
-let rec app1 (c: C) on c: T \to T \def \lambda (t: T).(match c with [(CSort 
-_) \Rightarrow t | (CHead c0 k u) \Rightarrow (let TMP_1 \def (THead k u t) 
-in (app1 c0 TMP_1))]).
+rec definition app1 (c: C) on c: T \to T \def \lambda (t: T).(match c with 
+[(CSort _) \Rightarrow t | (CHead c0 k u) \Rightarrow (app1 c0 (THead k u 
+t))]).