ppx_view 1.0.1 (latest) · OCaml Package

val pos_fname'match : 
  (string, 'i, 'o) Viewlib.View.t ->
  (Lexing.position, 'i, 'o) Viewlib.View.t

val pos_lnum'match : 
  (int, 'i, 'o) Viewlib.View.t ->
  (Lexing.position, 'i, 'o) Viewlib.View.t

val pos_bol'match : 
  (int, 'i, 'o) Viewlib.View.t ->
  (Lexing.position, 'i, 'o) Viewlib.View.t

val pos_cnum'match : 
  (int, 'i, 'o) Viewlib.View.t ->
  (Lexing.position, 'i, 'o) Viewlib.View.t

val nonrecursive : 
  (Migrate_parsetree.Ast_404.Asttypes.rec_flag, 'a, 'a) Viewlib.View.t

val recursive : 
  (Migrate_parsetree.Ast_404.Asttypes.rec_flag, 'a, 'a) Viewlib.View.t

val upto : 
  (Migrate_parsetree.Ast_404.Asttypes.direction_flag, 'a, 'a) Viewlib.View.t

val downto_ : 
  (Migrate_parsetree.Ast_404.Asttypes.direction_flag, 'a, 'a) Viewlib.View.t

val private_ : 
  (Migrate_parsetree.Ast_404.Asttypes.private_flag, 'a, 'a) Viewlib.View.t

val public : 
  (Migrate_parsetree.Ast_404.Asttypes.private_flag, 'a, 'a) Viewlib.View.t

val immutable : 
  (Migrate_parsetree.Ast_404.Asttypes.mutable_flag, 'a, 'a) Viewlib.View.t

val mutable_ : 
  (Migrate_parsetree.Ast_404.Asttypes.mutable_flag, 'a, 'a) Viewlib.View.t

val virtual_ : 
  (Migrate_parsetree.Ast_404.Asttypes.virtual_flag, 'a, 'a) Viewlib.View.t

val concrete : 
  (Migrate_parsetree.Ast_404.Asttypes.virtual_flag, 'a, 'a) Viewlib.View.t

val override : 
  (Migrate_parsetree.Ast_404.Asttypes.override_flag, 'a, 'a) Viewlib.View.t

val fresh : 
  (Migrate_parsetree.Ast_404.Asttypes.override_flag, 'a, 'a) Viewlib.View.t

val closed : 
  (Migrate_parsetree.Ast_404.Asttypes.closed_flag, 'a, 'a) Viewlib.View.t

val open_ : 
  (Migrate_parsetree.Ast_404.Asttypes.closed_flag, 'a, 'a) Viewlib.View.t

val nolabel : 
  (Migrate_parsetree.Ast_404.Asttypes.arg_label, 'a, 'a) Viewlib.View.t

val labelled : 
  (string, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Asttypes.arg_label, 'a, 'b) Viewlib.View.t

val optional : 
  (string, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Asttypes.arg_label, 'a, 'b) Viewlib.View.t

val covariant : 
  (Migrate_parsetree.Ast_404.Asttypes.variance, 'a, 'a) Viewlib.View.t

val contravariant : 
  (Migrate_parsetree.Ast_404.Asttypes.variance, 'a, 'a) Viewlib.View.t

val invariant : 
  (Migrate_parsetree.Ast_404.Asttypes.variance, 'a, 'a) Viewlib.View.t

val lident : 
  (string, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Longident.t, 'a, 'b) Viewlib.View.t

val ldot : 
  (Migrate_parsetree.Ast_404.Longident.t * string, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Longident.t, 'a, 'b) Viewlib.View.t

val lapply : 
  (Migrate_parsetree.Ast_404.Longident.t
   * Migrate_parsetree.Ast_404.Longident.t,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Longident.t, 'a, 'b) Viewlib.View.t

