Simplify_primitives
val primitive : Clambda_primitives.primitive -> (Variable.t list * Simple_value_approx.t list) -> Flambda.named -> Debuginfo.t -> size_int:int -> Flambda.named * Simple_value_approx.t * Inlining_cost.Benefit.t