From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Thu, 5 Feb 2004 11:07:02 +0000 (+0000)
Subject: New test.
X-Git-Tag: V_0_2_3~52
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=45df6252e22ddffc4874083383113594f7ee64fb;p=helm.git

New test.
---

diff --git a/helm/gTopLevel/tests/lambda03.cic.test b/helm/gTopLevel/tests/lambda03.cic.test
new file mode 100644
index 000000000..321dc194b
--- /dev/null
+++ b/helm/gTopLevel/tests/lambda03.cic.test
@@ -0,0 +1,15 @@
+\lambda n:nat.
+ \lambda H:n=n.\lambda g:(?\to (le n 0))\to True.(g \lambda f.(f n H))
+### (* METASENV after disambiguation  *)
+n : nat; H : (eq nat n n); _ :? _; _ :? _; _ : nat |- ?26: Type
+n : nat; H : (eq nat n n); _ :? _; _ :? _; _ : nat |- ?27: ?26[n ; H ; _ ; _ ; __1]
+n : nat; H : (eq nat n n); _ :? _ |- ?8: Type
+n : nat; H : (eq nat n n); _ :? _ |- ?9: ?8[n ; H ; _]
+n : nat; H : (eq nat n n) |- ?5: Type
+n : nat; H : (eq nat n n) |- ?6: ?5[n ; H]
+### (* TERM after disambiguation      *)
+[n:nat][H:(eq nat n n)][g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True)](g [f:(nat->((eq nat __1 __1)->(le __2 O)))](f n H))
+### (* TYPE_OF the disambiguated term *)
+(n:nat)(H:(eq nat n n))(g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True))True
+### (* REDUCED disambiguated term     *)
+[n:nat][H:(eq nat n n)][g:(((nat->((eq nat __1 __1)->(le __2 O)))->(le n O))->True)](g [f:(nat->((eq nat __1 __1)->(le __2 O)))](f n H))