concrete VerbFre of Verb = CatFre ** VerbRomance with
  (DiffRomance = DiffFre) ;