From 6cba3c4e0572e9d917d3578c39f4f85cd3799b54 Mon Sep 17 00:00:00 2001 From: Jason Gross Date: Tue, 4 Apr 2017 14:50:12 -0400 Subject: Move sigma MapProjections to a separate file Allows for more fine-grained imports --- src/Util/Sigma/MapProjections.v | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 src/Util/Sigma/MapProjections.v (limited to 'src/Util/Sigma') diff --git a/src/Util/Sigma/MapProjections.v b/src/Util/Sigma/MapProjections.v new file mode 100644 index 000000000..fd5556a33 --- /dev/null +++ b/src/Util/Sigma/MapProjections.v @@ -0,0 +1,6 @@ +Require Export Crypto.Util.GlobalSettings. + +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). -- cgit v1.2.3