X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2Ftests%2Flambda02.cic.test;fp=helm%2FgTopLevel%2Ftests%2Flambda02.cic.test;h=ee8c6b118e11f287ec0e91ea28095faa0b837be6;hb=cab83f17a2d7a591c4ff2980b07946b50dbf9d00;hp=0000000000000000000000000000000000000000;hpb=99264b3a8247ca0e692bcbdb63087ce35e294e6b;p=helm.git

diff --git a/helm/gTopLevel/tests/lambda02.cic.test b/helm/gTopLevel/tests/lambda02.cic.test
new file mode 100644
index 000000000..ee8c6b118
--- /dev/null
+++ b/helm/gTopLevel/tests/lambda02.cic.test
@@ -0,0 +1,9 @@
+\lambda f:(\forall n:nat. (\forall H:(le 0 n). (n=n))). (f 0 (le_n 0))
+### (* METASENV after disambiguation  *)
+
+### (* TERM after disambiguation      *)
+[f:(n:nat)(H:(le O n))(eq nat n n)](f O (le_n O))
+### (* TYPE_OF the disambiguated term *)
+(f:(n:nat)(H:(le O n))(eq nat n n))(eq nat O O)
+### (* REDUCED disambiguated term     *)
+[f:(n:nat)(H:(le O n))(eq nat n n)](f O (le_n O))