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