diff options
author | Jason Gross <jgross@mit.edu> | 2017-03-31 19:25:41 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-03-31 19:25:41 -0400 |
commit | 2b8a97d050c7b00ce04ba49d10c3b5413d2f0677 (patch) | |
tree | cd089e443b30fd39604d369221312863669058ad /src | |
parent | 82c316e4f6d44c0b6f8f7142dc0413c8d7b0eeab (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.v | 8 |
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 !_ / . |