Pat (melange.Melange_compiler_libs.Ast

let mk: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.pattern_desc =>
  Parsetree.pattern;

let attr: Parsetree.pattern => Parsetree.attribute => Parsetree.pattern;

let any: ?loc:loc => ?attrs:attrs => unit => Parsetree.pattern;

let var: ?loc:loc => ?attrs:attrs => str => Parsetree.pattern;

let alias: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.pattern =>
  str =>
  Parsetree.pattern;

let constant: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.constant =>
  Parsetree.pattern;

let interval: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.constant =>
  Parsetree.constant =>
  Parsetree.pattern;

let tuple: 
  ?loc:loc =>
  ?attrs:attrs =>
  list(Parsetree.pattern) =>
  Parsetree.pattern;

let construct: 
  ?loc:loc =>
  ?attrs:attrs =>
  lid =>
  option((list(str), Parsetree.pattern)) =>
  Parsetree.pattern;

let variant: 
  ?loc:loc =>
  ?attrs:attrs =>
  Asttypes.label =>
  option(Parsetree.pattern) =>
  Parsetree.pattern;

let record: 
  ?loc:loc =>
  ?attrs:attrs =>
  list((lid, Parsetree.pattern)) =>
  Asttypes.closed_flag =>
  Parsetree.pattern;

let array: 
  ?loc:loc =>
  ?attrs:attrs =>
  list(Parsetree.pattern) =>
  Parsetree.pattern;

let or_: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.pattern =>
  Parsetree.pattern =>
  Parsetree.pattern;

let constraint_: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.pattern =>
  Parsetree.core_type =>
  Parsetree.pattern;

let type_: ?loc:loc => ?attrs:attrs => lid => Parsetree.pattern;

let lazy_: ?loc:loc => ?attrs:attrs => Parsetree.pattern => Parsetree.pattern;

let unpack: ?loc:loc => ?attrs:attrs => str_opt => Parsetree.pattern;

let open_: 
  ?loc:loc =>
  ?attrs:attrs =>
  lid =>
  Parsetree.pattern =>
  Parsetree.pattern;

let exception_: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.pattern =>
  Parsetree.pattern;

let extension: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.extension =>
  Parsetree.pattern;