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