------------------------------------------------------------------------
-- The Agda standard library
--
-- Instances for the unit type
------------------------------------------------------------------------

{-# OPTIONS --without-K --safe #-}

module Data.Unit.Instances where

open import Data.Unit.Properties using (_≡?_; ≡-isDecTotalOrder)
open import Relation.Binary.PropositionalEquality.Properties
  using (isDecEquivalence)

instance
  ⊤-≡-isDecEquivalence = isDecEquivalence _≡?_
  ⊤-≤-isDecTotalOrder = ≡-isDecTotalOrder