X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fllt%2Fdefs.ma;h=7d5bc550aa23225d9e0e71a0a853396f9a7c733f;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=e1e9ee5af4847ff44b3c6be267057cd79cdbe927;hpb=639e798161afea770f41d78673c0fe3be4125beb;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/llt/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/llt/defs.ma
index e1e9ee5af..7d5bc550a 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/llt/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/llt/defs.ma
@@ -16,8 +16,9 @@
 
 include "basic_1/A/defs.ma".
 
-let rec lweight (a: A) on a: nat \def match a with [(ASort _ _) \Rightarrow O 
-| (AHead a1 a2) \Rightarrow (S (plus (lweight a1) (lweight a2)))].
+rec definition lweight (a: A) on a: nat \def match a with [(ASort _ _) 
+\Rightarrow O | (AHead a1 a2) \Rightarrow (S (plus (lweight a1) (lweight 
+a2)))].
 
 definition llt:
  A \to (A \to Prop)