                        (= (:rule %) "s-present-phrasal-head")
                        (= (:rule %) "s-future-nonphrasal-head")
                        (= (:rule %) "s-future-phrasal-head")
-                       (= (:rule %) "s-imperfetto-nonphrasal-head")
-                       (= (:rule %) "s-imperfetto-phrasal-head")
+                       (= (:rule %) "s-imperfect-nonphrasal-head")
+                       (= (:rule %) "s-imperfect-phrasal-head")
                        (= (:rule %) "s-past-nonphrasal-head")
                        (= (:rule %) "s-past-phrasal-head")
                        (= (:rule %) "s-aux")

          (filter #(or (= (:rule %) "s-conditional-nonphrasal-head")
                       (= (:rule %) "s-present-nonphrasal-head")
                       (= (:rule %) "s-future-nonphrasal-head")
                       (= (:rule %) "s-imperfetto-nonphrasal-head")
                       (= (:rule %) "s-past-nonphrasal-head")
                       (= (:rule %) "s-aux"))
                  grammar)

       :index (create-index grammar (flatten (vals lexicon)) head-principle)})))

(log/info "English grammar defined.")
