    true
    lexical-entry))
 
+;; TODO: remove: dead code
 (defn essere-default [lexical-entry]
   "if :essere is not set, then it's false."
   (cond

                  {:italiano a-string}
                  common))))

(def pronoun-semantic-gender-agreement
  (let [gender (atom :top)]
    {:synsem {:sem {:gender gender}
              :agr {:gender gender}}}))

(defn agreement [lexical-entry]
  (cond
   (= (get-in lexical-entry [:synsem :cat]) :verb)

            {:synsem {:essere false}})
    true lexical-entry))

;; TODO: remove: dead code
(defn aux-verb-rule [lexical-entry]
  "If a word's :synsem :aux is set to true, then auxify it (add all the
  things that are consequent on its being an aux verb.
