`sig
val simplify_lambda : string -> Lambda.lambda -> Lambda.lambda
val split_default_wrapper :
id:Ident.t ->
kind:Lambda.function_kind ->
params:(Ident.t * Lambda.value_kind) list ->
return:Lambda.value_kind ->
body:Lambda.lambda ->
attr:Lambda.function_attribute ->
loc:Location.t -> (Ident.t * Lambda.lambda) list
val is_tail_native_heuristic : (int -> bool) Stdlib.ref
module Hooks :
sig
type t = Lambda.lambda
val add_hook : string -> (Misc.hook_info -> t -> t) -> unit
val apply_hooks : Misc.hook_info -> t -> t
end
end`