\begin{code} {-# OPTIONS --cubical --safe #-} module Snippets.Topos where open import Prelude \end{code} %<*prop-univ> \begin{code} Prop-univ : Type₁ Prop-univ = Σ[ t ⦂ Type₀ ] isProp t \end{code} %</prop-univ> \begin{code} prop-resize : (u : Level) → Type (ℓsuc (ℓsuc u)) prop-resize u = \end{code} %<*prop-resize> \begin{code} Σ[ t ⦂ Type u ] isProp t ≃ Σ[ t ⦂ Type (ℓsuc u) ] isProp t \end{code} %</prop-resize>