diff options
| author |  Jason Gross <jgross@mit.edu> | 2017-04-02 23:31:38 -0400 |
|---|---|---|
| committer | Jason Gross <jgross@mit.edu> | 2017-04-02 23:31:38 -0400 |
| commit | 8903b24ecc531435c62989e33f8220e1ec5c42b5 (patch) | |
| tree | 9b1b8123fbcaf8e3499d4e94dab3d5cf3599ec1e /src/Util/Sigma.v | |
| parent | 419d6e75f5b31c0762fdf43e06f8f0852c6900a8 (diff) | |
Add projT2_map
Diffstat (limited to 'src/Util/Sigma.v')
| -rw-r--r-- | src/Util/Sigma.v | 3 |
1 files changed, 3 insertions, 0 deletions
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 |