val event_before : 
  Lambda.scoped_location ->
  Typedtree.expression ->
  Lambda.lambda ->
  Lambda.lambdaval event_after : 
  Lambda.scoped_location ->
  Typedtree.expression ->
  Lambda.lambda ->
  Lambda.lambdaval add_exception_ident : Ident.t -> unitval remove_exception_ident : Ident.t -> unitval get_used_primitives : unit -> Path.t listval check_primitive_arity : Location.t -> Primitive.description -> unitval transl_primitive : 
  Lambda.scoped_location ->
  Primitive.description ->
  Env.t ->
  Types.type_expr ->
  Path.t option ->
  Lambda.lambdaval transl_primitive_application : 
  Lambda.scoped_location ->
  Primitive.description ->
  Env.t ->
  Types.type_expr ->
  Path.t ->
  Typedtree.expression option ->
  Lambda.lambda list ->
  Typedtree.expression list ->
  Lambda.lambdaexception Error of Location.t * errorval report_error : Format.formatter -> error -> unit
