diff options
Diffstat (limited to 'src/BoundedArithmetic/Interface.v')
-rw-r--r-- | src/BoundedArithmetic/Interface.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/BoundedArithmetic/Interface.v b/src/BoundedArithmetic/Interface.v index 152c43cee..932d88ac9 100644 --- a/src/BoundedArithmetic/Interface.v +++ b/src/BoundedArithmetic/Interface.v @@ -20,14 +20,14 @@ Class bounded_in_range_cls (x y z : Z) := is_bounded_in_range : x <= y < z. Ltac bounded_solver_tac := solve [ eassumption | typeclasses eauto | omega ]. Hint Extern 0 (bounded_in_range_cls _ _ _) => unfold bounded_in_range_cls; bounded_solver_tac : typeclass_instances. -Global Arguments bounded_in_range_cls / . +Global Arguments bounded_in_range_cls / _ _ _. Global Instance decode_range_bound {n W} {decode : decoder n W} {H : is_decode decode} : forall x, bounded_in_range_cls 0 (decode x) (2^n) := H. Class bounded_le_cls (x y : Z) := is_bounded_le : x <= y. Hint Extern 0 (bounded_le_cls _ _) => unfold bounded_le_cls; bounded_solver_tac : typeclass_instances. -Global Arguments bounded_le_cls / . +Global Arguments bounded_le_cls / _ _. Inductive bounded_decode_pusher_tag := decode_tag. |