sig
  val mk :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression_desc -> Ast_407.Parsetree.expression
  val attr :
    Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.attribute -> Ast_407.Parsetree.expression
  val ident :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs -> Ast_407.??.lid -> Ast_407.Parsetree.expression
  val constant :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.constant -> Ast_407.Parsetree.expression
  val let_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Asttypes.rec_flag ->
    Ast_407.Parsetree.value_binding list ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val fun_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Asttypes.arg_label ->
    Ast_407.Parsetree.expression option ->
    Ast_407.Parsetree.pattern ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val function_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.case list -> Ast_407.Parsetree.expression
  val apply :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    (Ast_407.Asttypes.arg_label * Ast_407.Parsetree.expression) list ->
    Ast_407.Parsetree.expression
  val match_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.case list -> Ast_407.Parsetree.expression
  val try_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.case list -> Ast_407.Parsetree.expression
  val tuple :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression list -> Ast_407.Parsetree.expression
  val construct :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.??.lid ->
    Ast_407.Parsetree.expression option -> Ast_407.Parsetree.expression
  val variant :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Asttypes.label ->
    Ast_407.Parsetree.expression option -> Ast_407.Parsetree.expression
  val record :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    (Ast_407.??.lid * Ast_407.Parsetree.expression) list ->
    Ast_407.Parsetree.expression option -> Ast_407.Parsetree.expression
  val field :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    Ast_407.??.lid -> Ast_407.Parsetree.expression
  val setfield :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    Ast_407.??.lid ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val array :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression list -> Ast_407.Parsetree.expression
  val ifthenelse :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.expression option -> Ast_407.Parsetree.expression
  val sequence :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val while_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val for_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.pattern ->
    Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.expression ->
    Ast_407.Asttypes.direction_flag ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val coerce :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.core_type option ->
    Ast_407.Parsetree.core_type -> Ast_407.Parsetree.expression
  val constraint_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.core_type -> Ast_407.Parsetree.expression
  val send :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    Ast_407.??.str -> Ast_407.Parsetree.expression
  val new_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs -> Ast_407.??.lid -> Ast_407.Parsetree.expression
  val setinstvar :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.??.str ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val override :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    (Ast_407.??.str * Ast_407.Parsetree.expression) list ->
    Ast_407.Parsetree.expression
  val letmodule :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.??.str ->
    Ast_407.Parsetree.module_expr ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val letexception :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.extension_constructor ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val assert_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val lazy_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val poly :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.core_type option -> Ast_407.Parsetree.expression
  val object_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.class_structure -> Ast_407.Parsetree.expression
  val newtype :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.??.str ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val pack :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.module_expr -> Ast_407.Parsetree.expression
  val open_ :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Asttypes.override_flag ->
    Ast_407.??.lid ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.expression
  val extension :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs ->
    Ast_407.Parsetree.extension -> Ast_407.Parsetree.expression
  val unreachable :
    ?loc:Ast_407.??.loc ->
    ?attrs:Ast_407.??.attrs -> unit -> Ast_407.Parsetree.expression
  val case :
    Ast_407.Parsetree.pattern ->
    ?guard:Ast_407.Parsetree.expression ->
    Ast_407.Parsetree.expression -> Ast_407.Parsetree.case
end