               :sem {:human true
                     :pred :I}
               :subcat '()}}]
-   
+
    "if"   (let [obj (atom :top)]
             {:synsem {:cat :comp
                       :comp-type :if

                 :infl :past
                 :sem {:aspect :perfect
                       :tense :past}}})
      
      ;; </verb default rules>

      ;; <prep default rules>

                      ;; {:pred :unspec} is to prevent unexpected
                      ;; use of this lexeme with specifications that
                      ;; as for a given {:pred}.

                      :subcat {:1 {:cat :verb
                                   :sem obj
                                   :subcat '()}
