val for_tupled_function : scopes:Debuginfo.Scoped_location.scopes -> Location.t -> Ident.t list -> (Typedtree.pattern list * Lambda.lambda) list -> Typedtree.partial -> Lambda.lambda
val for_optional_arg_default : scopes:Debuginfo.Scoped_location.scopes -> Location.t -> Typedtree.pattern -> default_arg:Lambda.lambda -> param:Ident.t -> Lambda.lambda -> Lambda.lambda

for_optional_arg_default pat body ~default_arg ~param is:

let $pat =
  match $param with
  | Some x -> x
  | None -> $default_arg
in
$body
exception Cannot_flatten
val flatten_pattern : int -> Typedtree.pattern -> Typedtree.pattern list
val expand_stringswitch : Lambda.scoped_location -> Lambda.lambda -> (string * Lambda.lambda) list -> Lambda.lambda option -> Lambda.lambda
val inline_lazy_force : Lambda.lambda -> Lambda.scoped_location -> Lambda.lambda