aboutsummaryrefslogtreecommitdiff
path: root/src/Util
diff options
context:
space:
mode:
authorGravatar Jason Gross <jgross@mit.edu>2017-06-12 16:40:53 -0400
committerGravatar Jason Gross <jgross@mit.edu>2017-06-12 16:40:53 -0400
commit070a400ddbf94190fb1f6dbdd36a81d2afb80c32 (patch)
tree8234a7758f52d42bb978c79f128a8e65656c8a7a /src/Util
parent4107ed987a8a89246a11e548b171d948ed216103 (diff)
Fix zrange notation levels
So that it doesn't interfere with [~> R] and [A ~> B].
Diffstat (limited to 'src/Util')
-rw-r--r--src/Util/Notations.v4
-rw-r--r--src/Util/ZRange.v3
2 files changed, 3 insertions, 4 deletions
diff --git a/src/Util/Notations.v b/src/Util/Notations.v
index d96bb7d3b..5fd6317a1 100644
--- a/src/Util/Notations.v
+++ b/src/Util/Notations.v
@@ -103,8 +103,8 @@ Reserved Notation "'λ' x .. y , t" (at level 200, x binder, y binder, right ass
Reserved Notation "'λn' x .. y , t" (at level 200, right associativity).
Reserved Notation "x ::> ( max_bitwidth = v )"
(at level 70, no associativity, format "x ::> ( max_bitwidth = v )").
-Reserved Notation "r[ l ~> u ]" (format "r[ l ~> u ]").
-Reserved Notation "b[ l ~> u ]" (format "b[ l ~> u ]").
+Reserved Notation "r[ l ~> u ]" (l at level 69, format "r[ l ~> u ]").
+Reserved Notation "b[ l ~> u ]" (l at level 69, format "b[ l ~> u ]").
Reserved Notation "'for' i (:= i0 ; += step ; < finish ) 'updating' ( state := initial ) {{ body }}"
(at level 70, format "'[v ' 'for' i (:= i0 ; += step ; < finish ) 'updating' ( state := initial ) {{ '//' body ']' '//' }}").
Reserved Notation "'for' ( 'int' i = i0 ; step_expr ; finish_expr ) 'updating' ( state1 .. staten = initial ) {{ body }}"
diff --git a/src/Util/ZRange.v b/src/Util/ZRange.v
index 489d2c32f..b6381f421 100644
--- a/src/Util/ZRange.v
+++ b/src/Util/ZRange.v
@@ -56,7 +56,6 @@ Defined.
Module Export Notations.
Delimit Scope zrange_scope with zrange.
- Notation "r[ l ~> u ]" := {| lower := l ; upper := u |}
- (format "r[ l ~> u ]") : zrange_scope.
+ Notation "r[ l ~> u ]" := {| lower := l ; upper := u |} : zrange_scope.
Infix "<=?" := is_tighter_than_bool : zrange_scope.
End Notations.