New tests for lambdas (that show bugs in applications ;-)

diff --git a/helm/gTopLevel/tests/lambda01.cic b/helm/gTopLevel/tests/lambda01.cic
new file mode 100644 (file)
index 0000000..0c06ca4
--- /dev/null
+++ b/helm/gTopLevel/tests/lambda01.cic
@@ -0,0 +1,2 @@
+(\lambda f. (f 0 (le_n 0))
+  \lambda n. \lambda H. (refl_equal nat 0)))

diff --git a/helm/gTopLevel/tests/lambda02.cic b/helm/gTopLevel/tests/lambda02.cic
new file mode 100644 (file)
index 0000000..dc6d579
--- /dev/null
+++ b/helm/gTopLevel/tests/lambda02.cic
@@ -0,0 +1 @@
+\lambda f:(\forall n:nat. (\forall H:(le 0 n). (n=n))). (f 0 (le_n 0))