concrete RelativeFre of Relative = CatFre ** RelativeRomance with
  (DiffRomance = DiffFre) ;