X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fflt%2Fdefs.ma;h=c4e7ed73fabee540aaa2a2e7b37e5be8be95d588;hb=6d1bb99e7f355d826c07285ba46b6b13a4abaefc;hp=3191e1e38cfe23f63e33c71c8b0de7a875e07b36;hpb=538c5526a6b3c3af44f92c9cc67d82f28995da96;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 3191e1e38..c4e7ed73f 100644 --- a/matita/matita/contribs/lambdadelta/basic_1/flt/defs.ma +++ b/matita/matita/contribs/lambdadelta/basic_1/flt/defs.ma @@ -14,16 +14,18 @@ (* This file was automatically generated: do not edit *********************) -include "Basic-1/C/defs.ma". +include "basic_1/C/defs.ma". definition fweight: C \to (T \to nat) \def - \lambda (c: C).(\lambda (t: T).(plus (cweight c) (tweight t))). + \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)))). definition flt: C \to (T \to (C \to (T \to Prop))) \def - \lambda (c1: C).(\lambda (t1: T).(\lambda (c2: C).(\lambda (t2: T).(lt -(fweight c1 t1) (fweight c2 t2))))). + \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)))))).