Cl (melange.Melange_compiler_libs.Ast

let mk: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.class_expr_desc =>
  Parsetree.class_expr;

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

let constr: 
  ?loc:loc =>
  ?attrs:attrs =>
  lid =>
  list(Parsetree.core_type) =>
  Parsetree.class_expr;

let structure: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.class_structure =>
  Parsetree.class_expr;

let fun_: 
  ?loc:loc =>
  ?attrs:attrs =>
  Asttypes.arg_label =>
  option(Parsetree.expression) =>
  Parsetree.pattern =>
  Parsetree.class_expr =>
  Parsetree.class_expr;

let apply: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.class_expr =>
  list((Asttypes.arg_label, Parsetree.expression)) =>
  Parsetree.class_expr;

let let_: 
  ?loc:loc =>
  ?attrs:attrs =>
  Asttypes.rec_flag =>
  list(Parsetree.value_binding) =>
  Parsetree.class_expr =>
  Parsetree.class_expr;

let constraint_: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.class_expr =>
  Parsetree.class_type =>
  Parsetree.class_expr;

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

let open_: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.open_description =>
  Parsetree.class_expr =>
  Parsetree.class_expr;