Translobj (melange.Melange_compiler

let oo_prim: string => Lambda.lambda;

let share: Lambda.structured_constant => Lambda.lambda;

let meth: Lambda.lambda => string => (Lambda.lambda, list(Lambda.lambda));

let reset_labels: unit => unit;

let transl_label_init: (unit => (Lambda.lambda, 'a)) => (Lambda.lambda, 'a);

let transl_store_label_init: 
  Ident.t =>
  int =>
  ('a => Lambda.lambda) =>
  'a =>
  (int, Lambda.lambda);

let method_ids: Stdlib.ref(Ident.Set.t);

let oo_wrap: Env.t => bool => ('a => Lambda.lambda) => 'a => Lambda.lambda;

let oo_wrap_gen: 
  Env.t =>
  bool =>
  ('a => (Lambda.lambda, 'b)) =>
  'a =>
  (Lambda.lambda, 'b);

let oo_add_class: Ident.t => (Env.t, bool);

let reset: unit => unit;