let create kf =
  Wp_parameters.feedback "create cfg for function '%a'@." 
                Kernel_function.pretty_name kf;
  let f = Kernel_function.get_definition kf in
  let env, fct_in, fct_out = init_cfg kf in
  let _ = cfg_block env fct_in Enone f.sbody fct_out in
  let graph = cfg_graph env in
    Wp_parameters.debug ~level:2 "[cfg] for function '%a': %d vertex - %d edges@."
      Kernel_function.pretty_name kf (CFG.nb_edges graph) (CFG.nb_vertex graph);
  let cfg = env in
  let _ = mark_loops cfg in 
    cfg