diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2023-06-30 17:08:06 +0100 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2023-06-30 17:08:06 +0100 |
| commit | 16d547a3807a8c51fcac6270c76540f6e7b89cf2 (patch) | |
| tree | 607c101f56631dda81dc053991a6f99907eeb0ee /src/Data/Maybe/Properties.idr | |
Initial commit.
Diffstat (limited to 'src/Data/Maybe/Properties.idr')
| -rw-r--r-- | src/Data/Maybe/Properties.idr | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Data/Maybe/Properties.idr b/src/Data/Maybe/Properties.idr new file mode 100644 index 0000000..f00b79f --- /dev/null +++ b/src/Data/Maybe/Properties.idr @@ -0,0 +1,6 @@ +module Data.Maybe.Properties + +export +mapFusion : (s : Maybe a) -> (f . g) <$> s = f <$> [| g s |] +mapFusion Nothing = Refl +mapFusion (Just x) = Refl |