\begin{code} {-# 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 \end{code}