diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-03-20 17:36:25 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-03-20 17:36:25 +0000 |
commit | 52b57c6c529d1896ee73890db9faf3d299619403 (patch) | |
tree | aaeaf015290fb5b4174a844dc14922dde34fc98d /test-suite/success/Notations.v | |
parent | 929885b46d19cb8e90507bf2f6bddc146a0458a9 (diff) |
Fixing bug #2724 (using notations with binders in cases patterns
was provoking an anomaly instead of a regular error).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15070 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'test-suite/success/Notations.v')
-rw-r--r-- | test-suite/success/Notations.v | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/success/Notations.v b/test-suite/success/Notations.v index f5f5a9d14..3c34ff928 100644 --- a/test-suite/success/Notations.v +++ b/test-suite/success/Notations.v @@ -86,3 +86,11 @@ Notation "'FOO' x" := (S x) (at level 40). Goal (2 ++++ 3) = 5. reflexivity. Abort. + +(* Check correct failure handling when a non-constructor notation is + used in cases pattern (bug #2724 in 8.3 and 8.4beta) *) + +Notation "'FORALL' x .. y , P" := (forall x, .. (forall y, P) ..) + (at level 200, x binder, y binder, right associativity) : type_scope. + +Fail Check fun x => match x with S (FORALL x, _) => 0 end. |