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