diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2024-10-28 15:34:16 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2024-10-28 15:34:16 +0000 |
| commit | e258c78a5ab9529242b4c8fa168eda85430e641e (patch) | |
| tree | 939ced9a71c94736222d05616a46dfc7292accd0 /src/Data/These/Decidable.idr | |
| parent | d926ce9f2d1144f329598a30b3ed2e48899519b2 (diff) | |
Make everything relevant.
Too few proofs were relevant. Now they are.
Diffstat (limited to 'src/Data/These/Decidable.idr')
| -rw-r--r-- | src/Data/These/Decidable.idr | 16 |
1 files changed, 0 insertions, 16 deletions
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) |