aboutsummaryrefslogtreecommitdiff
path: root/test-suite
diff options
context:
space:
mode:
authorJason Gross2018-12-03 18:10:03 -0500
committerJason Gross2019-01-24 14:29:03 -0500
commita10076e834720c05e55397c9e26b9d7a8786298b (patch)
tree8c29f94b44247d50f16dfa9ee8469c5da362b748 /test-suite
parent4e66d30ba33310dfc96f7f1e57c651db9fc53c97 (diff)
Move cleanup from the test-suite to Z.div_mod_to_quot_rem_cleanup
Also fold it into `Z.div_mod_to_quot_rem` Note that the test-suite file is a bit slow. On my machine, it is ``` real 2m32.983s user 2m32.544s sys 0m0.492s ```
Diffstat (limited to 'test-suite')
-rw-r--r--test-suite/success/Nia.v15
1 files changed, 2 insertions, 13 deletions
diff --git a/test-suite/success/Nia.v b/test-suite/success/Nia.v
index b79a6bde3d..6cb645d9eb 100644
--- a/test-suite/success/Nia.v
+++ b/test-suite/success/Nia.v
@@ -2,20 +2,9 @@ Require Import Coq.ZArith.ZArith.
Require Import Coq.micromega.Lia.
Open Scope Z_scope.
-Ltac cleanup :=
- repeat match goal with
- | [ H : ?T -> _, H' : ?T |- _ ] => specialize (H H')
- | [ H : ?T -> _, H' : ~?T |- _ ] => clear H
- | [ H : ~?T -> _, H' : ?T |- _ ] => clear H
- | [ H : 0 < ?x -> _, H' : ?x < 0 |- _ ] => clear H
- | [ H : ?x < 0 -> _, H' : 0 < ?x |- _ ] => clear H
- | _ => progress subst
- end.
-
(** Add [Z.div_mod_to_quot_rem] to the end of [zify], just for this
- file. Note that we also add a [cleanup] tactic, which is very
- important for speed purposes. *)
-Ltac zify ::= repeat (zify_nat; zify_positive; zify_N); zify_op; Z.div_mod_to_quot_rem; cleanup.
+ file. *)
+Ltac zify ::= repeat (zify_nat; zify_positive; zify_N); zify_op; Z.div_mod_to_quot_rem.
Lemma Z_zerop_or x : x = 0 \/ x <> 0. Proof. nia. Qed.
Lemma Z_eq_dec_or (x y : Z) : x = y \/ x <> y. Proof. nia. Qed.