diff options
author | Jason Gross <jgross@mit.edu> | 2017-05-11 13:50:59 -0400 |
---|---|---|
committer | Jason Gross <jgross@mit.edu> | 2017-05-11 13:50:59 -0400 |
commit | 8a2f98ad75901b352a75b32bfae96148b8fb66d7 (patch) | |
tree | 67c701c4a013da93aacffa7327a3228970c8d781 /src/Util | |
parent | 7146036f5a4555840a75b1fb564ee3c1b54623dc (diff) |
Suppress a warning about unused intropatterns
Diffstat (limited to 'src/Util')
-rw-r--r-- | src/Util/ZUtil.v | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Util/ZUtil.v b/src/Util/ZUtil.v index 07466154c..b635c7e7a 100644 --- a/src/Util/ZUtil.v +++ b/src/Util/ZUtil.v @@ -604,7 +604,11 @@ Module Z. Ltac divide_exists_mul := let k := fresh "k" in match goal with - | [ H : (?a | ?b) |- _ ] => apply Z.mod_divide in H; try apply Zmod_divides in H; destruct H as [k H] + | [ H : (?a | ?b) |- _ ] => apply Z.mod_divide in H; try apply Zmod_divides in H; + match type of H with + | ex _ => destruct H as [k H] + | _ => destruct H + end | [ |- (?a | ?b) ] => apply Z.mod_divide; try apply Zmod_divides end; (omega || auto). |