From b42fc8571eaa5cb99633d01d2ac3abeec1a3b95f Mon Sep 17 00:00:00 2001
From: Jason Gross <jgross@mit.edu>
Date: Fri, 21 Dec 2018 13:30:19 -0500
Subject: Add has_body tactic

---
 _CoqProject                | 1 +
 src/Util/Tactics.v         | 1 +
 src/Util/Tactics/HasBody.v | 3 +++
 3 files changed, 5 insertions(+)
 create mode 100644 src/Util/Tactics/HasBody.v

diff --git a/_CoqProject b/_CoqProject
index 4dec8ffeb..ce927e75e 100644
--- a/_CoqProject
+++ b/_CoqProject
@@ -6590,6 +6590,7 @@ src/Util/Tactics/ETransitivity.v
 src/Util/Tactics/EvarExists.v
 src/Util/Tactics/Forward.v
 src/Util/Tactics/GetGoal.v
+src/Util/Tactics/HasBody.v
 src/Util/Tactics/Head.v
 src/Util/Tactics/HeadUnderBinders.v
 src/Util/Tactics/MoveLetIn.v
diff --git a/src/Util/Tactics.v b/src/Util/Tactics.v
index ee27e598f..7b378c9bf 100644
--- a/src/Util/Tactics.v
+++ b/src/Util/Tactics.v
@@ -19,6 +19,7 @@ Require Export Crypto.Util.Tactics.ETransitivity.
 Require Export Crypto.Util.Tactics.EvarExists.
 Require Export Crypto.Util.Tactics.Forward.
 Require Export Crypto.Util.Tactics.GetGoal.
+Require Export Crypto.Util.Tactics.HasBody.
 Require Export Crypto.Util.Tactics.Head.
 Require Export Crypto.Util.Tactics.MoveLetIn.
 Require Export Crypto.Util.Tactics.NormalizeCommutativeIdentifier.
diff --git a/src/Util/Tactics/HasBody.v b/src/Util/Tactics/HasBody.v
new file mode 100644
index 000000000..387b6ed43
--- /dev/null
+++ b/src/Util/Tactics/HasBody.v
@@ -0,0 +1,3 @@
+(** Checks if a hypothesis has a body *)
+
+Ltac has_body x := let test := eval unfold x in x in idtac.
-- 
cgit v1.2.3