X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fllt%2Fdefs.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fllt%2Fdefs.ma;h=d56fda894ebb09fb37ee1d37d3948d0e10c7c9f0;hb=e8656c819b0b5e7bea7b4da244015b480af5f0f5;hp=96d869935859c7150fd6dab324fcb72f1987450e;hpb=d1ab998b8c8dacdfceee97d6275955675cf8be83;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 96d869935..d56fda894 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/llt/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/llt/defs.ma
@@ -14,17 +14,15 @@
 
 (* This file was automatically generated: do not edit *********************)
 
-include "Basic-1/A/defs.ma".
+include "basic_1/A/defs.ma".
 
-definition lweight:
- A \to nat
-\def
- 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)))]) in 
-lweight.
+let rec lweight (a: A) on a: nat \def match a with [(ASort _ _) \Rightarrow O 
+| (AHead a1 a2) \Rightarrow (let TMP_1 \def (lweight a1) in (let TMP_2 \def 
+(lweight a2) in (let TMP_3 \def (plus TMP_1 TMP_2) in (S TMP_3))))].
 
 definition llt:
  A \to (A \to Prop)
 \def
- \lambda (a1: A).(\lambda (a2: A).(lt (lweight a1) (lweight a2))).
+ \lambda (a1: A).(\lambda (a2: A).(let TMP_1 \def (lweight a1) in (let TMP_2 
+\def (lweight a2) in (lt TMP_1 TMP_2)))).