type t = | Pident of Ident.t| Pdot of t * string| Papply of t * t
val same : t -> t -> boolval compare : t -> t -> intval exists_free : Ident.t list -> t -> boolval flatten : t -> [ `Contains_apply | `Ok of Ident.t * string list ]val name : ?paren:(string -> bool) -> t -> stringval is_constructor_typath : t -> bool