Cf (melange.Melange_compiler_libs.Ast

let mk: 
  ?loc:loc =>
  ?attrs:attrs =>
  ?docs:Docstrings.docs =>
  Parsetree.class_field_desc =>
  Parsetree.class_field;

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

let inherit_: 
  ?loc:loc =>
  ?attrs:attrs =>
  Asttypes.override_flag =>
  Parsetree.class_expr =>
  option(str) =>
  Parsetree.class_field;

let val_: 
  ?loc:loc =>
  ?attrs:attrs =>
  str =>
  Asttypes.mutable_flag =>
  Parsetree.class_field_kind =>
  Parsetree.class_field;

let method_: 
  ?loc:loc =>
  ?attrs:attrs =>
  str =>
  Asttypes.private_flag =>
  Parsetree.class_field_kind =>
  Parsetree.class_field;

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

let initializer_: 
  ?loc:loc =>
  ?attrs:attrs =>
  Parsetree.expression =>
  Parsetree.class_field;

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

let attribute: ?loc:loc => Parsetree.attribute => Parsetree.class_field;

let text: Docstrings.text => list(Parsetree.class_field);

let virtual_: Parsetree.core_type => Parsetree.class_field_kind;

let concrete: 
  Asttypes.override_flag =>
  Parsetree.expression =>
  Parsetree.class_field_kind;