------------------------------------------------------------------------
-- The Agda standard library
--
-- Empty values (e.g. [] for List, nothing for Maybe)
------------------------------------------------------------------------

{-# OPTIONS --cubical-compatible --safe #-}

module Effect.Empty where

open import Level using (Level; suc; _⊔_)

private
  variable
    ℓ ℓ′ : Level
    A  : Set ℓ

record RawEmpty (F : Set ℓ → Set ℓ′) : Set (suc ℓ ⊔ ℓ′) where
  field
    empty : F A

  -- backwards compatibility: unicode variants
  ∅ : F A
  ∅ = empty