X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fcsubc%2Fprops.ma;fp=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbasic_1%2Fcsubc%2Fprops.ma;h=21c4c6e9f5fe534b2201927e23d8344604621d69;hb=639e798161afea770f41d78673c0fe3be4125beb;hp=0637a2eee33c03adb8dde7b4a154e325dc3442bc;hpb=15455aa487e001c643b4f46daf82612b8409f1ae;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/basic_1/csubc/props.ma b/matita/matita/contribs/lambdadelta/basic_1/csubc/props.ma
index 0637a2eee..21c4c6e9f 100644
--- a/matita/matita/contribs/lambdadelta/basic_1/csubc/props.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/csubc/props.ma
@@ -21,8 +21,7 @@ include "basic_1/sc3/props.ma".
 theorem csubc_refl:
  \forall (g: G).(\forall (c: C).(csubc g c c))
 \def
- \lambda (g: G).(\lambda (c: C).(let TMP_1 \def (\lambda (c0: C).(csubc g c0 
-c0)) in (let TMP_2 \def (\lambda (n: nat).(csubc_sort g n)) in (let TMP_3 
-\def (\lambda (c0: C).(\lambda (H: (csubc g c0 c0)).(\lambda (k: K).(\lambda 
-(t: T).(csubc_head g c0 c0 H k t))))) in (C_ind TMP_1 TMP_2 TMP_3 c))))).
+ \lambda (g: G).(\lambda (c: C).(C_ind (\lambda (c0: C).(csubc g c0 c0)) 
+(\lambda (n: nat).(csubc_sort g n)) (\lambda (c0: C).(\lambda (H: (csubc g c0 
+c0)).(\lambda (k: K).(\lambda (t: T).(csubc_head g c0 c0 H k t))))) c)).