diff options
| author | Maxime Dénès | 2017-04-15 12:15:13 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-04-15 12:15:13 +0200 |
| commit | 0147ae6ba6db24d4f9b29ff477d374a6abb103dd (patch) | |
| tree | b07f2d41760b7c138fc7b7b6a652320e5169e4f3 /test-suite/success | |
| parent | ed09fccb6405fb832cab867919cc4b0be32dea36 (diff) | |
| parent | 727ef1bd345f9ad9e08d9e4f136e2db7d034a93d (diff) | |
Merge branch 'v8.6' into trunk
Diffstat (limited to 'test-suite/success')
| -rw-r--r-- | test-suite/success/Notations.v | 7 | ||||
| -rw-r--r-- | test-suite/success/all-check.v | 3 |
2 files changed, 10 insertions, 0 deletions
diff --git a/test-suite/success/Notations.v b/test-suite/success/Notations.v index 52acad7460..837f2efd06 100644 --- a/test-suite/success/Notations.v +++ b/test-suite/success/Notations.v @@ -121,6 +121,7 @@ Notation " |- {{ a }} b" := (a=b) (no associativity, at level 10). Goal True. {{ exact I. }} Qed. + Check |- {{ 0 }} 0. (* Check parsing of { and } is not affected by notations #3479 *) @@ -135,3 +136,9 @@ Notation "" := (@nil) (only printing). (* Check that a notation cannot be neither parsing nor printing. *) Fail Notation "'foobarkeyword'" := (@nil) (only parsing, only printing). + +(* Check "where" clause for inductive types with parameters *) + +Reserved Notation "x === y" (at level 50). +Inductive EQ {A} (x:A) : A -> Prop := REFL : x === x + where "x === y" := (EQ x y). diff --git a/test-suite/success/all-check.v b/test-suite/success/all-check.v new file mode 100644 index 0000000000..391bc540e4 --- /dev/null +++ b/test-suite/success/all-check.v @@ -0,0 +1,3 @@ +Goal True. +Fail all:Check _. +Abort. |