p -> Bool
isClasswide rg = Set.null (rgIdxes rg) && isExact rg

-- -----------------
isClasswide :: RefGroup -> Bool
isClasswide rg = Set.null (rgIdxes rg) && isExact rg
isClasswide rg = Set.null (rgIdxes rg) && isExact rg