Te (melange.Melange_compiler_libs.Ast

let mk: 
  ?loc:loc =>
  ?attrs:attrs =>
  ?docs:Docstrings.docs =>
  ?params:
    list((Parsetree.core_type, (Asttypes.variance, Asttypes.injectivity))) =>
  ?priv:Asttypes.private_flag =>
  lid =>
  list(Parsetree.extension_constructor) =>
  Parsetree.type_extension;

let mk_exception: 
  ?loc:loc =>
  ?attrs:attrs =>
  ?docs:Docstrings.docs =>
  Parsetree.extension_constructor =>
  Parsetree.type_exception;

let constructor: 
  ?loc:loc =>
  ?attrs:attrs =>
  ?docs:Docstrings.docs =>
  ?info:Docstrings.info =>
  str =>
  Parsetree.extension_constructor_kind =>
  Parsetree.extension_constructor;

let decl: 
  ?loc:loc =>
  ?attrs:attrs =>
  ?docs:Docstrings.docs =>
  ?info:Docstrings.info =>
  ?vars:list(str) =>
  ?args:Parsetree.constructor_arguments =>
  ?res:Parsetree.core_type =>
  str =>
  Parsetree.extension_constructor;

let rebind: 
  ?loc:loc =>
  ?attrs:attrs =>
  ?docs:Docstrings.docs =>
  ?info:Docstrings.info =>
  str =>
  lid =>
  Parsetree.extension_constructor;