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=1230db5c84102763388f5668bda3edafd0883f70;hpb=639e798161afea770f41d78673c0fe3be4125beb;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 1230db5c8..64209a6f7 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/clen/defs.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/clen/defs.ma @@ -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 (s k (clen c0))]. +rec definition clen (c: C) on c: nat \def match c with [(CSort _) \Rightarrow +O | (CHead c0 k _) \Rightarrow (s k (clen c0))].