diff options
Diffstat (limited to 'src/Util/ZUtil/Hints')
| -rw-r--r-- | src/Util/ZUtil/Hints/PullPush.v | 3 | ||||
| -rw-r--r-- | src/Util/ZUtil/Hints/ZArith.v | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/Util/ZUtil/Hints/PullPush.v b/src/Util/ZUtil/Hints/PullPush.v index a6d4e94b4..a56357c1a 100644 --- a/src/Util/ZUtil/Hints/PullPush.v +++ b/src/Util/ZUtil/Hints/PullPush.v @@ -14,6 +14,8 @@ Hint Rewrite Z.mul_add_distr_l Z.mul_add_distr_r Z.mul_sub_distr_l Z.mul_sub_dis Hint Rewrite <- Z.mul_add_distr_l Z.mul_add_distr_r Z.mul_sub_distr_l Z.mul_sub_distr_r : pull_Zmul. Hint Rewrite Z.div_div using zutil_arith : pull_Zdiv. Hint Rewrite <- Z.div_div using zutil_arith : push_Zdiv. +Hint Rewrite Z.div_add Z.div_add_l using zutil_arith : push_Zdiv. +Hint Rewrite <- Z.div_add Z.div_add_l using zutil_arith : pull_Zdiv. Hint Rewrite <- Z.mul_mod Z.add_mod Zminus_mod using zutil_arith : pull_Zmod. Hint Rewrite Zminus_mod_idemp_l Zminus_mod_idemp_r : pull_Zmod. Hint Rewrite Z_mod_nz_opp_full using zutil_arith : push_Zmod. @@ -21,6 +23,7 @@ Hint Rewrite Z_mod_same_full : push_Zmod. Hint Rewrite Nat2Z.id : push_Zof_nat. Hint Rewrite N2Z.id : push_Zto_N. Hint Rewrite N2Z.id : pull_Zof_N. +Hint Rewrite Z2Nat.id Z2Nat.inj_succ using zutil_arith : push_Zto_nat. Hint Rewrite N2Z.inj_pos N2Z.inj_abs_N N2Z.inj_add N2Z.inj_mul N2Z.inj_sub_max N2Z.inj_succ N2Z.inj_pred_max N2Z.inj_min N2Z.inj_max N2Z.inj_div N2Z.inj_quot N2Z.inj_rem N2Z.inj_div2 N2Z.inj_pow N2Z.inj_0 nat_N_Z : push_Zof_N. Hint Rewrite N2Z.inj_compare N2Z.inj_testbit : pull_Zof_N. Hint Rewrite <- N2Z.inj_abs_N N2Z.inj_add N2Z.inj_mul N2Z.inj_sub_max N2Z.inj_succ N2Z.inj_pred_max N2Z.inj_min N2Z.inj_max N2Z.inj_div N2Z.inj_quot N2Z.inj_rem N2Z.inj_div2 N2Z.inj_pow : pull_Zof_N. diff --git a/src/Util/ZUtil/Hints/ZArith.v b/src/Util/ZUtil/Hints/ZArith.v index 2aa70dc97..97b7f261f 100644 --- a/src/Util/ZUtil/Hints/ZArith.v +++ b/src/Util/ZUtil/Hints/ZArith.v @@ -8,3 +8,5 @@ Hint Resolve (fun n m => proj1 (Z.pred_le_mono n m)) : zarith. Hint Resolve (fun a b => proj2 (Z.lor_nonneg a b)) : zarith. Hint Resolve Zmult_le_compat_r Zmult_le_compat_l Z_div_le Z.add_le_mono Z.sub_le_mono : zarith. +Hint Resolve Z.lt_gt Z.lt_le_incl : zarith. +Hint Resolve Nat2Z.is_nonneg : zarith. |