diff options
| author | Greg Brown <greg.brown01@ed.ac.uk> | 2024-11-12 18:05:25 +0000 |
|---|---|---|
| committer | Greg Brown <greg.brown01@ed.ac.uk> | 2024-11-12 18:05:25 +0000 |
| commit | 6ce6cf4580f2c0ab4c7c4ec56f438c1cc184c7cd (patch) | |
| tree | f1704be1e5adef266693429898408bfa4b320688 /src/Inky/Data/SnocList/Quantifiers.idr | |
| parent | ecaf9deb4b1d2ce85617438e621690b2df3ea367 (diff) | |
Add more names. Names are good.
Diffstat (limited to 'src/Inky/Data/SnocList/Quantifiers.idr')
| -rw-r--r-- | src/Inky/Data/SnocList/Quantifiers.idr | 15 |
1 files changed, 3 insertions, 12 deletions
diff --git a/src/Inky/Data/SnocList/Quantifiers.idr b/src/Inky/Data/SnocList/Quantifiers.idr index ac6287b..886c4e4 100644 --- a/src/Inky/Data/SnocList/Quantifiers.idr +++ b/src/Inky/Data/SnocList/Quantifiers.idr @@ -3,7 +3,6 @@ module Inky.Data.SnocList.Quantifiers import public Data.SnocList.Quantifiers import Data.List.Quantifiers -import Inky.Data.Irrelevant import Inky.Data.SnocList import Inky.Data.SnocList.Elem import Inky.Decidable @@ -26,23 +25,15 @@ HSnocList : SnocList Type -> Type HSnocList = All id public export -all : ((x : a) -> Dec' (p x)) -> (sx : SnocList a) -> LazyEither (All p sx) (Any (Not . p) sx) +all : + ((x : a) -> LazyEither (p x) (q x)) -> + (sx : SnocList a) -> LazyEither (All p sx) (Any q sx) all f [<] = True `Because` [<] all f (sx :< x) = map (\prfs => snd prfs :< fst prfs) (either Here There) $ both (f x) (all f sx) public export -irrelevant : {0 sx : SnocList a} -> All (Irrelevant . p) sx -> Irrelevant (All p sx) -irrelevant [<] = Forget [<] -irrelevant (prfs :< px) = [| irrelevant prfs :< px |] - -public export -relevant : (sx : SnocList a) -> (0 prfs : All p sx) -> All (Irrelevant . p) sx -relevant [<] _ = [<] -relevant (sx :< x) prfs = relevant sx (tail prfs) :< Forget (head prfs) - -public export tabulate : LengthOf sx -> (forall x. Elem x sx -> p x) -> All p sx tabulate Z f = [<] tabulate (S len) f = tabulate len (f . There) :< f Here |