Define Closure and Environment
This commit is contained in:
parent
898087509b
commit
af4539e344
|
@ -10,3 +10,19 @@ import Data.Profunctor.Strong
|
|||
public export
|
||||
interface Profunctor p => Closed p where
|
||||
closed : p a b -> p (x -> a) (x -> b)
|
||||
|
||||
|
||||
-- Closure
|
||||
|
||||
public export
|
||||
record Closure p a b where
|
||||
constructor MkClosure
|
||||
getClosure : forall x. p (x -> a) (x -> b)
|
||||
|
||||
|
||||
-- Environment
|
||||
|
||||
public export
|
||||
data Environment : (p : Type -> Type -> Type) -> Type -> Type -> Type where
|
||||
MkEnv : ((z -> y) -> b) -> p x y -> (a -> z -> x) -> Environment p a b
|
||||
|
||||
|
|
Loading…
Reference in a new issue