Plus-Type module


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

module Plus-Type where

open import Universes public

data _+_ {𝓤 𝓥} (X : 𝓤 ̇ ) (Y : 𝓥 ̇ ) : 𝓤 ⊔ 𝓥 ̇  where
 inl : X → X + Y
 inr : Y → X + Y