                         (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]

   [babel.espanol.lexicon :refer [lexicon]]
   [babel.espanol.morphology :as morph
    :refer [analyze fo morph-walk-tree]]
   [babel.index :refer (build-lex-sch-index
                        create-index map-subset-by-path
                        spec-to-phrases)]
   [babel.lexiconfn :refer [lexicon-for-generation]]
   [babel.parse :as parse]
   [babel.stringutils :refer [show-as-tree]]

     :morph-walk-tree (fn [tree]
                        (do
                          (merge tree
                                 (morph-walk-tree tree))))}))
(defn medium []
  (log/info (str "Español model: medium"))
  (let [lexicon-for-generation
