aboutsummaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2020-10-18 22:49:10 +0200
committerDavid Monniaux <david.monniaux@univ-grenoble-alpes.fr>2020-10-18 22:49:10 +0200
commit996a2e5bbc4826d95144b62f5218b6e3e1e7d881 (patch)
tree55a5136c68e7d0f7a304913f28d0a761d9facd9a /lib
parent8c3a2bdb56eba8d8bc5e359b01a320916eac85f0 (diff)
parenta2f31f2b886ccb9656a019db1780aabc1789368a (diff)
downloadcompcert-kvx-996a2e5bbc4826d95144b62f5218b6e3e1e7d881.tar.gz
compcert-kvx-996a2e5bbc4826d95144b62f5218b6e3e1e7d881.zip
Merge remote-tracking branch 'origin/kvx-work' into kvx-test-prepass
Diffstat (limited to 'lib')
-rw-r--r--lib/Coqlib.v6
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Coqlib.v b/lib/Coqlib.v
index 02c5d07f..16d880fa 100644
--- a/lib/Coqlib.v
+++ b/lib/Coqlib.v
@@ -1325,3 +1325,9 @@ Lemma nlist_forall2_imply:
Proof.
induction 1; simpl; intros; constructor; auto.
Qed.
+
+Lemma if_same : forall {T : Type} (b : bool) (x : T),
+ (if b then x else x) = x.
+Proof.
+ destruct b; trivial.
+Qed.