val loc_start'match : 
  (Lexing.position, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t

val loc_end'match : 
  (Lexing.position, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t

val loc_ghost'match : 
  (bool, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t

val txt'match : 
  ('a, 'i, 'o) Viewlib.View.t ->
  ('a Migrate_parsetree.Ast_404.Location.loc, 'i, 'o) Viewlib.View.t

val loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  ('a Migrate_parsetree.Ast_404.Location.loc, 'i, 'o) Viewlib.View.t

val pconst_integer : 
  (string * char option, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.constant, 'a, 'b) Viewlib.View.t

val pconst_char : 
  (char, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.constant, 'a, 'b) Viewlib.View.t

val pconst_string : 
  (string * string option, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.constant, 'a, 'b) Viewlib.View.t

val pconst_float : 
  (string * char option, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.constant, 'a, 'b) Viewlib.View.t

val pStr : 
  (Migrate_parsetree.Ast_404.Parsetree.structure, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.payload, 'a, 'b) Viewlib.View.t

val pSig : 
  (Migrate_parsetree.Ast_404.Parsetree.signature, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.payload, 'a, 'b) Viewlib.View.t

val pTyp : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.payload, 'a, 'b) Viewlib.View.t

val pPat : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern
   * Migrate_parsetree.Ast_404.Parsetree.expression option,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.payload, 'a, 'b) Viewlib.View.t

val ptyp_desc'match : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type_desc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'i, 'o) Viewlib.View.t

val ptyp_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'i, 'o) Viewlib.View.t

val ptyp_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'i, 'o) Viewlib.View.t

val core_type'field : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'x0, 'x2) Viewlib.View.t

val ptyp_loc'field : 
  (Migrate_parsetree.Ast_404.Location.t, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'x0, 'x2) Viewlib.View.t

val ptyp_attributes'field : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'x0, 'x2) Viewlib.View.t

val ptyp_any : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'a) Viewlib.View.t

val ptyp_var : 
  (string, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t

val ptyp_arrow : 
  (Migrate_parsetree.Ast_404.Asttypes.arg_label
   * Migrate_parsetree.Ast_404.Parsetree.core_type
   * Migrate_parsetree.Ast_404.Parsetree.core_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t

val ptyp_tuple : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type list, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t

val ptyp_constr : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.core_type list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t

val ptyp_object : 
  ((string
    * Migrate_parsetree.Ast_404.Parsetree.attributes
    * Migrate_parsetree.Ast_404.Parsetree.core_type)
     list
   * Migrate_parsetree.Ast_404.Asttypes.closed_flag,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t

val ptyp_class : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.core_type list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t

val ptyp_alias : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type * string, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t

val ptyp_variant : 
  (Migrate_parsetree.Ast_404.Parsetree.row_field list
   * Migrate_parsetree.Ast_404.Asttypes.closed_flag
   * Migrate_parsetree.Ast_404.Asttypes.label list option,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t

val ptyp_poly : 
  (string list * Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t

val ptyp_package : 
  (Migrate_parsetree.Ast_404.Parsetree.package_type, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t

val ptyp_extension : 
  (Migrate_parsetree.Ast_404.Parsetree.extension, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t

val rtag : 
  (Migrate_parsetree.Ast_404.Asttypes.label
   * Migrate_parsetree.Ast_404.Parsetree.attributes
   * bool
   * Migrate_parsetree.Ast_404.Parsetree.core_type list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.row_field, 'a, 'b) Viewlib.View.t

val rinherit : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.row_field, 'a, 'b) Viewlib.View.t

val ppat_desc'match : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern_desc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'i, 'o) Viewlib.View.t

val ppat_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'i, 'o) Viewlib.View.t

val ppat_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'i, 'o) Viewlib.View.t

val pattern'field : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'x0, 'x2) Viewlib.View.t

val ppat_loc'field : 
  (Migrate_parsetree.Ast_404.Location.t, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'x0, 'x2) Viewlib.View.t

val ppat_attributes'field : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'x0, 'x2) Viewlib.View.t

val ppat_any : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'a) Viewlib.View.t

val ppat_var : 
  (string Migrate_parsetree.Ast_404.Location.loc, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_alias : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern
   * string Migrate_parsetree.Ast_404.Location.loc,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_constant : 
  (Migrate_parsetree.Ast_404.Parsetree.constant, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_interval : 
  (Migrate_parsetree.Ast_404.Parsetree.constant
   * Migrate_parsetree.Ast_404.Parsetree.constant,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_tuple : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern list, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_construct : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.pattern option,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_variant : 
  (Migrate_parsetree.Ast_404.Asttypes.label
   * Migrate_parsetree.Ast_404.Parsetree.pattern option,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_record : 
  ((Migrate_parsetree.Ast_404.Longident.t
      Migrate_parsetree.Ast_404.Location.loc
    * Migrate_parsetree.Ast_404.Parsetree.pattern)
     list
   * Migrate_parsetree.Ast_404.Asttypes.closed_flag,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_array : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern list, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_or : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern
   * Migrate_parsetree.Ast_404.Parsetree.pattern,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_constraint : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern
   * Migrate_parsetree.Ast_404.Parsetree.core_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_type : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_lazy : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_unpack : 
  (string Migrate_parsetree.Ast_404.Location.loc, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_exception : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_extension : 
  (Migrate_parsetree.Ast_404.Parsetree.extension, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val ppat_open : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.pattern,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'a, 'b) Viewlib.View.t

val pexp_desc'match : 
  (Migrate_parsetree.Ast_404.Parsetree.expression_desc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'i, 'o) Viewlib.View.t

val pexp_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'i, 'o) Viewlib.View.t

val pexp_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'i, 'o) Viewlib.View.t

val expression'field : 
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'x0, 'x2) Viewlib.View.t

val pexp_loc'field : 
  (Migrate_parsetree.Ast_404.Location.t, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'x0, 'x2) Viewlib.View.t

val pexp_attributes'field : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'x0, 'x2) Viewlib.View.t

val pexp_ident : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_constant : 
  (Migrate_parsetree.Ast_404.Parsetree.constant, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_let : 
  (Migrate_parsetree.Ast_404.Asttypes.rec_flag
   * Migrate_parsetree.Ast_404.Parsetree.value_binding list
   * Migrate_parsetree.Ast_404.Parsetree.expression,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_function : 
  (Migrate_parsetree.Ast_404.Parsetree.case list, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_fun : 
  (Migrate_parsetree.Ast_404.Asttypes.arg_label
   * Migrate_parsetree.Ast_404.Parsetree.expression option
   * Migrate_parsetree.Ast_404.Parsetree.pattern
   * Migrate_parsetree.Ast_404.Parsetree.expression,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_apply : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * (Migrate_parsetree.Ast_404.Asttypes.arg_label
      * Migrate_parsetree.Ast_404.Parsetree.expression)
       list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_match : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Parsetree.case list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_try : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Parsetree.case list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_tuple : 
  (Migrate_parsetree.Ast_404.Parsetree.expression list, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_construct : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.expression option,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_variant : 
  (Migrate_parsetree.Ast_404.Asttypes.label
   * Migrate_parsetree.Ast_404.Parsetree.expression option,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_record : 
  ((Migrate_parsetree.Ast_404.Longident.t
      Migrate_parsetree.Ast_404.Location.loc
    * Migrate_parsetree.Ast_404.Parsetree.expression)
     list
   * Migrate_parsetree.Ast_404.Parsetree.expression option,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_field : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Longident.t
       Migrate_parsetree.Ast_404.Location.loc,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_setfield : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Longident.t
       Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.expression,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_array : 
  (Migrate_parsetree.Ast_404.Parsetree.expression list, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_ifthenelse : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Parsetree.expression option,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_sequence : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Parsetree.expression,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_while : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Parsetree.expression,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_for : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern
   * Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Asttypes.direction_flag
   * Migrate_parsetree.Ast_404.Parsetree.expression,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_constraint : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Parsetree.core_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_coerce : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Parsetree.core_type option
   * Migrate_parsetree.Ast_404.Parsetree.core_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_send : 
  (Migrate_parsetree.Ast_404.Parsetree.expression * string, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_new : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_setinstvar : 
  (string Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.expression,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_override : 
  ((string Migrate_parsetree.Ast_404.Location.loc
    * Migrate_parsetree.Ast_404.Parsetree.expression)
     list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_letmodule : 
  (string Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.module_expr
   * Migrate_parsetree.Ast_404.Parsetree.expression,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_letexception : 
  (Migrate_parsetree.Ast_404.Parsetree.extension_constructor
   * Migrate_parsetree.Ast_404.Parsetree.expression,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_assert : 
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_lazy : 
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_poly : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Parsetree.core_type option,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_object : 
  (Migrate_parsetree.Ast_404.Parsetree.class_structure, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_newtype : 
  (string * Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_pack : 
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_open : 
  (Migrate_parsetree.Ast_404.Asttypes.override_flag
   * Migrate_parsetree.Ast_404.Longident.t
       Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.expression,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_extension : 
  (Migrate_parsetree.Ast_404.Parsetree.extension, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t

val pexp_unreachable : 
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'a) Viewlib.View.t

val pc_lhs'match : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.case, 'i, 'o) Viewlib.View.t

val pc_guard'match : 
  (Migrate_parsetree.Ast_404.Parsetree.expression option, 'i, 'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.case, 'i, 'o) Viewlib.View.t

val pc_rhs'match : 
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.case, 'i, 'o) Viewlib.View.t

val pval_name'match : 
  (string Migrate_parsetree.Ast_404.Location.loc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.value_description, 'i, 'o)
    Viewlib.View.t

val pval_type'match : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.value_description, 'i, 'o)
    Viewlib.View.t

val pval_prim'match : 
  (string list, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.value_description, 'i, 'o)
    Viewlib.View.t

val pval_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.value_description, 'i, 'o)
    Viewlib.View.t

val pval_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.value_description, 'i, 'o)
    Viewlib.View.t

val ptype_name'match : 
  (string Migrate_parsetree.Ast_404.Location.loc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_declaration, 'i, 'o) Viewlib.View.t

val ptype_params'match : 
  ((Migrate_parsetree.Ast_404.Parsetree.core_type
    * Migrate_parsetree.Ast_404.Asttypes.variance)
     list,
    'i,
    'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_declaration, 'i, 'o) Viewlib.View.t

val ptype_cstrs'match : 
  ((Migrate_parsetree.Ast_404.Parsetree.core_type
    * Migrate_parsetree.Ast_404.Parsetree.core_type
    * Migrate_parsetree.Ast_404.Location.t)
     list,
    'i,
    'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_declaration, 'i, 'o) Viewlib.View.t

val ptype_kind'match : 
  (Migrate_parsetree.Ast_404.Parsetree.type_kind, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_declaration, 'i, 'o) Viewlib.View.t

val ptype_private'match : 
  (Migrate_parsetree.Ast_404.Asttypes.private_flag, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_declaration, 'i, 'o) Viewlib.View.t

val ptype_manifest'match : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type option, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_declaration, 'i, 'o) Viewlib.View.t

val ptype_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_declaration, 'i, 'o) Viewlib.View.t

val ptype_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_declaration, 'i, 'o) Viewlib.View.t

val ptype_abstract : 
  (Migrate_parsetree.Ast_404.Parsetree.type_kind, 'a, 'a) Viewlib.View.t

val ptype_variant : 
  (Migrate_parsetree.Ast_404.Parsetree.constructor_declaration list, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_kind, 'a, 'b) Viewlib.View.t

val ptype_record : 
  (Migrate_parsetree.Ast_404.Parsetree.label_declaration list, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_kind, 'a, 'b) Viewlib.View.t

val ptype_open : 
  (Migrate_parsetree.Ast_404.Parsetree.type_kind, 'a, 'a) Viewlib.View.t

val pld_name'match : 
  (string Migrate_parsetree.Ast_404.Location.loc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.label_declaration, 'i, 'o)
    Viewlib.View.t

val pld_mutable'match : 
  (Migrate_parsetree.Ast_404.Asttypes.mutable_flag, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.label_declaration, 'i, 'o)
    Viewlib.View.t

val pld_type'match : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.label_declaration, 'i, 'o)
    Viewlib.View.t

val pld_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.label_declaration, 'i, 'o)
    Viewlib.View.t

val pld_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.label_declaration, 'i, 'o)
    Viewlib.View.t

val pcd_name'match : 
  (string Migrate_parsetree.Ast_404.Location.loc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.constructor_declaration, 'i, 'o)
    Viewlib.View.t

val pcd_args'match : 
  (Migrate_parsetree.Ast_404.Parsetree.constructor_arguments, 'i, 'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.constructor_declaration, 'i, 'o)
    Viewlib.View.t

val pcd_res'match : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type option, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.constructor_declaration, 'i, 'o)
    Viewlib.View.t

val pcd_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.constructor_declaration, 'i, 'o)
    Viewlib.View.t

val pcd_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.constructor_declaration, 'i, 'o)
    Viewlib.View.t

val pcstr_tuple : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type list, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.constructor_arguments, 'a, 'b)
    Viewlib.View.t

val pcstr_record : 
  (Migrate_parsetree.Ast_404.Parsetree.label_declaration list, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.constructor_arguments, 'a, 'b)
    Viewlib.View.t

val ptyext_path'match : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc,
    'i,
    'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_extension, 'i, 'o) Viewlib.View.t

val ptyext_params'match : 
  ((Migrate_parsetree.Ast_404.Parsetree.core_type
    * Migrate_parsetree.Ast_404.Asttypes.variance)
     list,
    'i,
    'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_extension, 'i, 'o) Viewlib.View.t

val ptyext_constructors'match : 
  (Migrate_parsetree.Ast_404.Parsetree.extension_constructor list, 'i, 'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_extension, 'i, 'o) Viewlib.View.t

val ptyext_private'match : 
  (Migrate_parsetree.Ast_404.Asttypes.private_flag, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_extension, 'i, 'o) Viewlib.View.t

val ptyext_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.type_extension, 'i, 'o) Viewlib.View.t

val pext_name'match : 
  (string Migrate_parsetree.Ast_404.Location.loc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.extension_constructor, 'i, 'o)
    Viewlib.View.t

val pext_kind'match : 
  (Migrate_parsetree.Ast_404.Parsetree.extension_constructor_kind, 'i, 'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.extension_constructor, 'i, 'o)
    Viewlib.View.t

val pext_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.extension_constructor, 'i, 'o)
    Viewlib.View.t

val pext_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.extension_constructor, 'i, 'o)
    Viewlib.View.t

val pext_decl : 
  (Migrate_parsetree.Ast_404.Parsetree.constructor_arguments
   * Migrate_parsetree.Ast_404.Parsetree.core_type option,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.extension_constructor_kind, 'a, 'b)
    Viewlib.View.t

val pext_rebind : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.extension_constructor_kind, 'a, 'b)
    Viewlib.View.t

val pcty_desc'match : 
  (Migrate_parsetree.Ast_404.Parsetree.class_type_desc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'i, 'o) Viewlib.View.t

val pcty_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'i, 'o) Viewlib.View.t

val pcty_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'i, 'o) Viewlib.View.t

val class_type'field : 
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'x0, 'x2) Viewlib.View.t

val pcty_loc'field : 
  (Migrate_parsetree.Ast_404.Location.t, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'x0, 'x2) Viewlib.View.t

val pcty_attributes'field : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'x0, 'x2) Viewlib.View.t

val pcty_constr : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.core_type list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'a, 'b) Viewlib.View.t

val pcty_signature : 
  (Migrate_parsetree.Ast_404.Parsetree.class_signature, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'a, 'b) Viewlib.View.t

val pcty_arrow : 
  (Migrate_parsetree.Ast_404.Asttypes.arg_label
   * Migrate_parsetree.Ast_404.Parsetree.core_type
   * Migrate_parsetree.Ast_404.Parsetree.class_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'a, 'b) Viewlib.View.t

val pcty_extension : 
  (Migrate_parsetree.Ast_404.Parsetree.extension, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'a, 'b) Viewlib.View.t

val pcsig_self'match : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_signature, 'i, 'o) Viewlib.View.t

val pcsig_fields'match : 
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field list, 'i, 'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_signature, 'i, 'o) Viewlib.View.t

val pctf_desc'match : 
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field_desc, 'i, 'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'i, 'o) Viewlib.View.t

val pctf_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'i, 'o) Viewlib.View.t

val pctf_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'i, 'o) Viewlib.View.t

val class_type_field'field : 
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'x0, 'x1)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'x1, 'x2)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'x0, 'x2)
    Viewlib.View.t

val pctf_loc'field : 
  (Migrate_parsetree.Ast_404.Location.t, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'x1, 'x2)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'x0, 'x2)
    Viewlib.View.t

val pctf_attributes'field : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'x1, 'x2)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'x0, 'x2)
    Viewlib.View.t

val pctf_inherit : 
  (Migrate_parsetree.Ast_404.Parsetree.class_type, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'a, 'b) Viewlib.View.t

val pctf_val : 
  (string
   * Migrate_parsetree.Ast_404.Asttypes.mutable_flag
   * Migrate_parsetree.Ast_404.Asttypes.virtual_flag
   * Migrate_parsetree.Ast_404.Parsetree.core_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'a, 'b) Viewlib.View.t

val pctf_method : 
  (string
   * Migrate_parsetree.Ast_404.Asttypes.private_flag
   * Migrate_parsetree.Ast_404.Asttypes.virtual_flag
   * Migrate_parsetree.Ast_404.Parsetree.core_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'a, 'b) Viewlib.View.t

val pctf_constraint : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type
   * Migrate_parsetree.Ast_404.Parsetree.core_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'a, 'b) Viewlib.View.t

val pctf_attribute : 
  (Migrate_parsetree.Ast_404.Parsetree.attribute, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'a, 'b) Viewlib.View.t

val pctf_extension : 
  (Migrate_parsetree.Ast_404.Parsetree.extension, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_type_field, 'a, 'b) Viewlib.View.t

val pci_virt'match : 
  (Migrate_parsetree.Ast_404.Asttypes.virtual_flag, 'i, 'o) Viewlib.View.t ->
  ('a Migrate_parsetree.Ast_404.Parsetree.class_infos, 'i, 'o) Viewlib.View.t

val pci_params'match : 
  ((Migrate_parsetree.Ast_404.Parsetree.core_type
    * Migrate_parsetree.Ast_404.Asttypes.variance)
     list,
    'i,
    'o)
    Viewlib.View.t ->
  ('a Migrate_parsetree.Ast_404.Parsetree.class_infos, 'i, 'o) Viewlib.View.t

val pci_name'match : 
  (string Migrate_parsetree.Ast_404.Location.loc, 'i, 'o) Viewlib.View.t ->
  ('a Migrate_parsetree.Ast_404.Parsetree.class_infos, 'i, 'o) Viewlib.View.t

val pci_expr'match : 
  ('a, 'i, 'o) Viewlib.View.t ->
  ('a Migrate_parsetree.Ast_404.Parsetree.class_infos, 'i, 'o) Viewlib.View.t

val pci_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  ('a Migrate_parsetree.Ast_404.Parsetree.class_infos, 'i, 'o) Viewlib.View.t

val pci_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  ('a Migrate_parsetree.Ast_404.Parsetree.class_infos, 'i, 'o) Viewlib.View.t

val pcl_desc'match : 
  (Migrate_parsetree.Ast_404.Parsetree.class_expr_desc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'i, 'o) Viewlib.View.t

val pcl_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'i, 'o) Viewlib.View.t

val pcl_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'i, 'o) Viewlib.View.t

val class_expr'field : 
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'x0, 'x2) Viewlib.View.t

val pcl_loc'field : 
  (Migrate_parsetree.Ast_404.Location.t, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'x0, 'x2) Viewlib.View.t

val pcl_attributes'field : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'x0, 'x2) Viewlib.View.t

val pcl_constr : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.core_type list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'a, 'b) Viewlib.View.t

val pcl_structure : 
  (Migrate_parsetree.Ast_404.Parsetree.class_structure, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'a, 'b) Viewlib.View.t

val pcl_fun : 
  (Migrate_parsetree.Ast_404.Asttypes.arg_label
   * Migrate_parsetree.Ast_404.Parsetree.expression option
   * Migrate_parsetree.Ast_404.Parsetree.pattern
   * Migrate_parsetree.Ast_404.Parsetree.class_expr,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'a, 'b) Viewlib.View.t

val pcl_apply : 
  (Migrate_parsetree.Ast_404.Parsetree.class_expr
   * (Migrate_parsetree.Ast_404.Asttypes.arg_label
      * Migrate_parsetree.Ast_404.Parsetree.expression)
       list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'a, 'b) Viewlib.View.t

val pcl_let : 
  (Migrate_parsetree.Ast_404.Asttypes.rec_flag
   * Migrate_parsetree.Ast_404.Parsetree.value_binding list
   * Migrate_parsetree.Ast_404.Parsetree.class_expr,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'a, 'b) Viewlib.View.t

val pcl_constraint : 
  (Migrate_parsetree.Ast_404.Parsetree.class_expr
   * Migrate_parsetree.Ast_404.Parsetree.class_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'a, 'b) Viewlib.View.t

val pcl_extension : 
  (Migrate_parsetree.Ast_404.Parsetree.extension, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_expr, 'a, 'b) Viewlib.View.t

val pcstr_self'match : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_structure, 'i, 'o) Viewlib.View.t

val pcstr_fields'match : 
  (Migrate_parsetree.Ast_404.Parsetree.class_field list, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_structure, 'i, 'o) Viewlib.View.t

val pcf_desc'match : 
  (Migrate_parsetree.Ast_404.Parsetree.class_field_desc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'i, 'o) Viewlib.View.t

val pcf_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'i, 'o) Viewlib.View.t

val pcf_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'i, 'o) Viewlib.View.t

val class_field'field : 
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'x0, 'x2) Viewlib.View.t

val pcf_loc'field : 
  (Migrate_parsetree.Ast_404.Location.t, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'x0, 'x2) Viewlib.View.t

val pcf_attributes'field : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'x0, 'x2) Viewlib.View.t

val pcf_inherit : 
  (Migrate_parsetree.Ast_404.Asttypes.override_flag
   * Migrate_parsetree.Ast_404.Parsetree.class_expr
   * string option,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'a, 'b) Viewlib.View.t

val pcf_val : 
  (string Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Asttypes.mutable_flag
   * Migrate_parsetree.Ast_404.Parsetree.class_field_kind,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'a, 'b) Viewlib.View.t

val pcf_method : 
  (string Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Asttypes.private_flag
   * Migrate_parsetree.Ast_404.Parsetree.class_field_kind,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'a, 'b) Viewlib.View.t

val pcf_constraint : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type
   * Migrate_parsetree.Ast_404.Parsetree.core_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'a, 'b) Viewlib.View.t

val pcf_initializer : 
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'a, 'b) Viewlib.View.t

val pcf_attribute : 
  (Migrate_parsetree.Ast_404.Parsetree.attribute, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'a, 'b) Viewlib.View.t

val pcf_extension : 
  (Migrate_parsetree.Ast_404.Parsetree.extension, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field, 'a, 'b) Viewlib.View.t

val cfk_virtual : 
  (Migrate_parsetree.Ast_404.Parsetree.core_type, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field_kind, 'a, 'b) Viewlib.View.t

val cfk_concrete : 
  (Migrate_parsetree.Ast_404.Asttypes.override_flag
   * Migrate_parsetree.Ast_404.Parsetree.expression,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.class_field_kind, 'a, 'b) Viewlib.View.t

val pmty_desc'match : 
  (Migrate_parsetree.Ast_404.Parsetree.module_type_desc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'i, 'o) Viewlib.View.t

val pmty_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'i, 'o) Viewlib.View.t

