diff options
| author | Paul Steckler | 2017-05-17 12:59:08 -0400 |
|---|---|---|
| committer | Paul Steckler | 2017-05-17 12:59:08 -0400 |
| commit | 8c2c92cf47536b93e8e7377e8cfd89342325dbcc (patch) | |
| tree | 9431b4f0e34c63180ccfa53513b31972f3455abe /test-suite | |
| parent | 3b6d89acf4f233d0ed33f89c4e60bcd68e0e2820 (diff) | |
Fixing bug #5526,allow nonlinear variables in Notation patterns
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/5526.v | 3 | ||||
| -rw-r--r-- | test-suite/output/Notations3.out | 4 | ||||
| -rw-r--r-- | test-suite/output/Notations3.v | 6 |
3 files changed, 13 insertions, 0 deletions
diff --git a/test-suite/bugs/closed/5526.v b/test-suite/bugs/closed/5526.v new file mode 100644 index 0000000000..88f219be30 --- /dev/null +++ b/test-suite/bugs/closed/5526.v @@ -0,0 +1,3 @@ +Fail Notation "x === x" := (eq_refl x) (at level 10). +Reserved Notation "x === x" (only printing, at level 10). +Notation "x === x" := (eq_refl x) (only printing). diff --git a/test-suite/output/Notations3.out b/test-suite/output/Notations3.out index 360f379676..0cb870c577 100644 --- a/test-suite/output/Notations3.out +++ b/test-suite/output/Notations3.out @@ -98,3 +98,7 @@ fun n : nat => foo4 n (fun _ y : nat => ETA z : nat, (fun _ : nat => y = 0)) : nat -> Prop tele (t : Type) '(y, z) (x : t0) := tt : forall t : Type, nat * nat -> t -> fpack +fun x : ?A => x === x + : forall x : ?A, x = x +where +?A : [x : ?A |- Type] (x cannot be used) diff --git a/test-suite/output/Notations3.v b/test-suite/output/Notations3.v index 4b8bfe3124..5676fe8c7c 100644 --- a/test-suite/output/Notations3.v +++ b/test-suite/output/Notations3.v @@ -139,3 +139,9 @@ Notation "'tele' x .. z := b" := (at level 85, x binder, z binder). Check tele (t:Type) '((y,z):nat*nat) (x:t) := tt. + +(**********************************************************************) +(* Test printing of #5526 *) + +Notation "x === x" := (eq_refl x) (only printing, at level 10). +Check (fun x => eq_refl x). |