concrete NounCat of Noun = CatCat ** NounRomance with
  (ResRomance = ResCat) ;