legacy_1, ground_1, and basic_1 recommitted without anticipation

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

diff --git a/matita/matita/contribs/lambdadelta/basic_1/app/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/app/defs.ma
index 9522c7344a239c97ee7697e44682fc6ec4b9f37a..40efddbbdd9441a7e2600ca273e29c97472c60b9 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_1/app/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/app/defs.ma
@@ -20,6 +20,5 @@ let rec cbk (c: C) on c: nat \def match c with [(CSort m) \Rightarrow m |
 (CHead c0 _ _) \Rightarrow (cbk c0)].
 
 let rec app1 (c: C) on c: T \to T \def \lambda (t: T).(match c with [(CSort 
-_) \Rightarrow t | (CHead c0 k u) \Rightarrow (let TMP_1 \def (THead k u t) 
-in (app1 c0 TMP_1))]).
+_) \Rightarrow t | (CHead c0 k u) \Rightarrow (app1 c0 (THead k u t))]).