X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fclen%2Fdefs.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fclen%2Fdefs.ma;h=1230db5c84102763388f5668bda3edafd0883f70;hb=639e798161afea770f41d78673c0fe3be4125beb;hp=a70c3ef675ba6be06dd199d0c4638b85bb3b07a7;hpb=15455aa487e001c643b4f46daf82612b8409f1ae;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/clen/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/clen/defs.ma
index a70c3ef67..1230db5c8 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/clen/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/clen/defs.ma
@@ -19,5 +19,5 @@ include "basic_1/C/defs.ma".
 include "basic_1/s/defs.ma".
 
 let rec clen (c: C) on c: nat \def match c with [(CSort _) \Rightarrow O | 
-(CHead c0 k _) \Rightarrow (let TMP_1 \def (clen c0) in (s k TMP_1))].
+(CHead c0 k _) \Rightarrow (s k (clen c0))].