From 7e87e2654662355dec369076a4bb7dd13900300e Mon Sep 17 00:00:00 2001
From: Jason Gross <jgross@mit.edu>
Date: Mon, 3 Apr 2017 12:27:58 -0400
Subject: Add proj2_sig_map

---
 src/Util/Sigma.v | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/Util/Sigma.v')

diff --git a/src/Util/Sigma.v b/src/Util/Sigma.v
index 49e2cf6c6..693b8ef00 100644
--- a/src/Util/Sigma.v
+++ b/src/Util/Sigma.v
@@ -232,6 +232,8 @@ Definition lift2_sig {A B C} (P:A->B->C->Prop)
 
 Definition projT2_map {A P Q} (f : forall a, P a -> Q a) (x : @sigT A P) : @sigT A Q
   := let 'existT a p := x in existT Q a (f a p).
+Definition proj2_sig_map {A} {P Q : A -> Prop} (f : forall a, P a -> Q a) (x : @sig A P) : @sig A Q
+  := let 'exist a p := x in exist Q a (f a p).
 
 (** ** Useful Tactics *)
 (** *** [inversion_sigma] *)
-- 
cgit v1.2.3