1 files changed, 7 insertions, 0 deletions
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.