type kind = | Old of Types.type_expr| Simple of Types.type_expr| Generic of {ty_path : Path.t;arity : int;
}
type error = [ | `Unbound_identifier of Longident.t| `Wrong_type of Longident.t| `No_active_printer of Path.t
]val report_error : Format.formatter -> error -> unit