diff options
| author |  Jason Gross <jgross@mit.edu> | 2016-09-26 13:20:07 -0400 |
|---|---|---|
| committer |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-09-26 23:44:15 +0200 |
| commit | b04a1d6eb82f24844bfc0a07ab0801d3a4169c6b (patch) | |
| tree | 84b88bae6e5e4769115ef9e7f8d04788cd9a8fe3 /theories/Lists | |
| parent | 53ac7ca0cd74b62d47472c0dabfcc8dc1cacd86c (diff) | |
Remove spaces from around list notations
Diffstat (limited to 'theories/Lists')
| -rw-r--r-- | theories/Lists/List.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/theories/Lists/List.v b/theories/Lists/List.v index 9886ae6a8..fc94d7e25 100644 --- a/theories/Lists/List.v +++ b/theories/Lists/List.v @@ -21,12 +21,12 @@ Set Implicit Arguments. Open Scope list_scope. -(** Standard notations for lists. +(** Standard notations for lists. In a special module to avoid conflicts. *) Module ListNotations. -Notation " [ ] " := nil (format "[ ]") : list_scope. -Notation " [ x ] " := (cons x nil) : list_scope. -Notation " [ x ; y ; .. ; z ] " := (cons x (cons y .. (cons z nil) ..)) : list_scope. +Notation "[ ]" := nil (format "[ ]") : list_scope. +Notation "[ x ]" := (cons x nil) : list_scope. +Notation "[ x ; y ; .. ; z ]" := (cons x (cons y .. (cons z nil) ..)) : list_scope. End ListNotations. Import ListNotations. @@ -195,7 +195,7 @@ Section Facts. Qed. Theorem app_nil_r : forall l:list A, l ++ [] = l. - Proof. + Proof. induction l; simpl; f_equal; auto. Qed. |