From 1e9ad3c004143dce9678856199ea6e5bbc6a178e Mon Sep 17 00:00:00 2001
From: Jason Gross <jgross@mit.edu>
Date: Thu, 2 Nov 2017 23:59:39 -0400
Subject: Add type of bounded Z

---
 src/Util/Bool/IsTrue.v | 7 +++++++
 1 file changed, 7 insertions(+)
 create mode 100644 src/Util/Bool/IsTrue.v

(limited to 'src/Util/Bool')

diff --git a/src/Util/Bool/IsTrue.v b/src/Util/Bool/IsTrue.v
new file mode 100644
index 000000000..a59b58fd9
--- /dev/null
+++ b/src/Util/Bool/IsTrue.v
@@ -0,0 +1,7 @@
+Require Import Coq.Bool.Bool.
+
+Definition adjust_is_true {P} (v : is_true P) : is_true P
+  := match P as P return is_true P -> is_true P with
+     | true => fun _ => eq_refl
+     | false => fun v => v
+     end v.
-- 
cgit v1.2.3