\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>