Ids pes

-- | Путь к имени, записывается задом наперед для удобства дальнейшей
-- работы (ну и, мимоходом, шарятся префиксы)
type RevNamePath = [Nam
isConstantRevPath = isJust . find c . stripNPEIds
    where c (NPEIdent nik _) = skipAliases nik == NIKConstant
          c _                = False
isConstantRevPath = isJust . find c . stripNPEIds
    where c (NPEIdent nik _) = skipAliases nik == NIKConstant
          c _                = False