diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-11-02 23:59:39 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-11-02 23:59:53 -0400 |
| commit | 1e9ad3c004143dce9678856199ea6e5bbc6a178e (patch) | |
| tree | ce30f17504502364ed38d5b828d1218e11e270ea /src/Util/Bool | |
| parent | 0ec3bbf095fbb2fbe5ba652fc9c57b189a2bdd9b (diff) | |
Add type of bounded Z
Diffstat (limited to 'src/Util/Bool')
| -rw-r--r-- | src/Util/Bool/IsTrue.v | 7 |
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. |