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)
  )