 
 
 ;; Vychodil (:vychodil)
-
-(defn vychodil-create-structures
-  ""
-  [context]
-  (let [object-vector (vec (objects context))
-	attribute-vector (vec (attributes context))
-
-	object-count (count object-vector)
-	attribute-count (count attribute-vector)
-
-	incidence-matrix (to-binary-matrix object-vector attribute-vector (incidence context))
-
-	rows (into-array (map (fn [y]
-				(let [#^BitSet bs (BitSet.)]
-				  (.set bs y)
-				  (bitwise-attribute-derivation incidence-matrix
-								object-count
-								attribute-count
-								bs)))
-			      (range attribute-count)))]
-    [object-vector attribute-vector
-     object-count  attribute-count
-     incidence-matrix  rows]))
 
 (defn compute-closure
   ""

	      (int 1)
	      (int 0))))
    incidence-matrix))

(defn bitwise-object-derivation
  ""

			incidence-matrix rows,
			empty-down empty-down-up 0))))

;; In-Close (:in-close)


;;; Luxenburger Basis

;;;
