HelpersBase (u.86b06ba6ecb8d18bafa3556d9381f691.GT.0.5.1.doc.GT.common.GTCommon.HelpersBase)

val id : 'a -> 'a

val not_implemented : ('a, unit, string, 'b) format4 -> 'a

module List : sig ... end

val compare_core_type : 
  Astlib__.Ast_414.Parsetree.core_type ->
  Astlib__.Ast_414.Parsetree.core_type ->
  int

val visit_typedecl : 
  loc:'a ->
  ?onrecord:(Ppxlib.label_declaration list -> 'b) ->
  ?onmanifest:(Ppxlib.core_type -> 'b) ->
  ?onvariant:(Ppxlib.constructor_declaration list -> 'b) ->
  ?onabstract:(unit -> 'b) ->
  ?onopen:(unit -> 'b) ->
  Ppxlib.type_declaration ->
  'b

val affect_longident : 
  f:(string -> string) ->
  Ppxlib.longident ->
  Ppxlib.longident

val map_longident : 
  f:(string -> string) ->
  Ppxlib.longident ->
  Ppxlib.longident

val lident_tail : Ppxlib.longident -> Ppxlib.longident

module SS : sig ... end

val vars_from_core_type : Ppxlib.core_type -> SS.t

val vars_from_tdecl : Ppxlib.type_declaration -> SS.t

val map_core_type : 
  ?onconstr:
    (Ppxlib.longident -> Ppxlib.core_type list -> Ppxlib.core_type option) ->
  onvar:(string -> Ppxlib.core_type Base.Option.t) ->
  Ppxlib.core_type ->
  Ppxlib.core_type

val list_first_some : f:('a -> 'b option) -> 'a List.t -> 'b option

val is_type_used_in : tdecl:Ppxlib.type_declaration -> Ppxlib.longident -> bool

val maybe_specialiaze : 
  what:Ppxlib.type_declaration ->
  Ppxlib.core_type List.t ->
  (string * Ppxlib.core_type) List.t option

val specialize_for_tdecl : 
  what:Ppxlib.type_declaration ->
  where:Ppxlib.type_declaration ->
  (string * Ppxlib.core_type) List.t

val with_constr_typ : 
  Ppxlib.core_type ->
  ok:(Ppxlib.longident_loc -> Ppxlib.core_type list -> 'a) ->
  fail:(unit -> 'a) ->
  'a

val constr_of_tuple : 
  ?loc:Ppxlib.Location.t ->
  Astlib.Ast_500.Parsetree.core_type List.t ->
  Astlib.Ast_500.Parsetree.core_type

val using_type : 
  typename:string ->
  Ppxlib.type_declaration ->
  Astlib.Ast_500.Parsetree.core_type

val is_polyvariant : Ppxlib.core_type -> bool

val is_tuple : Ppxlib.core_type -> bool

val is_polyvariant_tdecl : Ppxlib.type_declaration -> bool

val is_tuple_tdecl : Ppxlib.type_declaration -> bool

val is_algebraic_tdecl : Ppxlib.type_declaration -> bool

val has_many_constructors_tdecl : Ppxlib.type_declaration -> bool

val unfold_tuple : Ppxlib.core_type -> Ppxlib.core_type list

val prepare_patt_match_poly : 
  loc:Ppxlib.Location.t ->
  Astlib.Ast_500.Parsetree.expression ->
  Ppxlib.row_field_desc List.t ->
  string List.t option ->
  onrow:
    (Ppxlib.label Ppxlib.loc ->
      (string * Ppxlib.core_type) List.t ->
      Astlib.Ast_500.Parsetree.expression) ->
  onlabel:(string -> string -> Astlib.Ast_500.Parsetree.expression) ->
  oninherit:
    (Ppxlib.core_type list ->
      Ppxlib.longident ->
      string ->
      Astlib.Ast_500.Parsetree.expression) ->
  Astlib.Ast_500.Parsetree.expression

val map_type_param_names : 
  f:(string -> 'a) ->
  (Ppxlib.core_type * 'b) List.t ->
  'a List.t

val notify : ('a, Format.formatter, unit, unit) format4 -> 'a

val string_after_a : int -> string

val hash_variant : string -> int

val failwiths : ('a, Format.formatter, unit, 'b) format4 -> 'a