                           {:synsem {:sem {:obj {:pred :top}}}})
                  
 
+                 (new-entries ;; remove the second argument and semantic object to make verbs intransitive.
+                  {:synsem {:cat :verb
+                            :aux false
+                            :sem {:obj {:top :top}
+                                  :reflexive false}
+                            ;; likely to be :noun or :prep but could be others
+                            :subcat {:2 {:cat :top}
+                                     :3 '()}}}
+                  (fn [lexeme]
+                    (dissoc-paths lexeme [[:synsem :sem :obj]
+                                          [:synsem :subcat :2]])))
+
                  (default ;; intransitive verbs' :obj is :unspec.
-                  {:synsem {:cat :verb
+                  {:modal-with false
+                   :synsem {:cat :verb
                             :subcat {:1 {:top :top}
                                      :2 '()}
-                            :sem {:obj :unspec}}})
+                            :sem {:reflexive false
+                                  :obj :unspec}}})
 
                  ;; make an intransitive version of every verb which has an
                  ;; [:sem :obj] path.

   "wake up"
   (let [subject-semantics (atom :top)]
     {:synsem {:cat :verb
               :sem {:pred :wake-up}
               :subcat {:2 '()}}
      :english {:participle "waking up"
                :present {:3sing "wakes up"}

                              intransitivize
                              subject-verb-agreement
                              transitivize]]
   [dag_unify.core :refer [dissoc-paths fail? get-in strip-refs unifyc]]))

(declare edn2lexicon)

