From 8903b24ecc531435c62989e33f8220e1ec5c42b5 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Sun, 2 Apr 2017 23:31:38 -0400 Subject: Add projT2_map --- src/Util/Sigma.v | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Util/Sigma.v') diff --git a/src/Util/Sigma.v b/src/Util/Sigma.v index 9d710a039..be2c18c9a 100644 --- a/src/Util/Sigma.v +++ b/src/Util/Sigma.v @@ -230,6 +230,9 @@ Definition lift2_sig {A B C} (P:A->B->C->Prop) (fun a b => proj1_sig (op_sig a b)) (fun a b => proj2_sig (op_sig a b)). +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 P a (f a p). + (** ** Useful Tactics *) (** *** [inversion_sigma] *) (** The built-in [inversion] will frequently leave equalities of -- cgit v1.2.3