concrete SymbolCat of Symbol = CatCat ** SymbolRomance with
  (ResRomance = ResCat) ;