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