type id = string

type ty_annot = id * Types.ty

type lam =
  Fun of ty_annot * lam
  | App of lam * lam
  | Var of id
  | Exf of lam * Types.ty