val pmty_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'i, 'o) Viewlib.View.t

val module_type'field : 
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'x0, 'x2) Viewlib.View.t

val pmty_loc'field : 
  (Migrate_parsetree.Ast_404.Location.t, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'x0, 'x2) Viewlib.View.t

val pmty_attributes'field : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'x0, 'x2) Viewlib.View.t

val pmty_ident : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'a, 'b) Viewlib.View.t

val pmty_signature : 
  (Migrate_parsetree.Ast_404.Parsetree.signature, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'a, 'b) Viewlib.View.t

val pmty_functor : 
  (string Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.module_type option
   * Migrate_parsetree.Ast_404.Parsetree.module_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'a, 'b) Viewlib.View.t

val pmty_with : 
  (Migrate_parsetree.Ast_404.Parsetree.module_type
   * Migrate_parsetree.Ast_404.Parsetree.with_constraint list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'a, 'b) Viewlib.View.t

val pmty_typeof : 
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'a, 'b) Viewlib.View.t

val pmty_extension : 
  (Migrate_parsetree.Ast_404.Parsetree.extension, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'a, 'b) Viewlib.View.t

val pmty_alias : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'a, 'b) Viewlib.View.t

val psig_desc'match : 
  (Migrate_parsetree.Ast_404.Parsetree.signature_item_desc, 'i, 'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'i, 'o) Viewlib.View.t

