                                      :cat :verb}})
                    (unify h21a
                           root-is-comp
-                          head-is-conjugated-and-present-infl
+                          head-present-infl
                           {:rule "vp-aux"
                            :synsem {:aux true
                                     :sem {:tense :past}

                   ;; [nous [être + naître]] => nous somme nées
                   (unify h22
                          root-is-comp
                          head-is-conjugated-and-present-infl
                          (let [obj-agr (atom :top)] ;; TODO: Remove: this obj-agr is not used.
                            {:head {:phrasal false}
                             :rule "vp-aux-22"

                   ;; [s-present-phrasal 'je' [vp-pronoun-phrasal 'm'' [vp32 'se appeler' 'Jean']]]
                   (unify h32
                          root-is-head
                          ;; TODO: why does adding head-present-infl
                          ;; cause the test 'generate-named-sentence' to fail?
                          ;;                          head-present-infl
                          {:rule "vp-32"
                           :head {:phrasal false}
                           :synsem {:aux false
