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

Currying and uncurrying functions for dependent pairs were added.

Browse Source
This commit is contained in:
Denis Buzdalov 2021-01-15 17:26:27 +03:00 committed by G. Allais
parent fea21d88c5
commit bcc8da5a6d
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,6 +2,16 @@ module Data.DPair
%default total
namespace DPair
public export
curry : {0 p : a -> Type} -> ((x : a ** p x) -> c) -> (x : a) -> p x -> c
curry f x y = f (x ** y)
public export
uncurry : {0 p : a -> Type} -> ((x : a) -> p x -> c) -> (x : a ** p x) -> c
uncurry f s = f s.fst s.snd
namespace Exists
||| A dependent pair in which the first field (witness) should be
@ -21,6 +31,14 @@ namespace Exists
0 fst : type
snd : this fst
public export
curry : {0 p : a -> Type} -> (Exists {type=a} p -> c) -> ({0 x : a} -> p x -> c)
curry f = f . Evidence _
public export
uncurry : {0 p : a -> Type} -> ({0 x : a} -> p x -> c) -> Exists {type=a} p -> c
uncurry f ex = f ex.snd
namespace Subset
||| A dependent pair in which the second field (evidence) should not
@ -37,3 +55,11 @@ namespace Subset
constructor Element
fst : type
0 snd : pred fst
public export
curry : {0 p : a -> Type} -> (Subset a p -> c) -> (x : a) -> (0 _ : p x) -> c
curry f x y = f $ Element x y
public export
uncurry : {0 p : a -> Type} -> ((x : a) -> (0 _ : p x) -> c) -> Subset a p -> c
uncurry f s = f s.fst s.snd