X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fclen%2Fdefs.ma;h=64209a6f7768eea2fcc5ec5fb63464657c4fbd7d;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=07539ffadcf601c2d4f54ec78c9e0d9f39b0eef2;hpb=88a68a9c334646bc17314d5327cd3b790202acd6;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 07539ffad..64209a6f7 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/clen/defs.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/clen/defs.ma @@ -14,13 +14,10 @@ (* This file was automatically generated: do not edit *********************) -include "Basic-1/C/defs.ma". +include "basic_1/C/defs.ma". -include "Basic-1/s/defs.ma". +include "basic_1/s/defs.ma". -definition clen: - C \to nat -\def - let rec clen (c: C) on c: nat \def (match c with [(CSort _) \Rightarrow O | -(CHead c0 k _) \Rightarrow (s k (clen c0))]) in clen. +rec definition clen (c: C) on c: nat \def match c with [(CSort _) \Rightarrow +O | (CHead c0 k _) \Rightarrow (s k (clen c0))].