Core2 (p.GT.0.4.0.doc.pa_gt.Pa

val oops : Ploc.t -> string -> 'a

val get_val : 'a -> 'b Ploc.vala -> 'b

module Migr : sig ... end

val generate_str : 
  (MLast.type_decl * Base.string list) list ->
  Camlp5Helpers.loc ->
  MLast.str_item

val generate_sig : 
  (MLast.type_decl * Base.string list) list ->
  Camlp5Helpers.loc ->
  MLast.sig_item