]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/contribs/lambdadelta/ground_1/types/props.ma
- some improvements in the generation of terms
[helm.git] / matita / matita / contribs / lambdadelta / ground_1 / types / props.ma
index e6cdb238f56a8ebca3e45cf89b2cf4d62d2155b6..1948116a6c62a0a22143c15711222cc0a32661bc 100644 (file)
@@ -23,11 +23,11 @@ Prop))).((ex2 A (\lambda (x: A).(P x)) (\lambda (x: A).(Q x))) \to (ex2 A
 \def
  \lambda (A: Type[0]).(\lambda (P: ((A \to Prop))).(\lambda (Q: ((A \to 
 Prop))).(\lambda (H: (ex2 A (\lambda (x: A).(P x)) (\lambda (x: A).(Q 
-x)))).(let TMP_10 \def (\lambda (x: A).(P x)) in (let TMP_9 \def (\lambda (x: 
-A).(Q x)) in (let TMP_7 \def (\lambda (x: A).(Q x)) in (let TMP_6 \def 
-(\lambda (x: A).(P x)) in (let TMP_8 \def (ex2 A TMP_7 TMP_6) in (let TMP_5 
-\def (\lambda (x: A).(\lambda (H0: (P x)).(\lambda (H1: (Q x)).(let TMP_4 
-\def (\lambda (x0: A).(Q x0)) in (let TMP_3 \def (\lambda (x0: A).(P x0)) in 
-(ex_intro2 A TMP_4 TMP_3 x H1 H0)))))) in (ex2_ind A TMP_10 TMP_9 TMP_8 TMP_5 
+x)))).(let TMP_1 \def (\lambda (x: A).(P x)) in (let TMP_2 \def (\lambda (x: 
+A).(Q x)) in (let TMP_3 \def (\lambda (x: A).(Q x)) in (let TMP_4 \def 
+(\lambda (x: A).(P x)) in (let TMP_5 \def (ex2 A TMP_3 TMP_4) in (let TMP_8 
+\def (\lambda (x: A).(\lambda (H0: (P x)).(\lambda (H1: (Q x)).(let TMP_6 
+\def (\lambda (x0: A).(Q x0)) in (let TMP_7 \def (\lambda (x0: A).(P x0)) in 
+(ex_intro2 A TMP_6 TMP_7 x H1 H0)))))) in (ex2_ind A TMP_1 TMP_2 TMP_5 TMP_8 
 H)))))))))).