\begin{code}

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

module Sigma-Type where

open import Universes

record Σ {𝓤 𝓥} {X : 𝓤 ̇ } (Y : X → 𝓥 ̇ ) : 𝓤 ⊔ 𝓥 ̇  where
  constructor
   _,_
  field
   pr₁ : X
   pr₂ : Y pr₁

infixr  _,_

\end{code}