Skip to content

Setoid on Σ Carrier P via proj₁ ? #1186

Open
@mechvel

Description

@mechvel

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₁
  ...                                                            

Metadata

Metadata

Assignees

No one assigned

    Type

    No type

    Projects

    No projects

    Milestone

    No milestone

    Relationships

    None yet

    Development

    No branches or pull requests

    Issue actions