aboutsummaryrefslogtreecommitdiff
path: root/src/LegacyArithmetic/ZBoundedZ.v
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <maxime.denes@inria.fr>2019-01-02 15:21:55 +0100
committerGravatar Jason Gross <jasongross9@gmail.com>2019-01-02 17:43:36 -0500
commit2238baafd6ad626bbec17b85cbeb79f848475d6e (patch)
tree0395665538d8b330d918c6e37f3b74485774f4a4 /src/LegacyArithmetic/ZBoundedZ.v
parentcd7cb6081acb9089337c5c65f0f985034a8091d3 (diff)
Do not rely on `Refine Instance Mode`
This option is soon going to be turned off by default. See https://github.com/coq/coq/pull/9270
Diffstat (limited to 'src/LegacyArithmetic/ZBoundedZ.v')
-rw-r--r--src/LegacyArithmetic/ZBoundedZ.v8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/LegacyArithmetic/ZBoundedZ.v b/src/LegacyArithmetic/ZBoundedZ.v
index 2943598c1..f0dfc6a40 100644
--- a/src/LegacyArithmetic/ZBoundedZ.v
+++ b/src/LegacyArithmetic/ZBoundedZ.v
@@ -58,11 +58,11 @@ Global Instance ZZLikeProperties {small_bound_exp smaller_bound_exp modulus}
{Hs_ss : cls_is_true (smaller_bound_exp <=? small_bound_exp)}
{Hmod0 : cls_is_true (0 <=? modulus)}
{Hmod1 : cls_is_true (modulus <? 2^small_bound_exp)}
- : ZLikeProperties (@ZZLikeOps small_bound_exp smaller_bound_exp modulus)
- := { large_valid x := 0 <= x < 2^(2*small_bound_exp);
- medium_valid x := 0 <= x < 2^(small_bound_exp + smaller_bound_exp);
- small_valid x := 0 <= x < 2^small_bound_exp }.
+ : ZLikeProperties (@ZZLikeOps small_bound_exp smaller_bound_exp modulus).
Proof.
+refine {| large_valid x := 0 <= x < 2^(2*small_bound_exp);
+ medium_valid x := 0 <= x < 2^(small_bound_exp + smaller_bound_exp);
+ small_valid x := 0 <= x < 2^small_bound_exp |}.
{ abstract t. }
{ abstract t. }
{ abstract t. }