let hide_unused_function_or_var vi = !hide_unused () && Value.is_computed () && (try let kf = Globals.Functions.get vi in not (!Value.is_called kf) with Not_found -> not (used_var vi) )