diff options
| author | Brian Campbell | 2018-07-23 16:15:29 +0100 |
|---|---|---|
| committer | Brian Campbell | 2018-07-23 16:15:53 +0100 |
| commit | 294ff935decaf8450bf3d3557218b936b473ce0b (patch) | |
| tree | e4b6dabbb77aa529abe1351b10c6c09f7b623e83 /mips/mips_extras.v | |
| parent | 7bb57d9886259fb584a3b814bdc49f8c70eb2663 (diff) | |
Coq: faster MIPS extras without confusing message
Diffstat (limited to 'mips/mips_extras.v')
| -rw-r--r-- | mips/mips_extras.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mips/mips_extras.v b/mips/mips_extras.v index cc905f11..6a6aed5c 100644 --- a/mips/mips_extras.v +++ b/mips/mips_extras.v @@ -140,7 +140,7 @@ Definition eq_bit (x : bitU) (y : bitU) : bool := Require Import Zeuclid. Definition euclid_modulo (m n : Z) `{ArithFact (n > 0)} : {z : Z & ArithFact (0 <= z <= n-1)}. -refine (build_ex (ZEuclid.modulo m n)). +refine (existT _ (ZEuclid.modulo m n) _). constructor. destruct H. assert (Zabs n = n). { rewrite Zabs_eq; auto with zarith. } |