val access2 : loc:loc -> string -> string -> t
val sprintf : loc:loc -> ('a, unit, string, t) format4 -> 'a
val ident : loc:loc -> string -> t
val var : loc:loc -> string -> t
val string : loc:loc -> t
val pair : loc:loc -> t -> t -> t
val tuple : loc:loc -> t list -> t
val arrow : loc:loc -> t -> t -> t
val chain_arrow : loc:loc -> t list -> t
val variant_of_t : loc:loc -> t -> t
val alias : loc:loc -> t -> string -> t
val poly : loc:loc -> string list -> t -> t
val map : onvar:(string -> t option) -> t -> t
val openize : loc:loc -> ?as_:string -> t -> t