From b59651f1fb0128def9a696af7082fc8cc9933d17 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Fri, 30 Sep 2016 12:20:00 -0400 Subject: Work around bug #5112 ([Arguments id /] broken) --- src/BoundedArithmetic/Interface.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/BoundedArithmetic') 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. -- cgit v1.2.3