diff options
| author | Pierre-Marie Pédrot | 2016-10-17 16:46:10 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-10-17 16:46:17 +0200 |
| commit | 13a2d032004f9678aec84eb5e1ef11c98e43aa9f (patch) | |
| tree | eae3ce73512fa9ebd248b0a2b5e60f7052256ce2 /test-suite/success | |
| parent | 502d901fee12f07c31c2ea8b8c1455f74876d986 (diff) | |
| parent | 1a3fc19d1160cb3896e62a16c8e68c97880c748b (diff) | |
Merge PR #300 into v8.6
Diffstat (limited to 'test-suite/success')
| -rw-r--r-- | test-suite/success/Notations.v | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test-suite/success/Notations.v b/test-suite/success/Notations.v index 2f7c62972a..30abd961b1 100644 --- a/test-suite/success/Notations.v +++ b/test-suite/success/Notations.v @@ -58,7 +58,7 @@ Check (fun x:nat*nat => match x with R x y => (x,y) end). (* Check multi-tokens recursive notations *) -Local Notation "[ a # ; .. # ; b ]" := (a + .. (b + 0) ..). +Local Notation "[ a # ; .. # ; b ]" := (a + .. (b + 0) ..). Check [ 0 ]. Check [ 0 # ; 1 ]. @@ -110,3 +110,8 @@ Goal True -> True. intros H. exact H. Qed. (* Check absence of collision on ".." in nested notations with ".." *) Notation "[ a , .. , b ]" := (a, (.. (b,tt) ..)). + +(* Check that vector notations do not break Ltac [] (bugs #4785, #4733) *) +Require Import Coq.Vectors.VectorDef. +Import VectorNotations. +Goal True. idtac; []. (* important for test: no space here *) constructor. Qed. |