concrete SymbolIta of Symbol = CatIta ** SymbolRomance with
  (ResRomance = ResIta) ;