Это не работает
data Cutlery = Knife | Fork deriving (Show,Eq)
let x = [Knife,Fork]
let set1 = Set.fromList x
при определении
data Cutlery = Knife | Fork deriving (Show,Ord,Eq)
решает проблему, но не имеет смысла. Является ли Data.Set отличным от математического определения набора?