type id = string

type ty_annot = id * Types.ty

type expr =
  Fun of ty_annot * expr
  | App of expr * expr
  | Var of id
  | Exf of expr * string