diff options
author | Jason Gross <jagro@google.com> | 2018-06-29 22:19:54 -0400 |
---|---|---|
committer | Jason Gross <jagro@google.com> | 2018-06-29 22:19:54 -0400 |
commit | bf2813a1c32f93a1ddecf0f39ef00de16cd53eb7 (patch) | |
tree | 565d6ed2442f15c75f67c8130c6e042d1d99c9df /src/Util/Bool.v | |
parent | 4976f80d2e630a41d8d278a103d4c64b9f841ee5 (diff) |
Add useful list lemmas
Diffstat (limited to 'src/Util/Bool.v')
-rw-r--r-- | src/Util/Bool.v | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Util/Bool.v b/src/Util/Bool.v index d15a538cf..deb2f6385 100644 --- a/src/Util/Bool.v +++ b/src/Util/Bool.v @@ -81,3 +81,6 @@ Ltac split_andb_in_context_step := change (x = true /\ y = true) with (is_true x /\ is_true y) in H end. Ltac split_andb_in_context := repeat split_andb_in_context_step. + +Lemma if_const A (b : bool) (x : A) : (if b then x else x) = x. +Proof. case b; reflexivity. Qed. |