legacy_1, ground_1, and basic_1 recommitted without anticipation

[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / llt / defs.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_1/llt/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/llt/defs.ma
index d56fda894ebb09fb37ee1d37d3948d0e10c7c9f0..e1e9ee5af4847ff44b3c6be267057cd79cdbe927 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_1/llt/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/llt/defs.ma
@@ -17,12 +17,10 @@
 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 (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))))].
+| (AHead a1 a2) \Rightarrow (S (plus (lweight a1) (lweight a2)))].
 
 definition llt:
  A \to (A \to Prop)
 \def
- \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)))).
+ \lambda (a1: A).(\lambda (a2: A).(lt (lweight a1) (lweight a2))).