                         (do
                           (merge tree
                                  (morph-walk-tree tree))))
-
-     :pred2lex ;; map:<pred => subset of lexicon with that pred>
-     (map-subset-by-path lexicon [:synsem :sem :pred])
-
-     :cat2lex ;; map:<cat => subset of lexicon with that cat>
-     (map-subset-by-path lexicon [:synsem :cat])
-
      :grammar grammar
      :lexical-cache (atom (cache/fifo-cache-factory {} :threshold 1024))
      :lexicon lexicon
-     :index (create-index grammar (flatten (vals lexicon-for-generation)) head-principle)
      }))
 
 (defn parse [surface]

   #?(:cljs [babel.logjs :as log])
   [clojure.core.cache :as cache]
   [dag_unify.core :refer (get-in unifyc)]))

(defn fo-ps [expr]
  (parse/fo-ps expr fo))

                   (map #(keyword (get-in % [:rule]))
                        grammar)
                   grammar)
     
     :grammar grammar
     :lexicon lexicon
