opIds :: Sign -> Set.Set Id
opIds = Set.map simpleIdToId . Map.keysSet . items
opIds :: Sign -> Set.Set Id
opIds = Set.map simpleIdToId . Map.keysSet . items
opIds = Set.map simpleIdToId . Map.keysSet . items