From bf2813a1c32f93a1ddecf0f39ef00de16cd53eb7 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Fri, 29 Jun 2018 22:19:54 -0400 Subject: Add useful list lemmas --- src/Util/Bool.v | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Util/Bool.v') 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. -- cgit v1.2.3