                                       (union (premise implication) (conclusion implication))))
          premise-count))))
 
-;;;
+;;
 
 (defn- frequent-itemsets
   "Returns all frequent itemsets of context, given minsupp as minimal support."

  (set-of (make-implication A (context-attribute-closure ctx A))
          [A (proper-premises ctx)]))

;;;

(defn stem-base-from-base
  "For a given set of implications returns its stem-base."

          :when (>= (confidence impl context) minconf)]
      impl)))

;;

(defn frequent-closed-itemsets
  "Computes for context a lazy sequence of all frequent and closed itemsets,
