diff options
Diffstat (limited to 'src/Data')
| -rw-r--r-- | src/Data/Maybe/Decidable.idr | 6 | ||||
| -rw-r--r-- | src/Data/These/Decidable.idr | 16 |
2 files changed, 0 insertions, 22 deletions
diff --git a/src/Data/Maybe/Decidable.idr b/src/Data/Maybe/Decidable.idr deleted file mode 100644 index e301ab1..0000000 --- a/src/Data/Maybe/Decidable.idr +++ /dev/null @@ -1,6 +0,0 @@ -module Data.Maybe.Decidable - -public export -data OnlyWhen : (p : a -> Type) -> Maybe a -> Type where - RJust : forall x. (px : p x) -> p `OnlyWhen` Just x - RNothing : (false : (x : a) -> Not (p x)) -> p `OnlyWhen` Nothing diff --git a/src/Data/These/Decidable.idr b/src/Data/These/Decidable.idr deleted file mode 100644 index c044ca4..0000000 --- a/src/Data/These/Decidable.idr +++ /dev/null @@ -1,16 +0,0 @@ -module Data.These.Decidable - -import Data.Bool.Decidable -import Data.These - -export -viaEquivalence : a <=> b -> a `Reflects` x -> b `Reflects` x -viaEquivalence eq (RTrue x) = RTrue (eq.leftToRight x) -viaEquivalence eq (RFalse f) = RFalse (f . eq.rightToLeft) - -export -reflectThese : a `Reflects` x -> b `Reflects` y -> These a b `Reflects` x || y -reflectThese (RTrue x) (RTrue y) = RTrue (Both x y) -reflectThese (RTrue x) (RFalse ny) = RTrue (This x) -reflectThese (RFalse nx) (RTrue y) = RTrue (That y) -reflectThese (RFalse nx) (RFalse ny) = RFalse (these nx ny $ const ny) |