sufficientSupport :: MinSupport
                  -> Int    -- ^ total number of transactions
                  -> Int    -- ^ number of occurences
                  -> Bool   -- ^ has sufficient support?
sufficientSupport (MinSupport minsup) transactionsSize =
    (>= minsup) . calculateSupport transactionsSize
sufficientSupport :: MinSupport
                  -> Int    -- ^ total number of transactions
                  -> Int    -- ^ number of occurences
                  -> Bool
sufficientSupport (MinSupport minsup) transactionsSize =
    (>= minsup) . calculateSupport transactionsSize
sufficientSupport (MinSupport minsup) transactionsSize =
    (>= minsup) . calculateSupport transactionsSize