val psig_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'i, 'o) Viewlib.View.t

val signature_item'field : 
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'x0, 'x2) Viewlib.View.t

val psig_loc'field : 
  (Migrate_parsetree.Ast_404.Location.t, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'x0, 'x2) Viewlib.View.t

val psig_value : 
  (Migrate_parsetree.Ast_404.Parsetree.value_description, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_type : 
  (Migrate_parsetree.Ast_404.Asttypes.rec_flag
   * Migrate_parsetree.Ast_404.Parsetree.type_declaration list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_typext : 
  (Migrate_parsetree.Ast_404.Parsetree.type_extension, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_exception : 
  (Migrate_parsetree.Ast_404.Parsetree.extension_constructor, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_module : 
  (Migrate_parsetree.Ast_404.Parsetree.module_declaration, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_recmodule : 
  (Migrate_parsetree.Ast_404.Parsetree.module_declaration list, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_modtype : 
  (Migrate_parsetree.Ast_404.Parsetree.module_type_declaration, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_open : 
  (Migrate_parsetree.Ast_404.Parsetree.open_description, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_include : 
  (Migrate_parsetree.Ast_404.Parsetree.include_description, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_class : 
  (Migrate_parsetree.Ast_404.Parsetree.class_description list, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_class_type : 
  (Migrate_parsetree.Ast_404.Parsetree.class_type_declaration list, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_attribute : 
  (Migrate_parsetree.Ast_404.Parsetree.attribute, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val psig_extension : 
  (Migrate_parsetree.Ast_404.Parsetree.extension
   * Migrate_parsetree.Ast_404.Parsetree.attributes,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.signature_item, 'a, 'b) Viewlib.View.t

val pmd_name'match : 
  (string Migrate_parsetree.Ast_404.Location.loc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_declaration, 'i, 'o)
    Viewlib.View.t

val pmd_type'match : 
  (Migrate_parsetree.Ast_404.Parsetree.module_type, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_declaration, 'i, 'o)
    Viewlib.View.t

val pmd_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_declaration, 'i, 'o)
    Viewlib.View.t

val pmd_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_declaration, 'i, 'o)
    Viewlib.View.t

val pmtd_name'match : 
  (string Migrate_parsetree.Ast_404.Location.loc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type_declaration, 'i, 'o)
    Viewlib.View.t

val pmtd_type'match : 
  (Migrate_parsetree.Ast_404.Parsetree.module_type option, 'i, 'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type_declaration, 'i, 'o)
    Viewlib.View.t

val pmtd_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type_declaration, 'i, 'o)
    Viewlib.View.t

val pmtd_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_type_declaration, 'i, 'o)
    Viewlib.View.t

val popen_lid'match : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc,
    'i,
    'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.open_description, 'i, 'o) Viewlib.View.t

val popen_override'match : 
  (Migrate_parsetree.Ast_404.Asttypes.override_flag, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.open_description, 'i, 'o) Viewlib.View.t

val popen_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.open_description, 'i, 'o) Viewlib.View.t

val popen_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.open_description, 'i, 'o) Viewlib.View.t

val pincl_mod'match : 
  ('a, 'i, 'o) Viewlib.View.t ->
  ('a Migrate_parsetree.Ast_404.Parsetree.include_infos, 'i, 'o) Viewlib.View.t

val pincl_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  ('a Migrate_parsetree.Ast_404.Parsetree.include_infos, 'i, 'o) Viewlib.View.t

val pincl_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  ('a Migrate_parsetree.Ast_404.Parsetree.include_infos, 'i, 'o) Viewlib.View.t

val pwith_type : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.type_declaration,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.with_constraint, 'a, 'b) Viewlib.View.t

val pwith_module : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Longident.t
       Migrate_parsetree.Ast_404.Location.loc,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.with_constraint, 'a, 'b) Viewlib.View.t

val pwith_typesubst : 
  (Migrate_parsetree.Ast_404.Parsetree.type_declaration, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.with_constraint, 'a, 'b) Viewlib.View.t

val pwith_modsubst : 
  (string Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Longident.t
       Migrate_parsetree.Ast_404.Location.loc,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.with_constraint, 'a, 'b) Viewlib.View.t

val pmod_desc'match : 
  (Migrate_parsetree.Ast_404.Parsetree.module_expr_desc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'i, 'o) Viewlib.View.t

val pmod_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'i, 'o) Viewlib.View.t

val pmod_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'i, 'o) Viewlib.View.t

val module_expr'field : 
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'x0, 'x2) Viewlib.View.t

val pmod_loc'field : 
  (Migrate_parsetree.Ast_404.Location.t, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'x0, 'x2) Viewlib.View.t

val pmod_attributes'field : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'x0, 'x2) Viewlib.View.t

val pmod_ident : 
  (Migrate_parsetree.Ast_404.Longident.t Migrate_parsetree.Ast_404.Location.loc,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'a, 'b) Viewlib.View.t

val pmod_structure : 
  (Migrate_parsetree.Ast_404.Parsetree.structure, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'a, 'b) Viewlib.View.t

val pmod_functor : 
  (string Migrate_parsetree.Ast_404.Location.loc
   * Migrate_parsetree.Ast_404.Parsetree.module_type option
   * Migrate_parsetree.Ast_404.Parsetree.module_expr,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'a, 'b) Viewlib.View.t

val pmod_apply : 
  (Migrate_parsetree.Ast_404.Parsetree.module_expr
   * Migrate_parsetree.Ast_404.Parsetree.module_expr,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'a, 'b) Viewlib.View.t

val pmod_constraint : 
  (Migrate_parsetree.Ast_404.Parsetree.module_expr
   * Migrate_parsetree.Ast_404.Parsetree.module_type,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'a, 'b) Viewlib.View.t

val pmod_unpack : 
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'a, 'b) Viewlib.View.t

val pmod_extension : 
  (Migrate_parsetree.Ast_404.Parsetree.extension, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'a, 'b) Viewlib.View.t

val pstr_desc'match : 
  (Migrate_parsetree.Ast_404.Parsetree.structure_item_desc, 'i, 'o)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'i, 'o) Viewlib.View.t

val pstr_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'i, 'o) Viewlib.View.t

val structure_item'field : 
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'x0, 'x2) Viewlib.View.t

val pstr_loc'field : 
  (Migrate_parsetree.Ast_404.Location.t, 'x0, 'x1) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'x1, 'x2) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'x0, 'x2) Viewlib.View.t

