 			incidence-matrix rows,
 			empty-down empty-down-up 0))))
 
-
 ;; In-Close (:in-close)
 
+
 ;;; Luxenburger Basis
 
 ;;;

  ""
  [object-count attribute-count incidence-matrix #^BitSet A i]
  (let [#^BitSet A-short (.clone A)
	i (int i)]
    (.set A-short i true)
    (.set A-short (inc i) (int attribute-count) false)
    (bitwise-object-derivation incidence-matrix
			       object-count
			       attribute-count
			       (bitwise-attribute-derivation incidence-matrix
							     object-count
							     attribute-count
							     A-short))))

(defn next-closed-set
  ""



;; Vychodil (:vychodil)

(defn compute-closure
  ""
