keepMinKinds :: ClassMap -> [Set.Set Kind] -> Set.Set Kind
keepMinKinds cm = Set.fromDistinctAscList
    . keepMins (lesserKind cm) . Set.toList . Set.unions
keepMinKinds :: ClassMap -> [Set.Set Kind] -> Set.Set Kind
keepMinKinds cm = Set.fromDistinctAscList
    . keepMins (lesserKind cm) . Set.toList . Set.unions
keepMinKinds cm = Set.fromDistinctAscList
    . keepMins (lesserKind cm) . Set.toList . Set.unions