toMap :: Ord a => (a -> b) -> (Set a) -> (Map a b)
toMap = \toValue set -> (Map.fromAscList (List.map (\x -> (x, toValue x)) (Set.toList set)))
toMap :: Ord a => (a -> b) -> (Set a) -> (Map a b)
toMap = \toValue set -> (Map.fromAscList (List.map (\x -> (x, toValue x)) (Set.toList set)))
toMap = \toValue set -> (Map.fromAscList (List.map (\x -> (x, toValue x)) (Set.toList set)))