X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fpc3%2Fdefs.ma;h=a0c97231e65fb7cf521db93387885d3f5707d56d;hb=57ae1762497a5f3ea75740e2908e04adb8642cc2;hp=bbc07ef1befb103ddc9e2fce7c1a90a64695571f;hpb=10c836687dfdf9d23357d7423cfc535e817d843f;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/pc3/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/pc3/defs.ma
index bbc07ef1b..a0c97231e 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/pc3/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/pc3/defs.ma
@@ -19,9 +19,8 @@ include "basic_1/pr3/defs.ma".
 definition pc3:
  C \to (T \to (T \to Prop))
 \def
- \lambda (c: C).(\lambda (t1: T).(\lambda (t2: T).(let TMP_1 \def (\lambda 
-(t: T).(pr3 c t1 t)) in (let TMP_2 \def (\lambda (t: T).(pr3 c t2 t)) in (ex2 
-T TMP_1 TMP_2))))).
+ \lambda (c: C).(\lambda (t1: T).(\lambda (t2: T).(ex2 T (\lambda (t: T).(pr3 
+c t1 t)) (\lambda (t: T).(pr3 c t2 t))))).
 
 inductive pc3_left (c: C): T \to (T \to Prop) \def
 | pc3_left_r: \forall (t: T).(pc3_left c t t)