diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-08-15 10:15:42 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-08-15 10:15:42 +0000 |
| commit | a1858ecd34bd7946dab7e7fbf2413036f78f7109 (patch) | |
| tree | d8c3d6ec2781d347cc4185a8fce77ec4dbd4c5bf /test-suite/failure/Case16.v | |
| parent | f1c066e03c1ff006a1c4368eda33e06594e718e3 (diff) | |
Test for redundant clauses
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2968 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/failure/Case16.v')
| -rw-r--r-- | test-suite/failure/Case16.v | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test-suite/failure/Case16.v b/test-suite/failure/Case16.v new file mode 100644 index 000000000..f994a8f2f --- /dev/null +++ b/test-suite/failure/Case16.v @@ -0,0 +1,9 @@ +(* Check for redundant clauses *) + +Check [x]Cases x x of + O (S (S y)) => true + | (S _) (S (S y)) => true + | _ (S (S x)) => false + | (S y) O => true + | _ _ => true +end. |