                                      :cat :verb}}
                            vp-non-pronoun)
 
-                   (unifyc h21
+                   (unify h21
                            root-is-head
                            {:rule "vp-imperfect"
                             :synsem {:aux false

;; -- BEGIN SCHEMA DEFINITIONS
;; <TODO: move to ug>
(def schema-10
  (unifyc
   subcat-1-principle
   head-principle
   {:first :comp
    :comp {:synsem {:subcat '()}}}))

(def c10
  (unifyc
   schema-10
   head-last
   {:comment "c10"

                                     :cat :verb
                                     :sem {:aspect :progressive
                                           :tense :past}}})
                   (unify c10
                           root-is-head
                           {:rule "s-present-nonphrasal"
                            :head {:phrasal false}
