From f2629738a4dfd748a4829323959607ee36e6fd6d Mon Sep 17 00:00:00 2001 From: jadep Date: Wed, 20 Apr 2016 13:59:33 -0400 Subject: moved lemmas from ModularBaseSystemProofs to various Util files --- src/Util/CaseUtil.v | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Util/CaseUtil.v') diff --git a/src/Util/CaseUtil.v b/src/Util/CaseUtil.v index af04a1e49..cf3ebf29c 100644 --- a/src/Util/CaseUtil.v +++ b/src/Util/CaseUtil.v @@ -10,3 +10,9 @@ Ltac case_max := (exact (le_Sn_le _ _ (not_le _ _ H))) end end. + +Lemma pull_app_if_sumbool {A B X Y} (b : sumbool X Y) (f g : A -> B) (x : A) + : (if b then f x else g x) = (if b then f else g) x. +Proof. + destruct b; reflexivity. +Qed. -- cgit v1.2.3