Skip to content

Make some Dec operations more easily accessible? #1229

@masaeedu

Description

@masaeedu

Hello there. I was doing some stuff with decidable equality and ended up needed the following operations:

  imap :  {ℓ} {a b : Set ℓ}  (a  b)  (b  a)  Dec a  Dec b
  imap f _ (yes x) = yes (f x)
  imap _ g (no  x) = no $ x ∘ g

  zip :  {ℓ} {a b : Set ℓ}  Dec a  Dec b  Dec (a × b)
  zip (yes x) (yes y) = yes $ (x , y)
  zip (no  x) _       = no $ λ { (x' , _)  x x' }
  zip _       (no  y) = no $ λ { (_ , y')  y y' }

  _∪_ :  {ℓ} {a b : Set ℓ}  Dec a  Dec b  Dec (a ⊎ b)
  _∪_ (yes a) _ = yes (inj₁ a)
  _∪_ (no  a) b = imap inj₂ ([ ⊥-elim ∘ a , id ]′) b

Does it make any sense to add these to the Relation.Nullary module that Dec is exported from?

Metadata

Metadata

Type

No type

Projects

No projects

Milestone

Relationships

None yet

Development

No branches or pull requests

Issue actions