let get_implicit_fun name (out_type, inputs_type) =
  let linfos = Logic_env.find_all_logic_functions name in
  let f = match linfos with
    | f::[] -> f
    | _::_ -> Wp_parameters.fatal "several functions named %s" name
    | [] ->
        let linfo = make_logic_info name (Some out_type, inputs_type) in
          Logic_utils.add_logic_function linfo;
          linfo
  in f