type ty_id = string

type ty =
  TVar of ty_id
  | Arr of ty * ty
  | Bot

type gam = ty_id * ty list