module Properties.Dec where

data ⊥ : Set where

data Dec(A : Set) : Set where
  yes : A → Dec A
  no : (A → ⊥) → Dec A