aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorGravatar Jason Gross <jgross@mit.edu>2017-03-31 19:25:41 -0400
committerGravatar Jason Gross <jgross@mit.edu>2017-03-31 19:25:41 -0400
commit2b8a97d050c7b00ce04ba49d10c3b5413d2f0677 (patch)
treecd089e443b30fd39604d369221312863669058ad /src
parent82c316e4f6d44c0b6f8f7142dc0413c8d7b0eeab (diff)
Use a better order of arguments for Bounds.is_bounded_by
This lines up with conventions that we use elsewhere
Diffstat (limited to 'src')
-rw-r--r--src/Reflection/Z/Bounds/Interpretation.v8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Reflection/Z/Bounds/Interpretation.v b/src/Reflection/Z/Bounds/Interpretation.v
index 8e90213b6..73a093864 100644
--- a/src/Reflection/Z/Bounds/Interpretation.v
+++ b/src/Reflection/Z/Bounds/Interpretation.v
@@ -178,15 +178,15 @@ Module Import Bounds.
Definition bounds_are_good : forall {t}, interp_flat_type interp_base_type t -> Prop
:= (@interp_flat_type_rel_pointwise1 _ _ bound_is_good).
- Definition is_bounded_by' {T} : Syntax.interp_base_type T -> interp_base_type T -> Prop
- := fun val bound
- => match bound with
+ Definition is_bounded_by' {T} : interp_base_type T -> Syntax.interp_base_type T -> Prop
+ := fun bounds val
+ => match bounds with
| Some bounds'
=> is_bounded_by' (bit_width_of_base_type T) bounds' val
| None => True
end.
- Definition is_bounded_by {T} : interp_flat_type Syntax.interp_base_type T -> interp_flat_type interp_base_type T -> Prop
+ Definition is_bounded_by {T} : interp_flat_type interp_base_type T -> interp_flat_type Syntax.interp_base_type T -> Prop
:= interp_flat_type_rel_pointwise (@is_bounded_by').
Local Arguments interp_base_type !_ / .