X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fflt%2Fdefs.ma;h=71e1028ee56a439cadd1a4ef06c0918c8ff1fdce;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=c4e7ed73fabee540aaa2a2e7b37e5be8be95d588;hpb=6d1bb99e7f355d826c07285ba46b6b13a4abaefc;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/flt/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/flt/defs.ma
index c4e7ed73f..71e1028ee 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/flt/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/flt/defs.ma
@@ -19,13 +19,11 @@ include "basic_1/C/defs.ma".
 definition fweight:
  C \to (T \to nat)
 \def
- \lambda (c: C).(\lambda (t: T).(let TMP_1 \def (cweight c) in (let TMP_2 
-\def (tweight t) in (plus TMP_1 TMP_2)))).
+ \lambda (c: C).(\lambda (t: T).(plus (cweight c) (tweight t))).
 
 definition flt:
  C \to (T \to (C \to (T \to Prop)))
 \def
- \lambda (c1: C).(\lambda (t1: T).(\lambda (c2: C).(\lambda (t2: T).(let 
-TMP_1 \def (fweight c1 t1) in (let TMP_2 \def (fweight c2 t2) in (lt TMP_1 
-TMP_2)))))).
+ \lambda (c1: C).(\lambda (t1: T).(\lambda (c2: C).(\lambda (t2: T).(lt 
+(fweight c1 t1) (fweight c2 t2))))).