let on_definition phi kf = match kf.fundec with | Declaration _ -> Wp_parameters.warning ~current:false "Function %s has no body (skipped)" (Kernel_function.get_name kf) | Definition _ -> phi kf