From 16d547a3807a8c51fcac6270c76540f6e7b89cf2 Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Fri, 30 Jun 2023 17:08:06 +0100 Subject: Initial commit. --- .gitignore | 1 + src/Data/Maybe/Properties.idr | 6 ++++++ unify.ipkg | 8 ++++++++ 3 files changed, 15 insertions(+) create mode 100644 .gitignore create mode 100644 src/Data/Maybe/Properties.idr create mode 100644 unify.ipkg diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..796b96d --- /dev/null +++ b/.gitignore @@ -0,0 +1 @@ +/build 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 diff --git a/unify.ipkg b/unify.ipkg new file mode 100644 index 0000000..a2ab92d --- /dev/null +++ b/unify.ipkg @@ -0,0 +1,8 @@ +package unify +authors = "Greg Brown" +sourcedir = "src" + +options = "--total" + +modules + = Data.Maybe.Properties -- cgit v1.2.3