regression tests

[helm.git] / helm / gTopLevel / tests / lambda02.cic.test

diff --git a/helm/gTopLevel/tests/lambda02.cic.test b/helm/gTopLevel/tests/lambda02.cic.test
new file mode 100644 (file)
index 0000000..ee8c6b1
--- /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))