       :first :head
       :comment "c11-comp-subcat-1"})))
 
-(def h11-comp-subcat-1
+(defonce h11-comp-subcat-1
   (let [subcat (atom :top)]
     (unify
      {:head {:synsem {:subcat {:1 subcat}}}

    :schema-symbol 'h10 ;; used by over-each-parent to know where to put children.
    :first :head}))

(def h21
  (unify
   subcat-2-principle
   head-principle

    :first :head}))

;; h21a is a specialization of h21. it's used for vp-aux to prevent over-generation.
(defonce h21a
  (merge
   (unify
    h21