val pstr_eval : 
  (Migrate_parsetree.Ast_404.Parsetree.expression
   * Migrate_parsetree.Ast_404.Parsetree.attributes,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_value : 
  (Migrate_parsetree.Ast_404.Asttypes.rec_flag
   * Migrate_parsetree.Ast_404.Parsetree.value_binding list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_primitive : 
  (Migrate_parsetree.Ast_404.Parsetree.value_description, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_type : 
  (Migrate_parsetree.Ast_404.Asttypes.rec_flag
   * Migrate_parsetree.Ast_404.Parsetree.type_declaration list,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_typext : 
  (Migrate_parsetree.Ast_404.Parsetree.type_extension, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_exception : 
  (Migrate_parsetree.Ast_404.Parsetree.extension_constructor, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_module : 
  (Migrate_parsetree.Ast_404.Parsetree.module_binding, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_recmodule : 
  (Migrate_parsetree.Ast_404.Parsetree.module_binding list, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_modtype : 
  (Migrate_parsetree.Ast_404.Parsetree.module_type_declaration, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_open : 
  (Migrate_parsetree.Ast_404.Parsetree.open_description, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_class : 
  (Migrate_parsetree.Ast_404.Parsetree.class_declaration list, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_class_type : 
  (Migrate_parsetree.Ast_404.Parsetree.class_type_declaration list, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_include : 
  (Migrate_parsetree.Ast_404.Parsetree.include_declaration, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_attribute : 
  (Migrate_parsetree.Ast_404.Parsetree.attribute, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pstr_extension : 
  (Migrate_parsetree.Ast_404.Parsetree.extension
   * Migrate_parsetree.Ast_404.Parsetree.attributes,
    'a,
    'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.structure_item, 'a, 'b) Viewlib.View.t

val pvb_pat'match : 
  (Migrate_parsetree.Ast_404.Parsetree.pattern, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.value_binding, 'i, 'o) Viewlib.View.t

val pvb_expr'match : 
  (Migrate_parsetree.Ast_404.Parsetree.expression, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.value_binding, 'i, 'o) Viewlib.View.t

val pvb_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.value_binding, 'i, 'o) Viewlib.View.t

val pvb_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.value_binding, 'i, 'o) Viewlib.View.t

val pmb_name'match : 
  (string Migrate_parsetree.Ast_404.Location.loc, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_binding, 'i, 'o) Viewlib.View.t

val pmb_expr'match : 
  (Migrate_parsetree.Ast_404.Parsetree.module_expr, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_binding, 'i, 'o) Viewlib.View.t

val pmb_attributes'match : 
  (Migrate_parsetree.Ast_404.Parsetree.attributes, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_binding, 'i, 'o) Viewlib.View.t

val pmb_loc'match : 
  (Migrate_parsetree.Ast_404.Location.t, 'i, 'o) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.module_binding, 'i, 'o) Viewlib.View.t

val ptop_def : 
  (Migrate_parsetree.Ast_404.Parsetree.structure, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.toplevel_phrase, 'a, 'b) Viewlib.View.t

val ptop_dir : 
  (string * Migrate_parsetree.Ast_404.Parsetree.directive_argument, 'a, 'b)
    Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.toplevel_phrase, 'a, 'b) Viewlib.View.t

val pdir_none : 
  (Migrate_parsetree.Ast_404.Parsetree.directive_argument, 'a, 'a)
    Viewlib.View.t

val pdir_string : 
  (string, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.directive_argument, 'a, 'b)
    Viewlib.View.t

val pdir_int : 
  (string * char option, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.directive_argument, 'a, 'b)
    Viewlib.View.t

val pdir_ident : 
  (Migrate_parsetree.Ast_404.Longident.t, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.directive_argument, 'a, 'b)
    Viewlib.View.t

val pdir_bool : 
  (bool, 'a, 'b) Viewlib.View.t ->
  (Migrate_parsetree.Ast_404.Parsetree.directive_argument, 'a, 'b)
    Viewlib.View.t

package ppx_view