concrete VerbFre of Verb = CatFre ** VerbRomance with
  (ResRomance = ResFre) ;