diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-05-23 09:14:37 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-05-23 09:14:37 +0200 |
| commit | bf84180f963a31d1ec850d4ccedd599f2984ea9b (patch) | |
| tree | b52bf6a7d36363a60daa5d61fcc073489bc32a87 | |
| parent | 737b45c7e0f1134e93b1dc4843bf3e072bae84d4 (diff) | |
| parent | 04c532d81f69f0b6371b30b524b7aa258a6309c3 (diff) | |
Merge PR#661: Added a test for #4765 (an example of printing abbreviation with binders)
| -rw-r--r-- | test-suite/output/Notations3.out | 2 | ||||
| -rw-r--r-- | test-suite/output/Notations3.v | 5 |
2 files changed, 7 insertions, 0 deletions
diff --git a/test-suite/output/Notations3.out b/test-suite/output/Notations3.out index 360f37967..4d59a92cb 100644 --- a/test-suite/output/Notations3.out +++ b/test-suite/output/Notations3.out @@ -98,3 +98,5 @@ 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 +foo5 x nat x + : nat -> nat diff --git a/test-suite/output/Notations3.v b/test-suite/output/Notations3.v index 4b8bfe312..96d831944 100644 --- a/test-suite/output/Notations3.v +++ b/test-suite/output/Notations3.v @@ -139,3 +139,8 @@ Notation "'tele' x .. z := b" := (at level 85, x binder, z binder). Check tele (t:Type) '((y,z):nat*nat) (x:t) := tt. + +(* Cyprien's part of bug #4765 *) + +Notation foo5 x T y := (fun x : T => y). +Check foo5 x nat x. |