⚠️ Archived site. This is the pre-3.0 Agda Universal Algebra Library, preserved for reference. Its current home is agda-algebras.universalalgebra.org (as of July 2026).
------------------------------------------------------------------------ -- The Agda standard library -- -- Level polymorphic Empty type ------------------------------------------------------------------------ {-# OPTIONS --cubical-compatible --safe #-} module Data.Empty.Polymorphic where import Data.Empty as Empty open import Level ⊥ : {ℓ : Level} → Set ℓ ⊥ {ℓ} = Lift ℓ Empty.⊥ -- make ⊥-elim dependent too, as it does seem useful ⊥-elim : ∀ {w ℓ} {Whatever : ⊥ {ℓ} → Set w} → (witness : ⊥ {ℓ}) → Whatever witness ⊥-elim ()