Base

------------------------------------------------------------------------
-- The Agda standard library
--
-- A universe polymorphic unit type, as a Lift of the Level 0 one.
------------------------------------------------------------------------

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

module Data.Unit.Polymorphic.Base where

open import Level using (Level; Lift; lift)
import Data.Unit.Base as ⊤

------------------------------------------------------------------------
-- A unit type defined as a synonym

⊤ : {ℓ : Level} → Set ℓ
⊤ {ℓ} = Lift ℓ ⊤.⊤

tt : {ℓ : Level} → ⊤ {ℓ}
tt = lift ⊤.tt