summaryrefslogtreecommitdiff
path: root/test-suite/success/Case2.v
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/success/Case2.v')
-rw-r--r--test-suite/success/Case2.v11
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/success/Case2.v b/test-suite/success/Case2.v
new file mode 100644
index 00000000..0aa7b5be
--- /dev/null
+++ b/test-suite/success/Case2.v
@@ -0,0 +1,11 @@
+(* ============================================== *)
+(* To test compilation of dependent case *)
+(* Nested patterns *)
+(* ============================================== *)
+
+Type <[n:nat]n=n>Cases O of
+ O => (refl_equal nat O)
+ | m => (refl_equal nat m)
+end.
+
+