From 3a23bd851fc1a5d6e161dabc8a13f06bc8544a1d Mon Sep 17 00:00:00 2001
From: Greg Brown <greg.brown01@ed.ac.uk>
Date: Mon, 9 Sep 2024 11:33:45 +0100
Subject: Restart.

- use De Bruijn, as Namely, Painless had more pain than promised;
- remove higher-kinded types;
- provide ill-typing predicates;
- prove substitution respects ill-typing;
---
 src/Inky/OnlyWhen.idr | 44 --------------------------------------------
 1 file changed, 44 deletions(-)
 delete mode 100644 src/Inky/OnlyWhen.idr

(limited to 'src/Inky/OnlyWhen.idr')

diff --git a/src/Inky/OnlyWhen.idr b/src/Inky/OnlyWhen.idr
deleted file mode 100644
index 7bed91a..0000000
--- a/src/Inky/OnlyWhen.idr
+++ /dev/null
@@ -1,44 +0,0 @@
-module Inky.OnlyWhen
-
-import Data.DPair
-
-public export
-data OnlyWhen : Maybe a -> (a -> Type) -> Type where
-  Yes : forall x. (px : p x) -> Just x `OnlyWhen` p
-  No : ((x : a) -> Not (p x)) -> Nothing `OnlyWhen` p
-
-public export
-decDPair : (v **  v `OnlyWhen` p) <=> Dec (x : a ** p x)
-decDPair =
-  MkEquivalence
-    { leftToRight = \case
-      (Just x ** Yes px) => Yes (x ** px)
-      (Nothing ** No prf) => No (\(x ** px) => prf x px)
-    , rightToLeft = \case
-      Yes (x ** px) => (Just x ** Yes px)
-      No prf => (Nothing ** No (\x, px => prf (x ** px)))
-    }
-
-public export
-decExists : Exists (`OnlyWhen` p) <=> Dec (Exists p)
-decExists =
-  MkEquivalence
-    { leftToRight = \case
-      Evidence .(Just x) (Yes px) => Yes (Evidence x px)
-      Evidence .(Nothing) (No prf) => No (\(Evidence x px) => void (prf x px))
-    , rightToLeft = \case
-      Yes (Evidence x px) => Evidence (Just x) (Yes px)
-      No prf => Evidence Nothing (No (\x, px => prf (Evidence x px)))
-    }
-
-public export
-decSubset : Subset (Maybe a) (`OnlyWhen` p) <=> Dec (Subset a p)
-decSubset =
-  MkEquivalence
-    { leftToRight = \case
-      Element (Just x) prf => Yes (Element x (case prf of Yes px => px))
-      Element Nothing prf => No (\(Element x px) => void (case prf of No prf => prf x px))
-    , rightToLeft = \case
-      Yes (Element x px) => Element (Just x) (Yes px)
-      No prf => Element Nothing (No (\x, px => prf (Element x px)))
-    }
-- 
cgit v1.2.3