update in basic_2

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

diff --git a/matita/matita/contribs/lambdadelta/basic_1/flt/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/flt/defs.ma
index c4e7ed73fabee540aaa2a2e7b37e5be8be95d588..71e1028ee56a439cadd1a4ef06c0918c8ff1fdce 100644 (file)
--- 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))))).