Ast_pat (melange.Melange_ppx_lib.Ast

type t = Melange_compiler_libs.Parsetree.pattern;

let is_unit_cont: yes:'a => no:'a => t => 'a;

let arity_of_fun: t => Melange_compiler_libs.Parsetree.expression => int;

arity_of_fun pat e tells the arity of expression fun pat -> e

let labels_of_fun: 
  Melange_compiler_libs.Parsetree.expression =>
  list(Asttypes.arg_label);

let is_single_variable_pattern_conservative: t => bool;