From 8926b3f6b2aa1fe0f8d3f65f1966f60402cad4b9 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Mon, 13 Aug 2018 23:58:49 -0400 Subject: Prove monotonicity properties about zrange --- src/Util/Bool.v | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/Util/Bool.v') diff --git a/src/Util/Bool.v b/src/Util/Bool.v index fe6ae64e4..fb2038de5 100644 --- a/src/Util/Bool.v +++ b/src/Util/Bool.v @@ -103,3 +103,8 @@ 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. + +Lemma ex_bool_iff_or P : @ex bool P <-> (or (P true) (P false)). +Proof. + split; [ intros [ [] ? ] | intros [?|?]; eexists ]; eauto. +Qed. -- cgit v1.2.3