]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_1/clen/defs.ma
update in basic_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / clen / defs.ma
index a70c3ef675ba6be06dd199d0c4638b85bb3b07a7..64209a6f7768eea2fcc5ec5fb63464657c4fbd7d 100644 (file)
@@ -18,6 +18,6 @@ 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))].
+rec definition clen (c: C) on c: nat \def match c with [(CSort _) \Rightarrow 
+O | (CHead c0 k _) \Rightarrow (s k (clen c0))].