From 71179e46a7c404e76bc58c2465d547ead6df3e26 Mon Sep 17 00:00:00 2001 From: Andres Erbsen Date: Thu, 7 Jul 2016 16:02:23 -0400 Subject: wrap nsatz in Algebra --- src/Util/Tactics.v | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Util/Tactics.v') 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 -- cgit v1.2.3