concrete AdverbFre of Adverb = CatFre ** AdverbRomance with
  (DiffRomance = DiffFre) ;