diff options
| author | Jason Gross | 2018-12-03 18:10:03 -0500 |
|---|---|---|
| committer | Jason Gross | 2019-01-24 14:29:03 -0500 |
| commit | a10076e834720c05e55397c9e26b9d7a8786298b (patch) | |
| tree | 8c29f94b44247d50f16dfa9ee8469c5da362b748 /test-suite | |
| parent | 4e66d30ba33310dfc96f7f1e57c651db9fc53c97 (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.v | 15 |
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. |
