Open
Description
A question: what has standard library to replace the following definition?
setoid₁Σ : ∀ {α α= β} → (A : Setoid α α=) → (P : (Setoid.Carrier A) → Set β) →
Setoid (α ⊔ β) _
-- Setoid on Σ Carrier P defined as the projection to Carrier.
-- For example, the setoid of nonzero elements in ℕ.
setoid₁Σ A P = record{ Carrier = Σ Carrier P; ... }
where
open Setoid A using (_≈_; Carrier)
_='_ : Rel (Σ Carrier P) _
_='_ = _≈_ on proj₁
...