update in basic_2

[helm.git] / matita / matita / contribs / lambdadelta / basic_1 / csubt / props.ma

diff --git a/matita/matita/contribs/lambdadelta/basic_1/csubt/props.ma b/matita/matita/contribs/lambdadelta/basic_1/csubt/props.ma
index 24c27142d827acbfd28085b9acc279c556279534..31221463f22f420d9b24fd23155d21a82537932d 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_1/csubt/props.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/csubt/props.ma
@@ -18,11 +18,10 @@ include "basic_1/csubt/defs.ma".
 
 include "basic_1/C/fwd.ma".
 
-theorem csubt_refl:
+lemma csubt_refl:
  \forall (g: G).(\forall (c: C).(csubt g c c))
 \def
- \lambda (g: G).(\lambda (c: C).(let TMP_1 \def (\lambda (c0: C).(csubt g c0 
-c0)) in (let TMP_2 \def (\lambda (n: nat).(csubt_sort g n)) in (let TMP_3 
-\def (\lambda (c0: C).(\lambda (H: (csubt g c0 c0)).(\lambda (k: K).(\lambda 
-(t: T).(csubt_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).(csubt g c0 c0)) 
+(\lambda (n: nat).(csubt_sort g n)) (\lambda (c0: C).(\lambda (H: (csubt g c0 
+c0)).(\lambda (k: K).(\lambda (t: T).(csubt_head g c0 c0 H k t))))) c)).