added regression tests

[helm.git] / helm / gTopLevel / tests / match02.cic

diff --git a/helm/gTopLevel/tests/match02.cic b/helm/gTopLevel/tests/match02.cic
new file mode 100644 (file)
index 0000000..4a5c697
--- /dev/null
+++ b/helm/gTopLevel/tests/match02.cic
@@ -0,0 +1,4 @@
+[\lambda z:nat. \lambda h:(le 0 z). (le 0 (S z))]
+match (le_S 0 0 (le_n 0)): le with
+[ le_n \Rightarrow (le_S 0 0 (le_n 0))
+| (le_S x y) \Rightarrow (le_S 0 (S x) (le_S 0 x y)) ]