idris-lang/Idris2
1
1
Fork 0
mirror of https://github.com/idris-lang/Idris2.git synced 2025-01-01 16:12:26 +03:00
Code Issues Projects Releases Wiki Activity

[base] bimap functions were added for dependent pairs.

Browse Source
This commit is contained in:
Denis Buzdalov 2021-02-24 17:19:44 +03:00 committed by G. Allais
parent d2eeb7ce86
commit 69be8f2102
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
libs/base/Data/DPair.idr
View File

@ -12,6 +12,10 @@ namespace DPair
uncurry : {0 p : a -> Type} -> ((x : a) -> p x -> c) -> (x : a ** p x) -> c uncurry : {0 p : a -> Type} -> ((x : a) -> p x -> c) -> (x : a ** p x) -> c
uncurry f s = f s.fst s.snd uncurry f s = f s.fst s.snd
public export
bimap : {0 p : a -> Type} -> {0 q : b -> Type} -> (f : a -> b) -> (forall x. p x -> q (f x)) -> (x : a ** p x) -> (y : b ** q y)
bimap f g (x ** y) = (f x ** g y)
namespace Exists namespace Exists
||| A dependent pair in which the first field (witness) should be ||| A dependent pair in which the first field (witness) should be
@ -39,6 +43,10 @@ namespace Exists
uncurry : {0 p : a -> Type} -> ({0 x : a} -> p x -> c) -> Exists {type=a} p -> c uncurry : {0 p : a -> Type} -> ({0 x : a} -> p x -> c) -> Exists {type=a} p -> c
uncurry f ex = f ex.snd uncurry f ex = f ex.snd
public export
bimap : (0 f : a -> b) -> (forall x. p x -> q (f x)) -> Exists {type=a} p -> Exists {type=b} q
bimap f g (Evidence x y) = Evidence (f x) (g y)
namespace Subset namespace Subset
||| A dependent pair in which the second field (evidence) should not ||| A dependent pair in which the second field (evidence) should not
@ -63,3 +71,7 @@ namespace Subset
public export public export
uncurry : {0 p : a -> Type} -> ((x : a) -> (0 _ : p x) -> c) -> Subset a p -> c uncurry : {0 p : a -> Type} -> ((x : a) -> (0 _ : p x) -> c) -> Subset a p -> c
uncurry f s = f s.fst s.snd uncurry f s = f s.fst s.snd
public export
bimap : (f : a -> b) -> (0 _ : forall x. p x -> q (f x)) -> Subset a p -> Subset b q
bimap f g (Element x y) = Element (f x) (g y)