2022-02-02 00:22:16 +03:00
|
|
|
module Data.Linear.Bifunctor
|
|
|
|
|
|
|
|
|
|
import Data.Linear.Notation
|
|
|
|
|
|
|
|
|
|
%default total
|
|
|
|
|
|
|
|
|
|
||| A linear bimap on linear pairs.
|
|
|
|
|
||| There is no general Bifunctor interface because it would not be implementable with
|
|
|
|
|
||| The same type signature consistently, for example LEither does not consume both
|
|
|
|
|
||| `f` and `g` linearly.
|
2023-10-27 15:22:13 +03:00
|
|
|
public export
|
2022-02-02 00:22:16 +03:00
|
|
|
bimap : (a -@ x) -@ (b -@ y) -@ (LPair a b) -@ (LPair x y)
|
|
|
|
|
bimap f g (a # b) = f a # g b
|
2023-10-27 15:22:13 +03:00
|
|
|
|
|
|
|
|
public export
|
|
|
|
|
mapFst : (a -@ x) -@ LPair a b -@ LPair x b
|
|
|
|
|
mapFst f = bimap f id
|
|
|
|
|
|
|
|
|
|
public export
|
|
|
|
|
mapSnd : (b -@ y) -@ LPair a b -@ LPair a y
|
|
|
|
|
mapSnd = bimap id
|
