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

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

(limited to 'src/Util/Tactics/HasBody.v')

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