sig
  val mk :
    Ast_407.Parsetree.pattern ->
    Ast_407.Parsetree.class_field list -> Ast_407.Parsetree.class_structure
end