agda/test/LaTeXAndHTML/succeed/IndentingContainer.lagda

\documentclass{article}

\usepackage{agda}

\begin{document}

\begin{code}
record Sigma (A : Set) (B : A → Set) : Set where
  constructor _,_
  field
    proj₁ : A
    proj₂ : B proj₁

open Sigma public
\end{code}

\begin{code}
uncurry : {A : Set} {B : A → Set} {C : Sigma A B → Set} →
          ((x : A) → (y : B x) → C (x , y)) →
          ((p : Sigma A B) → C p)
uncurry f (x , y) = f x y
\end{code}

\begin{code}
record Container : Set₁ where
  constructor _◃_
  field
    Parameter : Set
    Arity : Parameter → Set
\end{code}

\end{document}