------------------------------------------------------------------------
-- The Agda standard library
--
-- Decidable setoid membership over vectors.
------------------------------------------------------------------------
{-# OPTIONS --cubical-compatible --safe #-}
open import Relation.Binary.Bundles using (DecSetoid)
module Data.Vec.Membership.DecSetoid {c ℓ} (DS : DecSetoid c ℓ) where
open import Data.Vec.Base using (Vec)
open import Data.Vec.Relation.Unary.Any using (any?)
open import Relation.Nullary.Decidable using (Dec)
open DecSetoid DS renaming (Carrier to A)
------------------------------------------------------------------------
-- Re-export contents of propositional membership
open import Data.Vec.Membership.Setoid setoid public
------------------------------------------------------------------------
-- Other operations
infix 4 _∈?_
_∈?_ : ∀ x {n} (xs : Vec A n) → Dec (x ∈ xs)
x ∈? xs = any? (x ≟_) xs
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4