diff options
| author |  Jason Gross <jgross@mit.edu> | 2016-09-29 14:00:34 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2016-09-29 14:27:46 -0400 |
| commit | 1a3fc19d1160cb3896e62a16c8e68c97880c748b (patch) | |
| tree | 6ede662b032250b1a225377b9a995d8ff4e4097c /test-suite/success/Notations.v | |
| parent | edb55a94fc5c0473e57f5a61c0c723194c2ff414 (diff) | |
Move vector/list compat notations to their relevant files
Since edb55a94fc5c0473e57f5a61c0c723194c2ff414 landed, compat notations
no longer modify the parser in non-compat-mode, so we can do this
without breaking Ltac parsing. Also update the related test-suite
files.
Diffstat (limited to 'test-suite/success/Notations.v')
| -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 2f7c62972..30abd961b 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. |