diff options
author | Andres Erbsen <andres@krutt.org> | 2016-07-11 10:58:59 -0400 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-07-11 10:58:59 -0400 |
commit | 762f2a27f9d237050ea5ab342f6e893ab4b4ac25 (patch) | |
tree | e30db89e649ed837488d33cb132090de33599e93 /src/Util/Tactics.v | |
parent | d8b643de8922f788328bbe356506a39b1f664ca6 (diff) | |
parent | c9bfb40a978d5769a51d5bdcc445ebae623c7475 (diff) |
Merge pull request #22 from mit-plv/wrap-nsatz
stop using raw nsatz, field_algebra, common_denominator
Diffstat (limited to 'src/Util/Tactics.v')
-rw-r--r-- | src/Util/Tactics.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Util/Tactics.v b/src/Util/Tactics.v index 4630e4ab7..01d72def9 100644 --- a/src/Util/Tactics.v +++ b/src/Util/Tactics.v @@ -7,6 +7,9 @@ Tactic Notation "test" tactic3(tac) := (** [not tac] is equivalent to [fail tac "succeeds"] if [tac] succeeds, and is equivalent to [idtac] if [tac] fails *) Tactic Notation "not" tactic3(tac) := try ((test tac); fail 1 tac "succeeds"). +Ltac get_goal := + match goal with |- ?G => G end. + (** find the head of the given expression *) Ltac head expr := match expr with |