update in basic_2

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

diff --git a/matita/matita/contribs/lambdadelta/basic_1/ex1/defs.ma b/matita/matita/contribs/lambdadelta/basic_1/ex1/defs.ma
index 5b625b5dcb9eb272ec73ae9eb4657ad9ed985b89..4da7cc4d6b492329d74d7e3313468af9d0301606 100644 (file)
--- a/matita/matita/contribs/lambdadelta/basic_1/ex1/defs.ma
+++ b/matita/matita/contribs/lambdadelta/basic_1/ex1/defs.ma
@@ -19,17 +19,11 @@ include "basic_1/C/defs.ma".
 definition ex1_c:
  C
 \def
- let TMP_1 \def (CSort O) in (let TMP_2 \def (Bind Abst) in (let TMP_3 \def 
-(TSort O) in (let TMP_4 \def (CHead TMP_1 TMP_2 TMP_3) in (let TMP_5 \def 
-(Bind Abst) in (let TMP_6 \def (TSort O) in (let TMP_7 \def (CHead TMP_4 
-TMP_5 TMP_6) in (let TMP_8 \def (Bind Abst) in (let TMP_9 \def (TLRef O) in 
-(CHead TMP_7 TMP_8 TMP_9))))))))).
+ CHead (CHead (CHead (CSort O) (Bind Abst) (TSort O)) (Bind Abst) (TSort O)) 
+(Bind Abst) (TLRef O).
 
 definition ex1_t:
  T
 \def
- let TMP_1 \def (Flat Appl) in (let TMP_2 \def (TLRef O) in (let TMP_3 \def 
-(Bind Abst) in (let TMP_4 \def (S O) in (let TMP_5 \def (S TMP_4) in (let 
-TMP_6 \def (TLRef TMP_5) in (let TMP_7 \def (TSort O) in (let TMP_8 \def 
-(THead TMP_3 TMP_6 TMP_7) in (THead TMP_1 TMP_2 TMP_8)))))))).
+ THead (Flat Appl) (TLRef O) (THead (Bind Abst) (TLRef (S (S O))) (TSort O)).