val oo_prim : string -> Lambda.lambda
val meth : Lambda.lambda -> string -> Lambda.lambda * Lambda.lambda list
val reset_labels : unit -> unit
val transl_label_init : (unit -> Lambda.lambda * 'a) -> Lambda.lambda * 'a
val transl_store_label_init : Ident.t -> int -> ('a -> Lambda.lambda) -> 'a -> int * Lambda.lambda
val method_ids : Ident.Set.t ref
val oo_wrap : Env.t -> bool -> ('a -> Lambda.lambda) -> 'a -> Lambda.lambda
val oo_wrap_gen : Env.t -> bool -> ('a -> Lambda.lambda * 'b) -> 'a -> Lambda.lambda * 'b
val oo_add_class : Ident.t -> Env.t * bool
val reset : unit -> unit