{-# OPTIONS --cubical-compatible --safe #-}
open import Relation.Binary.Definitions using (Decidable)
open import Relation.Binary.Bundles using (DecSetoid)
open import Relation.Nullary.Decidable using (¬?)
module Data.List.Membership.DecSetoid {a ℓ} (DS : DecSetoid a ℓ) where
open import Data.List.Relation.Unary.Any using (any?)
open DecSetoid DS
open import Data.List.Membership.Setoid (DecSetoid.setoid DS) public
infix 4 _∈?_ _∉?_
_∈?_ : Decidable _∈_
x ∈? xs = any? (x ≟_) xs
_∉?_ : Decidable _∉_
x ∉? xs = ¬? (x ∈? xs)