let is_free_function v = isFunctionType v.vtype && v.vname = name_of_free