diff options
| author | Brian Campbell | 2018-08-02 18:16:45 +0100 |
|---|---|---|
| committer | Brian Campbell | 2018-08-02 18:16:55 +0100 |
| commit | 430cf3778555fd9dfef5dccb3f57052df994cbc4 (patch) | |
| tree | 485e87798179297c85dd2a27d58b3db3b2115c31 | |
| parent | d2a01be233f1ea4bed66819096949aa4f56b2695 (diff) | |
Coq mips: fix deprecation warning
| -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 8ca4546c..626b4109 100644 --- a/mips/mips_extras.v +++ b/mips/mips_extras.v @@ -143,7 +143,7 @@ Definition euclid_modulo (m n : Z) `{ArithFact (n > 0)} : {z : Z & ArithFact (0 refine (existT _ (ZEuclid.modulo m n) _). constructor. destruct H. -assert (Zabs n = n). { rewrite Zabs_eq; auto with zarith. } +assert (Z.abs n = n). { rewrite Z.abs_eq; auto with zarith. } rewrite <- H at 3. lapply (ZEuclid.mod_always_pos m n); omega. Qed. |
