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_uident : string -> booltype typath = | Regular of t | 
| Ext of t * string | 
| LocalExt of Ident.t | 
| Cstr of t * string | 
val constructor_typath : t -> typathval is_constructor_typath : t -> bool