diff options
| author |  Andres Erbsen <andreser@mit.edu> | 2016-07-07 16:02:23 -0400 |
|---|---|---|
| committer | Andres Erbsen <andreser@mit.edu> | 2016-07-11 09:59:13 -0400 |
| commit | 71179e46a7c404e76bc58c2465d547ead6df3e26 (patch) | |
| tree | 92d4a0da87872b00ba99372fee29c369e49a7360 /src/Util/Tactics.v | |
| parent | d8b643de8922f788328bbe356506a39b1f664ca6 (diff) | |
wrap nsatz in Algebra
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 |