From 6b649aba925b6f7462da07599fe67ebb12a3460e Mon Sep 17 00:00:00 2001 From: Samuel Mimram Date: Wed, 28 Jul 2004 21:54:47 +0000 Subject: Imported Upstream version 8.0pl1 --- test-suite/success/Case2.v | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 test-suite/success/Case2.v (limited to 'test-suite/success/Case2.v') 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. + + -- cgit v1.2.3