]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/basic_1/llt/defs.ma
update in basic_2
[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / llt / defs.ma
index e1e9ee5af4847ff44b3c6be267057cd79cdbe927..7d5bc550aa23225d9e0e71a0a853396f9a7c733f 100644 (file)
@@ -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)