module Presyntax.Presyntax where

import Data.Text (Text)

data Plicity
  = Im | Ex
  deriving (Eq, Show, Ord)

data Expr
  = Var Text

  | App Plicity Expr Expr
  | Pi  Plicity Text Expr Expr
  | Lam Plicity Text Expr

  | Sigma Text Expr Expr
  | Pair Expr Expr
  | Proj1 Expr
  | Proj2 Expr
  deriving (Eq, Show, Ord)

data Statement
  = Decl Text Expr
  | Defn Text Expr
  deriving (Eq, Show, Ord)